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 2 3 { } new-sequence
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip nip { } like
    0 -1 get-local 0 get-local 2 3 { } new-sequence
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip nip { } like 2 3
    { } new-sequence [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip nip { } like
    5 drop-locals ;