Журнал LinuxFormat - перейти на главную

LXF134:Perl

Материал из Linuxformat
Версия от 11:42, 18 апреля 2014; Mike2014 (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск
Подписка на печатную версию
Весь 2015 год (12 номеров)
Первое полугодие (6 номеров)
Второе полугодие (6 номеров)
Подписка на электронную версию
Весь 2015 год (12 номеров)
Первое полугодие (6 номеров)
Второе полугодие (6 номеров)
Подшивки старых номеров журнала (печатные версии)
Весь 2014 год (12 номеров)
Первое полугодие (6 номеров)
Второе полугодие (6 номеров)
GD и Perl Соз­дай­те ди­на­ми­че­ские изо­бра­же­ния в ва­ших сце­на­ри­ях для Web, и не толь­ко

Содержание

Perl: Создаем изо­бра­же­ния

Часть 1: Язык, соз­дан­ный для об­ра­бот­ки тек­стов, мо­жет не­пло­хо справ­лять­ся и с гра­фи­кой. Ми­ха­ил Смир­нов объ­яс­нит, что к че­му.

Как из­вест­но, язык про­грам­ми­ро­вания Perl иде­аль­но при­спо­соб­лен для мно­го­чис­лен­ных при­ло­жений по об­ра­бот­ке тек­ста. Од­на­ко воз­мож­но­сти Perl этим не ис­чер­пы­ва­ют­ся. При­менение гра­фи­че­ских мо­ду­лей в Perl по­зво­лит вам бы­ст­ро ри­со­вать изо­бра­жения, со­стоя­щие из линий, ок­руж­но­стей и тек­ста, манипу­ли­ро­вать цве­том, вы­ре­зать и встав­лять дру­гие изо­бра­жения, вы­пол­нять за­лив­ку, со­хра­нять на диске фай­лы изо­бра­жений в раз­лич­ных фор­ма­тах, манипу­ли­ро­вать ви­део­дан­ны­ми этих фай­лов. Наи­боль­ший ин­те­рес пред­став­ля­ет ис­поль­зо­вание гра­фи­че­ских мо­ду­лей Perl в web-при­ло­жениях. Гра­фи­че­ская биб­лио­те­ка GD име­ет ин­туи­тив­но по­нят­ный ин­тер­фейс, по­зво­ляю­щий бы­ст­ро и ком­пакт­но реа­ли­зо­вать поль­зо­ва­тель­ский код про­грамм на Perl да­же на­чи­наю­щим про­грам­ми­стам.

Эф­фек­тив­ность ис­поль­зо­вания гра­фи­че­ско­го мо­ду­ля GD объ­яс­ня­ет­ся про­сто: биб­лио­те­ка GD напи­са­на на язы­ке C и со­вмести­ма со все­ми основ­ны­ми плат­фор­ма­ми (Linux, Windows, ...). Ин­тер­фейс ме­ж­ду Perl и биб­лио­те­кой GD обес­пе­чи­ва­ет мо­дуль GD.pm, ко­то­рый ис­поль­зу­ет GD как ба­зис для соз­дания гра­фи­че­ских клас­сов в Perl. GD.pm яв­ля­ет­ся са­мо­за­гру­жае­мым ин­тер­фейс­ным мо­ду­лем, с по­мо­щью ко­то­ро­го мож­но соз­да­вать изо­бра­жения на ле­ту, мо­ди­фи­ци­ро­вать су­ще­ствую­щие фай­лы изо­бра­жений и син­те­зи­ро­вать но­вые.

При­вет, GD!

Биб­лио­те­ка GD по­зво­ля­ет соз­да­вать цвет­ные ри­сун­ки, ис­поль­зуя боль­шое ко­ли­че­ство гра­фи­че­ских при­ми­ти­вов, и вы­во­дить их в раз­лич­ных гра­фи­че­ских фор­ма­тах. Мо­дуль GD оп­ре­де­ля­ет три основ­ных клас­са:

  • класс изо­бра­жений GD::Image, ко­то­рый пред­на­зна­чен для за­хва­та ви­део­дан­ных изо­бра­жения и вы­пол­ня­ет вы­зов ме­то­дов гра­фи­че­ских при­ми­ти­вов;
  • класс шриф­тов GD::Font, ко­то­рый бе­рет ста­ти­че­ские шриф­ты и ис­поль­зу­ет их для воспро­из­ве­дения тек­ста в гра­фи­че­ском ви­де;
  • класс при­ми­ти­вов по­ли­го­на GD::Polygon, при­ме­няе­мый для со­хранения спи­ска вер­шин мно­го­угольников при ри­со­вании сто­рон по­ли­го­на и обес­пе­чи­ваю­щий их воспро­из­ве­дение в ви­де изо­бра­жения.

Обоб­щен­ный под­ход ис­поль­зо­вания гра­фи­че­ско­го ин­тер­фей­са GD вы­гля­дит сле­дую­щим об­ра­зом. На пер­вом эта­пе, при вы­зо­ве (инициа­ли­за­ции) ме­то­да GD::Image::new(Wx,Hy), соз­да­ет­ся но­вое пустое изо­бра­жение, ши­ри­на и вы­со­та ко­то­ро­го за­да­ют­ся па­ра­мет­ра­ми Wx и Hy. В ре­зуль­та­те вы­зо­ва ме­то­да бу­дут воз­вра­ще­ны ви­део­дан­ные изо­бра­жения. Дру­гие ме­то­ды клас­са по­зво­ля­ют инициа­ли­зи­ро­вать изо­бра­жение из уже су­ще­ствую­щих фай­лов, ко­то­рые необ­хо­ди­мо пред­ва­ри­тель­но про­чи­тать с диска.

На вто­ром эта­пе, при вы­зо­ве ме­то­да colorAllocate() вы­пол­ня­ет­ся до­бав­ление цве­та к цве­то­вой таб­ли­це изо­бра­жения. Вход­ны­ми па­ра­мет­ра­ми вы­зо­ва яв­ля­ет­ся трой­ка основ­ных цве­тов: крас­ный, зе­ле­ный и синий, ко­то­рые за­да­ют­ся це­лы­ми чис­ла­ми в диа­па­зоне зна­чений от 0 до 255. Ме­тод воз­вра­ща­ет ин­декс цве­та цве­то­вой таб­ли­цы изо­бра­жения.


По­сле это­го, на треть­ем эта­пе, мож­но сде­лать неко­то­рый ри­су­нок, ис­поль­зуя на­бор гра­фи­че­ских при­ми­ти­вов клас­са GD::Image и на­бор ме­то­дов клас­са GD::Polygon. По­ли­го­ны (мно­го­угольники) соз­да­ют­ся с по­мо­щью ме­то­да new(), а до­бав­ление но­вых вер­шин по­ли­го­на воз­ло­же­но на ме­тод addPt().

И, на­конец, когда ри­су­нок го­тов, вы мо­же­те пре­об­ра­зо­вать его, на­при­мер, в гра­фи­че­ский фор­мат GIF, с по­мо­щью ме­то­да gif(). Ме­тод бу­дет воз­вра­щать дво­ич­ное со­дер­жи­мое изо­бра­жения в фор­ма­те GIF. Обыч­но по­лу­чен­ный ре­зуль­тат вы­во­дит­ся в брау­зер или со­хра­ня­ет­ся на диске в ви­де GIF-фай­ла. В ка­че­стве при­ме­ра при­ве­дем скрипт, ко­то­рый ри­су­ет про­стые фи­гу­ры, манипу­ли­ру­ет ими са­ми­ми и их цве­том, а так­же ри­су­ет текст с по­мо­щью ста­ти­че­ских шриф­тов: 

 #!/perl/bin/perl
 use GD;
 $im = new GD::Image(425,250); #--Ини­циа­ли­за­ция изо­бра­же­ния
 $black = $im->colorAllocate(0, 0, 0); #--Соз­да­ем цве­то­вую па­лит­ру
 $red = $im->colorAllocate(255, 0, 0);
 $blue = $im->colorAllocate(0,0,255);
 $yellow = $im->colorAllocate(255,250,0);
 $bg = $im->colorAllocate(240,240,240);
 $gray = $im->colorAllocate(128,128,128);
 $im->fill(0,0,$bg); #--Де­ла­ем за­лив­ку фо­на
 $im->rectangle(0,0,424,249,$black); #--Ри­су­ем гра­ни­цы изо­бра­же­ния
 $poly = new GD::Polygon; #--Ини­циа­ли­за­ция по­ли­го­на
 $poly->addPt(5,50);
 $poly->addPt(25,25);
 $poly->addPt(100,50);
 $poly->addPt(70,95);
 $poly->addPt(30,100);
 $im->filledPolygon($poly,$blue); #--Соз­да­ние по­ли­го­на
 $poly->offset(100,100); #--Сме­ще­ние по­ли­го­на
 $im->polygon($poly,$red); #--Ри­су­ем толь­ко кон­тур
 $poly->map($poly->bounds,190,10,390,150); #--Из­ме­не­ние мас­шта­ба по­ли­го­на в 2 раза
 $im->filledPolygon($poly,$yellow);
 $im->arc(180,50,95,75,0,360,$blue); #--Ри­су­ем эл­лип­сы и ду­ги
 $im->arc(280,190,90,50,290,180,$blue);
 $im->arc(380,190,50,90,0,360,$blue);
 $im->fill(380,190,$red);
 $im->filledRectangle(10, 130, 50, 240, $gray); #--Ри­су­ем че­ты­рех­уголь­ник
 $im->rectangle(10,130,50,240,$black);
 $string=”LINUX FORMAT”;
 $im->string(gdMediumBoldFont,260,25,$string,$blue); #--За­да­ем ста­ти­че­ские шриф­ты
 $im->string(gdSmallFont,170,235,”Copyright 2010”,$black);
 print “Content-Type: image/gif\n\n”;
 binmode STDOUT;
 print $im->gif(); #--Пре­об­ра­зо­ва­ние дан­ных в фор­мат GIF и вы­вод

По­ка­зан­ный вы­ше код по­зво­ля­ет web-про­грам­ми­сту по­зна­ко­мить­ся на прак­ти­ке с основ­ны­ми коман­да­ми для ри­со­вания и мо­жет по­слу­жить осно­вой для са­мо­стоя­тель­но­го соз­дания бо­лее серь­ез­ных про­грамм. По­лу­чен­ный ре­зуль­тат мож­но по­смот­реть на рис. 1.

Основ­ные ме­то­ды

В ие­рар­хии ин­тер­фей­сов GD наи­боль­шее рас­про­странение по­лу­чи­ли два ти­па вер­сий для ра­бо­ты с растро­вой гра­фи­кой. Пер­вый тип под­дер­жи­ва­ет манипу­ли­ро­вание и пре­об­ра­зо­вание изо­бра­жений в фор­ма­те GIF. Вто­рой тип ин­тер­фей­сов GD по­зво­ля­ет ра­бо­тать с та­ки­ми по­пу­ляр­ны­ми гра­фи­че­ски­ми фор­ма­та­ми, как PNG и JPEG.

Для за­кре­п­ления по­лу­чен­ных вы­ше прак­ти­че­ских на­вы­ков рас­смот­рим несколь­ко «тео­ре­ти­че­ских» мо­мен­тов инициа­ли­за­ции основ­ных ме­то­дов GD. Вы­зов ме­то­да GD::Image::new(Wx,Hy) воз­вра­ща­ет но­вое пустое изо­бра­жение, на­при­мер: 

 $myImage = new GD::Image(100,100) || die;

Ме­тод соз­да­ет пустой бланк изо­бра­жения раз­ме­ром 100 × 100 то­чек. Ес­ли раз­мер опу­щен, он бу­дет со­став­лять 64 × 64 то­чек. Ме­тод GD::Image::newFromGif(FILE) соз­да­ет изо­бра­жение на осно­ве дан­ных фай­ла в фор­ма­те GIF, пред­ва­ри­тель­но про­чи­тан­но­го с диска. Па­ра­метр FILE пред­став­ля­ет со­бой ука­за­тель фай­ла (де­ск­рип­тор). Де­ск­рип­тор фай­ла ука­зы­ва­ет­ся как один из па­ра­мет­ров функ­ции open(). Ес­ли от­кры­тие фай­ла бы­ло успеш­ным, то вы­зов воз­вра­ща­ет инициа­ли­зи­ро­ван­ное изо­бра­жение, ко­то­рое за­тем мо­жет быть под­верг­ну­то раз­лич­ным манипу­ля­ци­ям. На­при­мер: 

 open (MyGIF,”images/ballon.gif”) || die;
 $myImage = newFromGif GD::Image(MyGIF) || die;
 close MyGIF;

MyGIF здесь – ука­за­тель фай­ла. Вы­зов ме­то­да GD::Image::gif воз­вра­ща­ет ви­део­дан­ные изо­бра­же­ния в фор­ма­те GIF. За­тем их мож­но вы­вес­ти в брау­зер и/или за­пи­сать в файл. На­при­мер: 

 open (MyGIF,”>images/ballon.gif”);
 binmode(MyGIF);
 print MyGIF $im->gif;
 close (MyGIF);
 print “Content-Type: image/gif\n\n”;
 binmode STDOUT;
 print $im->gif;

Ме­тод GD::Image::colorAllocate(R,G,B) пред­на­зна­чен для за­дания и управ­ления цве­том с по­мо­щью RGB-спе­ци­фи­ка­ции – цве­то­вых ком­понент R (крас­ный), G (зе­ле­ный) и B (синий), и в ре­зуль­та­те воз­вра­ща­ет ин­декс цве­то­вой таб­ли­цы. При­мер за­дания жел­то­го цве­та: 

 $yellow = $myImage->colorAllocate(255,255,0);

По­лу­чен­ные ин­дек­сы впо­след­ствии мож­но ис­поль­зо­вать для за­дания об­ще­го фо­на изо­бра­жения или для за­лив­ки фи­гур оп­ре­де­лен­ным цве­том. Ме­тод GD::Image::getPixel(x,y) воз­вра­ща­ет индекс цве­то­вой таб­ли­цы под оп­ре­де­лен­ной точ­кой изо­бра­жения с ко­ор­ди­на­та­ми (x,y). Вы­зов это­го ме­то­да мо­жет быть ском­биниро­ван с функ­ци­ей rgb(), ес­ли вам по­тре­бу­ет­ся восста­но­вить спи­сок RGB-ком­понент под вы­бран­ной точ­кой. На­при­мер: 

 $index = $myImage->getPixel(20,100);
 ($r,$g,$b) = $myImage->rgb($index);

Ме­тод GD::Image::transparent(colorIndex) от­ме­ча­ет ин­декс colorIndex как про­зрач­ный. Уча­ст­ки изо­бра­жения, на­ри­со­ван­ные этим цве­том, бу­дут неви­ди­мы. Ме­тод при­ме­ня­ет­ся для соз­дания про­зрач­ных фо­нов изо­бра­жений в Web. Про­зрач­ным в изо­бра­жении мо­жет быть толь­ко один цвет. Ниже, на­при­мер, им бу­дет бе­лый: 

 open(myGIF,”transptest.gif”);
 $im = newFromGif GD::Image(myGIF);
 $white = $im->colorClosest(255,255,255); 
 $im->transparent($white);
 print $im->gif;
 close myGIF;

Коман­ды ри­со­вания

Эти коман­ды хо­тя и не занима­ют в ие­рар­хии ме­то­дов GD осо­бо­го по­ло­жения, но вы­де­ля­ют­ся сво­ей вы­ра­жен­ной функ­цио­наль­но­стью. Ин­туи­тив­ная про­сто­та команд (ме­то­дов) по­зво­лит вам бы­ст­ро на­ри­со­вать це­лый ряд при­ми­ти­вов или за­про­грам­ми­ро­вать про­из­воль­ный ри­су­нок. Рас­смот­рим ряд наи­бо­лее упот­реб­ляе­мых ме­то­дов.

Ме­тод GD::Image::setPixel(x,y,color)' соз­да­ет точ­ку с ко­ор­ди­на­та­ми (x,y) с оп­ре­де­лен­ным цве­то­вым ин­дек­сом color. Он ниче­го не воз­вра­ща­ет. Систе­ма ко­ор­ди­нат на­чи­на­ет­ся в верхнем ле­вом уг­лу и за­кан­чи­ва­ет­ся в нижнем пра­вом. Нетруд­но пред­ста­вить, что растро­вый пе­ре­бор ко­ор­ди­нат при на­ли­чии функ­цио­наль­ной за­ви­си­мо­сти цве­то­во­го ин­дек­са color от ко­ор­ди­нат (x,y) мо­жет ис­поль­зо­вать­ся для син­те­за изо­бра­жений. Реа­ли­зу­ем при­мер ко­да для фор­ми­ро­вания дву­мер­но­го рас­пре­де­ления функ­ции w=sin(x,y): 


 $im = new GD::Image($X,$Y);
 $arg=$period*4*$pi*$pi;
 for($j=0;$j<$Y; $j++){
  $y = ($j-$Y/2)/$Y;
  $phy = $y*$y;
 for($i=0;$i<$X; $i++){
  $x = ($i-$X/2)/$X;
  $phx = $x*$x;
  $w = int($a0 + $amp*sin($arg*($pi - $phx - $phy)));
  $gray = $im->colorResolve($w,$w,$w);
 $im->setPixel($i,$j,$gray);
 }}

Ме­тод colorResolve(r,g,b) воз­вра­ща­ет ин­декс цве­та, ко­то­рый точ­но со­от­вет­ству­ет ука­зан­ным крас­ным, зе­ле­ным и си­ним ком­понен­там. Ес­ли та­кой цвет не на­хо­дит­ся в цвет­ной таб­ли­це, то ме­тод до­бав­ля­ет цвет в таб­ли­цу и воз­вра­ща­ет его ин­декс. На рис. 2 пред­став­лен ре­зуль­тат син­те­за изо­бра­жения, соз­дан­но­го в со­от­вет­ствии свы­ше при­ве­ден­ным ко­дом.

Ме­тод GD::Image::rectangle(x1,y1,x2,y2,color) ри­су­ет че­ты­рех­угольник, сто­ро­ны ко­то­ро­го име­ют оп­ре­де­лен­ный цвет color. Ко­ор­ди­на­ты (x1,y1) и (x2,y2) яв­ля­ют­ся верхним ле­вым и пра­вым нижним уг­ла­ми, со­от­вет­ствен­но. При­мер ри­со­вания квад­ра­та раз­ме­ром 90 × 90 то­чек: 

 $myImage->rectangle(10,10,100,100,$blue);

Ме­тод GD::Image::polygon(polygon,color) ри­су­ет мно­го­уголь­ник с за­дан­ным цве­том color, при этом чис­ло вер­шин не долж­но быть ме­нее трех. Ес­ли по­след­няя вер­ши­на по­ли­го­на не соз­да­на, ме­тод бу­дет за­крыт. При­мер ри­со­ва­ния тре­уголь­ни­ка: 

 $poly = new GD::Polygon;
 $poly->addPt(50,0);
 $poly->addPt(99,99);
 $poly->addPt(0,99);
 $myImage->polygon($poly,$blue);

Ме­тод GD::Image::line(x1,y1,x2,y2,color) ри­су­ет линию с оп­ре­де­лен­ным цве­том color от точ­ки с ко­ор­ди­на­та­ми (x1,y1) до точ­ки с ко­ор­ди­на­та­ми (x2,y2). При­мер ри­со­вания диа­го­наль­ной синей линии от точ­ки с ко­ор­ди­на­та­ми (7,7) до точ­ки с ко­ор­ди­на­та­ми (154,154): 

 $myImage->line(7,7,154,154,$blue);

Ме­тод ри­со­вания line() очень часто при­ме­ня­ет­ся для по­строения гра­фи­ков функ­ции од­ной пе­ре­мен­ной. Фраг­мент ко­да скрип­та, реа­ли­зую­щий основ­ной цикл фор­ми­ро­вания линии гра­фи­ка, а так­же оси абс­цисс и зна­чений пе­ре­мен­ной по оси абс­цисс, пред­став­лен ниже: 


 $f=0;
 for($i=0;$i<$N-1;$i++){
 $im->line($x,$y[$i],$x+$dx,$y[$i+1],$blue);
 $im->line($x,$yh,$x+$dx,$yh,$black);
 $im->string(gdTinyFont, $x, $yh+2, $f, $blue);
 $f +=5;
 $x=$x+$dx;
 }

При­мер ри­со­вания гра­фи­ка функ­ции од­ной пе­ре­мен­ной по­ка­зан на рис. 3.

С по­мо­щью ме­то­да GD::Image::arc(cx,cy,Wx,Hy,start,end,color) мож­но ри­со­вать ду­ги и эл­лип­сы. Ко­ор­ди­на­ты (cx,cy) яв­ля­ют­ся цен­тром эл­лип­са (ду­ги), а па­ра­мет­ры (Wx,Hy) яв­ля­ют­ся ши­ри­ной и вы­со­той эл­лип­са, со­от­вет­ствен­но. Часть эл­лип­са по­кры­ва­ет­ся ду­гой, дли­на ко­то­рой управ­ля­ет­ся па­ра­мет­ра­ми start и end. Эти па­ра­мет­ры за­да­ют­ся в уг­ло­вой ме­ре от 0 до 360 гра­ду­сов. При­мер ри­со­вания пол­но­го эл­лип­са: 

 $myImage->arc(100,100,50,35,0,360,$blue);

Ме­тод GD::Image::fill(x,y,color) слу­жит для за­лив­ки об­ластей изо­бра­жения с за­дан­ным цве­том color. Цвет бу­дет рас­про­стра­нять­ся по изо­бра­жению, на­чи­ная от точ­ки (x,y) до границ объ­ек­та, на ко­то­рых по­яв­ля­ет­ся раз­но­ст­ный цвет. При­мер за­лив­ки синим цве­том, на­чи­ная с точ­ки с ко­ор­ди­на­та­ми x=50 и y=40: 

 $myImage->rectangle(10,10,100,100,$black);
 $myImage->fill(50,40,$blue);

Ко­пи­ро­вание

Коман­ды ко­пи­ро­вания изо­бра­жений вы­де­ля­ют­ся сво­ей функ­цио­наль­но­стью и важ­ны с точ­ки зрения соз­дания эф­фек­тив­но­го ко­да при ри­со­вании мно­же­ства по­вто­ряю­щих­ся уча­ст­ков изо­бра­жения. При напи­сании ко­да про­грам­мы этот ме­тод по­зво­лит за­помнить неко­то­рую об­ласть изо­бра­жения ана­ло­гич­но то­му, как это де­ла­ет­ся с обыч­ны­ми мас­си­ва­ми дан­ных в Perl.

Ме­тод GD::Image::copy(sourceImage,dstX,dstY,srcX,srcY,Wx,Hy) пред­на­зна­чен для ко­пи­ро­вания пря­мо­уголь­ных об­ластей от од­но­го изо­бра­жения к дру­го­му. Изо­бра­жение-источник за­да­ет­ся с по­мо­щью па­ра­мет­ра sourceImage. Па­ра­мет­ры (srcX,srcY) за­да­ют верхний ле­вый угол пря­мо­угольника в изо­бра­жении-источнике, а (Wx, Hy) ука­зы­ва­ют ши­ри­ну и вы­со­ту об­ласти ко­пи­ро­вания. Па­ра­мет­ры (dstX,dstY) управ­ля­ют ко­ор­ди­на­та­ми точ­ки, в ко­то­рой бу­дет на­чи­нать­ся на­ло­жение ко­пии на изо­бра­жение-по­лу­ча­тель. Вы­зов ме­то­да воз­вра­ща­ет дан­ные изо­бра­жения-по­лу­чате­ля. При­мер ко­пи­ро­вания об­ласти $srcImage раз­ме­ром 25 × 25 то­чек в об­ласть $myImage с на­ча­лом в точ­ке (10,10) по­ка­зан ниже: 

 $myImage = new GD::Image(100,100);
 $srcImage = new GD::Image(50,50);
 $myImage->copy($srcImage,10,10,0,0,25,25);

С изо­бра­зи­тель­ной точ­ки зрения, бо­лее ин­те­рес­ным ме­то­дом яв­ля­ет­ся ме­тод GD::Image::copyMerge(sourceImage,dstX,dstY,srcX,srcY,Wx,Hy,opaque), ко­то­рый от­ли­ча­ет­ся от пре­ды­ду­ще­го все­го лишь одним па­ра­мет­ром opaque. Он мо­жет при­го­дить­ся для соз­дания кол­ла­жей. С по­мо­щью па­ра­мет­ра opaque в диа­па­зоне зна­чений от 0 до 100 за­да­ет­ся сте­пень про­зрач­но­сти од­но­го изо­бра­жения от­но­си­тель­но дру­го­го, на­при­мер: 


 $image1->copyMerge($image2,$left,$top,0,0,$wx,$hy, 60);

На рис. 4 по­ка­зан при­мер слияния с эф­фек­том про­зрач­но­сти двух изо­бра­жений од­но­го раз­ме­ра. При этом про­зрач­ность вто­ро­го изо­бра­жения от­но­си­тель­но пер­во­го со­став­ля­ет 60 %.

Вы­во­дим текст

Ин­те­рес web-про­грам­ми­стов к ри­со­ванию тек­ста свя­зан со мно­же­ством за­дач, возникаю­щих при соз­дании гра­фи­че­ских эле­мен­тов web-страниц: от слу­чай­но­го на­бо­ра сим­во­лов в за­да­че ав­то­ри­за­ции поль­зо­ва­те­ля (соз­дание так на­зы­вае­мой Captcha), до ри­со­вания во­дя­ных зна­ков в изо­бра­жениях.

Ин­тер­фейс GD под­дер­жи­ва­ет минималь­ный на­бор ста­ти­че­ских шриф­тов и по­зво­ля­ет ри­со­вать сим­во­лы и стро­ки тек­ста в гра­фи­че­ском ви­де. Вы­вод мо­жет вы­пол­нять­ся как в го­ри­зон­таль­ном на­прав­лении, так и в вер­тикаль­ном. Доступ­ны­ми для ри­со­вания шриф­та­ми яв­ля­ют­ся сле­дую­щие: TinyFont, SmallFont, Medium­BoldFont, LargeFont и GiantFont. Ка­ж­дый из этих шриф­тов мо­жет быть им­пор­ти­ро­ван как гло­баль­ная кон­стан­та или как па­кет объ­ек­тов клас­са GD::Font, на­при­мер: GD::Font::gdTinyFont.

Непо­сред­ствен­но для ри­со­вания при­ме­ня­ет­ся два основ­ных ме­то­да: string() и stringUp(). Ме­тод string(font,x,y,string,color) ри­су­ет стро­ку тек­ста, на­чи­ная с по­зи­ции (x,y), в за­дан­ном цве­те и вы­бран­ном шриф­те. Ме­тод stringUp(font,x,y,string,color) ри­су­ет текст с по­во­ро­том на 90 гра­ду­сов в на­прав­лении, про­ти­во­по­лож­ном вра­щению ча­со­вой стрел­ки.

Рас­смот­рен­ные вы­ше шриф­ты име­ют весь­ма ог­раничен­ный диа­па­зон раз­ме­ров, и при этом толь­ко средний шрифт по­зво­ля­ет вы­де­лять сим­во­лы как жир­ные. Дру­гой су­ще­ствен­ный недоста­ток ста­ти­че­ских шриф­тов – это ог­раничение по лока­ли­за­ции исклю­чи­тель­но ла­тиницей.

Ис­поль­зо­вание ди­на­ми­че­ских шриф­тов TrueType обес­пе­чи­ва­ет при ри­со­вании тек­ста прак­ти­че­ски неог­раничен­ные воз­мож­но­сти, и пре­ж­де все­го, лока­ли­за­цию под лю­бой тип ко­ди­ров­ки, при­ме­няе­мый в web-про­грам­ми­ро­вании. Ме­тод для вы­зо­ва шриф­тов име­ет вид GD::Image->stringTTF(). Раз­но­об­ра­зие же су­ще­ствую­щих шриф­тов снима­ет ог­раничения на их доступ­ность. Один из ва­ри­ан­тов вы­зо­ва ме­то­да stringTTF() име­ет вид: 


 $image->stringTTF($fgcolor,$fontname,$ptsize,$angle,$x,$y,$str),

где ар­гу­мен­ты коман­ды – это:

  • ин­декс цве­та fgcolor для ри­со­вания стро­ки тек­ста,
  • путь fontname к вы­бран­но­му фай­лу шриф­та (.ttf),
  • же­лае­мый раз­мер ptsize шриф­та,
  • угол по­во­ро­та angle в ра­диа­нах,
  • де­кар­то­вы ко­ор­ди­на­ты x,y на­ча­ла ри­со­вания,
  • стро­ка тек­ста str.

На рис. 5 по­ка­зан ре­зуль­тат ри­со­вания стро­ки тек­ста несколь­ки­ми ки­рил­ли­че­ски­ми шриф­та­ми: buaril.ttf, bukursv.ttf, buroman.ttf, butimit.ttf, pushkin.ttf, butimes.ttf.

Фор­ма­ты PNG и JPEG

Как бы­ло от­ме­че­но вы­ше, вто­рой тип ин­тер­фей­сов GD пре­достав­ля­ет воз­мож­ность ис­поль­зо­вать гра­фи­че­ские фор­ма­ты PNG и JPEG. Для ра­бо­ты с гра­фи­че­ским фор­ма­том PNG при­ме­ня­ет­ся ме­тод GD::Image->newFromPng($file), ко­то­рый с по­мо­щью де­ск­рип­то­ра фай­ла мо­жет соз­да­вать изо­бра­жения в этом фор­ма­те. Ес­ли от­кры­тие фай­ла бы­ло успеш­ным, то вы­зов воз­вра­ща­ет инициа­ли­зи­ро­ван­ное изо­бра­жение, на­при­мер: 

 open (myPNG,”test.png”) || die;
 $myImage = newFromPng GD::Image(\*myPNG) || die;
 close myPNG;
 print “Content-type: image/png\n\n”;
 binmode STDOUT;
 print $im->png();

Су­ще­ст­ву­ет дру­гой ва­ри­ант вы­зо­ва с не­по­сред­ст­вен­ным ука­за­ни­ем фай­ла изо­бра­же­ния: 

 $myImage = newFromPng GD::Image('test.png')

Для ра­бо­ты с фор­ма­том JPEG при­ме­ня­ет­ся ме­тод GD::Image->newFromJpeg($file). Этот ме­тод бу­дет соз­да­вать изо­бра­жение в фор­ма­те JPEG по­сле чтения фай­ла с диска в том же фор­ма­те: 

 $quality=75;
 $image = GD::Image->newFromJpeg($file);
 print “Content-type: image/jpeg\n\n”;
 binmode STDOUT;
 print $image->jpeg($quality);

От­ли­чи­тель­ная осо­бен­но­сть ме­то­да jpeg() – на­ли­чие па­ра­мет­ра ка­че­ства $quality, за­дава­емого как це­лое в диа­па­зоне зна­чений от 0 до 100. Чем боль­ше его зна­чение, тем выше ка­че­ство изо­бра­жения, и, есте­ствен­но, боль­ше раз­мер фай­ла на диске. Ес­ли он не за­дан, по умол­чанию бу­дет вы­бра­но сред­нее ка­че­ст­во.

Источник — «http://wiki.linuxformat.ru/wiki/index.php?title=LXF134:Perl&oldid=15054»
Персональные инструменты
купить
подписаться
Яндекс.Метрика