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