Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
"be consistent"
 
PerlMonks  

Re: allocating/deallocating colors with GD module.

by Anonymous Monk
on Jul 21, 2013 at 08:13 UTC ( #1045495=note: print w/ replies, xml ) Need Help??


in reply to allocating/deallocating colors with GD module.

This works faster:

use GD; $img = new GD::Image(400,400); $blue = $img->colorAllocateAlpha(10,255,60,45); $black = $img->colorAllocate(0,0,0); $c = -0.70; $i = -0.38; for($x=-200;$x<200;$x++){ for($y=-200;$y<200;$y++){ $rx = $x/100; $ry = $y/100; $teller = 0; lab: $a = $rx**2 + (($ry**2)*-1) +$c; $b = (2*$rx*$ry)+$i; $abs = sqrt($a**2 + $b**2); if($abs>2){ $img->setPixel(200+$x,200+$y,$black);} else{ if($teller<20){ $teller++; $rx = $a; $ry = $b; goto lab; } } } } binmode STDOUT; print $img->png;


Comment on Re: allocating/deallocating colors with GD module.
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2014-04-17 11:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (446 votes), past polls