//
// SmallLogo.ray - CoolRay Scene Description File
//
scene SmallLogo;

meta 
  author   "Stefan Michel & Marcus Buergel"
  date     "2000-04-29"
  version  1.0.0

Scene {

  StrategySimple { }
  //StrategyAntialiasUniform { }

  PerspectiveCamera {
    location := <0, 2, -5>;
    look_at := <0, 0.5, 0.5>;
    angle := 45;
  }

  World {
    var h :double;
    var pyramidTexture :Texture;
    var glassFinish :Finish;
    var c1 :Color;
    var c2 :Color;
    var c3 :Color;
    
    c1 := rgbt <1, 1, 1, 0.95>;
    c2 := rgbt <1, 1, 1, 0.95>;
    c3 := rgbt <1, 1, 1, 0.95>;

    glassFinish := Finish {
      ambient := 0.05;
      diffuse := 0.4;
      refraction := 1.0;
      ior := 1.5;
      specular := 0.7;
      specular_size := 0.002;
      reflection := 0.3;
    }
    pyramidTexture := SimpleTexture {
      XYZPigment {
        OnionPattern {
          //direction := <1, 0, 0>;
          noise := 0.3;
          turbulence := 1.6;
          octaves := 3;
          omega := 0.5;
          lambda := 3.0;
        }
        ColorMapList {
          ColorMapListEntry { value := 0.0; color :=  rgb <1, 0.78, 0.6>; }
          ColorMapListEntry { value := 0.5; color :=  rgb <0.75, 0.5, 0.3>; }
          ColorMapListEntry { value := 1.0; color :=  rgb <1, 0.78, 0.6>; }
        }
      }
      TransformationList {
        Scale { scale := <0.5, 0.5, 0.5>; }
        Translate { translate := <0, 1, 0>; }
      }
    } // SimpleTexture

    //background_color := rgb <0.1, 0.05, 0.02>;
    background_color := rgb <1, 1, 1>;
    

    PointLight {
      location := <-5, 6, -5>;
      color := rgb <1, 1, 1>;
      fade_power := 2;
      fade_distance := 7;
    }
    PointLight {
      location := <4, 5, -6>;
      color := rgb <0.6, 0.6, 0.6>;
      fade_power := 2;
      fade_distance := 7;
    }

    // height
    h := 1.225;

    Union {
      Difference {
        var i:integer;
        var k:double;

        // The Union forms the solid pyramid out of the flat triangles
        Union {
          Triangle {
            point1 := < 0, 0, 1>;
            point2 := <-0.866, 0, -0.5>;
            point3 := < 0.866, 0, -0.5>;
          }
          Triangle {
            point1 := <-0.866, 0, -0.5>;
            point2 := < 0, 0, 1>;
            point3 := <0, h, 0>;
          }
          Triangle {
            point1 := < 0, 0, 1>;
            point2 := < 0.866, 0, -0.5>;
            point3 := <0, h, 0>;
          }
          Triangle {
            point1 := < 0.866, 0, -0.5>;
            point2 := <-0.866, 0, -0.5>;
            point3 := <0, h, 0>;
          }
        } // Union
        k := 0;
        for i := 0 to 10 do {
          Box {
            point1 := <-1, i*0.1+0.08+k, -1>;
            point2 := <1, (i+1)*0.1, 1>;
          }
          k := k - 0.005;
        }
        Sphere {
          center := <0, 0.47, -0.3>;
          radius := 0.30;
        }
      } // Difference

      texture := pyramidTexture;

      Rotate {
        rotate := <0,@@,0>;
      }

    } // Union

  } // World

} // Scene