GCL Reference - Geomview Manual
Description: Geomview Manual

Previous: Argument Conventions, Up: GCL

### 7.2 GCL Reference Guide

- shell-shortcut: `(! SHELLCOMMAND)`
- lt: `(< EXPR1 EXPR2)`
- eq: `(= EXPR1 EXPR2)`
- gt: `(> EXPR1 EXPR2)`
- mul: `(* EXPR1 EXPR2)`
- div: `(/ EXPR1 EXPR2)`
- add: `(+ EXPR1 EXPR2)`
- sub: `(- EXPR1 EXOR2)`
- help-shortcut: `(? COMMAND)`
- morehelp-shortcut: `(?? COMMAND)`
- emodule-run-shortcut: `(| NAME)`
- all: `(all geometry|camera|emodule)`
- and: `(and EXPR1 EXPR2)`
- ap-override: `(ap-override [on|off])`
- backcolor: `(backcolor CAM-ID R G B)`
- background-image: `(background-image CAM-ID [FILENAME])`
- bbox-color: `(bbox-color GEOM-ID R G B)`
- bbox-draw: `(bbox-draw GEOM-ID [yes|no])`
- camera: `(camera CAM-ID [CAMERA])`
- camera-draw: `(camera-draw CAM-ID [yes|no])`
- camera-prop: `(camera-prop { geometry object } [projective])`
- camera-reset: `(camera-reset CAM-ID)`
- car: `(car LIST)`
- cdr: `(cdr LIST)`
- clock: `(clock)`
- command: `(command INFILE [OUTFILE])`
- cons: `(cons EXPR LIST)`
- copy: `(copy [ID] [name])`
- cursor-still: `(cursor-still [INT])`
- cursor-twitch: `(cursor-twitch [INT])`
- defun: `(defun NAME ARGS [DOC] BODY)`
- delete: `(delete ID)`
- dice: `(dice GEOM-ID N)`
- dimension: `(dimension [N])`
- dither: `(dither CAM-ID {on|off|toggle})`
- draw: `(draw CAM-ID)`
- dump-handles: `(dump-handles)`
- echo: `(echo ...)`
- emodule-clear: `(emodule-clear)`
- emodule-define: `(emodule-define NAME SHELL-COMMAND ...)`
- emodule-defined: `(emodule-defined modulename)`
- emodule-isrunning: `(emodule-isrunning NAME)`
- emodule-path: `(emodule-path)`
- emodule-run: `(| NAME)`
- emodule-sort: `(emodule-sort)`
- emodule-start: `(emodule-start NAME)`
- emodule-transmit: `(emodule-transmit NAME LIST)`
- escale: `(escale GEOM-ID FACTOR)`
- eval: `(eval EXPR)`
- event-keys: `(event-keys {on|off})`
- event-mode: `(event-mode MODESTRING)`
- event-pick: `(event-pick {on|off})`
- evert: `(evert GEOM-ID [yes|no])`
- exit: `(exit)`
- ezoom: `(ezoom GEOM-ID FACTOR)`
- freeze: `(freeze CAM-ID)`
- geometry: `(geometry GEOM-ID [GEOMETRY])`
- geomview-version: `(geomview-version)`
- hdefine: `(hdefine geometry|camera|... NAME VALUE)`
- hdelete: `(hdelete [geometry|camera|...] name)`
- help: `(? COMMAND)`
- hmodel: `(hmodel CAMID {virtual|projective|conformal})`
- hsphere-draw: `(hsphere-draw CAMID [yes|no])`
- if: `(if TEST EXPR1 [EXPR2])`
- inhibit-warning: `(inhibit-warning STRING)`
- input-translator: `(input-translator "#pfx" "sh-command")`
- interest: `(interest (COMMAND [args]))`
- lambda: `(lambda ARGS BODY)`
- let: `(let (ARGS) BODY)`
- lines-closer: `(lines-closer CAM-ID DIST)`
- load: `(load filename [command|geometry|camera])`
- load-path: `(load-path)`
- look: `(look [objectID] [camID])`
- look-encompass: `(look-encompass [objID] [camID])`
- look-encompass-size: `(look-encompass-size [view clip near far])`
- look-recenter: `(look-recenter [objID] [camID])`
- look-toward: `(look-toward [objID] [camID] [origin|center])`
- merge: `(merge {window|camera} CAM-ID { WIN or CAM ... })`
- merge-ap: `(merge-ap GEOM-ID APPEARANCE)`
- merge-base-ap: `(merge-base-ap APPEARANCE)`
- merge-baseap: `(merge-baseap APPEARANCE)`
- mod: `(mod NUMERATOR DENOMINATOR)`
- morehelp: `(?? COMMAND)`
- name-object: `(name-object ID NAME)`
- ND-axes: `(ND-axes CAMID [CLUSTER [Xidx Yidx Zidx [Widx]]])`
- ND-color: `(ND-color CAMID ...`
- ND-xform: `(ND-xform OBJID [ntransform { ... }])`
- ND-xform-get: `(ND-xform-get ID [from-ID])`
- ND-xform-set: `(ND-xform-set OBJID [ntransform { ... }])`
- new-alien: `(new-alien name [GEOMETRY])`
- new-camera: `(new-camera name [CAMERA])`
- new-center: `(new-center [id])`
- new-geometry: `(new-geometry name [GEOMETRY])`
- new-reset: `(new-reset)`
- NeXT: `(NeXT)`
- normalization: `(normalization GEOM-ID {each|none|all|keep})`
- not: `(not EXPR)`
- or: `(or EXPR1 EXPR2)`
- pick: `(pick COORDSYS GEOMID G V E F P VI EI FI)`
- pick-invisible: `(pick-invisible [yes|no])`
- pickable: `(pickable GEOM-ID {yes|no})`
- position: `(position objectID otherID)`
- position-at: `(position-at objectID otherID [center | origin])`
- position-toward: `(position-toward objID othID [center|origin])`
- process-events: `(process-events)`
- progn: `(progn STATEMENT [ ... ])`
- quit: `(quit)`
- quote: `(quote EXPR)`
- rawevent: `(rawevent dev val x y t)`
- rawpick: `(rawpick CAMID X Y)`
- read: `(read geometry|camera|... {GEOM or CAM or ...})`
- real-id: `(real-id ID)`
- redraw: `(redraw CAM-ID)`
- regtable: `(regtable)`
- rehash-emodule-path: `(rehash-emodule-path)`
- replace-geometry: `(replace-geometry GEOM-ID PART GEOMETRY)`
- rib-display: `(rib-display [frame|tiff] FILEPREFIX)`
- rib-snapshot: `(rib-snapshot CAM-ID [filename])`
- scale: `(scale GEOM-ID FACTOR [FACTORY FACTORZ])`
- scene: `(scene CAM-ID [GEOMETRY])`
- set-clock: `(set-clock TIME)`
- set-conformal-refine: `(set-conformal-refine CMX [N [EDGES]])`
- set-emodule-path: `(set-emodule-path (PATH1 ... PATHN))`
- set-load-path: `(set-load-path (PATH1 ... PATHN))`
- set-motionscale: `(set-motionscale X)`
- setenv: `(setenv name string)`
- setq: `(setq SYM EXPR)`
- sgi: `(sgi)`
- shell: `(! SHELLCOMMAND)`
- sleep-for: `(sleep-for TIME)`
- sleep-until: `(sleep-until TIME)`
- snapshot: `(snapshot CAM-ID FILENAME [FORMAT [XSIZE [YSIZE]]])`
- soft-shader: `(soft-shader CAM-ID {on|off|toggle})`
- space: `(space {euclidean|hyperbolic|spherical})`
- stereowin: `(stereowin CAM-ID [no|horizontal|...] [gap])`
- time-interests: `(time-interests delta initial prefix [suffix])`
- transform: `(transform objectID centerID frameID [rotate|...] ...)`
- transform-incr: `(transform-incr objectID centerID frameID ...)`
- transform-set: `(transform-set objectID centerID frameID ...)`
- truncate: `(truncate NUMBER)`
- ui-cam-focus: `(ui-cam-focus {focus-change|mouse-cross})`
- ui-center: `(ui-center ID)`
- ui-center-origin: `(ui-center-origin {origin|bbox-center})`
- ui-emotion-program: `(ui-emotion-program PROGRAM)`
- ui-emotion-run: `(ui-emotion-run EMODULE)`
- ui-freeze: `(ui-freeze {on|off})`
- ui-html-browser: `(ui-html-browser BROWSER)`
- ui-motion: `(ui-motion {inertia|...} {on|off})`
- ui-panel: `(ui-panel PANELNAME {on|off} [WINDOW])`
- ui-pdf-viewer: `(ui-pdf-viewer VIEWER)`
- ui-target: `(ui-target ID [yes|no])`
- uninterest: `(uninterest (COMMAND [args]))`
- update: `(update [timestep_in_seconds])`
- update-draw: `(update-draw CAM-ID [timestep_in_seconds])`
- while: `(while TEST BODY)`
- window: `(window CAM-ID WINDOW)`
- winenter: `(winenter CAM-ID)`
- write: `(write command|geometry|... FILENAME ...)`
- write-comments: `(write-comments FILENAME GEOMID PICKPATH)`
- write-handle: `(write-handle PREFIX FILENAME HANDLE)`
- write-sexpr: `(write-sexpr FILENAME LISPOBJECT)`
- xform: `(xform ID TRANSFORM)`
- xform-incr: `(xform-incr ID TRANSFORM)`
- xform-set: `(xform-set ID TRANSFORM)`
- zoom: `(zoom CAM-ID FACTOR)`