home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / plot.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  2000-08-01  |  792 b   |  33 lines
  1. on startMovie
  2.   cursor(-1)
  3.   sound stop 3
  4.   set the hilite of cast "Degrees" to 1
  5.   set the hilite of cast "Radians" to 0
  6.   set the keyDownScript to "printPass"
  7.   set the keyUpScript to "numsOnly"
  8. end
  9.  
  10. on initializeCircle
  11.   set the cursor of sprite 6 to [321, 322]
  12.   puppetSprite(5, 1)
  13.   puppetSprite(6, 1)
  14.   puppetSprite(19, 1)
  15.   set the trails of sprite 19 to 1
  16.   set the foreColor of sprite 19 to 6
  17.   put "1.1" into field "theta"
  18. end
  19.  
  20. on deInitializeCircle
  21.   set the cursor of sprite 6 to 0
  22.   puppetSprite(5, 0)
  23.   puppetSprite(6, 0)
  24.   puppetSprite(19, 0)
  25.   set the trails of sprite 19 to 0
  26. end
  27.  
  28. on numsOnly
  29.   if ((the key < "0") or (the key > "9")) and (the key <> "-") and (the key <> ".") and (the key <> numToChar(9)) and (the key <> numToChar(8)) then
  30.     dontPassEvent()
  31.   end if
  32. end
  33.