MacFormat 1997 April/macformat-049.iso/mac/Demos/Print Artist Demo/PA12-Mac.Dxr/00191.ls

Text File | 1996-10-03 | 438 b | 19 lines

on exitFrame
  global loadNext, whatSpeed, whatFactor, frameLoop, waitTime1
  if frameLoop = 0 then
    set whatSpeed to whatSpeed + waitTime1
  end if
  if frameLoop = 0 then
    unLoad(label("s4create"), label("s4create") + 11)
    preLoad(label("s4turn2"), label("s4turn2") + 7)
  end if
  if the timer < whatSpeed then
    set frameLoop to 1
    go(the frame)
  else
    set frameLoop to 0
    resetTimer()
    go(#next)
  end if
end