home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / OpenS.dxr / 00060.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  990 b   |  35 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     set the memberNum of sprite the clickOn to the number of member "Hclose"
  4.     updateStage()
  5.   end repeat
  6. end
  7.  
  8. on mouseUp
  9.   global gPath, gArp, gPosVolSynth, gPosPanSynth, gProg, gOnSynth, synthList, progList, folderSynthList
  10.   set the memberNum of sprite the clickOn to the number of member "close"
  11.   updateStage()
  12.   IKSynthStop()
  13.   if (field "fieldSynth" <> EMPTY) and gOnSynth then
  14.     IKSetSynth(gPath & "Synth\" & field "fieldSynth" & "\")
  15.     if synthList <> [] then
  16.       case char 1 of gArp of
  17.         "[":
  18.           set arp to 1
  19.         "]":
  20.           set arp to 2
  21.         "{":
  22.           set arp to 4
  23.         "}":
  24.           set arp to 8
  25.       end case
  26.       IKSynthVolume(integer(128 * (-gPosVolSynth + 54) / 45))
  27.       IKSynthPan(integer(128 * (-gPosPanSynth + 54) / 45))
  28.       IKSynthArp(getPos(progList, gProg) - 1, arp, createSeq())
  29.     end if
  30.   end if
  31.   go(1)
  32.   put EMPTY into field "fieldElencoSynthCD"
  33.   close(window "openS")
  34. end
  35.