draw-solar-system ( moonRadius moonRotation moonOrbitRadius moonOrbitRotation earthRadius earthRotation earthOrbitRadius earthOrbitRotation sunRadius -- )


Vocabulary
rlgl.demo

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


Outputs
None

Definition
USING: kernel ;

IN: rlgl.demo

: draw-solar-system
( moonRadius moonRotation moonOrbitRadius moonOrbitRotation earthRadius earthRotation earthOrbitRadius earthOrbitRotation sunRadius -- )
[ draw-sun ] [ draw-earth-and-moon ] [ with-matrix ] bi@ ;