 |
|
|
|
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Wed, 9 Jan 2002 16:21:00 +0200, "Gail Shaw" <gsh### [at] monotix coza> wrote:
> Anyone going to shorten it?
collecting some ideas and adding my coding here are two shortest version
(knowing other povers probably not last word) - sorry - colors are changed
personally I like second but it is one character more then first
#local O="<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z("#macro R(
M)asc(substr(O,K,1))/10-#declare K=K+M;2#end#local K=1;#while(K<
strlen(O))disc{0z.4pigment{onion color_map{[0rgb<sin(R(1))1cos(R
(-1))>*9][.4rgb 0]}}translate<R(1)-5R(1)-4,9>}#end // GS
#macro _(G,S)#while(S<strlen(G))disc{0z.4pigment{onion color_map
{[0rgb<sin(g(1))1cos(g(-1))>*9][.4rgb 0]}}translate<g(1)-5g(1)-4
9>}#end#end#macro g(s)asc(substr(G,S,1))*.1-#declare S=S+s;2#end
_("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z(",1) // GS
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Wed, 9 Jan 2002 16:21:00 +0200, "Gail Shaw" <gsh### [at] monotixcoza> wrote:
> Anyone going to shorten it?
finally three lines :-)
#macro _(G,S)#while(S<strlen(G))sphere{0 .2pigment{rgb 1-<sin(g(1))1cos(g(-1))>
}translate<g(1)-1g(1)9>}#end#end#macro g(s)asc(substr(G,S,1))*.1-#declare S=S+s
;6#end _("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z(",1)light_source{0 1}//GS
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
I implemented most of the suggestions that were given, Changed the offsets
on the translation to get rid of a few more chars and added some extra
colour stuff.
I need to have a careful look at the last two suggestions by ABX 'cause I'm
not sure how they work <g>
Gail
--
#macro G(H,S)disc{0z.4pigment{onion color_map{[0rgb<sin(H/pi)cos(S/pi)*(H<6)
cos(S/pi)*(H>6)>*18][.4rgb 0]}}translate<H-5S-3,9>}#end G(3,5)G(2,5.5)G(1,5)
G(.6,4)G(.5,3)G(.6,2)G(1,1)G(2,.5)G(3,.7)G(3.2,1.6)G(3.1,2.5)G(2.2,2.5)G(9,5
)G(8,5.5)G(7,5)G(7,4)G(7.7,3.3)G(8.3,2.7)G(9,2)G(9,1)G(8,.5)G(7,1)//GS
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Thu, 10 Jan 2002 13:21:11 +0200, "Gail Shaw" <gsh### [at] monotixcoza> wrote:
> I'm not sure how they work
that is how obfuscated sig should work :-)
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
"Gail Shaw" <gsh### [at] monotixcoza> wrote in message
news:3c3d791f@news.povray.org...
> I need to have a careful look at the last two suggestions by ABX 'cause I'm
> not sure how they work <g>
>
Tell me about it. Warp (iirc) optimised mine, and now I have no idea what's
going on...
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Thu, 10 Jan 2002 12:36:58 -0000, "Tom Melly" <tom### [at] tomandlucouk> wrote:
> Tell me about it
http://news.povray.org/j3tq3uspjtptfol273ersdg0lunh70l9ea%404ax.com
What you want to know ?
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
> So I had 4 lines of 80 columns free for other stuff; why not put this
there:
Lol =)
__________________
Chris Howie
cra### [at] yahoocom
http://winimizer.virtualave.net
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
news:gkuq3usftc01qtj2f4jp2521euh7utst5d@4ax.com...
>
> that is how obfuscated sig should work :-)
>
I know. I don't mind if others are are puzzled but I should understand
my oen sig <grin>
Gail
--
#macro G(H,S)disc{0z.4pigment{onion color_map{[0rgb<sin(H/pi)cos(S/pi)*(H<6)
cos(S/pi)*(H>6)>*18][.4rgb 0]}}translate<H-5S-3,9>}#end G(3,5)G(2,5.5)G(1,5)
G(.6,4)G(.5,3)G(.6,2)G(1,1)G(2,.5)G(3,.7)G(3.2,1.6)G(3.1,2.5)G(2.2,2.5)G(9,5
)G(8,5.5)G(7,5)G(7,4)G(7.7,3.3)G(8.3,2.7)G(9,2)G(9,1)G(8,.5)G(7,1)//GS
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
: finally three lines :-)
: #macro _(G,S)#while(S<strlen(G))sphere{0 .2pigment{rgb 1-<sin(g(1))1cos(g(-1))>
: }translate<g(1)-1g(1)9>}#end#end#macro g(s)asc(substr(G,S,1))*.1-#declare S=S+s
: ;6#end _("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z(",1)light_source{0 1}//GS
What a waste of space.
#macro _(G,S)#if(S<44)sphere{0,.2pigment{rgb 1-<sin(g(1))1cos(g(2))>}translate
<g(1)-1g(2)9>}_(G,S+2)#end#end#macro g(s)asc(substr(G,S+s,1))*.1-6#end
_("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z("0)light_source{0 1}//GS
--
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On 10 Jan 2002 11:29:03 -0500, Warp <war### [at] tagpovrayorg> wrote:
> What a waste of space.
>
> #macro _(G,S)#if(S<44)sphere{0,.2pigment{rgb 1-<sin(g(1))1cos(g(2))>}translate
> <g(1)-1g(2)9>}_(G,S+2)#end#end#macro g(s)asc(substr(G,S+s,1))*.1-6#end
> _("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z("0)light_source{0 1}//GS
What a waste of space ;-)
#macro g(s)asc(substr("<P2U(P$F#<$2((2#<%>.=767nPdUZPZFa?g9n2n(d#Z(",S+s,1))*
.1-6#end#macro _(S)#if(S<44)sphere{<g(1)-1g(2)9>.2pigment{rgb<g(1)1g(2)>}}_(S
+2)#end#end _(0)light_source{0 1}//GS
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
|
|
