POV-Ray : Newsgroups : povray.binaries.images : An excellent vintage.. [17kb] : Re: An excellent vintage.. [17kb] Server Time
20 Nov 2024 08:30:48 EST (-0500)
  Re: An excellent vintage.. [17kb]  
From: Tom Melly
Date: 20 Sep 2001 05:15:53
Message: <3ba9b3c9$1@news.povray.org>
"Jim Charter" <jrc### [at] aolcom> wrote in message
news:3BA93EEA.4F00B6ED@aol.com...
>

Here's the code for the bottle...

#include "colors.inc"
#include "functions.inc"
#include "finish.inc"
#include "glass.inc"

#declare fn_Noise = function{f_noise3d(x,y,z) - 0.5}
#declare fn_X = function(x,y,z) {x*x + z*z - 1 - sin(max(1.55,min(3.85,y))) +
(fn_Noise(x*2,y*2,z*2)/20)}
#declare glass_iso =
isosurface {
  function { fn_X(x, y, z) }
  contained_by { box {<-2,-4,-2>,<2,6.5,2>} }
  accuracy 0.001
  max_gradient 5
  evaluate 1, 1.2, 0.99
  max_trace 4
  translate y*4
}

#declare bottle =
merge{
  difference{
    object{glass_iso}
    object{glass_iso scale <0.9,1,0.9>}
    plane{y, 10.0 inverse}
    plane{y, 0.50}
  }
  cylinder{y*0, y*0.5, 1.4} // Now, why did I put this here?
  torus{1.25,0.25}
  torus{0.55,0.15 scale y*4 translate y*9.75}
  pigment{Col_Glass_Clear}  interior{I_Glass_Dispersion1}  finish{F_Glass5}

}


Post a reply to this message

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