draw-earth-and-moon ( moonRadius moonRotation moonOrbitRadius moonOrbitRotation earthRadius earthRotation earthOrbitRadius earthOrbitRotation -- )


Vocabulary
rlgl.demo

Inputs
moonRadiusan object
moonRotationan object
moonOrbitRadiusan object
moonOrbitRotationan object
earthRadiusan object
earthRotationan object
earthOrbitRadiusan object
earthOrbitRotationan object


Outputs
None

Definition
USING: rlgl ;

IN: rlgl.demo

: draw-earth-and-moon
( moonRadius moonRotation moonOrbitRadius moonOrbitRotation earthRadius earthRotation earthOrbitRadius earthOrbitRotation -- )
0.0 1.0 0.0 rl-rotatef 0.0 0.0 rl-translatef
[ draw-earth ] with-matrix draw-moon ;