I have noticed that many of the people who post here has a scene description
as a signature at the end of their posts. Most of them are very technical
and produce simple results. I am very impressed by Warp's latest signature
which looks cool as well...

Any chance of you telling us how you did it, eh, Warp??

Post a reply to this message

Soulstorm <der### [at] gomailcoza> wrote:
> Any chance of you telling us how you did it, eh, Warp??

  I once wrote a detailed explanation, but I think I posted it to p.off-topic,
and, fool me, didn't save it anywhere.
  I'm a bit lazy to write it again. Let's see if I have the time in the near
future.

-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message

On 28 Feb 2002 08:16:10 -0500, Warp wrote:
> Soulstorm <der### [at] gomailcoza> wrote:
>> Any chance of you telling us how you did it, eh, Warp??
> 
>   I once wrote a detailed explanation, but I think I posted it to p.off-topic,
> and, fool me, didn't save it anywhere.
>   I'm a bit lazy to write it again. Let's see if I have the time in the near
> future.
> 

:r povray/off-topic/48414

Message-ID: <3c161659@news.povray.org>
From: Warp <war### [at] tagpovrayorg>
Subject: Re: My New Sig
Newsgroups: povray.off-topic
Date: 11 Dec 2001 09:21:14 -0500
Xref: news.povray.org povray.off-topic:48414

Ian Burgmyer <the### [at] yahoocom> wrote:
: Now THIS is a work of art!  Care to explain it?

  Ok, I can explain (although half of the fun is trying to decipher how does
the code work... But for a non-coder it can be quite difficult).

  Let's see...

#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -

  As you may have guessed, the coordinates of the cylinders are coded into
those huge numbers inside the array.
  Each number contains one contiguous line (which is then built with
cylinders). That is, the first number contains the 5 coordinates needed
for the letter 'W', the second number contains the 4 coordinates needed for
the "inverted U"-part of the letter 'A' and the third number contains the
two coordinates of the horizontal line of 'A'. The next two numbers have the
coordinates for 'R' and the last number for 'P'.
  The coordinate system is a 13x8 grid (ie. the "x"-coordinate can have values
from 0 to 12 and the "y"-coordinate from 0 to 7).
  Each coordinate is a pair of numbers, which is encoded as X+Y*13. This
number can be, thus, a value from 0 to 103.
  To pack several coordinates into one number, each consecutive number is
multiplied by 104. That is, if we have 4 coordinates to pack, the resulting
number would be: Coord1 + 104*Coord2 + 104*104*Coord3 + 104*104*104*Coord4
  This is how the letter coordinates are packed into those six numbers inside
the array.

  Now the problem is to unpack the coordinates in order to build the letters.
This is what the rest of the code does.
  The M() macro unpacks the first pair of numbers from the current array value
(which is D[I]) and makes a vector from it. To get the x-coordinate, we simply
have to calculate the modulo 13 of the value. For the y-coordinate we have
to first divide the number by 13 (to "get rid of" the X value) and then we
can get the y-coordinate by calculating modulo 8. The '-6', '-3' and '10' are
just a "translate" in order to center the coordinates on screen (and put them
10 units away from the origin in the z-direction).
  The N() macro is a double loop which goes through all the values in the
array and all the coordinates inside each value, and which creates the
cylinders according to these coordinates. Although there is only one recursive
call, it is a double loop (one sign of this is that it has two conditionals,
not just one).
  The "inner" loop of the N() macro goes through all the coordinates inside
one number (D[I]). The effect of this loop is that it creates a cylinder with
one end being at the first coordinates in the number, then it destroys these
coordinates (by dividing by 104) and then creates the other end of the
cylinder at the next coordinates. In the next loop the latter will be the
"first coordinate", thus creating a contiguous line of cylinders. This "inner"
loop ends when the value D[I] gets small enough (in theory it should check
if it got smaller than 104, but by luck I noticed that it was enough to
check for 99, thus saving one character; this doesn't work in every case).
  The "outer" loop just increases 'I', thus taking the next number in the
array.

  The color M() is just a random and lucky coincidence (which was suggested
by Rune, IIRC); it has no theoretical background behind it, just luck. It
gives some variation to the coloration of the cylinders, which makes it nicer.
  Also making the cylinders blob components makes the picture a lot nicer,
even though it takes some characters more (about 8).

-- 
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -


-- 
#local R=rgb 99;#local P=R-R;#local F=pigment{gradient x}box{0,1pigment{gradient
y pigment_map{[.5F pigment_map{[.3R][.3F color_map{[.15red 99][.15P]}rotate z*45
translate x]}]#local H=pigment{gradient y color_map{[.5P][.5R]}scale 1/3}[.5F
pigment_map{[.3R][.3H][.7H][.7R]}]}}}camera{location.5-3*z}//only my opinions

Post a reply to this message

Ron Parker <ron### [at] povrayorg> wrote:
> :r povray/off-topic/48414

  Thanks. :)

> #macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
> rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
> ],13),8)-3,10>#end blob{N(array[6]{11117333955,
> 7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -

  This is the older version of the signature. The current version has
the array and the outer loop removed, which saved quite many characters.

-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message

Also, i was actualy referring to the signature that uses fractals to spell
out 'WARP'. Were those just random lucky guesses or did you know the seeds
to produce the letters?

btw, thanks ron for clearing the other one up for me as well - I was
battling to figure out why he uses 104 as the divider and not a multiple of
10...anyways - i'll be working on my cryptic sig soon (or fry trying). I've
only been working on POV for a month now so I am not too clued up on some of
the syntax but I'm getting there fast. I find the best way to learn
something is to do it - figure out how you did it and why it works later...

Thanks for your help.
-ss-

"Warp" <war### [at] tagpovrayorg> wrote in message
news:3c7e9d11@news.povray.org...
> Ron Parker <ron### [at] povrayorg> wrote:
> > :r povray/off-topic/48414
>
>   Thanks. :)
>
> > #macro N(D,I)#if(I<6)cylinder{M()#local
D[I]=div(D[I],104);M().5,2pigment{
> > rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro
M()<mod(D[I],13)-6,mod(div(D[I
> > ],13),8)-3,10>#end blob{N(array[6]{11117333955,
> > 7382340,3358,3900569407,970,4254934330},0)}//                     -
Warp -
>
>   This is the older version of the signature. The current version has
> the array and the outer loop removed, which saved quite many characters.
>
> --
> #macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb
M()}}
> N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
> N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  -
Warp -

Post a reply to this message

Soulstorm <der### [at] gomailcoza> wrote:
> Also, i was actualy referring to the signature that uses fractals to spell
> out 'WARP'. Were those just random lucky guesses or did you know the seeds
> to produce the letters?

  Do you really think that it would be possible to find such letters in
the mandelbrot set just by "lucky guesses"?
  I spent several hours searching for proper forms in the Mandelbrot set using
a fractal explorer program. The toughest to find was the 'A'.

-- 
#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 Tue, 5 Mar 2002 09:18:13 +0200, Soulstorm wrote:
> btw, thanks ron for clearing the other one up for me as well - I was
> battling to figure out why he uses 104 as the divider and not a multiple of
> 10...anyways - i'll be working on my cryptic sig soon (or fry trying). I've

Just to clarify, in case it wasn't clear, I was just reposting a post Warp
himself made to povray.off-topic some time ago.  I have a fairly extensive
archive of old posts.

-- 
#local R=rgb 99;#local P=R-R;#local F=pigment{gradient x}box{0,1pigment{gradient
y pigment_map{[.5F pigment_map{[.3R][.3F color_map{[.15red 99][.15P]}rotate z*45
translate x]}]#local H=pigment{gradient y color_map{[.5P][.5R]}scale 1/3}[.5F
pigment_map{[.3R][.3H][.7H][.7R]}]}}}camera{location.5-3*z}//only my opinions

Post a reply to this message