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 / 00180.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.1 KB  |  34 lines
  1. on exitFrame
  2.   global scaleList, markerNoteList, synthList, markerSynthList
  3.   set temp to ["C", "Cd", "D", "Dd", "E", "F", "Fd", "G", "Gd", "A", "Ad", "B"]
  4.   repeat with i = 1 to 12
  5.     set nota to getAt(temp, i)
  6.     if getPos(scaleList, nota) then
  7.       set the locH of sprite (46 + i) to getAt(markerNoteList, i)
  8.       updateStage()
  9.     end if
  10.   end repeat
  11.   if synthList <> [] then
  12.     repeat with i = 1 to 3
  13.       set start to (12 * (i - 1)) + 3
  14.       repeat with j = 1 to 12
  15.         set nota to the name of member the memberNum of sprite (start + j) & i
  16.         if getPos(synthList, nota) then
  17.           set Hnota to "y" & chars(nota, 1, length(nota) - 1)
  18.           set the memberNum of sprite (start + j) to the number of member Hnota
  19.           updateStage()
  20.         end if
  21.       end repeat
  22.     end repeat
  23.   end if
  24.   if markerSynthList <> [] then
  25.     repeat with i = 1 to min(count(markerSynthList), 6)
  26.       set the memberNum of sprite (67 + i) to the number of member string(i)
  27.       updateStage()
  28.     end repeat
  29.   end if
  30.   createGlobalVariable()
  31.   handlesprite()
  32.   createList()
  33. end
  34.