home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / Synth.dxr / 00151.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.2 KB  |  45 lines
  1. on createGlobalVariable
  2.   global gFirstSynth, gLastSynth, gLastSprite
  3.   if the name of member the memberNum of sprite 68 <> "m" then
  4.     set gFirstSynth to integer(the name of member the memberNum of sprite 68)
  5.     set gLastSynth to integer(the name of member the memberNum of sprite 68)
  6.     set gLastSprite to 68
  7.     repeat with i = 69 to 73
  8.       if the name of member the memberNum of sprite i = "m" then
  9.         exit repeat
  10.       end if
  11.       set gLastSynth to integer(the name of member the memberNum of sprite i)
  12.       set gLastSprite to i
  13.     end repeat
  14.   else
  15.     set gFirstSynth to 0
  16.     set gLastSynth to 0
  17.     set gLastSprite to 67
  18.   end if
  19. end
  20.  
  21. on handlesprite
  22.   global gPosVolSynth, gPosPanSynth
  23.   set the locV of sprite 45 to gPosVolSynth
  24.   set the locV of sprite 46 to gPosPanSynth
  25.   updateStage()
  26.   repeat with i = 4 to 39
  27.     puppetSprite(i, 1)
  28.   end repeat
  29.   repeat with i = 45 to 58
  30.     puppetSprite(i, 1)
  31.   end repeat
  32.   repeat with i = 68 to 73
  33.     puppetSprite(i, 1)
  34.   end repeat
  35. end
  36.  
  37. on createList
  38.   global posRectList
  39.   set posRectList to []
  40.   repeat with i = 68 to 73
  41.     set temp to [the loc of sprite i, the rect of sprite i]
  42.     append(posRectList, temp)
  43.   end repeat
  44. end
  45.