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 / sol24.tcl < prev    next >
Text File  |  2017-09-21  |  3KB  |  91 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_MoveOnZ001 { obj event userData } {
  5.  
  6.     vsNewVariable $obj m_CountZ000 0
  7.     vsNewVariable $obj m_DirectionZ000 1
  8. }
  9. # NOTE: we have to add 'vs_H_Periodic_' prefix for periodic task
  10. #       you must not CHANGE function name!!.
  11.  
  12. proc vs_H_Periodic_MoveOnZ001 { obj event userData } {
  13.   global vsCSLocal
  14.   global vsCSWorld
  15.   global vsTclScript
  16.   global vsRelative
  17.   global vsContinue
  18.  
  19.   # copy to local variables.
  20.  
  21.     set count [vsGetVariable $obj m_CountZ000]
  22.     set direction [vsGetVariable $obj m_DirectionZ000]
  23.  
  24.     set count [expr $count+1]
  25.  
  26. if {$count < 100} {
  27.     vsTranslate $obj  0.0 0.0 0.0 $vsCSWorld $vsRelative
  28. } else {
  29.   if {$count < 200} {
  30.     vsTranslate $obj  0.0 0.0 1.0 $vsCSWorld $vsRelative
  31.     } else {
  32.     if {$count < 280} {
  33.     vsTranslate $obj  0.3 0.0 0.0 $vsCSWorld $vsRelative
  34.     } else {
  35.       if {$count < 495} {
  36.       vsTranslate $obj  0.0 0.0 1.0 $vsCSWorld $vsRelative
  37.       } else {
  38.        if {$count < 562} {
  39.        vsRotateAngle $obj  0.0 -2.0 0.0 $vsCSWorld $vsRelative
  40.        } else {
  41.         if {$count < 710} {
  42.         vsTranslate $obj  0.0 0.0 2.0 $vsCSWorld $vsRelative
  43.         } else {
  44.          if {$count < 750} {
  45.           vsTranslate $obj  0.4 -0.03 0.5 $vsCSWorld $vsRelative
  46.          } else {
  47.           if {$count < 760} {
  48.            vsRotateAngle $obj  0.0 -10.0 0.0 $vsCSWorld $vsRelative
  49.            } else {
  50.            if {$count < 820} {
  51.            vsTranslate $obj  0.0 0.0 4.0 $vsCSWorld $vsRelative
  52.            } else {
  53.             if {$count < 856} {
  54.             vsTranslate $obj  -1.0 0.0 4.0 $vsCSWorld $vsRelative
  55.             } else {
  56.              if {$count < 857} {
  57.              vsRotateAngle $obj  0.0 -120.0 0.0 $vsCSWorld $vsRelative
  58.              } else {
  59.               if {$count < 1100} {
  60.               vsRotateAngle $obj  0.0 0.0 0.0 $vsCSWorld $vsRelative
  61.               } else {
  62.                if {$count < 1119} {
  63.                vsTranslate $obj  0.35 0.06 9.8 $vsCSWorld $vsRelative
  64.                } else {
  65.                 if {$count < 1130} {
  66.                  vsRotateAngle $obj  0.0 -1.7 0.0 $vsCSWorld $vsRelative
  67.                 } else {
  68. #        set count 0
  69.                 }
  70.                }
  71.               }
  72.              }
  73.             }
  74.            }
  75.           }
  76.          }
  77.         }
  78.        }
  79.  
  80.  
  81.       }
  82.     }  
  83.   }
  84. }
  85.  
  86.     vsSetVariable $obj m_CountZ000 $count
  87.     vsSetVariable $obj m_DirectionZ000 $direction
  88.  
  89.   return $vsContinue
  90. }
  91.