Ry ( ANGLE -- Ry )

Vocabulary

L-system

Inputs

ANGLE

an object

Outputs

Ry

an object

Definition

USING: kernel locals.backend math math.functions sequences
sequences.private ;

IN: L-system

: Ry ( ANGLE -- Ry )
    deg>rad load-local 0 get-local cos load-local
    -1 get-local sin load-local -2 get-local sin neg load-local
    -3 get-local cos load-local -3 get-local 0 -2 get-local 3
    { } new-sequence [ 2 swap set-nth-unsafe ] keep
    [ 1 swap set-nth-unsafe ] keep
    [ 0 swap set-nth-unsafe ] keep { } like { } like
    { 0 1 0 } -1 get-local 0 0 get-local 3 { } new-sequence
    [ 2 swap set-nth-unsafe ] keep
    [ 1 swap set-nth-unsafe ] keep
    [ 0 swap set-nth-unsafe ] keep { } like { } like 3
    { } new-sequence [ 2 swap set-nth-unsafe ] keep
    [ 1 swap set-nth-unsafe ] keep
    [ 0 swap set-nth-unsafe ] keep { } like { } like
    5 drop-locals ;