Examples/GIFPlot/Tcl/simple/runme.tcl

   1 # Draw some simple shapes
   2 puts "Drawing some basic shapes"
   3
   4 catch { load ./simple[info sharedlibextension] simple}
   5
   6 set cmap [new_ColorMap]
   7 set f    [new_FrameBuffer 400 400]
   8
   9 # Clear the picture
  10 FrameBuffer_clear $f $BLACK
  11
  12 # Make a red box
  13 FrameBuffer_box $f 40 40 200 200 $RED
  14
  15 # Make a blue circle
  16 FrameBuffer_circle $f 200 200 40 $BLUE
  17
  18 # Make green line
  19 FrameBuffer_line $f 10 390 390 200 $GREEN
  20
  21 # Write an image out to disk
  22 FrameBuffer_writeGIF $f $cmap image.gif
  23 puts "Wrote image.gif"
  24
  25 delete_FrameBuffer $f
  26 delete_ColorMap $cmap
  27