This is the material for the brown superellipsoids in the 
picture posted in p.b.i.

// ------------------------------------------------------
// displace warp material for superellipsoids
// October 2000 Christoph Hormann <chr### [at] gmxde>
// ------------------------------------------------------

#declare M_warped=  
material {
   texture {
     pigment {  
       crackle 
       scale 3
       pigment_map { 
          [0.0 bozo color_map {
                   [ 0.50 color rgb<1.000, 0.830, 0.684> ]
                   [ 0.80 color rgb<0.700, 0.380, 0.200> ]          
            }
            turbulence 0.6
            lambda 2.1 
            scale 0.8        
          ]
          [0.6 bozo color_map {
                   [ 0.20 color rgb<1.000, 0.830, 0.684> ]
                   [ 0.40 color rgb<0.700, 0.380, 0.200> ]       
            }
            turbulence 0.6
            lambda 2.1 
            scale 0.5       
          ]           
       }       
        
       turbulence 0.3
     
       scale 1.2       
            
       warp {   
         displace {   
           spiral2 3  
           color_map { [0 color Red][0.5 color Green][1 color Red]
}                 
         }      
       }    
     }      
     finish {
       specular 0.26 
       roughness 0.03 
       diffuse 0.4 
       brilliance 1.4
       ambient 0.0 
     }       
     normal {
       granite 0.34
       scale 0.15
     }
   }
   scale 1.8          
} 


-- 
Christoph Hormann <chr### [at] gmxde>
Homepage: http://www.schunter.etc.tu-bs.de/~chris/

Post a reply to this message