Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

tonyc's scratchpad

by tonyc (Pilgrim)
on Aug 08, 2005 at 01:45 UTC ( #481765=scratchpad: print w/ replies, xml ) Need Help??

# from 0.48... use Inline C => <<'EOS' => WITH => 'Imager'; void inline_replace_color(Imager::ImgRaw img, Imager::Color from, Imager::Color to) { int x, y, ch; i_color c; for (x = 0; x < img->xsize; ++x) { for (y = 0; y < img->ysize; ++y) { int match = 1; i_gpix(img, x, y, &c); for (ch = 0; ch < img->channels; ++ch) { if (c.channel[ch] != from->channel[ch]) { match = 0; break; } } if (match) i_ppix(img, x, y, to); } } } EOS
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2014-10-02 02:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (43 votes), past polls