// FLIGHT / By Asteroids '02.09
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.5;
global_settings {
  max_trace_level 4
  assumed_gamma 2.2
  }

#include "functions.inc"
#declare CamLoc = < 0, 3,-10>;

camera {
  location < 2, 3,-3>
  look_at < 1, 0.1, 0>
  angle 150
  }

light_source {< 0, 300,-1000> color rgb <1,0.7,0.3>}
light_source {<0, 1000,1000> color rgb <0.5,1,1>}

#declare fn_Pigm = function {
  pigment { leopard
    color_map {
      [0.3 color rgb 0]
      [1   color rgb 1]
      }
    turbulence 0.5
    }
  }

isosurface {
  function { 0.02*y*y+1-3*fn_Pigm(x*2, y*0.7, z*2).gray }
  max_gradient 20
  contained_by {box {<-5,-15,-5> <5,5,5>}}
  texture {
    pigment {color rgb <1,1,1>}
    finish {
      ambient 0.3
      diffuse 0.1
      specular 1
      roughness 0.1
      brilliance 1
      }
    scale 0.002
    }
  no_shadow
  } 

#declare Ca=3;
#declare Cb=2;
#declare A=Ca/2;
#declare B=Cb/2;
    quartic { <
        1, 0, 0, 6*B, 2,   0, 2, 6, 0, -2-6*A+B*B,   0, 0, 6*B, 0, 0,
        2*B, 0, 2*B, 0, -6*B-2*A*B,   1, 0, 2, 6, 0,   -1-6*A, 0, 2, 0, -2-2*A,
        1, 0, -6-2*A, 0, 1+6*A+A*A
        >
      bounded_by { box { <-5,-5,-5> <5,5,5> } }
      texture {
        pigment { color rgb <0.7,0.7,0.8> }
        finish {
          reflection 0.4
          specular 0.5
          ambient 0.4
          phong 0.5
          diffuse 0.5
          }
        }
      no_shadow
      rotate <20,0,120> 
      scale 0.6
      translate <18,0, 15>
      }