// all these elements fit. no explanation necessary. norefresh paper 100 pen 0 antialias 1 command griddify_normal { pen 50 repeat n 0 9 { line 0 50 50 (5+10*n) line 50 (5+10*n) 100 50 line 50 0 50 100 } refresh } command griddify_time { pen 50 repeat n 0 9 { line 50 0 (5+n*10) 50 line (5+n*10) 50 50 100 } refresh } command spiritualize { griddify_normal griddify_time } command galaxy { set [43 45] 0 set [45 47] 0 set [45 50] 0 set [46 51] 0 set [47 54] 0 set [46 45] 0 set [46 47] 0 set [49 49] 0 set [47 50] 0 set [43 53] 0 set [43 45] 0 set [46 47] 0 set [47 49] 0 set [47 50] 0 set [49 53] 0 set [50 49] 0 set [48 50] 0 set [49 51] 0 set [48 52] 0 set [47 54] 0 set [49 48] 0 set [51 49] 0 set [47 50] 0 set [48 51] 0 set [52 52] 0 set [51 48] 0 set [52 49] 0 set [50 50] 0 set [49 51] 0 set [47 52] 0 set [51 47] 0 set [50 48] 0 set [51 50] 0 set [54 51] 0 set [49 52] 0 set [50 47] 0 set [52 48] 0 set [50 50] 0 set [49 51] 0 set [54 52] 0 set [53 47] 0 set [50 48] 0 set [54 50] 0 set [53 51] 0 set [52 52] 0 set [56 45] 0 set [54 46] 0 set [57 47] 0 set [54 51] 0 set [52 53] 0 set [57 46] 0 set [53 49] 0 set [54 50] 0 set [52 53] 0 set [51 55] 0 } command spiral { pen 0 set c 5 set bound 4 command points p0 q0 p q color { repeat i p0 p { repeat j q0 q { set [i j] color } } } command drawpts x0 y0 { set x x0 set y y0 repeat n 0 (100/c) { set x0 x set y0 y same? 0 (n % 4) { set y (y0+c*n) } same? 1 (n % 4) { set x (x0+c*n) } same? 2 (n % 4) { set y (y0-c*n) } same? 3 (n % 4) { set x (x0-c*n) } points x0 y0 x y (c*n) refresh } } drawpts 50 50 } spiritualize galaxy spiral