(play-file) ( source -- )

Vocabulary

openal.example

Inputs

source

an object

Outputs

None

Definition

USING: calendar kernel openal threads ;

IN: openal.example

: (play-file) ( source -- )
    100 milliseconds sleep dup source-playing?
    [ (play-file) ] [ drop ] if ;