Rx ( ANGLE -- Rx )

Vocabulary

L-system

Inputs

ANGLE

an object

Outputs

Rx

an object

Definition

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

IN: L-system

: Rx ( ANGLE -- Rx )
    deg>rad load-local 0 get-local cos load-local
    -1 get-local sin neg load-local -2 get-local sin load-local
    -3 get-local cos load-local
    { 1 0 0 } 0 -3 get-local -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 get-local 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 ;