|
|
Thank you sir!
--
Jonathan.
"Bill DeWitt" <bde### [at] cflrrcom> ha scritto nel messaggio
news:3bbe1800@news.povray.org...
>
> "JRG" <jrg### [at] hotmailcom> wrote in message
> news:3bbe1623@news.povray.org...
> > Just the colors? It looks really cool to me. Please tell us how you did
> it.
>
> Messed with someone else's code from earlier today. Uh.... Mike
> Williams, in the message "Cutting in isosurfaces" in povray.general
>
>
> #declare Cut_Width = 0.1;
> #declare Blobbyness = 0.001;
> #declare Edge_Sharpness = 6;
>
> #declare Sphere = function {f_sphere(x,y,z,1)} // Sphere
> #declare Plane = function {(abs(x)-Cut_Width)} // Double plane
>
> isosurface {
> function { (1+Blobbyness) - Blobbyness^Sphere(x,y,z)
> + Blobbyness^(Plane(x,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(y,x,z)*Edge_Sharpness)
> }
> max_gradient 3000
> contained_by{sphere{0,1.01}}
> pigment {rgb 1}
> }
>
> I changed it to ...
>
> #include "functions.inc"
>
> #declare Cut_Width = 0.03;
> #declare Blobbyness = 0.001;
> #declare Edge_Sharpness = 12;
>
> #declare Sphere = function {f_sphere(x,y,z,1)} // Sphere
> #declare Plane = function {(abs(x)-Cut_Width)} // Double plane
>
> isosurface {
> function { (1+Blobbyness) - Blobbyness^Sphere(x,y,z)
> + Blobbyness^(Plane(x,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(y,x,z)*Edge_Sharpness)
> + Blobbyness^(Plane(z,x,y)*Edge_Sharpness)
> + Blobbyness^(Plane(x+y,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(x-y,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(x+z,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(x-z,y,z)*Edge_Sharpness)
> + Blobbyness^(Plane(y+z,x,z)*Edge_Sharpness)
> + Blobbyness^(Plane(y-z,x,z)*Edge_Sharpness)
> }
> max_gradient 3000
> contained_by{sphere{0,1.01}}
> pigment {onion color_map {
> [0.0 rgb x*2.5]
> [1.0 rgb < 0.2, 0.2, 0.3 >]
> } // end color map
> scale 1.07
> turbulence 0.125
> } // end pigment
> //normal { bozo 1 scale 0.05 turbulence 1 }
> finish { ambient 0.5 }
>
>
Post a reply to this message
|
|