POV-Ray : Newsgroups : povray.newusers : Polyhedra : Code (was:Re: Polyhedra) Server Time
5 Nov 2024 15:56:10 EST (-0500)
  Code (was:Re: Polyhedra)  
From: Jakob Kosowski
Date: 7 Feb 2001 12:01:33
Message: <3a817f6d@news.povray.org>
/* By Jakob Kosowski, www.obilot.de, jak### [at] obilotde

   Rendering the slow version took 42 minutes and 45 s on my Pentium 133
with 64 MB of SDRAM.
   Rendering the new, faster one only 18 minutes and 26 s.

   Thanks to Micha Riser (for the old version) and to David Fontaine (for
the new one and
   his include file "meshpoly.inc", from http://davidf.faricy.net/
*/

//#include "shapes.inc"     /*to get the old, slower one, uncomment these */
//#include "shapes2.inc"
#include "colors.inc"
#include "woods.inc"
#include "stones.inc"
#include "meshpoly.inc"     /*and comment this out. You will have to adjust
the size of the Tetrahedron.  */
camera {
        location <0, 0, 7>
        look_at  <0, 0, 0>
       }

object {Icosahedron
        texture{P_WoodGrain1A}
        translate <-2,0,0>
       }

object {Tetrahedron
        texture{P_WoodGrain9A}
        translate <2,0,0>
       }

object {Octahedron
        texture{T_Stone2
        scale 4}
        translate <-1,2,0>
       }


object {Dodecahedron
        texture{T_Stone3}
        translate <0,-2,0>
       }

box    {
        <-1,-1,-1>,
        < 1, 1, 1>
        texture {T_Stone25
        scale 4}
        rotate y*20
        translate <2.5,1.5,0>
       }

light_source { <2, 2, 2> color White}
light_source { <-2, -2, -2> color White}
light_source { <0, 0, 0> color White}
light_source { <0, -3, 0> color White}
light_source { <-2,0,0> color White}

plane { y, 500
  texture {
    pigment { SkyBlue }
    finish { ambient 1 diffuse 0}
   }
   texture {
     pigment {
       bozo
       turbulence .5
       color_map {
         [0 White]
         [1 White filter 1]
       }
     }
     finish { ambient 1 diffuse 0 }
     scale <1000, 250, 250>
     rotate <5, 45, 0>
  }
}

  plane {y,-12
    texture {
      pigment {
        color <.85, .5, .15>
      }
      finish {
        ambient .25
        diffuse .6
        crand .5
      }
      normal {
        ripples .35
        turbulence .25
        frequency 5
      }
      scale 10
      translate 50*x
    }
  }


Post a reply to this message

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