ht for [n 0 10 0.1] [make "f 20 make "c 0 cs rt 180 arc 90 :f*sqrt :n rt 180 for [i 0 :n] [for [j 0 :n] [if and :i*:i+:j*:j<:n (:i+1)*(:i+1)+(:j+1)*(:j+1)>:n [make "c :c+1 pu setxy :i*:f :j*:f pd repeat 4 [fd :f rt 90]]]] pu home pd rt 90 make "p (se [r=] sqrt :n [, c=] :c) label :p wait 3]