home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / shared.dir / 03017_Script_TRANSITION < prev    next >
Text File  |  1996-06-21  |  1KB  |  43 lines
  1. -- -----------------------------------------------------------
  2. -- Handler getTransitionNumber returns the number of the given
  3. -- doTransition.
  4.  
  5. on getTransitionNumber whichTransition
  6.   put field "transitions" into allTransitions
  7.   
  8.   repeat with i = 1 to the number of lines in allTransitions
  9.     if (line i of allTransitions = whichTransition) then
  10.       return i
  11.     end if
  12.   end repeat
  13. end
  14.  
  15. -- -----------------------------------------------------------
  16. -- Handler doTransition performs the given doTransition in the
  17. -- given time.
  18.  
  19. on doTransition whichTransition, time, chunkSize
  20.   put getTransitionNumber(whichTransition) into theTransition
  21.   processFrame
  22.   
  23.   if voidP(chunkSize) then
  24.     puppetTransition theTransition, time
  25.   else
  26.     puppetTransition theTransition, time, chunkSize
  27.   end if
  28. end
  29.  
  30. -- -----------------------------------------------------------
  31. -- Handler doTransitionNoProcess performs the given doTransition in the
  32. -- given time.
  33.  
  34. on doTransitionNoProcess whichTransition, time, chunkSize
  35.   put getTransitionNumber(whichTransition) into theTransition
  36.  
  37.   
  38.   if voidP(chunkSize) then
  39.     puppetTransition theTransition, time
  40.   else
  41.     puppetTransition theTransition, time, chunkSize
  42.   end if
  43. end