Mailing List Archive: M$ volume control optimization request

[REBOL] M$ volume control optimization request

From: ljurado::bariloche::com::ar at: 10-Dec-2001 3:04


M$ volume control waits an integer with two  16 bits nibbles (one per
channel).
Are there an simpler method than my code ?
Thanks !
Luis

b: load/library  %/c/windows/system/winmm.dll
setVol: make routine! [
            dwFreq [integer!] dwDuration [integer!]] b "auxSetVolume"

nib: to-integer #fffe

view layout [s: slider  [ x: (to-integer (1 - s/data * nib  ))
     either x > (nib / 2) [  z: nib - x + 1] [z: - x ] y:  (- z -(z *
to-integer #10000))
     print   to-hex y
     setVol 5 to-integer y ]]