Perl: the Markov chain saw PerlMonks

### Re^2: allocating/deallocating colors with GD module.

 on Jun 24, 2013 at 17:48 UTC ( #1040467=note: print w/replies, xml ) Need Help??

I'm making a julia fractal, i've added the code:

```use GD;
use Math::Complex;
\$img = new GD::Image(400,400);
\$black = \$img->colorAllocate(0,0,0);
\$bl = \$img->colorAllocate(0,0,50);
\$blue = \$img->colorAllocate(0,0,50);
\$c = cplx(-0.70,-0.38);
for(\$x=-200;\$x<=200;\$x++){
for(\$y=-200;\$y<=200;\$y++){
\$z = cplx(\$x/100,\$y/100);
\$teller = 0;
che();
}
}
binmode STDOUT;
print \$img->png;

sub che(){
\$zz = \$z**2 + \$c;
if(abs(\$zz)>2){
if(\$teller<=3){
\$img->setPixel(200+\$x,200+\$y,\$blue);}
else{
\$img->colorDeallocate(\$bl);
\$bl = \$img->colorAllocate(0,0,25*\$teller);
\$img->setPixel(200+\$x,200+\$y,\$bl);}
}
elsif(abs(\$zz<2)){
if(\$teller<8){
\$teller++;
\$z = \$zz;
che();
}
}
}

So after 3 iterations i want the blue component(\$bl) to be 25 * \$teller, so a maximum of 200. But on the picture the blue becomes brighter(must be 100) only once. As if it deallocated once(it was 50 to start with, as you can see at the beginning) and not every time that part of code is executed. So my question is: can you deallocate a color and then allocate it again like in my program. And is this really necessary, because like i said in my original question sometimes you can simply allocate it with different rgb-components without deallocating it first. Thank you.

Create A New User
Node Status?
node history
Node Type: note [id://1040467]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2018-04-25 22:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (94 votes). Check out past polls.

Notices?