36 lines
659 B
Common Lisp
36 lines
659 B
Common Lisp
; guides file
|
|
|
|
((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")
|
|
) |