play-sine-wave ( freq seconds sample-freq -- )

Vocabulary

synth.example

Inputs

freq	an object
seconds	an object
sample-freq	an object

Outputs

None

Definition

USING: accessors kernel openal openal.alut sequences synth
synth.buffers ;

IN: synth.example

: play-sine-wave ( freq seconds sample-freq -- )
    init-openal <16-bit-mono-buffer> >sine-wave-buffer
    send-buffer id>> 1 gen-sources first
    [ AL_BUFFER rot set-source-param ] [ source-play ] bi
    check-error ;