Chapter 2 Drawing Graphics
(clim:draw-rectangle* *my-sheet* 10 10 200 150 :filled nil :line-thickness 2) (clim:draw-line* *my-sheet* 200 10 10 150) (clim:draw-point* *my-sheet* 180 25) (clim:draw-circle* *my-sheet* 100 75 40 :filled nil) (clim:draw-ellipse* *my-sheet* 160 110 30 0 0 10 :filled nil) (clim:draw-ellipse* *my-sheet* 160 110 10 0 0 30) (clim:draw-polygon* *my-sheet* '(20 20 50 80 40 20) :filled nil) (clim:draw-polygon* *my-sheet* '(30 90 40 110 20 110))Figure 8. Simple Use of the Drawing Functions
Generated with Harlequin WebMaker