aUCBLogo Demos and Tests / metalframe

to metalframe
   clearScreen
   WindowMode
   hideTurtle
   PenUp  right 90  forward 150  left 90  left 20
   PenDown
   setPenColor rgba 0 0 0 3/255   ;30/255 ;for printing
   for [i 1 255]
   [   for [j 1 255]
      [   square 200
         right 0.1
         PenUp
         forward j/1600
         PenDown
      ]
      PenUp
      forward i/1600
      PenDown
      left i
;      updateGraph
      if Key? [ignore readChar stop]
   ]
   print [OK]
end

to diagonal size
   PenUp
   right 45
   forward size*sqrt 2
   right 135
   PenDown
end

to square size
   diagonal size/2
   repeat 4
   [   forward size
      right 90
   ]
   diagonal size/2
end