Leaves.LGO

TO RACEPREP
PU SETPOS [0 0] PD
SETPN 2 SETH 90 FD 320
TELL [0 1 2 3] PU
TELL [0 2]
SETPOS [-150 10]
TELL [1 3]
SETPOS [-154 10]
TELL 0 SETSH 1
TELL 1 SETSH 4
TELL 2 SETSH 5
TELL 3 SETSH 8
TELL [0 1 2 3] ST SETH 90
MAKE "CSH 0
END

TO RACE
TELL 0
SETSH 2 + REMAINDER :CSH 2
TELL 2
SETSH 6 + REMAINDER :CSH 2
TELL [0 1]
FD 1 + ( RANDOM 2 ) * 2
TELL [2 3]
FD 1 + ( RANDOM 2 ) * 2
MAKE "CSH :CSH + 1
RACE
END

TO LEAFPOS :X :Y :A
PU SETPOS LIST :X :Y
SETH :A
PD
END

TO GO
SETUP
TELL [0 1 2 3] HT
TELL 0
FS
FALL
RACEPREP
RACE
END

TO SETUP
SETBG 16
SETPC 0 31
SETPC 1 127
SETPC 2 103
PUTSH 1 :AJ0
PUTSH 2 :AJ1
PUTSH 3 :AJ2
PUTSH 4 :AJM
PUTSH 5 :RD0
PUTSH 6 :RD1
PUTSH 7 :RD2
PUTSH 8 :RDM
TELL 0 SETC 20
TELL 1 SETC 15
TELL 2 SETC 60
TELL 3 SETC 28
END

TO FALL
LEAFPOS -100 100 225
SETPN 0
MAPLELEAF 2
LEAFPOS 0 100 180
SETPN 1
MAPLELEAF 2
LEAFPOS 100 100 135
SETPN 2
MAPLELEAF 2
LEAFPOS -115 -115 30
SETPN 2
MAPLELEAF 3
LEAFPOS 0 -115 0
SETPN 1
MAPLELEAF 3
LEAFPOS 115 -115 330
SETPN 0
MAPLELEAF 3
END

TO MAPLELEAF :SIZE
RT 1 FD 5.5 * :SIZE
RT 318 FD 1 * :SIZE
LT 59 FD 5.8 * :SIZE
LT 240 FD 2.5 * :SIZE
RT 288 FD 8.3 * :SIZE
LT 252 FD 1.4 * :SIZE
LT 46 FD 0.5 * :SIZE
RT 334 FD 3.9 * :SIZE
LT 244 FD 3.5 * :SIZE
LT 70 FD 2.3 * :SIZE
RT 105 FD 4.8 * :SIZE
LT 65 FD 0.5 * :SIZE
RT 280 FD 7 * :SIZE
LT 232 FD 2.1 * :SIZE
LT 35 FD 0.9 * :SIZE
LT 55 FD 5.1 * :SIZE
RT 122 FD 5.2 * :SIZE
LT 59 FD 0.9 * :SIZE
LT 41 FD 2.2 * :SIZE
RT 139 FD 7.6 * :SIZE
LT 113 FD 0.8 * :SIZE
LT 33 FD 4.5 * :SIZE
RT 107 FD 2.4 * :SIZE
LT 66 FD 1 * :SIZE
LT 1 FD 2.5 * :SIZE
RT 112 FD 3.9 * :SIZE
LT 14 FD 0.4 * :SIZE
LT 54 FD 1.2 * :SIZE
RT 102 FD 7.7 * :SIZE
LT 60 FD 2.3 * :SIZE
RT 111 FD 5.7 * :SIZE
LT 43 FD 0.9 * :SIZE
LT 60 FD 5.9 * :SIZE
RT 92 FD 1.6 * :SIZE
RT 91
PU FD 10 * :SIZE PD
PU BK 10 * :SIZE PD
END


MAKE "CSH 778
MAKE "RDM [0 0 4 4 5 5 4 4 4 32 64 64 64 64 128 0]
MAKE "RD2 [0 12 14 14 11 11 14 12 12 126 254 254 170 170 204 136]
MAKE "RD1 [0 12 14 14 11 11 14 12 12 126 254 254 170 170 102 34]
MAKE "RD0 [0 12 14 14 11 11 14 12 12 126 254 254 170 170 170 170]
MAKE "AJ2 [14 14 31 14 11 11 14 12 12 126 254 254 170 170 204 136]
MAKE "AJ0 [14 14 31 14 11 11 14 12 12 126 254 254 170 170 170 170]
MAKE "AJ1 [14 14 31 14 11 11 14 12 12 126 254 254 170 170 102 34]
MAKE "AJM [0 0 0 4 5 5 4 4 4 32 64 64 64 64 128 0]