XP is just a number PerlMonks

### Offuscamento Divino

by liverpole (Monsignor)
 on Jun 04, 2007 at 03:03 UTC Need Help??

Proporzione Divina, by fellow mathematician blazar, was the inspiration for this.  (In fact I mentioned here that I'd be doing an obfuscation, or "Offuscamento", based on the Golden Ratio; this is the fulfilment of that intent).

The original version (with recursive, inscribed golden rectangles) was fairly well "golfed" down, but wasn't visually stimulating enough, so I added the spirals.  They really spiced up the output, but significantly increased the total character count.  Oh, well...

The program needs Tk to work.  Ironically, one feature of the program was created by "accident" -- I forgot the Tk switch to createArc to change the arc's color, and guessed at -fill.  That wasn't it, but the resulting effect was quite pleasing, so I left it in.

```
\$_='us!b{lJ\$++\$
;=
A8                       1;0  P@(=(\x\$0
=,)(                       \y   \$0=,)(\X\$
9=06,)                       (\   Y\$\$
=/X      \$        (=p    .11   608
43)      )       ;)H@(   =,    0,0*2Y\$2
,\$*      ,      YX \$0,   2,    627,33\$,,
XY\$  5,601,04\$      ,,Y Y\$8           ,37
3,3  1\$,,Y63,7      67, 63             5,
93                   7,3      6           3,726    ,67     4,3
37,                    354      ,           366,7     83,786,05
4,3    27,01           4,286,0    2            4,0       07,544,
507    ,024,08                                  6,4
34,    507   ,0  34,296
,02    4)3    s}          buR!r{na!d52}6us!b{rpsirtn"f%#20%x20%x20"xR,
R,R   ,u}     es  T!;kM\$
n=w   eM!    iaW                            nniod;w
;lM   \$>-   ere                           pta9(,9us{b
fi0  (==  f\$+                           +3%       )2\$
{&V\$&-Vp>ca                            Fk        roe
g;t;lV\$\$                                     =-MC
>na                                      av(s
w-,                                    iX\$-
,eh                                  \$,)Y
>-a                                 pkc\$
}=u                                 {\$P\$0[}](+{\$
P\$2[}]\$-\${[P

]0              )}\$/;p        V\$       >-rca
eeto              Pylo            g(nx\$\$,,      yx\$\$     ,,Y   X\$\$
,,YX\$\$           ,,yf-,           i)r          \$;-Mu>    dpt     a;e
es    el    tc       \$(,           aa\$             \$,,    a2.     ;){
\$P\$0[}        ]\$=           ;uuphsP@s       ,ih     tfP   @@;
=Q\$(  %J)2         (?f           -,i)r(:o-t      uil      enw,ihe
t;)V\$>              -rc           aee     trA     (cR     @-,   tsr
a,    tA    \$=       -09           @,)     Qhw     li(    e=0     \$=%
f61na@        d=R     psi   lec     @(,     H,0    )4}     );)
aMni         oLp    o';s*   \s**xgs;s?     !?\$    "?xg#070603
;;s&(.)   (.)     &\$2\$1&xg    ;eval#    liverpole

(Thanks to blazar for teaching me the Italian word for "obfuscation".)

s''(q.S:\$/9=(T1';s;(..)(..);\$..=substr+crypt(\$1,\$2),2,3;eg;print\$..\$/

Replies are listed 'Best First'.
Re: Offuscamento Divino
by Tux (Abbot) on Jun 05, 2007 at 08:44 UTC

I think it's beautiful, though I don't understand why it doesn't work. If I decompose it, it still doesn't work, but when I perltidy the soutce, it works. Weird

e.g. thist does not work:

# perl xx.pl

whereas this does work:

# perl -0 -MPerl::Tidy=perltidy -ne's/;eval//;eval;perltidy source=>\\$_,destination=>\\$y;eval\$y' xx.pl

update: this also works:

# perl -0 -ne's/;eval//;eval;eval' xx.pl

Enjoy, Have FUN! H.Merijn

liverpole wanted to know the systems where I tried. So far all behave the same. All systems have perl-5.8.5, 5.8.7, or 5.8.8 all with defined-or. All are non-threaded. There is no diff between 64bitint or 64bitall.

HP-UX 11iv2 example (64bitall)

```102 > perl xx.pl
103 > perl -0 -ne's/;eval//;eval;eval' xx.pl
Unquoted string "white" may clash with future reserved word at (eval 3
+) line 1 (#1)
(W reserved) You used a bareword that might someday be claimed as
+a
reserved word.  It's best to put such a word in quotes, or capital
+ize it
somehow, or insert an underbar into it.  You might also declare it
+ as a
subroutine.

104 > perl -MV=Tk
Tk
/pro/lib/perl5/site_perl/5.8.7/IA64.ARCHREV_0-LP64/Tk.pm: 804.
+027
105 >

Enjoy, Have FUN! H.Merijn
Re: Offuscamento Divino
by zentara (Archbishop) on Jun 04, 2007 at 17:15 UTC

Create A New User
Node Status?
node history
Node Type: obfuscated [id://619048]
Approved by Zaxo
Front-paged by planetscape
help
Chatterbox?
 [Discipulus]: what i want is to compute them [oiskuu]: You want to draw the path? \$iter = combinations( \$TOP_HEIGHT .. \$NODE_HEIGHT, \$pos); then get the path from the iter, level change at depth x, for(..) \$pos += \$level_change; something like that [oiskuu]: yergh, tags... [\$top_height .. \$node_height] [Eily]: Discipulus by demonstrate I suppose you mean simulate with perl? [Eily]: the demonstration itself is fairly easy. The number of paths on a node is the sum of the numbers of paths to the two nodes above (or one node above on the edges of the triangle)

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2018-03-19 11:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When I think of a mole I think of:

Results (239 votes). Check out past polls.

Notices?