Post by tsh73 on Dec 23, 2022 14:09:14 GMT
Have seen a pattern. Had an itch to recreate ;)
nomainwin
open "pattern" for graphics_nsb_nf as #gr
#gr "down; fill white; home; posxy cx cy"
s=30
for y = -2 to 10 step 0.5
par=1-par 'parity
for x = -1 to 10
xx=(x+0.5*par)*s*1.5
yy=y*s*1.5
#gr "size 1"
xx1=xx+s+s/8
yy1=yy+s/2-s/8
#gr "place ";xx1;" ";yy1
#gr "box ";xx1+s/4;" ";yy1+s/4
#gr "place ";xx;" ";yy
#gr "box ";xx+s;" ";yy+s
#gr "size 4"
#gr "place ";xx+s*0.5;" ";yy+s*0.5
#gr "north"
#gr "go ";s/4
#gr "go ";0-s/2
#gr "go ";s/4
#gr "turn 90 "
#gr "go ";s/4
#gr "go ";0-s/2
next
next
#gr "flush"
wait
[quit]
close #gr
end
