|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 02 Mar 2002 09:50:42
To : Andrey A. Mandrov
Subject : Re: GD русские буквы
--------------------------------------------------------------------------------
>> stringTTF, а русские буквы передавать ему как уникодовые HTML
>> entities.
AM> Буду премного благодарен за небольшой примерчик.
#!/usr/local/bin/perl
use CGI::Carp qw (fatalsToBrowser);
use GD 1.20;
use constant font => 'optima.ttf';
$im = new GD::Image(468,60);
$im->interlaced(1); # cool venetian blinds effect
($white,$black,$red,$blue,$yellow) =
(
$im->colorAllocate(255, 255, 255),
$im->colorAllocate(0, 0, 0),
$im->colorAllocate(255, 0, 0),
$im->colorAllocate(0,0,155),
$im->colorAllocate(255,250,205)
);
$im->stringTTF($black,font,16.0,0.0,120,20,"Привет\n Hello world!") || die $@;
#$im->transparent($blue);
$im->fill(0,255, $white);
$im->arc(50, 25, 98, 48, 0, 360, $yellow); # Овал
#use constant font => 'cyzc____.ttf';
#$im->stringTTF($red,font,14.0,0.0,20,80,"Проверочка шрифта!")|| die $@;;
#$im->stringTTF($blue,font,30.0,-0.5,60,100,"Goodbye cruel world!")|| die $@;;
$quality = 52;
open (FILE,">ttf.jpg");
binmode FILE;
print FILE $im->jpeg([$quality]);
close FILE;
$size = (stat("ttf.jpg"))[7];
print "Size = $size\n";
print "<img src=\"ttf.jpg\" border=1>\n";
-- Hиколай.
* Лучше маленький доллар, чем большое спасибо.
#=----------------------------------====----------------------------------=#
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
