| 123456789101112131415161718192021222324 |
- ' setchannelpan.bmx
- Graphics 640, 480
- channel = AllocChannel ()
- sound = LoadSound ("shoot.wav") ' Use a short sample...
- Repeat
- If MouseHit(1) PlaySound sound,channel
-
- pan# = MouseX () / (GraphicsWidth () / 2.0) - 1
- vol# = 1 - MouseY () / 480.0
- SetChannelPan channel, pan
- SetChannelVolume channel, vol*2
- Cls
- DrawText "Click to play...", 240, 200
- DrawText "Pan : " + pan, 240, 220
- DrawText "Volume: " + vol, 240, 240
- Flip
- Until KeyHit (KEY_ESCAPE)
- End
|
