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 >
Wrap
Text File
|
2017-09-21
|
10KB
|
415 lines
# NOTE: we have to add 'vs_H_Init_' prefix for initialize
# you must not CHANGE function name!!.
proc vs_H_Init_RotateAroundY001 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY001 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.005 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY002 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY002 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 1.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY003 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY003 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.05 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY004 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY004 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.005 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY005 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY005 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.01 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY006 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY006 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.01 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY007 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY007 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.01 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY008 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY008 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.01 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY009 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY009 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.01 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY010 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY010 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 0.05 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY011 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY011 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY012 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY012 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY013 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY013 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY014 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY014 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY015 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY015 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY016 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY016 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY017 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY017 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY018 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY018 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY019 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY019 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY020 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY020 { obj event userData } {
global vsSporadicTask
global vsCSParent
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 10.0 0.0 $vsCSParent $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY021 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY021 { obj event userData } {
global vsSporadicTask
global vsCSLocal
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 1.0 0.0 $vsCSLocal $vsRelative
return $vsContinue
}
proc vs_H_Init_RotateAroundY022 { obj event userData } {
}
proc vs_H_Periodic_RotateAroundY022 { obj event userData } {
global vsSporadicTask
global vsCSLocal
global vsTclScript
global vsRelative
global vsContinue
vsRotateAngle $obj 0.0 1.0 0.0 $vsCSLocal $vsRelative
return $vsContinue
}
proc vs_H_Init_MoveOnZ001 { obj event userData } {
vsNewVariable $obj m_CountZ000 0
vsNewVariable $obj m_DirectionZ000 1
}
proc vs_H_Periodic_MoveOnZ001 { obj event userData } {
global vsCSLocal
global vsCSWorld
global vsTclScript
global vsRelative
global vsAbsolute
global vsContinue
# copy to local variables.
set count [vsGetVariable $obj m_CountZ000]
set direction [vsGetVariable $obj m_DirectionZ000]
set count [expr $count+1]
if {$count < 200} {
vsTranslate $obj 0.0 0.0 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 340} {
vsTranslate $obj 0.5 0.3 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 400} {
vsTranslate $obj 0.1 0.0 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 500} {
vsTranslate $obj 0.0 -0.3 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 800} {
vsTranslate $obj 0.0 0.0 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 850} {
vsTranslate $obj 0.5 0.3 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 995} {
vsRotateAngle $obj 0.0 -1.0 0.0 $vsCSWorld $vsRelative
} else {
if {$count < 1150} {
vsTranslate $obj 0.3 -0.05 -0.5 $vsCSLocal $vsRelative
} else {
if {$count < 1300} {
vsTranslate $obj 0.0 0.0 -0.5 $vsCSLocal $vsRelative
} else {
if {$count < 1337} {
vsRotateAngle $obj 0.0 -1.0 0.0 $vsCSWorld $vsRelative
} else {
if {$count < 1445} {
vsTranslate $obj 0.15 -0.4 0.5 $vsCSLocal $vsRelative
} else {
if {$count < 1770} {
vsTranslate $obj 0.21 0.07 0.6 $vsCSLocal $vsRelative
} else {
vsTranslate $obj 0.0 0.0 0.0 $vsCSLocal $vsAbsolute
vsRotateAngle $obj 0.0 0.0 0.0 $vsCSWorld $vsAbsolute
set count 0
}
}
}
}
}
}
}
}
}
}
}
}
vsSetVariable $obj m_CountZ000 $count
vsSetVariable $obj m_DirectionZ000 $direction
return $vsContinue
}