34a628c7c7
This reverts commit ec942f04ca8b33520442f079e2ea2d8d3e4be73c. From: William S Fulton <wsf@fultondesigns.co.uk> git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-maciekd@13032 626c5289-ae23-0410-ae9c-e8d60b6d4f22
29 lines
646 B
Scheme
29 lines
646 B
Scheme
;;; Draw some simple shapes
|
|
|
|
(declare (uses simple))
|
|
|
|
(display "Drawing some basic shapes\n")
|
|
|
|
(define cmap (simple:new-ColorMap #f))
|
|
(define f (simple:new-FrameBuffer 400 400))
|
|
|
|
;; Clear the picture
|
|
(simple:FrameBuffer-clear f (simple:BLACK))
|
|
|
|
;; Make a red box
|
|
(simple:FrameBuffer-box f 40 40 200 200 (simple:RED))
|
|
|
|
;; Make a blue circle
|
|
(simple:FrameBuffer-circle f 200 200 40 (simple:BLUE))
|
|
|
|
;; Make green line
|
|
(simple:FrameBuffer-line f 10 390 390 200 (simple:GREEN))
|
|
|
|
;; Write an image out to disk
|
|
|
|
(simple:FrameBuffer-writeGIF f cmap "image.gif")
|
|
(display "Wrote image.gif\n")
|
|
|
|
(simple:delete-FrameBuffer f)
|
|
(simple:delete-ColorMap cmap)
|
|
|