Hi all,

For some reason I can't this scene to work.
using win95

thanks Brian

#version unofficial MegaPOV 0.4;

#macro center(obj)
 translate -(min_extent(obj)+max_extent(obj))/2
#end

#macro over(obj)
 translate -y*min_extent(obj).y
#end

#include "colors.inc"
#include "skies.inc"
#include "checkers.inc"

sky_sphere {S_Cloud4}

$phd = 1;
$Cam = vnormalize(<2,1.75,-2.75>);
$R = 5;
$T = 9.125;
$I = 0;
$S = function {sqrt(x^2+y^2+z^2)-1}
$Trunk = function {S(x,noise3d(x,y,z),z)}
$Bush = function
{noise3d(x*10,y*10,z*10)+noise3d(x/2.5,y/2.5,z/2.5)+(sqrt((x/1.125)^2+(y)^2+(z/1.125)^2)-3.9)}

global_settings {ambient_light 2/9 max_trace_level 10 photons {gather
20,100 radius phd*20,3,phd*5 jitter 1/3}}
camera {location Cam*35 look_at <0,0,0>}
light_source {Cam*7 .5 shadowless groups "Tree"}
light_source {y*10 1 area_light x*4,z*4 3,3 adaptive 0 circular
fade_distance 50 fade_power 3 groups "Tree"}
light_source {y*5 .8 area_light x*4,z*4 7,7 jitter adaptive 0 circular
fade_distance 50 fade_power 3 groups "Tree,Plane,Blob" photons
{area_light}}
//light_source {<1,3,-1>*30 1 area_light x*10,z*10 8,8 adaptive 0
spotlight point_at 0 radius 10 falloff 20 tightness 50}

plane {y,0 pigment {spherical scale 18 pigment_map {[0 rgb 1][1 snC22
scale 1/3]}} finish {ambient 1/8 diffuse 2/8} light_group "Plane"}

blob
{
 threshold .5

 #while (I<8)
  $_ZY_ = vrotate(z*T,y*360*I/8);
  $_YX_ = vrotate(y*T,x*360*I/8);
  $_YZ_ = vrotate(y*T,z*360*I/8);
  sphere {0,R,1 translate _ZY_}
  #if (!(_YX_.y=0))
   sphere {0,R,1 translate _YX_}
   #if (!(_YZ_.x=0))
    sphere {0,R,1 translate _YZ_}
   #end
  #end
  $I = I + 1;
 #end

 sturm

 pigment {rgb <1,2,3>/3 filter .75}
 finish {ambient 0 diffuse 0 reflection 2/3 specular 1 roughness 1/256
blinn 1 facets 1/3}
 interior {ior 10/9}
 photons {separation phd refraction on reflection on ignore_photons}
 light_group "Blob"
}


$Tree = union {
isosurface
{
 function Bush(x,y,z)%noise3d(x,y,z)
 accuracy 0.01 //method 2 eval
 threshold 0 sign 1
 bounded_by {sphere {0,4.5}}
 pigment
 {
  function Bush(x,y,z)
  color_map
  {
   [0.10 rgb <3,2,1>/7]
   [0.10 rgb <1,0,0>]
   [0.25 rgb <0.94118,.55686,0>]
   [0.50 rgb <0.94118,.55686,0>]
   [1.00 rgb <0,.55686,0>]
  }
  turbulence 1
 }
 finish {ambient 1/5 diffuse 2/5}
 translate y*2
}

isosurface
{
 function Trunk(x,y,z)
 accuracy 0.01 //method 2 eval
 threshold .1 sign 1
 bounded_by {sphere {0,5}}
 pigment {wood turbulence <.1,.5,1> octaves 5 lambda 3.25 scale
<.15,.5,1> rotate <1,2,1>*2 translate -x*2 color_map {[0 rgb
<4,3,2>/7][1 rgb <3,2,1>/7]}}
 finish {ambient 1/4 diffuse 2/4}
 scale <5,9,5>/9
 translate -y*2
} scale .4}

object {Tree over(Tree) rotate y*45 light_group "Tree"}

Post a reply to this message