home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 February / PCWorld_2003-02_cd.bin / Software / Komercni / gimp / gimpmanual / images / write_perlfu10.png < prev    next >
Portable Network Graphic  |  1999-10-26  |  21KB  |  432x576  |  8-bit (19 colors)
Labels: book | bulletin board | crt screen | monitor | poster | reckoner | sky | web site
OCR: Horiz-ca Pen-Fu +!/usr/ /local/bin/ perl use q ( autc use Gimp Fu sub hori= cat m imgl $drvl $dr2) imag imgl Sdrul image () 5img gimp dravable image $dr2 through OC syntox $h1) ridth dx1-> >xidth, my 2 $h2 $drv2 >width d2 he ight) The iqht the imum he iqht the images $hmaa $h1 Sh2 shl $h? Cre opun group imp undo _push group start ($imgl); Res the dravable layer make WOO,I for the img gimp_ image te ize ($img1 Z$+T$ $hmax. ($hmsx -$h1) imp ($dr1 $+ Shmaz $hms -$h1) Cop $dravable2 pue into the $dravablel img2 imp ion l1 ($img2 coPy -he lipbosrd gimp edit COPY ($dr2) meke .le ion in the position where i+ to pes gimp_ rect select ($img1 $1 ($hmax- -$h2) $2 $h2 .0 0 pue then anchor $floating leye aamp edit paste ($drl gimp float ing anchor ($flont inq leyer) Close the opun qroup imp opun push g ...