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

Text File | 1999-09-17 | 5.7 KB | 156 lines

on mouseEnter
  if the visible of window "Help" then
    tell window "help"
      go("synth1")
    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
  if gOn and (char 1 of the name of member the memberNum of sprite the clickOn <> "m") and not (the visible of window "help") then
    set the locH of sprite 74 to the locH of sprite the clickOn + 1
  end if
end

on mouseUp
  global gOnSynth, gArp, gProg, gPath, gOn, gPosVolSynth, gPosPanSynth, gSynthSel, synthList, markerSynthList, progList, paramList
  if gOn and not (the visible of window "help") then
    if char 1 of the name of member the memberNum of sprite the clickOn <> "m" then
      set gSynthSel to integer(the name of member the memberNum of sprite the clickOn)
      if not gOnSynth then
        set gOnSynth to 1
      end if
      set synthList to []
      repeat with k = 1 to count(getAt(markerSynthList, integer(the name of member the memberNum of sprite the clickOn)))
        append(synthList, getAt(getAt(markerSynthList, integer(the name of member the memberNum of sprite the clickOn)), k))
      end repeat
      repeat with i = 1 to 3
        set start to (12 * (i - 1)) + 3
        repeat with j = 1 to 12
          set nota to the name of member the memberNum of sprite (start + j)
          if char 1 of nota = "y" then
            set nota to chars(nota, 2, length(nota)) & i
            if not getPos(synthList, nota) then
              set nota to chars(nota, 1, length(nota) - 1)
              set the memberNum of sprite (start + j) to the number of member nota
              updateStage()
            end if
            next repeat
          end if
          set nota to nota & i
          if getPos(synthList, nota) then
            set nota to "y" & chars(nota, 1, length(nota) - 1)
            set the memberNum of sprite (start + j) to the number of member nota
            updateStage()
          end if
        end repeat
      end repeat
      set temp to getAt(paramList, integer(the name of member the memberNum of sprite the clickOn))
      if field "fieldSynth" <> getAt(temp, 1) then
        IKSynthStop()
        put getAt(temp, 1) into field "fieldSynth"
        IKSetSynth(gPath & "Synth\" & field "fieldSynth" & "\")
      end if
      set gArp to getAt(temp, 2)
      set gProg to getAt(temp, 3)
      put getAt(temp, 3) into field "fieldProg"
      put getAt(temp, 2) into field "fieldArp"
      put getAt(temp, 1) into field "fieldSynth"
      set gPosVolSynth to getAt(temp, 4)
      set gPosPanSynth to getAt(temp, 5)
      set the locV of sprite 45 to gPosVolSynth
      set the locV of sprite 46 to gPosPanSynth
      updateStage()
      case char 1 of gArp of
        "[":
          set arp to 1
        "]":
          set arp to 2
        "{":
          set arp to 4
        "}":
          set arp to 8
      end case
      IKSynthVolume(integer(128 * (-gPosVolSynth + 54) / 45))
      IKSynthPan(integer(128 * (-gPosPanSynth + 54) / 45))
      IKSynthArp(getPos(progList, gProg) - 1, arp, createSeq())
    end if
  end if
end

on rightMouseDown
  global gOn, gSynthSel, prima
  if gOn then
    if (char 1 of the name of member the memberNum of sprite the clickOn <> "m") and (gSynthSel <> integer(the name of member the memberNum of sprite the clickOn)) then
      set the memberNum of sprite 88 to the number of member the memberNum of sprite the clickOn
      set the ink of sprite 88 to 36
      set the visible of sprite the clickOn to 0
      repeat while the mouseDown
        set the locH of sprite 88 to the mouseH
        set the locV of sprite 88 to the mouseV
        updateStage()
      end repeat
    end if
    set prima to 0
  end if
end

on rightMouseUp
  global gOn, gFirstSynth, gLastSynth, gLastSprite, gSynthSel, prima, markerSynthList, posRectList, paramList
  if gOn then
    set prima to prima + 1
    if prima = 1 then
      set newPos to point(the mouseH, the mouseV)
      set numero to integer(the name of member the memberNum of sprite the clickOn)
      if inside(newPos, getAt(getAt(posRectList, the clickOn - 67), 2)) then
        set the loc of sprite the clickOn to getAt(getAt(posRectList, the clickOn - 67), 1)
        updateStage()
      else
        if gSynthSel > numero then
          set gSynthSel to gSynthSel - 1
          set the locH of sprite 74 to the locH of sprite 74 - 12
        end if
        deleteAt(markerSynthList, numero)
        deleteAt(paramList, numero)
        repeat with i = 68 to 73
          set the memberNum of sprite i to the number of member "m"
        end repeat
        case count(markerSynthList) of
          0:
            set gLastSynth to 0
            set gFirstSynth to 0
            set gLastSprite to 67
          otherwise:
            if count(markerSynthList) < 6 then
              repeat with i = 1 to count(markerSynthList)
                set the memberNum of sprite (67 + i) to the number of member string(i)
              end repeat
              set gLastSprite to gLastSprite - 1
            else
              repeat with i = 6 down to 1
                set the memberNum of sprite (67 + i) to the number of member string(count(markerSynthList) - 6 + i)
              end repeat
              set gLastSprite to 73
            end if
            set gFirstSynth to integer(the name of member the memberNum of sprite 68)
            set gLastSynth to integer(the name of member the memberNum of sprite gLastSprite)
        end case
      end if
      set the loc of sprite the clickOn to getAt(getAt(posRectList, the clickOn - 67), 1)
      updateStage()
    end if
    set the visible of sprite the clickOn to 1
    set the memberNum of sprite 88 to 1000
    updateStage()
  end if
end