Rz ( ANGLE -- Rz )

Vocabulary

L-system

Inputs

ANGLE

an object

Outputs

Rz

an object

Definition

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

IN: L-system

: Rz ( ANGLE -- Rz )
    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 -3 get-local -2 get-local 0 2 3
    { } new-sequence [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip
    [ set-nth-unsafe ] 2keep [ 1 - ] dip nip { } like
    -1 get-local 0 get-local 0 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 0 1 } 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 ;