home *** CD-ROM | disk | FTP | other *** search

---

/ PC World 2003 February / PCWorld_2003-02_cd.bin / Software / Komercni / gimp / gimpmanual / images / write_perlfu6.png

< prev

next >

Portable Network Graphic  |  1999-10-26  |  18KB  |  432x556  |  8-bit (20 colors)

Labels: book | chat room | crt screen | earth | monitor | mountain | poster | reckoner | sky | web site
OCR: Circles Perl-Fu scr local/bin/ perl Gimp. USe Gimp Fu sub circles (Ssi=e $bgcolor $radius) -e Create bockq round simg qimp imaqe nex($si=e $sie RGB) slaye gimp laye $si=e $si=e RGB Laye 100 HIORMAL MODE) gimp image _add layer($layer gimp polette ba ckg round ($bgcolor) gimp edi fill ($layer) $nc: ircle int ($si=e $radius /2 -0 <$nc ircles (++T$ $-0 $j<$ncircle (++L$ teat ive and mi colors Scoloi [$i*30 ($ncircles- )*25 ($i+$j *15] Select aimp ellips lect$img $i $radius2 Srodius PeIS SELECTIOU REPLACE Paint the color in gimp background Scolor) gimp Slave imp ion none ($img) teturn $img register the script teg iste circle: loop' 1oop^ ^Dov" Dov" 1999-05- NODE ellipse SELECTIONI

---