diff options
Diffstat (limited to 'Examples/GIFPlot/Guile/simple/runme.scm')
| -rw-r--r-- | Examples/GIFPlot/Guile/simple/runme.scm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/Examples/GIFPlot/Guile/simple/runme.scm b/Examples/GIFPlot/Guile/simple/runme.scm deleted file mode 100644 index 40ec18101..000000000 --- a/Examples/GIFPlot/Guile/simple/runme.scm +++ /dev/null @@ -1,30 +0,0 @@ -;;; Draw some simple shapes - -;; Use the wrapped GIFPlot library -(use-modules (simple)) - -(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) - |