home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / grooveM.dxr / 00340.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.3 KB  |  54 lines
  1. on startMovie
  2.   global gRandom, gSong, gGreen, gRed, gBlue
  3.   case the colorDepth of
  4.     8:
  5.       set gYellow to 11
  6.       set gBlue to 14
  7.       set gGreen to 54
  8.       set gRed to 116
  9.     otherwise:
  10.       set gYellow to 19
  11.       set gBlue to 151
  12.       set gGreen to 161
  13.       set gRed to 212
  14.   end case
  15.   set the textFont of member "fieldBpm" to "IK10"
  16.   set the foreColor of member "fieldBpm" to gGreen
  17.   set the textSize of member "fieldBpm" to 10
  18.   set the foreColor of member "fieldMasterVol" to gGreen
  19.   set the foreColor of member "fieldAudio" to gGreen
  20.   put " " into field "fieldFullName"
  21.   set the foreColor of member "fieldFullName" to gRed
  22.   set the randomSeed to the timer
  23.   cursor(-1)
  24.   set the visible of sprite 23 to 0
  25.   createGlobalVariable()
  26.   createList()
  27.   writeField()
  28.   set the floatPrecision to 2
  29. end
  30.  
  31. on stopMovie
  32.   global tapList
  33.   if the optionDown or (the keyCode = 53) or (charToNum(the keyPressed) = 27) then
  34.     if the frame < 15 then
  35.       uscita()
  36.     end if
  37.   end if
  38.   set tapList to [0, 0]
  39.   put EMPTY into field "fieldBarBeat"
  40. end
  41.  
  42. on uscita
  43.   if the visible of window "synth" then
  44.     close(window "synth")
  45.   end if
  46.   repeat with i = 1 to 53
  47.     puppetSprite(i, 0)
  48.   end repeat
  49.   IKSynthStop()
  50.   IKStop()
  51.   put EMPTY into field "fieldMasterVol"
  52.   put EMPTY into field "fieldMarkerSeq"
  53. end
  54.