Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

OpenGL (PDL) JAPH

by moklevat (Priest)
on Apr 03, 2006 at 22:03 UTC ( #541052=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict; use PDL;use PDL::NiceSlice;use PDL::Graphics::TriD;sub
    ...
    [_('VNNPRZPPDVPPVJJP\PNNNPJ\JPVD')],[0];for my $pdl(1..27){$_($pdl)
    +=$_($pdl-1)}line3d(::($_),::($}));}sub __{&_::(join('0',map(1x$_,
    &_::)))}sub ::{{{{}}}shift->xchg(0,1)}
    
  2. or download this
    #!/usr/bin/perl
    $_=q^use PDL;use PDLKGraphicsKTriD;H _{map ord()-80,&_K(Q)}H _K{split/
    +/,
    ...
    &_K)))}$_=pdl ITPRRRPJZPRVJSSRTPTRPNLXMVM)],I'VNNPRZMDVMVJJP\PNNNPJ\JP
    +VD
    ')],[0];for $p(1..27){O)+=O-1)}line3d(K($_),K($}))^;for $r(qw.sub [_( 
    +J
    :: L PP N $_->slice($p P shift.){$l=chr(72+$c++);s/$l/$r/g}s/\n//g;eva
    +l;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://541052]
Approved by socketdave
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2021-10-27 16:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (94 votes). Check out past polls.

    Notices?