make-buffers ( unit-length -- )

Vocabulary

morse.private

Inputs

unit-length

an object

Outputs

None

Definition

USING: combinators math namespaces ;

IN: morse.private

: make-buffers ( unit-length -- )
    {
        [ sine-buffer dot-buffer set ]
        [ 3 * sine-buffer dash-buffer set ]
        [ silent-buffer intra-char-gap-buffer set ]
        [ 3 * silent-buffer letter-gap-buffer set ]
    } cleave ;