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 / 00349.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.3 KB  |  38 lines
  1. on mouseDown
  2.   global gOn
  3.   if gOn and not (the visible of window "help") then
  4.     set the visible of sprite 53 to 1
  5.   end if
  6. end
  7.  
  8. on mouseUp
  9.   global gProg, gPath, gOnSynth, gOn, gPosVolSynth, gPosPanSynth, gSynthSel, gPosSynth, gBlue, synthList
  10.   if gOn and not (the visible of window "help") then
  11.     set the visible of sprite 53 to 0
  12.     if the visible of window "synth" then
  13.       close(window "synth")
  14.     else
  15.       if IKGetCurrentBeat() <> -1 then
  16.         set the rect of window "synth" to gPosSynth
  17.         set the fileName of window "synth" to "synth"
  18.         set the titleVisible of window "synth" to 0
  19.         set the modal of window "synth" to 0
  20.         if not gOnSynth then
  21.           if field "fieldSynth" <> EMPTY then
  22.             IKSetSynth(gPath & "Synth\" & field "fieldSynth" & "\")
  23.           end if
  24.         end if
  25.         IKSynthVolume(integer(128 * (-gPosVolSynth + 54) / 45))
  26.         IKSynthPan(integer(128 * (-gPosPanSynth + 54) / 45))
  27.         set the foreColor of field "fieldSynth" to gBlue
  28.         set the textFont of member "fieldSynth" to "IK10"
  29.         set the foreColor of field "fieldArp" to gBlue
  30.         set the foreColor of field "fieldProg" to gBlue
  31.         open(window "synth")
  32.         set gSynthSel to 0
  33.       end if
  34.     end if
  35.   end if
  36.   set the editable of member "fieldBpm" to 0
  37. end
  38.