"s1631001" <s16### [at] namtarqubacuk> wrote in message
news:3C076C42.F7235FA6@namtar.qub.ac.uk...
> BTW: I've written myself a short scene file for my signature, but it's
> still too long. Can anyone give me tips on how to compress it?
>
> sig_file{
>     /*=-The Grey Knight-=*/camera{orthographic location
> -3*z}light_source{-3*z rgb 1}#declare sn = 333;#declare sr =
> 1/3;#declare ir = 4;#declare rs = seed(777);union{#declare p =
> 0;#while(p<=8*pi)#switch(p)#range(0, pi)#declare ypos =
> -pow(sin(p),ir/2);#break#range(pi, 3*pi)#declare ypos =
> -ir*cos(p/2);#break#range(3*pi, 5*pi)#declare ypos =
> +pow(sin(p),ir/2);#break#range(5*pi, 7*pi)#declare ypos =
> +ir*cos(p/2);#break#range(7*pi, 8*pi)#declare ypos =
> -pow(sin(p),ir/2);#break#end#declare xpos = ir*sin(p/2);#declare zpos =
> ir*abs(1-p/(4*pi));sphere{<xpos,ypos,zpos>, sr#if (rand(rs)<.5)pigment{
> rgb z }#else pigment{ rgb .5 }#end}#declare p = p+(8*pi/sn);#end scale
> 1/((ir+sr)*2)no_shadow}plane{-z,-2 pigment{average pigment_map{[ 1 bumps
> turbulence 0.65 ][ 1/16 rgb <1,1,4> ]}scale <5, 2, 5>/20}}/*=-The Grey
> Knight-=*/
>   }

The original being 830 characters (not counting the sig_file{}, but counting
everything inside it), here's one that's 563 characters:

camera{orthographic location -3*z}light_source{-3*z rgb 1}#local D =
seed(0);union{#local p =0;#while(p<=8*pi)#local F = pow(sin(p),4/2);#if
(p<pi)#local G = -F;#else#if (p<3*pi)#local G = -4*cos(p/2);#else#if
(p<5*pi)#local G=F;#else#if (p<7*pi)#local G=4*cos(p/2);#else#local G
= -F;#end#end#end#end sphere{<4*sin(p/2),G,4*abs(1-p/(4*pi))>, 1/3#if
(rand(D)<.5)pigment{rgb z}#else pigment{rgb .5}#end}#local p =
p+(8*pi/333);#end scale 1/((4+1/3)*2)no_shadow}plane{-z,-2 pigment{average
pigment_map{[1 bumps turbulence 0.65 ][1/16 rgb 1+z*3]}scale <5, 2, 5>/20}}

...Chambers

Post a reply to this message