29 lines
520 B
Plaintext
29 lines
520 B
Plaintext
|
& 10 print not quite working yet. need to wait for scott to fix mod
|
||
|
|
let gridsize = 20
|
||
|
|
let root2 = 1.414213562
|
||
|
|
let cellsize = 20
|
||
|
|
let linelength = mult (root2, cellsize)
|
||
|
|
|
||
|
|
fn tenprint! (times, width) -> {
|
||
|
|
|
||
|
|
pendown!()
|
||
|
|
rt!(0.125)
|
||
|
|
fd!(linelength)
|
||
|
|
penup!()
|
||
|
|
back!(linelength)
|
||
|
|
lt!(0.125)
|
||
|
|
penup!()
|
||
|
|
rt!(0.25)
|
||
|
|
fd!(cellsize)
|
||
|
|
lt!(0.25)
|
||
|
|
|
||
|
|
if eq? (0, mod(times, width)) then {
|
||
|
|
home!()
|
||
|
|
back!(gridsize)
|
||
|
|
} else nil
|
||
|
|
|
||
|
|
if gt? (times, 0) then tenprint!(dec (times), width) else :donezo
|
||
|
|
}
|
||
|
|
|
||
|
|
tenprint!(20, 200)
|