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

Text File | 1999-09-17 | 1.4 KB | 59 lines

on mouseEnter
  if the visible of window "help" then
    tell window "help"
      go("pref2")
    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 mouseUp
  global gQMix, gOnSynth, gReturn, gPath, gSolo, gNumUser, gMix, virTracklIst, stateTrackList, gStop
  if not (the visible of window "help") and gMix then
    repeat with i = 6 to 7
      set the visible of sprite i to 0
    end repeat
    if the mouseV <= 182 then
      set the visible of sprite 6 to 1
      set gQMix to 1
    else
      set the visible of sprite 7 to 1
      set gQMix to 0
    end if
    if gOnSynth then
      IKSynthStop()
      set gOnSynth to 0
    end if
    set gSolo to 0
    set stateTrackList to ["off", "off", "off", "off", "off", "off", "off", "off"]
    case word 1 of gReturn of
      "groove":
        IKStop()
        set gStop to 1
      "seq":
        if IKGetCurrentBeat() <> -1 then
          IKStop()
          set gStop to 1
        end if
    end case
    IKRealtimeFreq(44100)
    if word 1 of gReturn = "groove" then
      if virTracklIst <> [-1, -1, -1, -1, -1, -1, -1, -1] then
        repeat with i = 1 to 8
          if getAt(virTracklIst, i) <> -1 then
            put "=" into word 1 of line getAt(virTracklIst, i) of field "fieldAudio"
          end if
        end repeat
        set virTracklIst to [-1, -1, -1, -1, -1, -1, -1, -1]
      end if
    end if
  end if
end