Merge branch 'master' of github.com:deater/dos33fsprogs
This commit is contained in:
commit
ef515a991f
|
@ -0,0 +1,21 @@
|
||||||
|
TO DSR
|
||||||
|
CS
|
||||||
|
PU
|
||||||
|
SETPOS [-45 75]
|
||||||
|
PD
|
||||||
|
SETHEADING 180
|
||||||
|
FD 100 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50
|
||||||
|
PU
|
||||||
|
SETPOS [25 25]
|
||||||
|
LT 180
|
||||||
|
PD
|
||||||
|
FD 50 LT 90 FD 25 LT 90 FD 50 RT 90 FD 25 RT 90 FD 50
|
||||||
|
PU
|
||||||
|
SETPOS [45 -25]
|
||||||
|
PD
|
||||||
|
RT 90 FD 50 RT 90 FD 50
|
||||||
|
PU
|
||||||
|
SETPOS [-110 -45]
|
||||||
|
PD
|
||||||
|
FD 220
|
||||||
|
END
|
|
@ -0,0 +1,6 @@
|
||||||
|
TO POLYSPI4 :S :A :D :L
|
||||||
|
IF :SIZE < :L [STOP]
|
||||||
|
FD :S RT :A
|
||||||
|
POLYSPI4 (:S - :D) :A :D
|
||||||
|
END
|
||||||
|
|
|
@ -0,0 +1,67 @@
|
||||||
|
TO SUN
|
||||||
|
SETPC 4
|
||||||
|
PU
|
||||||
|
SETPOS [-110 80]
|
||||||
|
PD
|
||||||
|
REPEAT 36 [RT 5 FD 2 RT 5]
|
||||||
|
REPEAT 9 [RT 40 PU SETPOS [-100 80] FD 25 PD BK 10]
|
||||||
|
END
|
||||||
|
|
||||||
|
TO WATER
|
||||||
|
PU
|
||||||
|
SETPC 5
|
||||||
|
SETPOS [140 0]
|
||||||
|
PD
|
||||||
|
SETHEADING 180
|
||||||
|
FD 119 RT 90 FD 280 RT 90 FD 119
|
||||||
|
RT 45
|
||||||
|
REPEAT 20 [FD 10 RT 90 FD 10 LT 90]
|
||||||
|
SETPOS 10 10
|
||||||
|
FILL
|
||||||
|
END
|
||||||
|
|
||||||
|
TO BOAT
|
||||||
|
PU
|
||||||
|
SETPC 3
|
||||||
|
SETHEADING 90
|
||||||
|
SETPOS [0 20]
|
||||||
|
PD
|
||||||
|
FD 50 RT 135 FD 35 RT 45 FD 50 RT 45 FD 35 RT 135 FD 50
|
||||||
|
LT 90
|
||||||
|
FD 75 RT 30
|
||||||
|
SETPC 1
|
||||||
|
REPEAT 3 [RT 120 FD 70]
|
||||||
|
END
|
||||||
|
|
||||||
|
TO FISH
|
||||||
|
PU
|
||||||
|
SETPOS [0 -50]
|
||||||
|
SETHEADING 45
|
||||||
|
PD
|
||||||
|
REPEAT 40 [FD 1 RT 3]
|
||||||
|
PU
|
||||||
|
SETPOS [0 -50]
|
||||||
|
PD
|
||||||
|
SETHEADING 135
|
||||||
|
REPEAT 40 [FD 1 LT 3]
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue