home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 11 / boot-disc-1997-07.iso / SpceBldr / data.z / Isbimpex.dll / 1033 / MTEXPROTO / 101
Text File  |  1997-02-14  |  757b  |  34 lines
  1.  
  2. PROTO ISBMovingTextureTransform [
  3.         field SFVec2f translationStep 0 0
  4.         eventIn SFFloat floatDummy
  5.         eventOut SFVec2f vec2Dummy
  6. ]
  7. {
  8.     DEF _TEXTRANS TextureTransform {
  9.     }
  10.  
  11.     DEF _TEXSCRIPT Script {
  12.       eventIn SFFloat time_in IS floatDummy
  13.       eventOut SFVec2f translation IS vec2Dummy
  14.       field SFVec2f step IS translationStep
  15.       field SFVec2f curTrans 0 0
  16.       url "vrmlscript: 
  17.         function time_in() 
  18.         {
  19.           curTrans += step;
  20.           translation = curTrans;
  21.         }
  22.       "
  23.     }
  24.  
  25.     DEF _TIMER TimeSensor {
  26.       loop TRUE
  27.       startTime 0.1
  28.     }
  29.  
  30.     ROUTE _TIMER.fraction_changed TO _TEXSCRIPT.time_in
  31.     ROUTE _TEXSCRIPT.translation TO _TEXTRANS.translation
  32.  
  33. } # PROTO end
  34.