summaryrefslogtreecommitdiff
path: root/Examples/GIFPlot/Guile/simple
diff options
context:
space:
mode:
Diffstat (limited to 'Examples/GIFPlot/Guile/simple')
-rw-r--r--Examples/GIFPlot/Guile/simple/Makefile28
-rw-r--r--Examples/GIFPlot/Guile/simple/README11
-rw-r--r--Examples/GIFPlot/Guile/simple/runme.scm30
-rw-r--r--Examples/GIFPlot/Guile/simple/simple.i34
4 files changed, 0 insertions, 103 deletions
diff --git a/Examples/GIFPlot/Guile/simple/Makefile b/Examples/GIFPlot/Guile/simple/Makefile
deleted file mode 100644
index 7986214a0..000000000
--- a/Examples/GIFPlot/Guile/simple/Makefile
+++ /dev/null
@@ -1,28 +0,0 @@
-TOP = ../../..
-SWIG = $(TOP)/../swig
-SWIGOPT =
-SRCS =
-TARGET = simple
-INTERFACE = simple.i
-LIBS = -L../.. -lgifplot
-INCLUDES = -I../../Include
-
-all:: static
-
-dynamic::
- $(MAKE) -f $(TOP)/Makefile TOP='$(TOP)' \
- SRCS='$(SRCS)' SWIG='$(SWIG)' \
- INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
- TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' guile
-
-static::
- $(MAKE) -f $(TOP)/Makefile TOP='$(TOP)' \
- SRCS='$(SRCS)' SWIG='$(SWIG)' \
- INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
- TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' guile_static
-
-clean::
- $(MAKE) -f $(TOP)/Makefile TARGET='$(TARGET)' guile_clean
- rm -f *.gif
-
-check: all
diff --git a/Examples/GIFPlot/Guile/simple/README b/Examples/GIFPlot/Guile/simple/README
deleted file mode 100644
index 1925efa93..000000000
--- a/Examples/GIFPlot/Guile/simple/README
+++ /dev/null
@@ -1,11 +0,0 @@
-This is a very minimalistic example in which just a few functions
-and constants from library are wrapped and used to draw some simple
-shapes.
-
-`make' will build a version of Guile which defines an additional
-module (simple). Run `./simple-guile -s runme.scm' to test it.
-
-`make dynamic' will build a dynamically loadable module, which can be
-loaded from any Guile interpreter. Run `guile -s runme.scm' to test
-it. The `use-modules' call in `runme.scm' dynamically loads the
-module.
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)
-
diff --git a/Examples/GIFPlot/Guile/simple/simple.i b/Examples/GIFPlot/Guile/simple/simple.i
deleted file mode 100644
index 86eaabdc0..000000000
--- a/Examples/GIFPlot/Guile/simple/simple.i
+++ /dev/null
@@ -1,34 +0,0 @@
-/* This example shows a very simple interface wrapping a few
- primitive declarations */
-
-%module simple
-%{
-#include "gifplot.h"
-%}
-
-typedef unsigned int Pixel;
-
-/* Here are a few useful functions */
-
-ColorMap *new_ColorMap(char *filename = 0);
-void delete_ColorMap(ColorMap *cmap);
-
-FrameBuffer *new_FrameBuffer(unsigned int width, unsigned int height);
-void delete_FrameBuffer(FrameBuffer *frame);
-void FrameBuffer_clear(FrameBuffer *frame, Pixel color);
-void FrameBuffer_line(FrameBuffer *frame, int x1, int y1, int x2, int y2, Pixel color);
-void FrameBuffer_box(FrameBuffer *frame, int x1, int y1, int x2, int y2, Pixel color);
-void FrameBuffer_circle(FrameBuffer *frame, int x1, int y1, int radius, Pixel color);
-int FrameBuffer_writeGIF(FrameBuffer *f, ColorMap *c, char *filename);
-
-/* And some useful constants */
-
-#define BLACK 0
-#define WHITE 1
-#define RED 2
-#define GREEN 3
-#define BLUE 4
-#define YELLOW 5
-#define CYAN 6
-#define MAGENTA 7
-