home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / dizzyHorse / finalRing2.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  7.6 KB  |  135 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WWTextField
  7.     TextField
  8. Control
  9.     Responder
  10. WWThumbWheel
  11. PAThumbWheel
  12. WWThumbWheelCell
  13. PAThumbWheelCell
  14. ActionCell
  15.     Helvetica
  16. #set ring(yTranslate) %f; updateView
  17. ring(yTranslate)
  18. #set ring(zTranslate) %f; updateView
  19. ring(zTranslate)
  20. #set ring(xTranslate) %f; updateView
  21. ring(xTranslate)
  22. WWTextFieldCell
  23. TextFieldCell
  24.     translate
  25.  set ring(yRotate) %f; updateView
  26. ring(yRotate)
  27.  set ring(zRotate) %f; updateView
  28. ring(zRotate)
  29.  set ring(xRotate) %f; updateView
  30. ring(xRotate)
  31. rotate
  32. Matrix
  33. @:@iiii
  34. ButtonCell
  35. Radio
  36. NXImage
  37. control_stop
  38. control_stopH
  39. control_play
  40. control_playH
  41. control_pause
  42. control_pauseH
  43. ff@@#::s
  44. NXradio
  45. NXradioH
  46. tumbleTo
  47. !set rollsPerSecond %f; updateView
  48. rollsPerSecond
  49. revolutions/sec
  50. WWButton
  51. Button
  52. WWButtonCell
  53. generate rendrib textures
  54. Fcd $modelPath; exec /LocalApps/rendrib $modelPath/makeMaps.rendrib.rib
  55. generate prman texturesI
  56. Bcd $modelPath; exec /usr/prman/prman $modelPath/makeMaps.prman.rib
  57. remove texturesI
  58. &cd $modelPath; eval exec rm [glob *tx]
  59. texture stuff
  60. tumbleAway
  61. duration(sec)
  62. !set howManySeconds %f; updateView
  63. howManySeconds
  64. WindowTemplate
  65. iiii***@s@
  66. Ring controls
  67. Panel
  68. initialization code
  69. ScrollView
  70. ClipView
  71. ciifffcfffs
  72. [210c]{\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  73. \margl40
  74. \margr40
  75. \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320\f0\b0\i0\ulnone\fs24\fc0\cf0 set howManySeconds 3\
  76. set rollsPerSecond 2
  77. NXCursor
  78. NXibeam
  79. Scroller
  80. _doScroller:
  81. @@@ffs
  82.     WWTTTimer
  83. @:diciffffc
  84. set ring(xRotate) [expr {$ring(xRotate) - $xRIncr}]
  85. set ring(xTranslate) [expr {$ring(xTranslate) + $xTIncr}]
  86. set ring(yTranslate) [expr {$ring(yTranslate) + $yTIncr}]
  87. set ring(zTranslate) [expr {$ring(zTranslate) + $zTIncr}]
  88. set stepsLeft [expr {$stepsLeft - 1}]
  89. synchWithScene
  90. set numberOfSteps [expr {$howManySeconds * $scene(ticksPerSecond)}]
  91. set stepsLeft [expr {$numberOfSteps + 1}]
  92. set ring(xTranslate) $ring(xTranslateInitial)
  93. set ring(yTranslate) $ring(yTranslateInitial)
  94. set ring(zTranslate) $ring(zTranslateInitial)
  95. set ring(xRotate) $ring(xRotateInitial)
  96. set xTIncr [expr {[expr {$ring(xTranslateFinal) - $ring(xTranslateInitial)}] / $numberOfSteps}]
  97. set yTIncr [expr {[expr {$ring(yTranslateFinal) - $ring(yTranslateInitial)}] / $numberOfSteps}]
  98. set zTIncr [expr {[expr {$ring(zTranslateFinal) - $ring(zTranslateInitial)}] / $numberOfSteps}]
  99. set totalDegrees [expr {$ring(xRotateFinal) + [expr {360. * $howManySeconds * $rollsPerSecond}]}]
  100. set xRIncr [expr {[expr {$totalDegrees - $ring(xRotateInitial)}] / $numberOfSteps}]
  101. $stepsLeft 
  102. set ring(xRotate) [expr {$ring(xRotate) + $xRIncr}]
  103. set ring(xTranslate) [expr {$ring(xTranslate) + $xTIncr}]
  104. set ring(yTranslate) [expr {$ring(yTranslate) + $yTIncr}]
  105. set ring(zTranslate) [expr {$ring(zTranslate) + $zTIncr}]
  106. set stepsLeft [expr {$stepsLeft - 1}]
  107. synchWithScene
  108. *set numberOfSteps [expr {$howManySeconds * $scene(ticksPerSecond)}]
  109. set stepsLeft [expr {$numberOfSteps + 1}]
  110. set ring(xTranslate) $ring(xTranslateInitialAway)
  111. set ring(yTranslate) $ring(yTranslateInitialAway)
  112. set ring(zTranslate) $ring(zTranslateInitialAway)
  113. set ring(xRotate) $ring(xRotateInitialAway)
  114. set xTIncr [expr {[expr {$ring(xTranslateFinalAway) - $ring(xTranslateInitialAway)}] / $numberOfSteps}]
  115. set yTIncr [expr {[expr {$ring(yTranslateFinalAway) - $ring(yTranslateInitialAway)}] / $numberOfSteps}]
  116. set zTIncr [expr {[expr {$ring(zTranslateFinalAway) - $ring(zTranslateInitialAway)}] / $numberOfSteps}]
  117. set totalDegrees [expr {$ring(xRotateFinalAway) + [expr {360. * $howManySeconds * $rollsPerSecond}]}]
  118. set xRIncr [expr {[expr {$totalDegrees - $ring(xRotateInitialAway)}] / $numberOfSteps}]
  119. controls
  120. File's Owner
  121. [17@]
  122. IBOutletConnector
  123. IBConnector
  124. controlPanel
  125. stopButton
  126. startButton
  127. pauseButton
  128. IBControlConnector
  129. stop:
  130. start:
  131. pause:
  132. interp
  133. accessoryPanel0
  134. initializationText
  135.