SFX

[1micha.elok]

... I am not expecting piano tones...
.. What I am expecting is a Synthesizer... 

Just curious with "do re mi" generated by SquareWave function, 
let's try this Pianoman .....

Code:

'----------------
' INITIALIZATION
'----------------
include "sfx.n7"
set window "Pianoman", 160, 200,false,3

constant DO = 261.63*2
constant RE = 293.66*2
constant MI = 329.63*2
constant FA = 349.23*2
constant SO = 392.00*2
constant LA = 440.00*2
constant TI = 493.88*2
constant b1 = 0.2
constant b2 = 0.4

visible sfx = SFX() 'create an sfx instance

'--------------
' MAIN PROGRAM
'--------------
wln "PIANOMAN"
wln
wln "1 - Play DO"
wln "2 - Play RE"
wln "3 - Play MI"
wln "4 - Play FA"
wln "5 - Play SO"
wln "6 - Play LA"
wln "7 - Play TI"
wln "8 - Play Song"
wln
wln "Esc - Quit"

while not keydown(KEY_ESCAPE)
    if keydown(KEY_1, true) then Piano(b1,DO)
    if keydown(KEY_2, true) then Piano(b1,RE)
    if keydown(KEY_3, true) then Piano(b1,MI)
    if keydown(KEY_4, true) then Piano(b1,FA)
    if keydown(KEY_5, true) then Piano(b1,SO)
    if keydown(KEY_6, true) then Piano(b1,LA)
    if keydown(KEY_7, true) then Piano(b1,TI)
    if keydown(KEY_8, true) then Song()
    wait 1
wend

'-----------
' FUNCTIONS
'-----------
function Piano(b,x)
    'SquareWave(duration,freq,volume)
    mytone = sfx.SquareWave(b,x,0.05)
    play sound mytone
    Pause()
endfunc

function Song()
    Piano(b2,SO);Piano(b1,SO);Piano(b1,SO)
    Piano(b2,SO);Piano(b2,MI)
    Piano(b2,DO*2);Piano(b1,DO*2);Piano(b1,DO*2)
    Piano(b2,TI);Piano(b2,LA)
   
    Piano(b2,SO);Piano(b1,SO);Piano(b1,SO)
    Piano(b2,LA);Piano(b1,SO);Piano(b1,SO)
    Piano(b2,SO); Piano(b1,FA); Piano(b1,MI)
    Piano(b2,RE); Piano(b1,DO); Piano(b1,RE)
   
    Piano(b2,MI); Piano(b1,MI); Piano(b1,MI)
    Piano(b2,RE); Piano(b2,RE)
    Piano(b1,DO); Piano(b1,RE); Piano(b1,MI);Piano(b1,DO)
    Piano(b1,LA/2);Piano(b1,TI/2);Piano(b2,DO)
   
    Piano(b2,SO/2);Piano(b1,DO); Piano(b1,RE)
    Piano(b2,SO); Piano(b1,FA); Piano(b1,MI)
    Piano(b2,RE); Piano(b1,RE); Piano(b1,RE); Piano(b2*2,DO)                                                   
endfunc

function Pause()
    wait 400
endfunc