play-waveform ( waveshape freq phase duration -- )

Vocabulary

openal.example

Inputs

waveshape	an object
freq	an object
phase	an object
duration	an object

Outputs

None

Definition

USING: calendar kernel openal openal.alut sequences threads ;

IN: openal.example

: play-waveform ( waveshape freq phase duration -- )
    init-openal [
        [ 1 gen-sources first dup AL_BUFFER ] 4dip
        alutCreateBufferWaveform set-source-param source-play
    ] [ seconds sleep ] bi ;