TO AMOUSE SETPENCOLOR 4 FROMHOME :AMIX + 450 :AMIY - 27 PENDOWN RT 90 FD 50 FROMHOME :AMIX + 450 :AMIY - 27 PENDOWN FD 2 RT 87 FD 53 RT 113 FD 5 LT 113 FD 35 LT 67 FD 6 LT 113 BK 2 FD 38 BK 40 RT 103 FD 12 LT 103 FD 38 LT 82 FD 12 BK 12 RT 75 FD 57 LT 75 FD 5 FROMHOME :AMIX + 507 :AMIY - 10 PENDOWN LT 25 FD 13 RT 112 FD 30 RT 42 FD 18 BK 18 LT 42 BK 30 LT 192 FD 40 LT 23 FD 16 FROMHOME :AMIX + 408 :AMIY + 30 PENDOWN SETPENCOLOR 4 RT 90 FD 16 RT 90 FD 30 RT 90 FD 8 RT 90 FD 16 LT 90 FD 8 RT 90 FD 14 FROMHOME :AMIX + 412 :AMIY + 26 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 419 :AMIY - 27 RECTF 4 27 3 FROMHOME :AMIX + 424 :AMIY - 27 RECT 25 4 8 FROMHOME :AMIX + 413 :AMIY - 27 RECT 5 4 8 FROMHOME :AMIX + 415 :AMIY - 25 PENUP SETPENCOLOR 8 PENDOWN FILLIN FROMHOME :AMIX + 430 :AMIY - 25 PENUP SETPENCOLOR 8 PENDOWN FILLIN FROMHOME :AMIX + 500 :AMIY - 5 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 510 :AMIY - 2 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 515 :AMIY - 13 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 490 :AMIY - 16 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 492 :AMIY - 25 PENUP SETPENCOLOR 2 PENDOWN FILLIN FROMHOME :AMIX + 505 :AMIY - 24 PENUP SETPENCOLOR 2 PENDOWN FILLIN END TO A1080 PENUP FROMHOME :AMIX + 60 :AMIY + 75 ROUNDRECTF 280 238 2 FROMHOME :AMIX + 70 :AMIY + 105 ROUNDRECTF 260 200 4 FROMHOME :AMIX + 90 :AMIY + 125 ROUNDRECTF 220 160 7 FROMHOME :AMIX + 60 :AMIY + 84 PENDOWN SETPENCOLOR 3 RT 90 FD 285 FROMHOME :AMIX + 318 :AMIY + 90 PENDOWN SETPENCOLOR 5 RT 90 FD 10 END TO ROUNDRECTF :WIDTH :HEIGHT :COLOR SETPENCOLOR :COLOR REPEAT 2 [PD FD :HEIGHT - 2 PU RT 90 FD 1 LT 90 FD 1 PD FD 2 RT 90 FD 2 PU LT 90 FD 1 RT 90 FD 1 PD FD :WIDTH - 2 PU RT 90 FD 1 LT 90 FD 1 PD FD 2 RT 90 FD 2 PU LT 90 FD 1 RT 90 FD 1] FD 3 FILLIN END TO FROMHOME :WDELTA :HDELTA LOCAL "XX LOCAL "YY MAKE "XX -320 + :WDELTA MAKE "YY -240 + :HDELTA PENUP SETPOS (LIST :XX :YY) SETH 0 END TO A1000 PENUP FROMHOME :AMIX :AMIY ROUNDRECTF 400 64 2 FROMHOME :AMIX + 108 :AMIY - 2 SETPENCOLOR 3 PENDOWN FD 65 FROMHOME :AMIX + 263 48 SETPENCOLOR 3 PENDOWN FD 65 FROMHOME :AMIX + 3 :AMIY + 10 SETPENCOLOR 3 RT 90 PENDOWN FD 7 SETPENCOLOR 5 FD 5 SETPENCOLOR 3 FD 376 SETPENCOLOR 5 FD 5 SETPENCOLOR 3 FD 7 FROMHOME :AMIX + 315 :AMIY + 10 SETPENCOLOR 3 PENDOWN FD 45 RT 90 FD 50 RT 90 FD 45 FROMHOME :AMIX + 328 :AMIY + 26 RECT 25 20 3 FROMHOME :AMIX + 292 :AMIY + 34 PENDOWN FILLEDRECT 94 5 4 FROMHOME :AMIX + 373 :AMIY + 22 RECT 15 8 3 FROMHOME :AMIX + 6 :AMIY + 47 RECTF 13 13 3 FROMHOME :AMIX + 25 :AMIY + 47 RECTF 34 13 3 FROMHOME :AMIX + 5 :AMIY - 27 RECTF 396 22 8 FROMHOME :AMIX + 5 :AMIY - 27 RECTF 10 22 3 FROMHOME :AMIX + 391 :AMIY - 27 RECTF 10 22 3 FROMHOME :AMIX + 10 :AMIY + 49 PENDOWN SETPENCOLOR 11 RT 30 FD 8 PENUP RT 60 FD 3 RT 120 PENDOWN FD 8 PENUP RT 60 FD 3 RT 60 PENDOWN FD 4 PENUP BK 4 RT 120 FD 3 LT 120 PENDOWN FD 4 FROMHOME :AMIX + 27 :AMIY + 50 PENDOWN SETPENCOLOR 11 RT 30 REPEAT 5 [FD 6 RT 120 FD 6 LT 120] END TO FILLEDLEAF :SIZE :COLOR IF :SIZE < 0.5 [STOP] LEAF :SIZE :COLOR FILLEDLEAF :SIZE - 1.2 :COLOR END TO LEAFP :SIZE :COLOR SETPENCOLOR :COLOR PENUP LEFT 90 FORWARD 0.15 * :SIZE PENDOWN RIGHT 70 FORWARD 0.66 * :SIZE RIGHT 65 FORWARD 0.52 * :SIZE PENUP RIGHT 45 + 90 FORWARD :SIZE LEFT 90 FORWARD 0.15 * :SIZE PENDOWN LEFT 70 FORWARD 0.66 * :SIZE LEFT 65 FORWARD 0.52 * :SIZE PENUP LEFT 45 + 90 FORWARD :SIZE LEFT 180 END TO LEAF :SIZE :COLOR LOCAL "CP LOCAL "CH LOCAL "FP MAKE "CP POS MAKE "CH HEADING SETPENCOLOR :COLOR LEAFP :SIZE :COLOR PENUP LT 90 FD 0.15 * :SIZE LT 65 FD 0.15 * 0.6 * :SIZE RT 90 MAKE "FP POS LEAFP :SIZE * 0.6 :COLOR PENUP SETPOS :CP SETHEADING :CH RIGHT 90 FORWARD 0.15 * :SIZE RIGHT 65 FORWARD 0.15 * 0.6 * :SIZE LEFT 90 LEAFP :SIZE * 0.6 :COLOR SETPOS :CP SETHEADING :CH END TO SCREENLEAVES FROMHOME :AMIX + 160 :AMIY + 246 RT 65 FILLEDLEAF 40 6 FROMHOME :AMIX + 270 :AMIY + 175 LT 20 FILLEDLEAF 60 9 FROMHOME :AMIX + 130 :AMIY + 180 RT 150 FILLEDLEAF 30 10 FROMHOME :AMIX + 120 :AMIY + 220 LT 15 FILLEDLEAF 26 11 FROMHOME :AMIX + 190 :AMIY + 135 RT 15 FILLEDLEAF 20 6 FROMHOME :AMIX + 240 :AMIY + 260 LT 120 FILLEDLEAF 30 10 FROMHOME :AMIX + 190 :AMIY + 200 LT 170 FILLEDLEAF 40 9 FROMHOME :AMIX + 280 :AMIY + 145 LT 180 FILLEDLEAF 22 11 FROMHOME :AMIX + 292 :AMIY + 246 LT 40 FILLEDLEAF 26 6 FROMHOME :AMIX + 107 :AMIY + 131 LT 6 FILLEDLEAF 19 9 END TO FILLEDRECT :WIDTH :HEIGHT :COLOR SETPENCOLOR :COLOR REPEAT :WIDTH [FD :HEIGHT BK :HEIGHT RT 90 FD 1 LT 90] END TO GOHOME PU SETPOS [-280 -190] SETH 0 END TO RECT :WIDTH :HEIGHT :COLOR SETPENCOLOR :COLOR PENDOWN REPEAT 2 [FD :HEIGHT RT 90 FD :WIDTH RT 90] END TO RECTF :WIDTH :HEIGHT :COLOR SETPENCOLOR :COLOR PENDOWN REPEAT 2 [FD :HEIGHT RT 90 FD :WIDTH RT 90] FD 4 FILLIN END TO ROUNDRECT :WIDTH :HEIGHT :COLOR SETPENCOLOR :COLOR REPEAT 2 [PD FD :HEIGHT - 6 PU RT 90 FD 1 LT 90 FD 1 PD FD 2 RT 90 FD 2 PU LT 90 FD 1 RT 90 FD 1 PD FD :WIDTH - 6 PU RT 90 FD 1 LT 90 FD 1 PD FD 2 RT 90 FD 2 PU LT 90 FD 1 RT 90 FD 1] END TO RENDER LOCAL "AMIX LOCAL "AMIY MAKE "AMIX 40 MAKE "AMIY 50 SETRGB 2 [13 12 11] SETRGB 3 [12 11 10] SETRGB 4 [10 9 8] SETRGB 5 [15 0 0] SETRGB 6 [15 10 0] SETRGB 7 [6 0 1] SETRGB 8 [9 8 7] SETRGB 9 [11 6 0] SETRGB 10 [12 0 4] SETRGB 11 [4 2 0] A1000 AMOUSE A1080 SCREENLEAVES FROMHOME :AMIX + 475 :AMIY + 170 LEAF 120 9 LEAF 119 9 LEAF 118 9 LEAF 117 9 END