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 / solm.tcl < prev    next >
Text File  |  2017-09-21  |  9KB  |  376 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_RotateAroundY001 { obj event userData } {
  5.  
  6. }
  7.  
  8. proc vs_H_Periodic_RotateAroundY001 { obj event userData } {
  9.     global vsSporadicTask
  10.     global vsCSParent
  11.     global vsTclScript
  12.     global vsRelative
  13.     global vsContinue
  14.  
  15.     vsRotateAngle $obj  0.0 0.005 0.0 $vsCSParent $vsRelative
  16.     return $vsContinue
  17. }
  18.  
  19. proc vs_H_Init_RotateAroundY002 { obj event userData } {
  20.  
  21. }
  22.  
  23. proc vs_H_Periodic_RotateAroundY002 { obj event userData } {
  24.     global vsSporadicTask
  25.     global vsCSParent
  26.     global vsTclScript
  27.     global vsRelative
  28.     global vsContinue
  29.  
  30.     vsRotateAngle $obj  0.0 1.0 0.0 $vsCSParent $vsRelative
  31.     return $vsContinue
  32. }
  33.  
  34. proc vs_H_Init_RotateAroundY003 { obj event userData } {
  35.  
  36. }
  37.  
  38. proc vs_H_Periodic_RotateAroundY003 { obj event userData } {
  39.     global vsSporadicTask
  40.     global vsCSParent
  41.     global vsTclScript
  42.     global vsRelative
  43.     global vsContinue
  44.  
  45.     vsRotateAngle $obj  0.0 0.05 0.0 $vsCSParent $vsRelative
  46.     return $vsContinue
  47. }
  48.  
  49. proc vs_H_Init_RotateAroundY004 { obj event userData } {
  50.  
  51. }
  52.  
  53. proc vs_H_Periodic_RotateAroundY004 { obj event userData } {
  54.     global vsSporadicTask
  55.     global vsCSParent
  56.     global vsTclScript
  57.     global vsRelative
  58.     global vsContinue
  59.  
  60.     vsRotateAngle $obj  0.0 0.005 0.0 $vsCSParent $vsRelative
  61.     return $vsContinue
  62. }
  63.  
  64. proc vs_H_Init_RotateAroundY005 { obj event userData } {
  65.  
  66. }
  67.  
  68. proc vs_H_Periodic_RotateAroundY005 { obj event userData } {
  69.     global vsSporadicTask
  70.     global vsCSParent
  71.     global vsTclScript
  72.     global vsRelative
  73.     global vsContinue
  74.  
  75.     vsRotateAngle $obj  0.0 0.01 0.0 $vsCSParent $vsRelative
  76.     return $vsContinue
  77. }
  78.  
  79. proc vs_H_Init_RotateAroundY006 { obj event userData } {
  80.  
  81. }
  82.  
  83. proc vs_H_Periodic_RotateAroundY006 { obj event userData } {
  84.     global vsSporadicTask
  85.     global vsCSParent
  86.     global vsTclScript
  87.     global vsRelative
  88.     global vsContinue
  89.  
  90.     vsRotateAngle $obj  0.0 0.01 0.0 $vsCSParent $vsRelative
  91.     return $vsContinue
  92. }
  93.  
  94. proc vs_H_Init_RotateAroundY007 { obj event userData } {
  95.  
  96. }
  97.  
  98. proc vs_H_Periodic_RotateAroundY007 { obj event userData } {
  99.     global vsSporadicTask
  100.     global vsCSParent
  101.     global vsTclScript
  102.     global vsRelative
  103.     global vsContinue
  104.  
  105.     vsRotateAngle $obj  0.0 0.01 0.0 $vsCSParent $vsRelative
  106.     return $vsContinue
  107. }
  108.  
  109. proc vs_H_Init_RotateAroundY008 { obj event userData } {
  110.  
  111. }
  112.  
  113. proc vs_H_Periodic_RotateAroundY008 { obj event userData } {
  114.     global vsSporadicTask
  115.     global vsCSParent
  116.     global vsTclScript
  117.     global vsRelative
  118.     global vsContinue
  119.  
  120.     vsRotateAngle $obj  0.0 0.01 0.0 $vsCSParent $vsRelative
  121.     return $vsContinue
  122. }
  123.  
  124. proc vs_H_Init_RotateAroundY009 { obj event userData } {
  125.  
  126. }
  127.  
  128. proc vs_H_Periodic_RotateAroundY009 { obj event userData } {
  129.     global vsSporadicTask
  130.     global vsCSParent
  131.     global vsTclScript
  132.     global vsRelative
  133.     global vsContinue
  134.  
  135.     vsRotateAngle $obj  0.0 0.01 0.0 $vsCSParent $vsRelative
  136.     return $vsContinue
  137. }
  138.  
  139. proc vs_H_Init_RotateAroundY010 { obj event userData } {
  140.  
  141. }
  142.  
  143. proc vs_H_Periodic_RotateAroundY010 { obj event userData } {
  144.     global vsSporadicTask
  145.     global vsCSParent
  146.     global vsTclScript
  147.     global vsRelative
  148.     global vsContinue
  149.  
  150.     vsRotateAngle $obj  0.0 0.05 0.0 $vsCSParent $vsRelative
  151.     return $vsContinue
  152. }
  153.  
  154. proc vs_H_Init_RotateAroundY011 { obj event userData } {
  155.  
  156. }
  157.  
  158. proc vs_H_Periodic_RotateAroundY011 { obj event userData } {
  159.     global vsSporadicTask
  160.     global vsCSParent
  161.     global vsTclScript
  162.     global vsRelative
  163.     global vsContinue
  164.  
  165.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  166.     return $vsContinue
  167. }
  168.  
  169. proc vs_H_Init_RotateAroundY012 { obj event userData } {
  170.  
  171. }
  172.  
  173. proc vs_H_Periodic_RotateAroundY012 { obj event userData } {
  174.     global vsSporadicTask
  175.     global vsCSParent
  176.     global vsTclScript
  177.     global vsRelative
  178.     global vsContinue
  179.  
  180.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  181.     return $vsContinue
  182. }
  183.  
  184. proc vs_H_Init_RotateAroundY013 { obj event userData } {
  185.  
  186. }
  187.  
  188. proc vs_H_Periodic_RotateAroundY013 { obj event userData } {
  189.     global vsSporadicTask
  190.     global vsCSParent
  191.     global vsTclScript
  192.     global vsRelative
  193.     global vsContinue
  194.  
  195.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  196.     return $vsContinue
  197. }
  198.  
  199. proc vs_H_Init_RotateAroundY014 { obj event userData } {
  200.  
  201. }
  202.  
  203. proc vs_H_Periodic_RotateAroundY014 { obj event userData } {
  204.     global vsSporadicTask
  205.     global vsCSParent
  206.     global vsTclScript
  207.     global vsRelative
  208.     global vsContinue
  209.  
  210.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  211.     return $vsContinue
  212. }
  213.  
  214. proc vs_H_Init_RotateAroundY015 { obj event userData } {
  215.  
  216. }
  217.  
  218. proc vs_H_Periodic_RotateAroundY015 { obj event userData } {
  219.     global vsSporadicTask
  220.     global vsCSParent
  221.     global vsTclScript
  222.     global vsRelative
  223.     global vsContinue
  224.  
  225.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  226.     return $vsContinue
  227. }
  228.  
  229. proc vs_H_Init_RotateAroundY016 { obj event userData } {
  230.  
  231. }
  232.  
  233. proc vs_H_Periodic_RotateAroundY016 { obj event userData } {
  234.     global vsSporadicTask
  235.     global vsCSParent
  236.     global vsTclScript
  237.     global vsRelative
  238.     global vsContinue
  239.  
  240.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  241.     return $vsContinue
  242. }
  243.  
  244. proc vs_H_Init_RotateAroundY017 { obj event userData } {
  245.  
  246. }
  247.  
  248. proc vs_H_Periodic_RotateAroundY017 { obj event userData } {
  249.     global vsSporadicTask
  250.     global vsCSParent
  251.     global vsTclScript
  252.     global vsRelative
  253.     global vsContinue
  254.  
  255.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  256.     return $vsContinue
  257. }
  258.  
  259. proc vs_H_Init_RotateAroundY018 { obj event userData } {
  260.  
  261. }
  262.  
  263. proc vs_H_Periodic_RotateAroundY018 { obj event userData } {
  264.     global vsSporadicTask
  265.     global vsCSParent
  266.     global vsTclScript
  267.     global vsRelative
  268.     global vsContinue
  269.  
  270.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  271.     return $vsContinue
  272. }
  273.  
  274. proc vs_H_Init_RotateAroundY019 { obj event userData } {
  275.  
  276. }
  277.  
  278. proc vs_H_Periodic_RotateAroundY019 { obj event userData } {
  279.     global vsSporadicTask
  280.     global vsCSParent
  281.     global vsTclScript
  282.     global vsRelative
  283.     global vsContinue
  284.  
  285.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  286.     return $vsContinue
  287. }
  288.  
  289. proc vs_H_Init_RotateAroundY020 { obj event userData } {
  290.  
  291. }
  292.  
  293. proc vs_H_Periodic_RotateAroundY020 { obj event userData } {
  294.     global vsSporadicTask
  295.     global vsCSParent
  296.     global vsTclScript
  297.     global vsRelative
  298.     global vsContinue
  299.  
  300.     vsRotateAngle $obj  0.0 10.0 0.0 $vsCSParent $vsRelative
  301.     return $vsContinue
  302. }
  303.  
  304. proc vs_H_Init_RotateAroundY021 { obj event userData } {
  305.  
  306. }
  307.  
  308. proc vs_H_Periodic_RotateAroundY021 { obj event userData } {
  309.     global vsSporadicTask
  310.     global vsCSLocal
  311.     global vsTclScript
  312.     global vsRelative
  313.     global vsContinue
  314.  
  315.     vsRotateAngle $obj  0.0 1.0 0.0 $vsCSLocal $vsRelative
  316.     return $vsContinue
  317. }
  318.  
  319. proc vs_H_Init_RotateAroundY022 { obj event userData } {
  320.  
  321. }
  322.  
  323. proc vs_H_Periodic_RotateAroundY022 { obj event userData } {
  324.     global vsSporadicTask
  325.     global vsCSLocal
  326.     global vsTclScript
  327.     global vsRelative
  328.     global vsContinue
  329.  
  330.     vsRotateAngle $obj  0.0 1.0 0.0 $vsCSLocal $vsRelative
  331.     return $vsContinue
  332. }
  333.  
  334. proc vs_H_Init_MoveOnZ001 { obj event userData } {
  335.  
  336.     vsNewVariable $obj m_CountZ000 0
  337.     vsNewVariable $obj m_DirectionZ000 1
  338. }
  339.  
  340. proc vs_H_Periodic_MoveOnZ001 { obj event userData } {
  341.   global vsCSLocal
  342.   global vsTclScript
  343.   global vsRelative
  344.   global vsContinue
  345.  
  346.   # copy to local variables.
  347.  
  348.     set count [vsGetVariable $obj m_CountZ000]
  349.     set direction [vsGetVariable $obj m_DirectionZ000]
  350.  
  351.   if {$direction == 1} {
  352.       # Z positive direction.
  353.     vsTranslate $obj  0.0 0.0 -0.1 $vsCSLocal $vsRelative
  354.   } else {
  355.       # Z negative direction.
  356.     vsTranslate $obj  0.0 -0.001 -0.1 $vsCSLocal $vsRelative
  357.   }
  358.  
  359.     set count [expr $count+1]
  360.  
  361.   if {$count > 210} {
  362.      if {$direction == -1} {
  363.      vsTranslate $obj  0.0 0.21 0.0 $vsCSLocal $vsRelative
  364.      }
  365.      # turn around.
  366.           vsRotateAngle $obj  0.0 180.0 0.0 $vsCSLocal $vsRelative
  367.       set direction [expr $direction*-1]
  368.      # reset counter.
  369.       set count 0
  370.   }
  371.  
  372.     vsSetVariable $obj m_CountZ000 $count
  373.     vsSetVariable $obj m_DirectionZ000 $direction
  374.  
  375.   return $vsContinue
  376. }