POV-Ray : Newsgroups : povray.binaries.images : Parabolic mirror 2 : Re: Parabolic mirror 2 Server Time
26 Apr 2024 04:33:39 EDT (-0400)
  Re: Parabolic mirror 2  
From: Warp
Date: 17 May 2005 16:34:12
Message: <428a5544@news.povray.org>
Dave Matthews <dma### [at] wrmnwestmnscuedu> wrote:
> Excellently done!  Could you post the source, please?  Or at least the
> settings?  I've tried similar things, with very poor results.

camera { location -z*29 look_at 0 angle 20 }
plane { z, -30 pigment { rgb .6 } finish { ambient 1 } }
light_source
{ -z*29+y*10-x*10, 1 media_interaction off
  photons { reflection off refraction off  }
}

global_settings
{ photons
  { count 1000000
    media 200
  }
}

union
{ intersection
  { quadric { <0, -1, 0>, <0, 0, 0>, <-1, 0, 0>, 0 }
    box { <-.4*.4, .4, -.1>, <.5, -.4, .1> }
    bounded_by { box { <-.4*.4, .4, -.1>, <.5, -.4, .1> } }
    pigment { rgb 0 }
    photons { target reflection on collect off }
    finish { reflection 1 ambient 0 diffuse 0 }
  }
  intersection
  { quadric { <0, -1, 0>, <0, 0, 0>, <-1, 0, 0>, 0 }
    box { <-.4*.4, .4, -.2>, <.5, -.4, .2> }
    bounded_by { box { <-.4*.4, .4, -.2>, <.5, -.4, .2> } }
    pigment { rgb <1,.9,.8> }
    photons { target collect off }
    translate x*.001
  }
  scale 9
  translate x*4.5
}

box
{ <-9, -4, -.11>, <5, 4, .11> hollow
  pigment { rgbt 1 }
  photons { pass_through }
  interior { media { scattering { 1, 1 extinction .001 } } } 
}

#include "transforms.inc"

#macro Light(YOffset, PointAtYOffset, Color)
  light_source
  { <-4, YOffset, 0>, Color*5
    cylinder radius .05 falloff .1 point_at y*(YOffset+PointAtYOffset)
    parallel point_at y*(YOffset+PointAtYOffset)
  }
  cylinder
  { -x*.01, -x, .2
    pigment { rgb Color }
    finish { specular .5 }
    #if(PointAtYOffset != 0)
      Reorient_Trans(-x, -x*4-y*PointAtYOffset)
    #end
    translate <-4, YOffset, 0>
  }
#end

#declare YInd = 3.375;
#declare ColorInd = 0;
#while(YInd >= -3.4)
  Light(YInd, 0, <ColorInd, .8, 1-ColorInd>)
  #declare YInd = YInd-.75;
  #declare ColorInd = ColorInd+1/9;
#end


Post a reply to this message

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