A.N.A.L.O.G. Magazine 1985 November/85_nov.atr/flake.log

Text File | 2023-02-26 | 1KB | 1 lines

TO START¢MAKE "D []¢MAKE "X []¢MAKE "Y []¢MAKE "HM [0 0]¢REPEAT 10 [INITIAL]¢END¢¢TO INITIAL¢MAKE "P RANDOM 60¢MAKE "X SE :X :P¢MAKE "P :P * 2.5¢MAKE "Y SE :Y RANDOM :P¢END¢¢TO SEGMENT¢MAKE "DUM 1¢REPEAT 10 [PUT1 :DUM MAKE "DUM :DUM +!¢ 1]¢END¢¢TO PUT1 :A¢MAKE "P1 ITEM :A :X¢MAKE "P2 ITEM :A :Y¢MAKE "P3 :P1 * COS :ANGLE¢MAKE "P3 :P3 + (:P2 * SIN :ANGLE)¢MAKE "P4 :P2 * COS :ANGLE¢MAKE "P4 :P4 - (:P1 * SIN :ANGLE)¢MAKE "P3 :P3 + ITEM 1 :HM¢MAKE "P4 :P4 + ITEM 2 :HM¢SETPOS SE :P3 :P4¢END¢¢TO FLAKE¢SETBG 1¢SETPC 4¢CS MAKE "ANGLE 0¢START FLAKY¢PU HOME FD 1 MAKE "HM [0 5]¢SETPC 12 PD¢FLAKY¢PU HOME MAKE "HM [0 3]¢SETPC 10 PD¢FLAKY¢END¢¢TO SEGMENT1¢MAKE "DUM 1¢REPEAT 10 [PUT2 :DUM MAKE "DUM :DUM +!¢ 1]¢END¢¢TO PUT2 :A¢MAKE "P1 ITEM :A :X¢MAKE "P2 ITEM :A :Y¢MAKE "P3 :P1 * COS :ANGLE¢MAKE "P3 :P3 - :P2 * SIN :ANGLE¢MAKE "P4 :P2 * COS :ANGLE¢MAKE "P4 :P4 + :P1 * SIN :ANGLE¢MAKE "P4 :P4 * -1¢MAKE "P3 :P3 + ITEM 1 :HM¢MAKE "P4 :P4 + ITEM 2 :HM¢SETPOS SE :P3 :P4¢END¢¢TO FLAKY¢REPEAT 6 [SEGMENT MAKE "ANGLE :ANGLE !¢+ 60 SETPOS :HM]¢MAKE "ANGLE 0¢REPEAT 6 [SEGMENT1 MAKE "ANGLE :ANGLE!¢ + 60 SETPOS :HM]¢END¢¢MAKE "GFILL "TRUE¢MAKE "ANGLE 360¢MAKE "DUM 11¢MAKE "Y [3 86 6 1 1 0 35 24 80 18]¢MAKE "X [3 56 41 41 26 36 57 22 51 33!¢]¢MAKE "P 82.5¢MAKE "K [5 5]¢MAKE "D []¢MAKE "HM [0 3]¢MAKE "P4 22.578835¢MAKE "P3 32.088451¢MAKE "P2 18¢MAKE "P1 33¢¢