home *** CD-ROM | disk | FTP | other *** search
/ MACup 1998 March / Image.iso / showdata / SHARED / GALERIE2.Dxr / Internal_70.ls < prev    next >
Encoding:
Text File  |  1997-07-31  |  496 b   |  10 lines
  1. on mouseUp
  2.   global gPanoMovieID, currNID, currHSID, tzoom, tHPan, tVPan
  3.   set tempText to the text of cast "textfile"
  4.   set currNID to PanoMovie("direct", gPanoMovieID, "get", "nodeID")
  5.   set tzoom to PanoMovie("direct", gPanoMovieID, "get", "zoomangle")
  6.   set tHPan to PanoMovie("direct", gPanoMovieID, "get", "hPanangle")
  7.   set tVPan to PanoMovie("direct", gPanoMovieID, "get", "VPanangle")
  8.   put tempText & currNID & "," & tzoom & "," & tHPan & "," & tVPan & RETURN into field "textfile"
  9. end
  10.