#include "h:\Programme\POV-Ray for Windows v3.6\include\functions.inc"

#declare patch=
pigment
{
  image_map
  {
    png "minipatch4.png"
  }
  scale <2, 1, 1>
}

sky_sphere
{
  pigment { color rgb <0, 0.5, 1> }
}

light_source
{
  <-850000, 1000000, -600000>
  color rgb 1
}  

camera
{
   location <20, 150, -30>
   look_at <20, 100, 20>
   angle 60
}
    
#fopen testfile "text.txt" write

#declare b=0;
#while (b<2)
  #write(testfile, "Patch Nr. ", str(b, 0, 0), "\n")
  bicubic_patch
  {
    type 0
    #declare c=0;
    #while (c<4)
      #declare d=b*2;
      #while (d<b*2+4)
        #declare hv = eval_pigment(patch, <1/8+d/4, 7/8-c/4, 0>).red*256*50+eval_pigment(patch, <1/8+d/4, 7/8-c/4, 0>).green*50;
        <5+d*10, hv, 35-c*10>
        #write (testfile, hv)
        #write (testfile, ", ")
        #warning str(eval_pigment(patch, <1/8+d/4, 7/8-c/4, 0>).red*256*50+eval_pigment(patch, <1/8+d/4, 7/8-c/4, 0>).green*50-2500, 0, 3)
        #if (d<b*2+3 | c<3)     , #end
        #declare d=d+1;
      #end
      #declare c=c+1;
    #end
  texture{
         pigment { color rgb <1, 0.5, 0> }
         finish  { ambient 0.2 diffuse 1 brilliance 0.4 }
         }
    translate <0, -2500, 0>
  } 
  #declare b=b+1;
#end