home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / mac / Grafisch / Geo3D 2.0 / Sample Scripts / Viewpoints < prev   
Encoding:
Text File  |  2000-06-30  |  572 b   |  17 lines  |  [TEXT/ToyS]
  1. tell application "Geo3D"
  2.     activate
  3.     make new document
  4.     camera fromX -37.23 fromY 54.94 fromZ 100 toX 11.47 toY 25.21 toZ 38.31 upX -0.2382 upY 0.788 upZ -0.5677 FOV 22.0
  5.     add viewpoint named "Just a Viewpoint" -- item 1
  6.     left view -- menu Viewer/Camera
  7.     add viewpoint named "Left" -- item 2
  8.     top view -- menu Viewer/Camera
  9.     add viewpoint named "Top" -- item 3
  10.     show viewpoint item 1
  11.     next viewpoint -- item 2
  12.     next viewpoint -- item 3
  13.     previous viewpoint -- item 2
  14.     remove viewpoint item 3 -- remove "Top"
  15.     -- (item 0 = remove current item; item -1 = remove all)
  16. end tell
  17.