// INQUIRE / FISSURE '99.10
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.1;
global_settings {
  max_trace_level 300
  assumed_gamma 2.2
  }

light_source {<0, 0, -10> color <1,1,1>}

camera {
  location <-1,-2,-10>
  angle 100
  look_at <0,0,0>
  }

#declare Is=-20;
#declare Ie=30;

union {
#declare I=Is; #while (I<Ie)
  box { <-2000000, -2000000, 0.5*I> <2000000, 2000000, 0.25+0.5*I>
    pigment {crackle
      color_map{
        [0.08 color rgbt <4*(I-Is)/(Ie-Is), 0.5*(Ie-I)/(Ie-Is), 0.3*(Ie-I)/(Ie-Is),0>]
        [0.1 color rgbt <0,1,0,1>]
        }
      turbulence 0.4
      scale 10
      rotate z*30 translate <110,-10,0>
      }
    }
  #declare I=I+1; #end
  no_shadow
  }