# 4 (standard pov) - obfusticated enough? (and BTW this is extremely
addictive).

#macro G(D,E,F)#declare I=array[3]{D,E,F}#declare
B=0;triangle{#while(B<3)#declare
C=1;#declare
H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
+#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare
A=array[7]{x*1,x*2,x
*4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb
1}union{G(105,10,146)G(105,246,
10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb
1}}//TM



Here are my other sigs in one place for ABX

#1 (requires mp)

#version unofficial MegaPov.6;#init_3d_spline{"",x*2,<2,5>,y*2,<4,3>,<3,2>,
<5,2>,<4,3>,<6,3>,<6,2>,<6,3>,<7,2>,<8,3>,<8,2>}#macro B(C,D)$A=0;#while
(A<1)glow{type 0location z*25radius 100fade_power 3color D size C
translate eval_3d_spline("",A)}$A=A+.002;#end#end
B(.05,red.9)B(.1,blue.9)//TM

#2 (requires mp)

#version unofficial MegaPov.6;#init_3d_spline{"",x*2,<2,5>,y*2,<4,3>,
<3,2>,<5,2>,<4,3>,<6,3>,<6,2>,<6,3>,<7,2>,<8,3>,<8,2>}#macro C(D)$B=0;
#while(B<1)sphere{eval_3d_spline("",B)D translate z*25}$B=B+.002;
#end#end union{C(.1)pigment{blue.9}finish{ambient.9}}merge{C(.5)
pigment{rgbt.9}interior{media{emission blue.7}}hollow}//TM

#3 (standard pov)

#macro A(B,C)light_source{B+z*-9C}#end
camera{location-9*z}plane{-z,-9pigment{rgb.9}}triangle{y*2,-x,x}
A(x*-7,blue.9)A(x*-4,blue.9)A(<2,-4,0>,red.9)A(<-2,-4,0>,red.9)//TM

Post a reply to this message