home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / qtvrxtra.cst / 00018.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  503 b   |  28 lines
  1. on OpenVR
  2.   global gVRnewObj, gvrName
  3.   
  4.   
  5.   --Close any open QTVR
  6.   QTVRClose(gVRnewObj)
  7.   
  8.   -- Open current movie
  9.   set gvrName = the moviePath & "Bgdn20.mov"
  10.   QTVROpen(gVRnewObj,gvrName, "100,100","visible")
  11. End 
  12.  
  13.  
  14. ----------------------
  15. on OpenVR2 movieName
  16.   global gVRnewObj, gvrName
  17.   
  18.   
  19.   --Close any open QTVR
  20.   QTVRClose(gVRnewObj)
  21.   
  22.   -- Open current movie
  23.   --set gvrName = the moviePath & "Bgdn20.mov"
  24.   set gvrName = movieName
  25.   QTVROpen(gVRnewObj,gvrName, "100,100","visible")
  26. End 
  27.  
  28.