Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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 avoiding work at the Monastery: (4)
As of 2021-07-28 17:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?