home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / Synth.dxr / 00163.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  942 b   |  45 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("synth2")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseDown
  18.   global gOn, folderSynthList
  19.   if gOn and not (the visible of window "help") then
  20.     repeat while the mouseDown
  21.       set y to the mouseV
  22.       if y > 51 then
  23.         set y to 51
  24.       end if
  25.       if y < 9 then
  26.         set y to 9
  27.       end if
  28.       set the locV of sprite 45 to y
  29.       updateStage()
  30.       IKSynthVolume(integer(128 * (-y + 54) / 45))
  31.     end repeat
  32.   end if
  33. end
  34.  
  35. on mouseUp
  36.   global gOn, gPosVolSynth, gSynthSel, folderSynthList
  37.   if gOn and (folderSynthList <> []) and not (the visible of window "help") then
  38.     set gPosVolSynth to the locV of sprite 45
  39.     if gSynthSel then
  40.       set the locH of sprite 74 to -20
  41.       set gSynthSel to 0
  42.     end if
  43.   end if
  44. end
  45.