#version 3.5;

global_settings {
  assumed_gamma 1.0
  max_trace_level 50
  radiosity{
    pretrace_start    1/4
    pretrace_end      1/4 //2/image_width
    count             1600
    nearest_count     10
    error_bound       0.15
    recursion_limit   1
    minimum_reuse     0.006
    low_error_factor  0.5
    brightness        1
    load_file "ookoos01.radiositydata"
  }
}

camera {
  location  <20, 8, -20>
  angle 60
  look_at   <0, 1, 0>
  right     image_width/image_height*x
  
}

background { color rgb 0 }


light_source {
  <0, 0, 0>
  color rgb 2
  translate <300, 10, 0>  
}





#declare Thing = sor {
  #local Radius = 8;
  #local Depth  = 8;
  #local A = Depth/pow(Radius, 2);
  #local Steps = 20;

//  v = auu
//  a=v/uu
//  v <===> Depth
//  u <===> Radius

  #local I = -0;
  Steps+2
  <0, 0>
  #while (I <= Steps)
    #local U = Radius * (I / Steps);
    #local V = A * pow(U, 2);
    <U, V>
    #debug concat("<",str(U,0,4),",",str(V,0,4),">\n")
    #declare I = I + 1;
  #end
  open
}



object {
  Thing

  material {
    texture {
      pigment { color rgb 1}
      finish {
        reflection 1
        ambient 0
        diffuse 1
      }
    }
  }

  rotate <0, 0, -90>
  //rotate <0, 40, 0>
  translate <-13, 0, 0>
}

plane { y, 0 material {texture {pigment {color rgb <.6, .6, .4>} finish {diffuse .4 ambient 0}}} }