(defsketch test
((title "test") (width 640) (height 640))
(let ((size 48))
(scale (/ size 2))
(translate 4 4)
(with-pen (make-pen :stroke +white+ :weight (/ 2 size))
#+nil (line 0.4 0.4 1 1)
#+nil (line 1 1 0.4 0.4)
(polyline 0.8 0.8 -1 -1 -0.8 -0.8))))