57 lines
973 B
Common Lisp
57 lines
973 B
Common Lisp
; guides
|
|
(
|
|
(clear)
|
|
(stroke
|
|
(frame) 1 "red")
|
|
(stroke
|
|
(line
|
|
(pos 0 0)
|
|
(pos
|
|
(of
|
|
(frame) "w")
|
|
(of
|
|
(frame) "h"))) 1 "red")
|
|
(stroke
|
|
(line
|
|
(pos
|
|
(of
|
|
(frame) "w") 0)
|
|
(pos 0
|
|
(of
|
|
(frame) "h"))) 1 "red")
|
|
(stroke
|
|
(line
|
|
(pos
|
|
(div
|
|
(of
|
|
(frame) "w") 2) 0)
|
|
(pos
|
|
(div
|
|
(of
|
|
(frame) "w") 2)
|
|
(of
|
|
(frame) "h"))) 1 "red")
|
|
(stroke
|
|
(line
|
|
(pos 0
|
|
(div
|
|
(of
|
|
(frame) "h") 2))
|
|
(pos
|
|
(div
|
|
(of
|
|
(frame) "w") 2)
|
|
(of
|
|
(frame) "h"))) 1 "#72dec2")
|
|
(stroke
|
|
(line
|
|
(pos
|
|
(div
|
|
(of
|
|
(frame) "w") 2) 0)
|
|
(pos
|
|
(of
|
|
(frame) "w")
|
|
(div
|
|
(of
|
|
(frame) "h") 2))) 1 "#72dec2")) |