October 12th, 2004

(no subject)

Cool Lisp porn from Matthieu Villeneuve:
(draw-line *image* 83 45 73 150 +white+)
(draw-line *image* 73 150 198 106 +white+)
(draw-line *image* 198 106 83 45 +white+)
(draw-circle *image* 83 45 15 +white+)
(draw-circle *image* 73 150 15 +white+)
(draw-circle *image* 198 106 15 +white+)
(draw-line *image* 0 5 254 5 +yellow+)
(draw-line *image* 0 10 254 10 +yellow+ :dash-length 1 :dash-interval 1)
(draw-line *image* 0 15 254 15 +yellow+ :dash-length 4 :dash-interval 2)

It's done with the IMAGO library.