home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / CSK / obj / sol13.tcl < prev    next >
Text File  |  2017-09-21  |  498b  |  22 lines
  1. # NOTE: we have to add 'vs_H_Init_' prefix for initialize
  2. #       you must not CHANGE function name!!.
  3.  
  4. proc vs_H_Init_RotateAroundY013 { obj event userData } {
  5.  
  6. }
  7.  
  8. #
  9. # NOTE: we have to add 'vs_H_Periodic_' prefix for periodic task
  10. #
  11.  
  12. proc vs_H_Periodic_RotateAroundY013 { obj event userData } {
  13.     global vsSporadicTask
  14.     global vsCSParent
  15.     global vsTclScript
  16.     global vsRelative
  17.     global vsContinue
  18.  
  19.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  20.     return $vsContinue
  21. }
  22.