roll-until-horizontal ( TURTLE -- turtle )

Vocabulary

L-system

Inputs

TURTLE

an object

Outputs

turtle

an object

Definition

USING: math.vectors ;

IN: L-system

:: roll-until-horizontal ( TURTLE -- turtle )
    TURTLE V TURTLE Z cross normalize set-X
    TURTLE Z TURTLE X cross normalize set-Y ;