Computer Music Interactif 2/cd.iso/mac/share/Funkit/FunKit/funkit16.Dxr/00033.ls

Text File | 1997-07-03 | 693 b | 26 lines

on mouseDown
  global gOnOff, gSliderlength, gSliderTop, gSliderBtm, gSliderFactor
  set mynum to the clickOn
  set myloc to the locV of sprite mynum
  set offset to myloc - the mouseV
  repeat while the mouseDown
    set newloc to the mouseV
    if newloc > gSliderBtm then
      set newloc to gSliderBtm
    else
      if newloc < gSliderTop then
        set newloc to gSliderTop
      end if
    end if
    set travel to newloc - gSliderBtm
    set value to travel * gSliderFactor
    set value to abs(value)
    set the volume of sound 2 to value
    set the locV of sprite mynum to newloc + offset
    updateStage()
    if gOnOff = 1 then
      checksamples()
    end if
  end repeat
end