gistfile1.lisp

(last (set-orbit-cam 
    (vec3f 0.618383 6.087035 -8.772034)
    (vec3f 0.539558 0.000000 -0.609656)
    30.000000)
  (last 
    (set world (new-world))
    (let (s (let 
          (sun (new-sun))
          (last (set 
              (: sun 'texgen)
              (let (pcm (new-texgen-precomputed-curvemap 
                    (new-linear-curve (array 
                        (vec2f 0.000000 0.629209)
                        (vec2f 0.163556 0.826542)
                        (vec2f 0.412838 0.842308)
                        (vec2f 0.900858 0.949552)
                        (vec2f 1.000000 1.000000)))
                    (new-linear-curve (array 
                        (vec2f 0.000000 0.000000)
                        (vec2f 0.345471 0.141392)
                        (vec2f 0.532224 0.334678)
                        (vec2f 0.779193 0.494861)
                        (vec2f 0.929337 0.906324)
                        (vec2f 1.000000 1.000000)))
                    (new-linear-curve (array 
                        (vec2f 0.000000 0.000000)
                        (vec2f 0.786963 0.147394)
                        (vec2f 0.860412 0.410534)
                        (vec2f 0.905171 0.864973)
                        (vec2f 1.000000 1.000000)))
                    (new-texgen-spotmix (let 
                        (octave (new-texgen-octave))
                        (last 
                          ((: octave 'add) (new-texgen-scaledsimplex 9.600000))
                          ((: octave 'add) (new-texgen-scaledsimplex 9.600000))
                          ((: octave 'add) (new-texgen-scaledsimplex 9.600000))
                          ((: octave 'add) (new-texgen-scaledsimplex 9.600000))
                          octave))
                      (new-texgen-scaledsimplex 5.000000))))
                (last ((: pcm 'regen)) pcm)))
            ((: sun 'regenerate))
            sun)))
      ((: world 'add) s))))