play-hello ( -- )

Vocabulary

openal.example

Inputs

None

Outputs

None

Definition

USING: calendar kernel openal openal.alut sequences threads ;

IN: openal.example

: play-hello ( -- )
    init-openal 1 gen-sources first dup AL_BUFFER
    alutCreateBufferHelloWorld set-source-param source-play
    1000 milliseconds sleep ;