The triangle-draw function
(define (triangle-draw xtop ytop c)
(and
(draw-solid-line0 xtop ytop (- xtop 5) (+
ytop 10) c)
(draw-solid-line0 xtop ytop (+ xtop 5) (+
ytop 10) c)
(draw-solid-line0 (- xtop 5) (+ ytop 10) (+
x top 5) (+ ytop 10) c)
)
)
Last Modified: 3/14/06