WINTERP 2.0 Xtango Graphics/Animation examples

• Back to WINTERP home page
• WINTERP 2.0 example programs

barchart.lsp

A 256 elt barchart which meters the number of elements/hashbucket within WINTERP's *saved_objs* hashtable. The barchart element in this app is a TANGOIMAGEOBJ. See barchart.lsp for a similar display using gadgets.

cls-image.lsp

Installs special methods on all the Xtango image classes. These methods allow the interactive manipulation (move, resize, etc) of images drawn within an instance of XTANGO-WIDGET-CLASS. (see also cls-widget.lsp).

cls-widget.lsp

XTANGO-WIDGET-CLASS, XTANGO-BUTTON-WIDGET-CLASS. XTANGO-WIDGET-CLASS requires special methods installed on all the xtango image classes -- see ./cls-image.lsp.

ctrlpnl.lsp

Pile of GUIs to let me easily play with and test WINTERP's Xtango functionality.

fluid2.gif

An example GIF (by Dave Scruton) used as a background for hanoi.lsp and also used as a test gif by other programs...

hanoi.lsp

Animated "towers of hanoi" algorithm.

icls-plrar.lsp

Define POLAR-ARROW-IMAGE-CLASS -- a subclass of TANGO:POLYGON_IMAGE_CLASS

icls-plrli.lsp

Define POLAR-LINE-IMAGE-CLASS -- a subclass of TANGO:LINE_IMAGE_CLASS.

im_methpop.lsp

popup-menu-of-methods-of-object -- pops up a menu of the methods available on the class of the given instance. This is a pretty random way of inspecting the methods of an image given that the popup menu entries don't actually do anything.

imag-build.lsp

Interactive "image builder". Allows you to create/edit/save/load images consisting of tango-image-objects. The actual drawing UI leaves much to be desired, and the use of flashing to show the selected set of images is clearly the wrong metaphor. But remember that I wrote this mostly to test out WINTERP's xtango interface -- though with some work this could become a useful drawing tool.
On the drawing area, remember that left-mouse selects, left-drag moves, middle-drag resizes, and right-click pops up a menu of methods on the selected image (doesn't actually do anything, yet). Shift-left-mouse does a multiple-selection operation, adding or removing the selected image-object to the multiple selection list. Once multi-selection has occurred, "Tango-->Group Selected Images" will group the images into a single composite image; composites can be acted on as a group by other tango operators, e.g. movement. "Tango-->Window Snapshot" requires you have xwdtopnm ppmtogif executables installed and on the search path (from PBM-PLUS), and you cannot currently save the GIF images resulting from a screen snapshot... Please feel free to fix/improve/debug this application and submit code back to winterp@netcom.com

imag-rndom.lsp

Load this file to bring up a test UI for randomly placing the requested TANGOIMAGE within the Tango drawing area widget. On the drawing area, remember that left-mouse selects, left-drag moves, middle-drag resizes, and right-click pops up a menu of methods on the selected image (doesn't actually do anything, yet).

movi-cube.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of a cube rotating. bitmap-movie is in bitmaps/movi-cube.lsp

movi-earth.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of earth rotating. bitmap-movie is in bitmaps/earth-movie.lsp

movi-eyeb.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of the back of a walking eye-man... bitmap-movie is in bitmaps/movi-eyeb.lsp

movi-eyebl.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of eye blinking. bitmap-movie is in bitmaps/movi-eyebl.lsp

movi-eyef.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of the front of a walking eye-man... bitmap-movie is in bitmaps/movi-eyef.lsp

movi-eyej.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of eye-man jumping. bitmap-movie is in bitmaps/movi-eyej.lsp

movi-eyel.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of the left of a walking eye-man... bitmap-movie is in bitmaps/movi-eyel.lsp

movi-eyer.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of the right of a walking eye-man... bitmap-movie is in bitmaps/movi-eyer.lsp

movi-face.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of scary faces bitmap-movie is in bitmaps/movi-face.lsp

movi-run.lsp

XTANGO TANGO:BITMAP_IMAGE_CLASS displaying movie of a little man running. bitmap-movie is in bitmaps/movi-run.lsp

test-bbox.lsp

Test of tango bounding boxes -- bounding boxes visible due to lack of expose-callback/:refresh, and displaying images individually, with :tap_show, and using non-white background

test-class.lsp

Random attempts at playing around with OOP on tango-images. The expressions in this file are meant to be evaluated interactively; do not load this file.

test-compo.lsp

Tests on TANGO:COMPOSITE_IMAGE_CLASS. The statements in this file should be evaluated interactively; the results of loading this file are somewhat uninteresting.

test-dial.lsp

demo/test of DIAL-WIDGET-CLASS defined in wcls-dial.lsp

test-gauge.lsp

Test/demo of GAUGE-WIDGET-CLASS, defined in wcls-gauge.lsp.

test-gif.lsp

Random tests involving TANGO:GIF_IMAGE_CLASS. This file is meant to be evaluated interactively. Also, many of the paths to GIFs below won't be valid on your system.

test-knob.lsp

Demo/test of KNOB-WIDGET-CLASS, defined in wcls-knob.lsp

test-tango.lsp

Various interactive tests/demos of WINTERP's xtango functionality. this file can either be loaded, or you may evaluate individual expressions in the file interactively.

test-text.lsp

Test for TANGO:TEXT_IMAGE_CLASS -- show bounding box around text image.

test-trans.lsp

Test/demo of Xtango transitions on various image classes. It is probably best to interactively evaluate statements in this file, but it can also be somewhat entertaining if you just load the file.

test.lsp

Random bits of code I wrote in testing WINTERP's Xtango widget. This file isn't meant to be loaded, rather, each lisp form is to be interactively evaluated using the gnuemacs interface or w_ctrlpnl.lsp...

util.lsp

xtango utilities

wcls-bgcol.lsp

XTANGO-BG-COLOR-SELECTION-WIDGET-CLASS -- dialog box for selecting background color of a tango image.

wcls-delay.lsp

XTANGO-DELAY-SELECTION-WIDGET-CLASS -- dialog box for entering animation delay factor for xtango.

wcls-dial.lsp

DIAL-WIDGET-CLASS -- use xtango to define the graphics of a new motif widget class without having to use low-level xt widget subclassing uglyness. See also test-dial.lsp.

wcls-fgcol.lsp

XTANGO-FG-COLOR-SELECTION-WIDGET-CLASS -- dialog box for selecting foreground color of a tango image object.

wcls-gauge.lsp

GAUGE-WIDGET-CLASS -- use xtango to define the graphics of a new motif widget class without having to use low-level xt widget subclassing uglyness.

wcls-imopt.lsp

XTANGO-IMAGE-OPTIONS-SELECTION-WIDGET-CLASS -- a dialog box for inputting image parameters for image creation, e.g. line width, fill values, arrow directions, etc.

wcls-knob.lsp

KNOB-WIDGET-CLASS -- use xtango to define the graphics of a new motif widget class without having to use low-level xt widget subclassing uglyness. See also test-knob.lsp

xbm-to-arr.lsp

(bitmap-file-to-array <fname>) converts *.xbm bitmap file to a xlisp 2-D array, for use by TANGO:BITMAP_IMAGE_CLASS