« first day (2964 days earlier)      last day (1973 days later) » 

user202729
user202729
2:32 AM
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]
 
user202729
user202729
3:29 AM
to aaa
ht
cs
setactivearea [-300 -30 -100 170]
localmake "ap "false
localmake "f 20
setbitindex 1
for [n 0 40 0.125] [
	localmake "c 0
	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
	rt 180
	pd
	arc 90 :f*sqrt :n
	lt 90
	localmake "p (se [r=] form sqrt :n 0 3 [, c=] :c)
	localmake "d ifelse (sqrt :n)=int sqrt :n [make "p se :p [(*)] 30] [5]
	label :p
	pu
	lt 90 bk 30
	bitcut 200 200
 

« first day (2964 days earlier)      last day (1973 days later) »