home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Sony / WORLD / Circus / BLD10 / undercon.tcl < prev   
Text File  |  2017-09-21  |  630b  |  24 lines

  1. #
  2. proc vs_H_PeriodicRotateLocal { obj event userdata } {
  3.     vs_H_PeriodicRotateLocalX $obj $event $userdata
  4.     vs_H_PeriodicRotateLocalZ $obj $event $userdata
  5. }
  6. proc vs_H_PeriodicRotateLocalX { obj event userdata } {
  7.     global vsCSLocal
  8.     global vsRelative
  9.     vsRotateAngle $obj  3.0 0.0 0.0 $vsCSLocal $vsRelative
  10. }
  11.  
  12. proc vs_H_EventPick { obj event userdata } {
  13.     global vsCSLocal
  14.     global vsRelative
  15.     vsRotateAngle $obj  0.0 15.0 0.0 $vsCSLocal $vsRelative
  16. }
  17.  
  18. proc vs_H_PeriodicRotateLocalZ { obj event userdata } {
  19.     global vsCSLocal
  20.     global vsRelative
  21.     vsRotateAngle $obj  0.0 0.0 3.0 $vsCSLocal $vsRelative
  22. }
  23.  
  24.