// Extrusions ...
// By Mike Andrews, 16th Oct 2000

#include "colors.inc"
#version unofficial Megapov 0.6;
global_settings{
  assumed_gamma 1
}        

#declare pig_crack = pigment { crackle form <1,0,0> }
#declare pig_crackn = pigment { crackle }

#declare fn_crack = function { pigment { pig_crack } }
#declare fn_crackn = function { pigment { pig_crackn } }

#declare fn_rm = function {
(1-sqrt(sqrt(fn_crack)))*sqrt(sqrt(fn_crackn)) }

#declare pig_b1 = pigment { bozo colour_map {[0 rgb 0][1 rgb 1]} }
#declare fn_b1 = function { pigment { pig_b1 } }
#declare pig_base = pigment { function { tanh(2*3.7*abs(fn_b1-0.5)) }
scale 1 colour_map {[0 rgb 0][1 rgb 1]} }

// #declare pig_base = pigment { function { fn_rm } colour_map {[0 rgb
0][1 rgb 1]} }

// #declare pig_test = pigment { granite colour_map {[0 rgb 0][1 rgb 1]}
scale 0.5 }
// #declare pig_test = pigment { function { abs(sin(x*pi*5)*sin(y*pi*5))
} }
#declare pig_test = pigment { function { fn_rm } scale 0.5 frequency 1 }

#declare MyPigment = pigment {
  pig_test
  pigment_map { 
    [0.0 colour rgb 0]
    [0.1 
      pig_base 
      colour_map { 
        [0 rgb <.6,.6,.2>]
        [1 rgb <.5,1,.5>] 
      }
    ]
    [1.0 
      pig_base 
      colour_map { 
        [0 rgb <.2,.2,.7>]
        [1 rgb <1,.5,.5>] 
      }
    ]
  }
  warp { displace { pig_base type 1 } }
}

camera {
//  location  <0.0, 0.5, -4.0>*3 // gives an wider view
  location  <0.0, 0.5, -4.0> 
  direction 1.5*z  
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}

light_source {  
  0*x   
  color rgb 1.0    
  translate <-30, 30, -30>
}

plane {
  -z, 0 
  texture {
    pigment{ MyPigment }  
    finish{ specular 0.5 roughness 0.001 }
  }
}

Post a reply to this message

Hi Folks,

Just been playing with the code again.

Try multiplying the camera location by three and putting multiple
identical displace_warps where the current one is. The one with seven
warps could be called 'Fast Clear Water' or something :-)

I'm using a 1024x768 version as my wallpaper at the moment ...

Bye for now,
	Mike Andrews.

Post a reply to this message