digital literacy for everyone


[lit]

[generate-title]

[lit] [fig] #### license: creative commons cc0 1.0 (public domain) #### http://creativecommons.org/publicdomain/zero/1.0/ function printxy x y p c now = p ; locate y x ; colortext c highlight 15 ; print fig function inc30 p # increase p by 30 degrees, but in radians now = 3.14159 times 2 divby 12 plus p ; return now fig textmode p -3.14159 ; highlight 7 ; cls r1 = 5.6 r2 = 9.7 sm = "9 10 11 12 1 2 3 4 5 6 7 8" ; split sm " " lg = ":45 :50 :55 :00 :05 :10 :15 :20 :25 :30 :35 :40" ; split lg " " for d 1 12 1 xs = p ; cos ; times r1 times 2 plus 38 int ys = p ; sin ; times r1 times 1 plus 13 int now = sm ; mid d 1 ; printxy xs ys now 1 xs = p ; cos ; times r2 times 2 plus 37 int ys = p ; sin ; times r2 times 1 plus 13 int now = lg ; mid d 1 ; printxy xs ys now 4 now = p ; inc30 p ; swap now p next now = line 36 11, 49 18, 4 now = line 37 11, 41 8, 1 ; locate 1 1
home: [lit]https://codeinfig.neocities.org[lit]