mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-27 11:55:20 +00:00
logo_demo: update
This commit is contained in:
parent
56968ffd6c
commit
b104e95e1f
@ -5,10 +5,13 @@ TEXT_TO_PRODOS = ../../utils/prodos-utils/text_to_prodos
|
|||||||
EMPTY_DISK = ../../empty_disk/empty.po
|
EMPTY_DISK = ../../empty_disk/empty.po
|
||||||
HGR2PNG = ../../utils/hgr-utils/png2hgr
|
HGR2PNG = ../../utils/hgr-utils/png2hgr
|
||||||
LINKER_SCRIPTS = ../../linker_scripts
|
LINKER_SCRIPTS = ../../linker_scripts
|
||||||
|
PNG2HGR = ../../utils/hgr-utils/png2hgr
|
||||||
|
LZSA = ~/research/lzsa/lzsa/lzsa
|
||||||
|
|
||||||
|
|
||||||
all: logo_demo.dsk
|
all: logo_demo.dsk
|
||||||
|
|
||||||
logo_demo.dsk: LOGO3 MUSIC DEMO
|
logo_demo.dsk: LOGO3 MUSIC DEMO map.lzsa
|
||||||
cp ../../logo/dsks/apple_logo_ii.dsk ./logo_demo.dsk
|
cp ../../logo/dsks/apple_logo_ii.dsk ./logo_demo.dsk
|
||||||
$(PRODOS) -y logo_demo.dsk -t BIN -a 0x2000 SAVE LOGO3
|
$(PRODOS) -y logo_demo.dsk -t BIN -a 0x2000 SAVE LOGO3
|
||||||
$(PRODOS) -y logo_demo.dsk DELETE FORMAT
|
$(PRODOS) -y logo_demo.dsk DELETE FORMAT
|
||||||
@ -49,6 +52,14 @@ DEMO: demo.logo
|
|||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
map.lzsa: map.hgr
|
||||||
|
$(LZSA) -r -f2 map.hgr map.lzsa
|
||||||
|
|
||||||
|
map.hgr: map.png
|
||||||
|
$(PNG2HGR) map.png > map.hgr
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -f *~ *.o *.lst LOGO3 MUSIC DEMO
|
rm -f *~ *.o *.lst LOGO3 MUSIC DEMO
|
||||||
|
|
||||||
|
@ -1,32 +1,18 @@
|
|||||||
TO TTREE :N
|
TO TTREE :N
|
||||||
TPAIR :N
|
TPAIR :N RT 45 TPAIR :N BK :N * 3
|
||||||
RT 45
|
|
||||||
TPAIR :N
|
|
||||||
BK :N * 3
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO TPAIR :N
|
TO TPAIR :N
|
||||||
TREE :N
|
TREE :N RT 180 TREE :N SETH 0
|
||||||
RT 180
|
|
||||||
TREE :N
|
|
||||||
SETH 0
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO TREE :LENGTH
|
TO TREE :LENGTH
|
||||||
IF :LENGTH < 2 [STOP]
|
IF :LENGTH < 2 [STOP]
|
||||||
LEFT 45
|
LT 45 FD :LENGTH
|
||||||
FORWARD :LENGTH
|
|
||||||
TREE :LENGTH / 2
|
TREE :LENGTH / 2
|
||||||
BACK :LENGTH
|
BK :LENGTH RT 90 FD :LENGTH
|
||||||
RIGHT 90
|
|
||||||
FORWARD :LENGTH
|
|
||||||
TREE :LENGTH / 2
|
TREE :LENGTH / 2
|
||||||
BACK :LENGTH
|
BK :LENGTH LT 45
|
||||||
LEFT 45
|
|
||||||
END
|
|
||||||
|
|
||||||
TO SETUP :REF
|
|
||||||
PU SETPOS :REF PD
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO CTREE
|
TO CTREE
|
||||||
@ -42,24 +28,17 @@ END
|
|||||||
|
|
||||||
TO DSR
|
TO DSR
|
||||||
CS
|
CS
|
||||||
PU
|
PU SETPOS [-45 75]
|
||||||
SETPOS [-45 75]
|
PD SETH 180
|
||||||
PD
|
|
||||||
SETHEADING 180
|
|
||||||
FD 100 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50
|
FD 100 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50
|
||||||
PU
|
PU SETPOS [25 25] LT 180
|
||||||
SETPOS [25 25]
|
PD FD 50 LT 90 FD 25 LT 90 FD 50 RT 90 FD 25 RT 90 FD 50
|
||||||
LT 180
|
PU SETPOS [45 -25]
|
||||||
PD
|
PD RT 90 FD 50 RT 90 FD 50
|
||||||
FD 50 LT 90 FD 25 LT 90 FD 50 RT 90 FD 25 RT 90 FD 50
|
PU SETPOS [-110 -45]
|
||||||
PU
|
PD FD 220
|
||||||
SETPOS [45 -25]
|
LT 90 PU FD 10 LT 45
|
||||||
PD
|
REPEAT 8 [WAIT 15 RT 90 WAIT 15 LT 90]
|
||||||
RT 90 FD 50 RT 90 FD 50
|
|
||||||
PU
|
|
||||||
SETPOS [-110 -45]
|
|
||||||
PD
|
|
||||||
FD 220
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO SUN
|
TO SUN
|
||||||
@ -72,25 +51,22 @@ REPEAT 9 [RT 40 PU SETPOS [-100 80] FD 25 PD BK 10]
|
|||||||
END
|
END
|
||||||
|
|
||||||
TO WATER
|
TO WATER
|
||||||
PU
|
PU SETPC 5 SETPOS [140 0]
|
||||||
SETPC 5
|
PD SETH 180 FD 119 RT 90 FD 280 RT 90 FD 119
|
||||||
SETPOS [140 0]
|
|
||||||
PD
|
|
||||||
SETHEADING 180
|
|
||||||
FD 119 RT 90 FD 280 RT 90 FD 119
|
|
||||||
RT 45
|
RT 45
|
||||||
REPEAT 20 [FD 10 RT 90 FD 10 LT 90]
|
REPEAT 20 [FD 10 RT 90 FD 10 LT 90]
|
||||||
SETPOS 10 10
|
BK 10 FILL
|
||||||
FILL
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO BOAT
|
TO BOAT
|
||||||
PU
|
PU
|
||||||
SETPC 3
|
SETPC 3
|
||||||
SETHEADING 90
|
SETH 90
|
||||||
SETPOS [0 20]
|
SETPOS [0 20]
|
||||||
PD
|
PD
|
||||||
FD 50 RT 135 FD 35 RT 45 FD 50 RT 45 FD 35 RT 135 FD 50
|
FD 50 RT 135 FD 35 RT 45
|
||||||
|
PU FD 50 PD
|
||||||
|
RT 45 FD 35 RT 135 FD 50
|
||||||
LT 90
|
LT 90
|
||||||
FD 75 RT 30
|
FD 75 RT 30
|
||||||
SETPC 1
|
SETPC 1
|
||||||
@ -98,25 +74,25 @@ REPEAT 3 [RT 120 FD 70]
|
|||||||
END
|
END
|
||||||
|
|
||||||
TO FISH
|
TO FISH
|
||||||
PU
|
PU SETPOS [0 -50]
|
||||||
SETPOS [0 -50]
|
PD SETPC 1 REPEAT 40 [FD 1 RT 3] RT 90
|
||||||
SETHEADING 45
|
REPEAT 40 [FD 1 RT 3] HT
|
||||||
PD
|
|
||||||
REPEAT 40 [FD 1 RT 3]
|
|
||||||
PU
|
|
||||||
SETPOS [0 -50]
|
|
||||||
PD
|
|
||||||
SETHEADING 135
|
|
||||||
REPEAT 40 [FD 1 LT 3]
|
|
||||||
END
|
END
|
||||||
|
|
||||||
TO OCEAN
|
TO OCEAN
|
||||||
|
CS
|
||||||
SUN
|
SUN
|
||||||
BOAT
|
BOAT
|
||||||
WATER
|
WATER
|
||||||
FISH
|
FISH
|
||||||
|
WAIT 300
|
||||||
END
|
END
|
||||||
|
|
||||||
|
TO WARGAMES
|
||||||
|
END
|
||||||
|
|
||||||
|
TO PLASMA
|
||||||
|
END
|
||||||
|
|
||||||
TO POLYSPI4 :S :A :D :L
|
TO POLYSPI4 :S :A :D :L
|
||||||
IF :SIZE < :L [STOP]
|
IF :SIZE < :L [STOP]
|
||||||
@ -124,15 +100,29 @@ FD :S RT :A
|
|||||||
POLYSPI4 (:S - :D) :A :D
|
POLYSPI4 (:S - :D) :A :D
|
||||||
END
|
END
|
||||||
|
|
||||||
|
TO POLY
|
||||||
|
END
|
||||||
|
|
||||||
|
TO MYST
|
||||||
|
END
|
||||||
|
|
||||||
|
TO CREDITS
|
||||||
|
END
|
||||||
|
|
||||||
TO DEMO
|
TO DEMO
|
||||||
CS
|
CS FS
|
||||||
.BLOAD "MA2E.PT3 4096
|
.BLOAD "MA2E.PT3 4096
|
||||||
.BLOAD "MUSIC 19456
|
.BLOAD "MUSIC 19456
|
||||||
.CALL 19456
|
.CALL 19456
|
||||||
DSR
|
DSR
|
||||||
OCEAN
|
OCEAN
|
||||||
REPEAT 100 [ CTREE ]
|
WARGAMES
|
||||||
|
PLASMA
|
||||||
|
POLY
|
||||||
|
MYST
|
||||||
|
CS
|
||||||
|
REPEAT 5 [ CTREE ]
|
||||||
|
CREDITS
|
||||||
END
|
END
|
||||||
|
|
||||||
MAKE "STARTUP [DEMO]
|
MAKE "STARTUP [DEMO]
|
||||||
|
|
||||||
|
BIN
demos/logo_demo/map.png
Normal file
BIN
demos/logo_demo/map.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 16 KiB |
Loading…
Reference in New Issue
Block a user