Changed module technique from <module_name>- to <module_name>: which
conforms with chicken "egg" standard. Got rid of ##csi#run for relinking the Scheme interpreter as no longer needed. Changed all documentation to reflect both changes. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
3903284ef6
commit
cfe7be1eed
20 changed files with 681 additions and 682 deletions
|
|
@ -2,26 +2,26 @@
|
|||
|
||||
(display "Drawing some basic shapes\n")
|
||||
|
||||
(define cmap (simple-new-ColorMap #f))
|
||||
(define f (simple-new-FrameBuffer 400 400))
|
||||
(define cmap (simple:new-ColorMap #f))
|
||||
(define f (simple:new-FrameBuffer 400 400))
|
||||
|
||||
;; Clear the picture
|
||||
(simple-FrameBuffer-clear f (simple-BLACK))
|
||||
(simple:FrameBuffer-clear f (simple:BLACK))
|
||||
|
||||
;; Make a red box
|
||||
(simple-FrameBuffer-box f 40 40 200 200 (simple-RED))
|
||||
(simple:FrameBuffer-box f 40 40 200 200 (simple:RED))
|
||||
|
||||
;; Make a blue circle
|
||||
(simple-FrameBuffer-circle f 200 200 40 (simple-BLUE))
|
||||
(simple:FrameBuffer-circle f 200 200 40 (simple:BLUE))
|
||||
|
||||
;; Make green line
|
||||
(simple-FrameBuffer-line f 10 390 390 200 (simple-GREEN))
|
||||
(simple:FrameBuffer-line f 10 390 390 200 (simple:GREEN))
|
||||
|
||||
;; Write an image out to disk
|
||||
|
||||
(simple-FrameBuffer-writeGIF f cmap "image.gif")
|
||||
(simple:FrameBuffer-writeGIF f cmap "image.gif")
|
||||
(display "Wrote image.gif\n")
|
||||
|
||||
(simple-delete-FrameBuffer f)
|
||||
(simple-delete-ColorMap cmap)
|
||||
(simple:delete-FrameBuffer f)
|
||||
(simple:delete-ColorMap cmap)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue