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 / 00497.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.8 KB  |  64 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("seq4")
  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 markerList
  19.   if (markerList <> []) and not (the visible of window "help") then
  20.     repeat while the mouseDown
  21.       set the memberNum of sprite 33 to the number of member "HemptySeq"
  22.       updateStage()
  23.     end repeat
  24.   end if
  25. end
  26.  
  27. on mouseUp
  28.   global markerList, virTracklIst, stateTrackList, volValList, volPosList, panValList, panPosList, gPlaySeq, gPath, gOnSynth, gStartSeq
  29.   if (markerList <> []) and not (the visible of window "help") then
  30.     set the memberNum of sprite 33 to the number of member "emptySeq"
  31.     updateStage()
  32.     put EMPTY into field "fieldMarkerSeq"
  33.     put EMPTY into field "fieldDuration"
  34.     if word 1 of field "fieldState" = "SEQUENCE" then
  35.       put EMPTY into field "fieldState"
  36.     end if
  37.     set markerList to []
  38.     repeat with i = 2 to 9
  39.       set the memberNum of sprite i to the number of member "marker"
  40.       updateStage()
  41.     end repeat
  42.     if gOnSynth then
  43.       IKSynthStop()
  44.       set gOnSynth to 0
  45.       if field "fieldSynth" <> EMPTY then
  46.         IKSetSynth(gPath & "Synth\" & field "fieldSynth" & "\")
  47.       end if
  48.     end if
  49.     if gPlaySeq then
  50.       set gPlaySeq to 0
  51.       IKStop()
  52.       IKFunction()
  53.       set virTracklIst to [-1, -1, -1, -1, -1, -1, -1, -1]
  54.       set stateTrackList to ["off", "off", "off", "off", "off", "off", "off", "off"]
  55.       set volValList to [28, 28, 28, 28, 28, 28, 28, 28]
  56.       set panValList to [64, 64, 64, 64, 64, 64, 64, 64]
  57.       set volPosList to [239, 239, 239, 239, 239, 239, 239, 239]
  58.       set panPosList to [239, 239, 239, 239, 239, 239, 239, 239]
  59.     end if
  60.   end if
  61.   set gStartSeq to 1
  62.   set the editable of member "fieldBpm" to 0
  63. end
  64.