do-camera-look-at ( CAMERA -- )

Vocabulary

L-system

Inputs

CAMERA

an object

Outputs

None

Definition

USING: accessors kernel math.vectors opengl.glu ;

IN: L-system

:: do-camera-look-at ( CAMERA -- )
    [let
    CAMERA pos>> :> EYE CAMERA clone 1 step-turtle
    pos>> :> FOCUS CAMERA clone 90 pitch-up 1 step-turtle
    pos>> CAMERA pos>> v- :> UP EYE FOCUS UP gl-look-at ] ;