playing-morse ( quot unit-length -- )

Vocabulary

morse.private

Inputs

quot	an object
unit-length	an object

Outputs

None

Definition

USING: kernel namespaces openal openal.alut sequences ;

IN: morse.private

: playing-morse ( quot unit-length -- )
    [
        init-openal 1 gen-sources first source set make-buffers
        call source get source-play
    ] with-scope ; inline