"Bill Pragnell" <bil### [at] hotmailcom> wrote:
> I'll post it tomorrow (I don't have it on this machine...)

Here it is:

----------
#version unofficial megapov 1.2;
#include "shapes.inc"
#include "colors.inc"

global_settings {
  assumed_gamma 1
  radiosity {
    pretrace_start 0.08
    pretrace_end 0.0025
    count 1000
    nearest_count 4
    error_bound 0.4
    recursion_limit 2
    low_error_factor 0.5
    gray_threshold 0.0
    minimum_reuse 0.001
    brightness 1
    adc_bailout 0.01/2 } }

camera {
  location <18, 15, -40>
  up y
  right x
  angle 22
  look_at 0 }

#macro Knot(a)
  (<sin(a) + 2*sin(2*a), 1.25*sin(3*a), cos(a) - 2*cos(2*a)>)
#end

blob {
  threshold 0.9
  #local ang = 0;
  #while (ang < 2*pi)
    sphere { Knot(ang), 1.5, 0.5 }
    #local ang = ang + 0.01;
  #end
  pigment { color Black }
  finish { ambient 0 diffuse 0 reflection { 1 } } }

sphere {
  <0, 0, 0>, 1000
  pigment {
    image_map {
      hdr "uffizi_probe.hdr"
      map_type 7
      interpolate 2 } }
  finish { ambient 1 diffuse 0 } }

object {
  Round_Box_Union(<-6, -3.1, -6>, <6, -2.5, 6>, 0.25
  pigment { color Gray25 }
  finish { ambient 0 } }

Post a reply to this message