Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^2: Bear is driving?

by teamster_jr (Curate)
on Apr 03, 2006 at 09:39 UTC ( #540887=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use GD;
    $i = new GD::Image( 153, 153, );
    $i->colorAllocate( 200, 200, 200 );
    
  2. or download this
    sub l {
        $p = new GD::Polygon;
    ...
        $i->filledPolygon( $p, shift );
    }
    
  3. or download this
    sub d {
        l @_, 0,  0,  20, -10, 20, 10, -20, 10, $i->colorAllocate( 153, 15
    +3, 153, );
        l @_, 20, 10, 20, -10, 0,  20, -20, 10, $i->colorAllocate( 20,  0,
    +   0 );
    }
    
  4. or download this
    sub a {
        d @_;
        l @_, 0, 0, 0, 20, 20, 10, 0, -20, $i->colorAllocate( 20, 153, 153
    +, );
    }
    
  5. or download this
    a("73","73");
    a("43","88");
    ...
    a("43","28");
    a("73","43");
    a("103","58");
    
  6. or download this
    d("73","73");
    
  7. or download this
    open FH, ">o.png";
    binmode FH;
    print FH $i->png
    
  8. or download this
    $$_ = ord(shift) - 20 for qw.x y.;
    
  9. or download this
    a"]","]";
    a"?","l";
    ...
    a"]","?";
    a"{","N";
    d"]","]"
    
  10. or download this
    $_ = "]]?l!{!]!?!!?0]?{N";
    s#(.)(.)#a"$1","$2";\n#g;
    /".+;/;
    $_ .= "d$&";
    eval;
    
  11. or download this
    for$r(qw.$i-> colorAllocate( Polygon shift) l@_,
    KK); GD 10, I sub 153, 20 new.){$l=chr 65+$c++;s#$l#$r#g}
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://540887]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2014-10-20 21:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (92 votes), past polls