#version unofficial MegaPov 0.6;

#include "colors.inc"

global_settings
{
  assumed_gamma 1.0
  max_trace_level 15
}

camera
{
  location  <0.0, 12, -55.0>
  direction 1.5*z
  right     4/3*x
  look_at   <0.0, 0.0,  0.0>
}

light_source{<500, 200,-300> color rgb<.7,.7,.875>}

// ----------------------------Prism Macro---------------------------
#declare R = seed(479);

#macro Prism(sd,lngth,dpth,yrot,xrot,zrot,x0,z0)
prism

  #local Ang = 0.0;
  #local inc=360.0/sd;
  linear_sweep
  linear_spline
  -dpth/2,
   dpth/2,
   sd+1,
  #while (Ang < 360.0)
    <lngth*cos(radians(Ang)),lngth*sin(radians(Ang))>,
  #local Ang = Ang+inc;
  #end // endloop
    <lngth*cos(radians(0.0)),lngth*sin(radians(0.0))> // prism

    rotate y*yrot
   rotate x*xrot
   rotate z*zrot
    translate <x0,0,z0>
     texture{pigment{Red} }
}
#end


$ XPos = -50;
$ ZPos = -50;


 #while(ZPos<50)
   #while(XPos<50)

    /*object{ // Isosurface object
     isosurface{
      function{x^2+y^2+z^2-1}
       contained_by {sphere{0,1 }}
       accuracy .1}
      texture{pigment{Red}}
    // translate<XPos,0,ZPos> // Normal translation
    // translate vturbulence (1.2, 3, 2,<XPos,0,ZPos>/50) // vturbulence
translation
    }*/

    // Normal Prism
    object{Prism(6,rand(R)*2,6,rand(R)*360,-10,10,XPos,ZPos)translate
vturbulence (1.5, 3,3,<XPos,XPos,ZPos>/33)}

  #declare XPos = XPos + 2;
  #end
   #declare XPos = -50;
   #declare ZPos = ZPos + 2;
 #end

Post a reply to this message