|
![](/i/fill.gif) |
Tor Olav Kristensen wrote:
>
> Well, here's my solution:
>
> camera{location 2look_at 0}light_source{9,1}$R=1;#while
> (R+2)$S=2;#while(S+2)sphere{<R,eval_pattern(mandel 9,
> <R,S>),S>.01pigment{bozo}}$S=S-.02;#end$R=R-.02;#end
>
Well, that's not the obvious solution for a pascal programmer :-)
> If you're not doing it with spheres, then what are you using ?
> Code please !
camera{location 2look_at 0}light_source{9,1}height_field
{pattern 99,99{mandel 9 color_map{[0 rgb 0][1 rgb 1]}
scale.3rotate-x*90translate.5}pigment{bozo}}
> [...]
>
> Interesting solution !
>
> This reminds me of something Dan Johnson did in
> his Arrange_3d macro. See his "Polyhedra include file"
> thread in povray.binaries.scene-files, 11. Jan -01:
>
I first tried it with mod(), but it turned out beeing ways longer. What's
in fact missing is a frac() function returning the fractional part of a
variable (although R-int(R) does perfectly suffice apart from length :-).
Christoph
--
Christoph Hormann <chr### [at] gmx de>
IsoWood include, radiosity tutorial, TransSkin and other
things on: http://www.schunter.etc.tu-bs.de/~chris/
Post a reply to this message
|
![](/i/fill.gif) |