test-note-buffer ( note -- )

Vocabulary

synth.example

Inputs

note

an object

Outputs

None

Definition

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

IN: synth.example

: test-note-buffer ( note -- )
    init-openal test-instrument2 swap cd-sample-freq
    <16-bit-mono-buffer> >note
    send-buffer id>> 1 gen-sources first
    [ swap queue-buffer ] [ source-play ] bi check-error ;