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 / sola.tcl < prev    next >
Text File  |  2017-09-21  |  10KB  |  419 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 vsContinue
  346.  
  347.   # copy to local variables.
  348.  
  349.     set count [vsGetVariable $obj m_CountZ000]
  350.     set direction [vsGetVariable $obj m_DirectionZ000]
  351.  
  352.     set count [expr $count+1]
  353.  
  354. if {$count < 100} {
  355.     vsTranslate $obj  0.0 0.0 0.0 $vsCSWorld $vsRelative
  356. } else {
  357.   if {$count < 200} {
  358.     vsTranslate $obj  0.0 0.0 1.0 $vsCSWorld $vsRelative
  359.     } else {
  360.     if {$count < 280} {
  361.     vsTranslate $obj  0.3 0.0 0.0 $vsCSWorld $vsRelative
  362.     } else {
  363.       if {$count < 495} {
  364.       vsTranslate $obj  0.0 0.0 1.0 $vsCSWorld $vsRelative
  365.       } else {
  366.        if {$count < 562} {
  367.        vsRotateAngle $obj  0.0 -2.0 0.0 $vsCSWorld $vsRelative
  368.        } else {
  369.         if {$count < 710} {
  370.         vsTranslate $obj  0.0 0.0 2.0 $vsCSWorld $vsRelative
  371.         } else {
  372.          if {$count < 750} {
  373.           vsTranslate $obj  0.4 -0.03 0.5 $vsCSWorld $vsRelative
  374.          } else {
  375.           if {$count < 760} {
  376.            vsRotateAngle $obj  0.0 -10.0 0.0 $vsCSWorld $vsRelative
  377.            } else {
  378.            if {$count < 820} {
  379.            vsTranslate $obj  0.0 0.0 4.0 $vsCSWorld $vsRelative
  380.            } else {
  381.             if {$count < 856} {
  382.             vsTranslate $obj  -1.0 0.0 4.0 $vsCSWorld $vsRelative
  383.             } else {
  384.              if {$count < 857} {
  385.              vsRotateAngle $obj  0.0 -120.0 0.0 $vsCSWorld $vsRelative
  386.              } else {
  387.               if {$count < 1100} {
  388.               vsRotateAngle $obj  0.0 0.0 0.0 $vsCSWorld $vsRelative
  389.               } else {
  390.                if {$count < 1119} {
  391.                vsTranslate $obj  0.35 0.06 9.8 $vsCSWorld $vsRelative
  392.                } else {
  393.                 if {$count < 1130} {
  394.                  vsRotateAngle $obj  0.0 -1.7 0.0 $vsCSWorld $vsRelative
  395.                 } else {
  396. #        set count 0
  397.                 }
  398.                }
  399.               }
  400.              }
  401.             }
  402.            }
  403.           }
  404.          }
  405.         }
  406.        }
  407.  
  408.  
  409.       }
  410.     }  
  411.   }
  412. }
  413.  
  414.     vsSetVariable $obj m_CountZ000 $count
  415.     vsSetVariable $obj m_DirectionZ000 $direction
  416.  
  417.   return $vsContinue
  418. }
  419.