48a1ee99ae
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@740 626c5289-ae23-0410-ae9c-e8d60b6d4f22
26 lines
525 B
Scheme
26 lines
525 B
Scheme
;; Draw some simple shapes
|
|
(display "Drawing some basic shapes\n")
|
|
|
|
(define cmap (new-ColorMap))
|
|
(define f (new-FrameBuffer 400 400))
|
|
|
|
;; Clear the picture
|
|
(FrameBuffer-clear f (BLACK))
|
|
|
|
;; Make a red box
|
|
(FrameBuffer-box f 40 40 200 200 (RED))
|
|
|
|
;; Make a blue circle
|
|
(FrameBuffer-circle f 200 200 40 (BLUE))
|
|
|
|
;; Make green line
|
|
(FrameBuffer-line f 10 390 390 200 (GREEN))
|
|
|
|
;; Write an image out to disk
|
|
|
|
(FrameBuffer-writeGIF f cmap "image.gif")
|
|
(display "Wrote image.gif\n")
|
|
|
|
(delete-FrameBuffer f)
|
|
(delete-ColorMap cmap)
|
|
|