Added GIFPlot example

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@219 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/GIFPlot/Tcl/simple/Makefile

@@ -0,0 +1,23 @@
+TOP        = ../../..
+SWIG       = $(TOP)/../swig
+SWIGOPT    = 
+SRCS       = 
+TARGET     = simple
+INTERFACE  = simple.i
+LIBS       = -L../.. -lgifplot
+INCLUDE    = -I../../Include
+
+all::
+	$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
+	INCLUDE='$(INCLUDE)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
+	TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' tcl
+
+static::
+	$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
+	INCLUDE='$(INCLUDE)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
+	TARGET='mytclsh' INTERFACE='$(INTERFACE)' tclsh
+
+clean::
+	rm -f *_wrap* *.o *~ *.so mytclsh .~* core *.gif
+
+

SWIG/Examples/GIFPlot/Tcl/simple/README

@@ -0,0 +1,5 @@
+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.  The script 'runme.tcl' runs the example.
+
+

SWIG/Examples/GIFPlot/Tcl/simple/runme.tcl

@@ -0,0 +1,28 @@
+# Draw some simple shapes
+puts "Drawing some basic shapes"
+
+catch { load ./simple.so simple}
+catch { load ./simple.dll simple}  ;# Windows
+
+set cmap [new_ColorMap]
+set 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
+puts "Wrote image.gif"
+
+delete_FrameBuffer $f
+delete_ColorMap $cmap
+

SWIG/Examples/GIFPlot/Tcl/simple/simple.i

@@ -0,0 +1,38 @@
+/* This example shows a very simple interface wrapping a few 
+   primitive declarations */
+
+%module simple
+%{
+#include "gifplot.h"
+%}
+
+typedef unsigned char 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
+
+
+
+
+