3 Aug
2009
3 Aug
'09
9:58 p.m.
Alexander Ekart wrote:
;; added: 3.8.3009 ;; reason: not available by default? (defun draw-triangle* (stream x1 y1 x2 y2 x3 y3 &key filled) (declare (ignore filled)) (draw-line stream x1 y1 x2 y2) (draw-line stream x2 y2 x3 y3) (draw-line stream x3 y3 x1 y1))
Hi,
Apart from mailer/wrapping issues, the above should probably be
(defun draw-triangle* (stream x1 y1 x2 y2 x3 y3 &key filled) (clim:draw-polygon* stream (list x1 y1 x2 y2 x3 y3) :filled filled))
Your code gives me an error when I run it in Franz CLIM (which is what I have handy right now).
--
Fred Gilham gilham@ai.sri.com
Ornamental Plums
How soon their petals depart
How soon they return