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