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 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 0 } -1 get-local 0 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 ;