draw-moon ( radius rotation orbit-radius orbit-rotation -- )

Vocabulary

rlgl.demo

Inputs

radius	an object
rotation	an object
orbit-radius	an object
orbit-rotation	an object

Outputs

None

Definition

USING: kernel raylib rlgl ;

IN: rlgl.demo

: draw-moon
    ( radius rotation orbit-radius orbit-rotation -- )
    0.0 1.0 0.0 rl-rotatef 0.0 0.0 rl-translatef
    0.0 1.0 0.0 rl-rotatef dup dup rl-scalef
    LIGHTGRAY draw-sphere-basic ;