(start 620 640)
;;frame
(draw-solid-rect (make-posn 0 0 ) 620 640 'red)
(draw-solid-rect (make-posn 30 30 ) 560 580 'white)
(draw-solid-rect (make-posn 40 40 ) 540 560 'blue)
(draw-solid-rect (make-posn 50 50 ) 520 540 'white)
;;top left quad
(draw-solid-line (make-posn 300 40) (make-posn 300 320 ) 'blue)
(draw-solid-line (make-posn 300 60) (make-posn 280 320 ) 'blue)
(draw-solid-line (make-posn 300 80) (make-posn 260 320 ) 'blue)
(draw-solid-line (make-posn 300 100) (make-posn 240 320 ) 'blue)
(draw-solid-line (make-posn 300 120) (make-posn 220 320 ) 'blue)
(draw-solid-line (make-posn 300 140) (make-posn 200 320 ) 'blue)
(draw-solid-line (make-posn 300 160) (make-posn 180 320 ) 'blue)
(draw-solid-line (make-posn 300 180) (make-posn 160 320 ) 'blue)
(draw-solid-line (make-posn 300 200) (make-posn 140 320 ) 'blue)
(draw-solid-line (make-posn 300 220) (make-posn 120 320 ) 'blue)
(draw-solid-line (make-posn 300 240) (make-posn 100 320 ) 'blue)
(draw-solid-line (make-posn 300 260) (make-posn 80 320 ) 'blue)
(draw-solid-line (make-posn 300 280) (make-posn 60 320 ) 'blue)
(draw-solid-line (make-posn 300 300) (make-posn 40 320 ) 'blue)
(draw-solid-line (make-posn 300 320) (make-posn 20 320 ) 'blue)
;bottom left quad
(draw-solid-line (make-posn 300 340) (make-posn 40 320 ) 'blue)
(draw-solid-line (make-posn 300 360) (make-posn 60 320 ) 'blue)
(draw-solid-line (make-posn 300 380) (make-posn 80 320 ) 'blue)
(draw-solid-line (make-posn 300 400) (make-posn 100 320 ) 'blue)
(draw-solid-line (make-posn 300 420) (make-posn 120 320 ) 'blue)
(draw-solid-line (make-posn 300 440) (make-posn 140 320 ) 'blue)
(draw-solid-line (make-posn 300 460) (make-posn 160 320 ) 'blue)
(draw-solid-line (make-posn 300 480) (make-posn 180 320 ) 'blue)
(draw-solid-line (make-posn 300 500) (make-posn 200 320 ) 'blue)
(draw-solid-line (make-posn 300 520) (make-posn 220 320 ) 'blue)
(draw-solid-line (make-posn 300 540) (make-posn 240 320 ) 'blue)
(draw-solid-line (make-posn 300 560) (make-posn 260 320 ) 'blue)
(draw-solid-line (make-posn 300 580) (make-posn 280 320 ) 'blue)
(draw-solid-line (make-posn 300 600) (make-posn 300 320 ) 'blue)
;
;top right quad
(draw-solid-line (make-posn 300 40) (make-posn 320 320 ) 'blue)
(draw-solid-line (make-posn 300 60) (make-posn 340 320 ) 'blue)
(draw-solid-line (make-posn 300 80) (make-posn 360 320 ) 'blue)
(draw-solid-line (make-posn 300 100) (make-posn 380 320 ) 'blue)
(draw-solid-line (make-posn 300 120) (make-posn 400 320 ) 'blue)
(draw-solid-line (make-posn 300 140) (make-posn 420 320 ) 'blue)
(draw-solid-line (make-posn 300 160) (make-posn 440 320 ) 'blue)
(draw-solid-line (make-posn 300 180) (make-posn 460 320 ) 'blue)
(draw-solid-line (make-posn 300 200) (make-posn 480 320 ) 'blue)
(draw-solid-line (make-posn 300 220) (make-posn 500 320 ) 'blue)
(draw-solid-line (make-posn 300 240) (make-posn 520 320 ) 'blue)
(draw-solid-line (make-posn 300 260) (make-posn 540 320 ) 'blue)
(draw-solid-line (make-posn 300 280) (make-posn 560 320 ) 'blue)
(draw-solid-line (make-posn 300 300) (make-posn 580 320 ) 'blue)
(draw-solid-line (make-posn 300 320) (make-posn 600 320 ) 'blue)
;bottom right quad
(draw-solid-line (make-posn 300 600) (make-posn 320 320 ) 'blue)
(draw-solid-line (make-posn 300 580) (make-posn 340 320 ) 'blue)
(draw-solid-line (make-posn 300 560) (make-posn 360 320 ) 'blue)
(draw-solid-line (make-posn 300 540) (make-posn 380 320 ) 'blue)
(draw-solid-line (make-posn 300 520) (make-posn 400 320 ) 'blue)
(draw-solid-line (make-posn 300 500) (make-posn 420 320 ) 'blue)
(draw-solid-line (make-posn 300 480) (make-posn 440 320 ) 'blue)
(draw-solid-line (make-posn 300 460) (make-posn 460 320 ) 'blue)
(draw-solid-line (make-posn 300 440) (make-posn 480 320 ) 'blue)
(draw-solid-line (make-posn 300 420) (make-posn 500 320 ) 'blue)
(draw-solid-line (make-posn 300 400) (make-posn 520 320 ) 'blue)
(draw-solid-line (make-posn 300 380) (make-posn 540 320 ) 'blue)
(draw-solid-line (make-posn 300 360) (make-posn 560 320 ) 'blue)
(draw-solid-line (make-posn 300 340) (make-posn 580 320 ) 'blue)
(draw-solid-line (make-posn 300 320) (make-posn 600 320 ) 'blue)