POV-Ray : Newsgroups : povray.text.scene-files : Radiosity test file #2 : Radiosity test file #2 Server Time
28 Mar 2024 05:25:11 EDT (-0400)
  Radiosity test file #2  
From: Gilles Tran
Date: 7 Aug 2000 12:25:57
Message: <398EE231.F90E52DC@inapg.inra.fr>
// Radiosity test file #2
// Gilles Tran - august 2000
#version unofficial Megapov 0.5;
#include "colors.inc"
global_settings{
        ini_option "+QR"
        radiosity{recursion_limit 5 brightness 1.2 normal on}
}
camera
{
  location  <0.0, 6, -21.0>
  direction 1*z
  right     4/3*x
  look_at   <0, 1.0,  2>
}

#declare Bleu=rgb<55,105,201>/255;
#declare Jaune=rgb<243,199,107>/255;
sky_sphere{
  pigment{
        gradient y
        color_map{
                [0 White]
                [1 Bleu]
        }
  }
}


#declare PdV=<-1,0.5,-0.5>*1000 ;
light_source{PdV color Jaune fade_power 2 fade_distance 2000
area_light 100*x 100*z  5,5 jitter orient
}
#declare txt1=texture{
        pigment{crackle solid color_map{[0 color White*0.7][1 color
White*1.3]}}
        normal{agate 0.4}
        finish{ambient -0.3 diffuse 0.8 specular 0.1 roughness 0.1
metallic brilliance 1}
        scale 0.3
}

#declare rd=seed(3);
#declare dis=35;
union{
        #declare i=1;
        #while (i<100)
                #declare j=0.5-rand(rd);
                #declare k=0.5-rand(rd);
                #declare l=0.5-rand(rd);
                #declare m=0.5-rand(rd);
                #declare n=1+rand(rd);
                union{
                        sphere{0,1}
                        cylinder{0,y*15,0.5}
                        sphere{0,2 scale <1,0.1,1> translate y*6}
                        sphere{0,1.5 scale <1,0.2,1> translate y*15}
                        scale n*0.3
                        translate <j,0,k>*dis
                }
                union{
                        cylinder{0,y*(k+0.5)*10,1}
                        torus{0.8,0.2  translate y*(k+0.5)*10}
                        superellipsoid{<0.2,0.2> scale 0.7 translate
y*(k+0.5)*10}
                        scale n*0.3
                        translate <l,0,m>*dis
                }
                #declare i=i+1;

        #end
        texture{txt1}
}

box{<-100,-1,-200>,<100,0,50> texture{txt1}}


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.