POV-Ray : Newsgroups : povray.text.scene-files : Pass the brain Igor! : Re: Pass the brain Igor! Server Time
28 Jun 2024 22:57:19 EDT (-0400)
  Re: Pass the brain Igor!  
From: Tom A 
Date: 21 Feb 2003 13:07:56
Message: <3E566AFB.9020109@my-deja.com>
A J Le Couteur Bisson wrote:
> Hi

Hi.

Did someone ask for a brain?  (I had the model around, but your texture 
inspired me to "spruce up" the pigment.)

// Persistence of Vision Ray Tracer Scene Description File
// File: brainobj.pov
// Vers: 3.5
// Desc: Gimme da brain!
// Date: 03/02/21
// Auth: Tom A.
//


#version 3.5;

#include "colors.inc"
#include "textures.inc"
#include "rand.inc"

global_settings {
   assumed_gamma 1.0
}

// ----------------------------------------

camera {
   location  <0.0, 0.0, -4.0>
   direction 1.5*z
   right     x*image_width/image_height
   look_at   <0.0, 0.0, 0.0>
}

background { colour White }

light_source {
   <0, 0, 0>            // light's position (translated below)
   color rgb <1, 1, 1>  // light's color
   translate <-30, 30, -30>
}

// ----------------------------------------



#declare brain1 =
normal {
     quilted
     turbulence .9
     bump_size 1.5
     slope_map {
       [0   <0, 1>]   // start at bottom and slope up
       [0.5 <1, 1>]   // halfway through reach top still climbing
       [0.5 <1,-1>]   // abruptly slope down
       [1   <0,-1>]   // finish on down slope at bottom
     }   scale <.1,.3,.5>
   }

#declare braincoral1 =   // long lines, but not much wiggle
normal {
    marble turbulence .755
    // bump_size 1.5
     slope_map {
       [0   <0, 1>]   // start at bottom and slope up
       [0.5 <1, 1>]   // halfway through reach top still climbing
       [0.5 <1,-1>]   // abruptly slope down
       [1   <0,-1>]   // finish on down slope at bottom
     }   scale <.1,.3,.5>
   }

#declare base = rgb<.7,.55,.45>;

#declare BrainMap =
color_map {
     [0.00 rgbf Red]
     [0.15 base ]
     [0.35 base ]
     [0.40 rgbf Red]
     [0.45 base ]
     [0.65 base ]
     [0.70 rgbf Red]
     [0.75 base ]
}


#declare pig1 =
      pigment
       {
           marble
           color_map { BrainMap }
           turbulence 1.0
           scale 0.3
           rotate 90 * z
       }

#declare fin1 =  finish { ambient 0.3 diffuse 0.5 phong 0.75 }



#macro brain(norm)
union{
  difference{
   union{
    sphere { 0.0, 1
             texture
             { pigment {pig1}
               normal{norm }
               finish{fin1}
             }
             scale <.5,1,1> translate<.25,0,0>
    }
    sphere { 0.0, 1
             texture
             { pigment {pig1}
               normal{norm }
               finish{fin1}
             }
             scale <.5,1,1>  translate<-.25,0,0>
    }
   }
   box{<-2,0,-2>,<2,-2,2>}
  }
  union{
   sphere { 0.0, 1
            texture {pigment {pig1}  normal{norm } finish{fin1}}
            scale <.5,.5,1> translate<.25,0,0>
   }
   sphere { 0.0, 1
            texture {pigment {pig1}  normal{norm } finish{fin1}}
            scale <.5,.5,1>  translate<-.25,0,0>
   }
  }
  union{
   sphere { 0.0, 1
            texture {pigment {pig1}  normal{norm } finish{fin1}}
            scale <.35,.5,.5> translate<.15,-.25,.5>
   }
   sphere { 0.0, 1
            texture {pigment {pig1}  normal{norm } finish{fin1}}
            scale <.35,.5,.5>  translate<-.15,-.25,.5>
   }
  }
}
#end // brain

object{ brain(braincoral1)             translate -x+y scale .65 }
object{ brain(braincoral1) rotate y*90 translate -x-y scale .65 }

object{ brain(brain1)             translate x+y scale .65}
object{ brain(brain1) rotate y*90 translate x-y scale .65}


-- 
Tom A.
Abbie Someone. - Igor _Young Frankenstein_


Post a reply to this message

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