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 / 00503.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  2.4 KB  |  72 lines
  1. on exitFrame
  2.   global gFirstNum, gSong, gGrooveSel, gPlaySeq, gReturn, last, gBlue, stateTrackList, virTracklIst, volValList, panValList, volPosList, panPosList, audioList
  3.   handleSpriteSeq()
  4.   createVariableSeq()
  5.   writeFieldSeq()
  6.   repeat with i = 1 to 8
  7.     if line integer(gFirstNum) + i - 1 of field "grooveMem" <> EMPTY then
  8.       set gN to "g" & integer(gFirstNum) + i - 1
  9.       set the memberNum of sprite (10 + i) to the number of member gN
  10.       updateStage()
  11.       next repeat
  12.     end if
  13.     exit repeat
  14.   end repeat
  15.   if not gPlaySeq and (virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1]) then
  16.     set last to EMPTY
  17.     repeat with j = 1 to 8
  18.       if getAt(stateTrackList, j) = "on" then
  19.         case length(string(getAt(volValList, j))) of
  20.           1:
  21.             set volVal to "00" & getAt(volValList, j)
  22.           2:
  23.             set volVal to "0" & getAt(volValList, j)
  24.           3:
  25.             set volVal to getAt(volValList, j)
  26.         end case
  27.         case length(string(getAt(panValList, j))) of
  28.           1:
  29.             set panVal to "00" & getAt(panValList, j)
  30.           2:
  31.             set panVal to "0" & getAt(panValList, j)
  32.           3:
  33.             set panVal to getAt(panValList, j)
  34.         end case
  35.         set last to last & volVal & getAt(volPosList, j) & panVal & getAt(panPosList, j) & getAt(audioList, getAt(virTracklIst, j)) & " "
  36.         next repeat
  37.       end if
  38.       set last to last & "0 "
  39.     end repeat
  40.     if last = line the lineCount of member "grooveMem" of field "grooveMem" then
  41.       set gGrooveSel to the lineCount of member "grooveMem"
  42.     end if
  43.   end if
  44.   if gGrooveSel then
  45.     set Hn to "H" & gGrooveSel
  46.     repeat with z = 1 to 8
  47.       if the name of member the memberNum of sprite (10 + z) = ("g" & gGrooveSel) then
  48.         set the memberNum of sprite (10 + z) to the number of member Hn
  49.         exit repeat
  50.       end if
  51.     end repeat
  52.     updateStage()
  53.     put "GROOVE  PLAYING" into field "fieldState"
  54.   end if
  55.   set the textFont of member "fieldState" to "IK10"
  56.   set the foreColor of member "fieldState" to gBlue
  57.   repeat with i = 1 to 8
  58.     case getAt(stateTrackList, i) of
  59.       "solo":
  60.         setAt(stateTrackList, i, "on")
  61.       "mute":
  62.         setAt(stateTrackList, i, "off")
  63.         setAt(virTracklIst, i, -1)
  64.         setAt(volValList, i, 28)
  65.         setAt(volPosList, i, 239)
  66.         setAt(panValList, i, 64)
  67.         setAt(panPosList, i, 239)
  68.     end case
  69.   end repeat
  70.   set gReturn to EMPTY
  71. end
  72.