44 lines
845 B
Common Lisp
44 lines
845 B
Common Lisp
; guides
|
|
(def frame-rect (frame))
|
|
(defn draw-cross
|
|
(pos)
|
|
(guide {:x (floor pos:x) :y (floor pos:y)}))
|
|
; top
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.25)
|
|
(mul frame-rect:h 0.25)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.5)
|
|
(mul frame-rect:h 0.25)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.75)
|
|
(mul frame-rect:h 0.25)))
|
|
; middle
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.25)
|
|
(mul frame-rect:h 0.5)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.5)
|
|
(mul frame-rect:h 0.5)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.75)
|
|
(mul frame-rect:h 0.5)))
|
|
; bottom
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.25)
|
|
(mul frame-rect:h 0.75)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.5)
|
|
(mul frame-rect:h 0.75)))
|
|
(draw-cross
|
|
(pos
|
|
(mul frame-rect:w 0.75)
|
|
(mul frame-rect:h 0.75))) |