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 / solt.tcl < prev    next >
Encoding:
Text File  |  2017-09-21  |  9.3 KB  |  415 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 vsCSWorld
  343.   global vsTclScript
  344.   global vsRelative
  345.   global vsAbsolute
  346.   global vsContinue
  347.  
  348.   # copy to local variables.
  349.  
  350.     set count [vsGetVariable $obj m_CountZ000]
  351.     set direction [vsGetVariable $obj m_DirectionZ000]
  352.  
  353.  
  354.     set count [expr $count+1]
  355.  
  356.   if {$count < 200} {
  357.     vsTranslate $obj  0.0 0.0 0.5 $vsCSLocal $vsRelative
  358.   } else {
  359.     if {$count < 340} {
  360.     vsTranslate $obj  0.5 0.3 0.5 $vsCSLocal $vsRelative
  361.   } else {
  362.     if {$count < 400} {
  363.     vsTranslate $obj  0.1 0.0 0.5 $vsCSLocal $vsRelative
  364.   } else {
  365.     if {$count < 500} {
  366.     vsTranslate $obj  0.0 -0.3 0.5 $vsCSLocal $vsRelative
  367.   } else {
  368.     if {$count < 800} {
  369.     vsTranslate $obj  0.0 0.0 0.5 $vsCSLocal $vsRelative
  370.   } else {
  371.     if {$count < 850} {
  372.     vsTranslate $obj  0.5 0.3 0.5 $vsCSLocal $vsRelative
  373.   } else {
  374.     if {$count < 995} {
  375.     vsRotateAngle $obj  0.0 -1.0 0.0 $vsCSWorld $vsRelative
  376.   } else {
  377.     if {$count < 1150} {
  378.     vsTranslate $obj  0.3 -0.05 -0.5 $vsCSLocal $vsRelative
  379.   } else {
  380.     if {$count < 1300} {
  381.     vsTranslate $obj  0.0 0.0 -0.5 $vsCSLocal $vsRelative
  382.   } else {
  383.     if {$count < 1337} {
  384.     vsRotateAngle $obj  0.0 -1.0 0.0 $vsCSWorld $vsRelative
  385.   } else {
  386.     if {$count < 1445} {
  387.     vsTranslate $obj  0.15 -0.4 0.5 $vsCSLocal $vsRelative
  388.   } else {
  389.     if {$count < 1770} {
  390.     vsTranslate $obj  0.21 0.07 0.6 $vsCSLocal $vsRelative
  391.   } else {
  392.     vsTranslate $obj  0.0 0.0 0.0 $vsCSLocal $vsAbsolute
  393.     vsRotateAngle $obj  0.0 0.0 0.0 $vsCSWorld $vsAbsolute
  394.     set count 0
  395.  
  396.     
  397.     }
  398.     }
  399.     }
  400.     }
  401.     }
  402.     }
  403.     }
  404.     }
  405.     }
  406.     }
  407.     }
  408.   }
  409.   
  410.     vsSetVariable $obj m_CountZ000 $count
  411.     vsSetVariable $obj m_DirectionZ000 $direction
  412.  
  413.   return $vsContinue
  414. }
  415.