/* Persistence of Vision Raytracer Version 3.1 Code for: Pierre the Fur Mat Approximation by a union of Steiner quartics by Adam Coffman May 8, 1999. */ camera { location <-2.71, 2.5, -2.7> look_at <0.13, 0.01, 0.02> } #include "colors.inc" #declare T1 = texture { pigment { gradient y turbulence 1 lambda 1.5 omega .8 octaves 8 color_map { [0.00 color rgb <1, .65, .15>] [0.33 color rgb <.85, .35, .1>] [0.86 color rgb <.8, .3, .1>] [1.00 color rgb <1, .5, .15>] } } } #declare T2 = texture { pigment { bozo turbulence .5 lambda 2 color_map { [0.00, 0.33 color rgb <1,1, 1> color rgb <1, 1, 1>] [0.33, 0.66 color rgbf <1, 1, 1, 1> color rgbf <1, 1, 1, 1>] [0.66, 1.00 color rgb <1, 1, 1> color rgb <1, 1, 1>] } } } plane { y, 21 pigment{White}} plane { z, 1.95 pigment{color rgb<.95,.95,.9>} finish{diffuse 0.8 crand 0.03}} plane { y, -0.0005 texture { pigment { LightGray } finish { diffuse 0.5 ambient 0.2 crand 0.15 } } } poly { 4 < 0,0,0,0,1,0,0,0,0,0,1,0,-2,2,0,0,0,0,0,0, 1,0,-2,2,0,1,0,-2,0,0,1,0,0,0,0>sturm texture { T1 scale 3} texture { T2 scale 0.8 rotate<95,0,0> rotate<0,124.5,0> rotate<0,0,30> } rotate z*90 bounded_by { box { <-2,0,-2>, <2,1.5,2> } } clipped_by { bounded_by } } poly { 4 < 4, 0, 0, 0, 4, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0> bounded_by { box { <-1,-2,-1>, <1,2,1> } } clipped_by { bounded_by } scale<0.6,0.4,0.4> rotate x*-90 rotate z*20 translate <0.05,1.2,0> texture { T1 scale 3} texture { T2 scale .75 rotate x*100 rotate z*40} } light_source{<0.05,20,0.05> White} light_source{<-40,0,0> White} light_source{<0,0,-40> White}