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

Text File | 1999-09-17 | 1.5 KB | 60 lines

on mouseEnter
  if the visible of window "Help" then
    tell window "help"
      go("synth15")
    end tell
  end if
end

on mouseLeave
  if the visible of window "Help" then
    tell window "help"
      go("start")
    end tell
  end if
end

on mouseDown
  global gOn, valore, gBlue, arpList, folderSynthList
  if gOn and (folderSynthList <> []) and not (the visible of window "help") then
    set valore to getPos(arpList, field "fieldArp")
    set start to the mouseV
    repeat while the mouseDown
      set temp to the mouseV - start
      set temp to abs(((valore + temp) mod count(arpList)) + 1)
      if temp = 0 then
        set temp to 1
      end if
      put getAt(arpList, temp) into field "fieldArp"
    end repeat
    set the textFont of member "fieldArp" to "IK10"
    set the foreColor of member "fieldArp" to gBlue
  end if
end

on mouseUp
  global gProg, gArp, gOn, gOnSynth, gPosVolSynth, gPosPanSynth, gSynthSel, progList, synthList, folderSynthList
  if gOn and (folderSynthList <> []) and not (the visible of window "help") then
    set gArp to field "fieldArp"
    case char 1 of gArp of
      "[":
        set arp to 1
      "]":
        set arp to 2
      "{":
        set arp to 4
      "}":
        set arp to 8
    end case
    if gOnSynth then
      IKSynthVolume(integer(128 * (-gPosVolSynth + 54) / 45))
      IKSynthPan(integer(128 * (-gPosPanSynth + 54) / 45))
      IKSynthArp(getPos(progList, gProg) - 1, arp, createSeq())
    end if
    if gSynthSel then
      set the locH of sprite 74 to -20
      set gSynthSel to 0
    end if
  end if
end