POV-Ray : Newsgroups : povray.binaries.images : Thingy... : Re: Thingy... Server Time
18 Aug 2024 12:23:02 EDT (-0400)
  Re: Thingy...  
From: Ron Parker
Date: 27 Apr 2001 10:27:12
Message: <slrn9ej0e1.907.ron.parker@fwi.com>
On Fri, 27 Apr 2001 16:19:50 +0200, Zeger Knaepen wrote:
>-- 
>camera{location -z*3}#macro G(b,e)b+(e-b)*(C/50)#end#macro L(b,e,k,l)
>#local C=0;#while(C<50)sphere{G(b,e),.1pigment{rgb G(k,l)}finish{ambient
>1}}#local C=C+1;#end#end L(<-1,1>,<0,1>,<1,0>,<1,1>)L(<0,1>,<-1,-1>,<1,1>,
><0,1>)L(<-1,-1>,<0,-1>,<0,1>,<0,1,1>)L(<0,-1>,<0,1>,<0,1,1>,<1,1,0>)L(0,
><1,1>,<.5,1,.5>,<1,0>)L(0,<1,-1>,<.5,1,.5>,<1,0>)
>// ZK http://www.povplace.be.tf

Try this one on for size:

camera{location-z*3}#macro G(b,e)b+(e-b)*(C/50)#end#macro L(b,e,k,l)#local C=0
;#while(C<50)sphere{G(b,e),.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1
;#end#end L(y-x,y,x,x+y)L(y,-x-y,x+y,y)L(-x-y,-y,y,y+z)L(-y,y,y+z,x+y)L(0,x+y,
<.5,1,.5>,x)L(0,x-y,<.5,1,.5>,x)               // ZK http://www.povplace.be.tf  



-- 
#local R=<7084844682857967,32787982,826975826580>#macro L(P)concat(#while(P)chr(
mod(P,100)),#local P=P/100;#end"")#end background{rgb 1}text{ttf L(R.x)L(R.y)0,0
translate<-.8,0,-1>}text{ttf L(R.x)L(R.z)0,0translate<-1.6,-.75,-1>}sphere{z/9e3
4/26/2001finish{reflection 1}}//ron.parker@povray.org My opinions, nobody else's


Post a reply to this message

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