FeepingCreature

(last
 (set-orbit-cam (vec3f 3.837126 7.379855 -4.791716) (vec3f 3.500207 0.000000 0.411292) 30.000000)
 (last (set world (new-world))
       (let (s
             (last (set sun (new-sun))
                   (set (: sun 'red   'points)(concat (concat (concat (concat (array (vec2f 0.000000 0.629209)) (array (vec2f 0.163556 0.826542))) (array (vec2f 0.412838 0.842308))) (array (vec2f 0.757921 1.000000))) (array (vec2f 1.000000 1.000000))))
                   (set (: sun 'green 'points)(concat (concat (concat (concat (array (vec2f 0.000000 0.000000)) (array (vec2f 0.291183 0.228994))) (array (vec2f 0.796009 0.713471))) (array (vec2f 0.887297 0.906324))) (array (vec2f 1.000000 1.000000))))
                   (set (: sun 'blue  'points)(concat (concat (concat (concat (array (vec2f 0.000000 0.000000)) (array (vec2f 0.677794 0.170746))) (array (vec2f 0.860412 0.713225))) (array (vec2f 0.905171 0.864973))) (array (vec2f 1.000000 1.000000))))
                   sun)
             ) ((: world 'add) s))