Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/Synth.dxr/00174.ls

Text File | 1999-09-17 | 1.6 KB | 43 lines

on mouseDown
  global gLastSprite, markerSynthList, folderSynthList
  if (folderSynthList <> []) and not (the visible of window "help") then
    if (the name of member the memberNum of sprite gLastSprite <> string(count(markerSynthList))) and (count(markerSynthList) <> 0) then
      repeat while the mouseDown
        set the memberNum of sprite 66 to the number of member "Hright"
        updateStage()
      end repeat
    end if
  end if
end

on mouseUp
  global gLastSynth, gFirstSynth, gLastSprite, gSynthSel, markerSynthList, folderSynthList
  if (folderSynthList <> []) and not (the visible of window "help") then
    if (the name of member the memberNum of sprite gLastSprite <> string(count(markerSynthList))) and (count(markerSynthList) <> 0) then
      set the memberNum of sprite 66 to the number of member "right"
      updateStage()
      set gFirstSynth to gFirstSynth + 1
      set gLastSynth to gLastSynth + 1
      set nS to 67
      repeat with i = gFirstSynth to gLastSynth
        set nS to nS + 1
        set the memberNum of sprite nS to the number of member string(i)
        updateStage()
      end repeat
      if (gSynthSel > gFirstSynth) and (gSynthSel < gLastSynth) then
        set the locH of sprite 74 to the locH of sprite 74 - 12
      else
        if gSynthSel = gFirstSynth then
          set the locH of sprite 74 to the locH of sprite 68 + 1
        else
          if gSynthSel = gLastSynth then
            set the locH of sprite 74 to the locH of sprite 73 + 1
          else
            set the locH of sprite 74 to -20
          end if
        end if
      end if
    end if
  end if
end