Re: graf-code
- From: ibiokid@xxxxxxxxx (S Khadar)
- Date: Fri, 30 Dec 2005 00:39:48 +0530
Hi all, :)
I have done atlast - i used Image::Magick to generate my static - data set -
including curve and a small PERL script will do the reading and plotting of
the points. But, still the annotation is not working on my server and pc :(
#29/12/2005
# ibiokid@xxxxxxxxx
#!/usr/bin/perl
use Image::Magick;
my $ima = Image::Magick -> new;
$ima -> set(size=>'680 x 450');
$ima->ReadImage('xc:white');
$infile = shift;
#Y - Axiz/
$ima -> Draw (stroke=>'black', primitive=>'line', strokewidth=>'2',
points=>"50,420 50,10");
$yl = 500;
for($y=380;$y>=20;$y-=40)
{
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"46,$y 54,$y");
$yp = $y - 13;
$ima->Annotate(text=>"$yl",x=>'-320', y=>"$yp",font=>'Generic.ttf',
fill=>'black',gravity=>'North',pointsize=>14);
$yl += 500;
}
#X - Axiz -
$xl = 100;
$ima -> Draw (stroke=>'black', primitive=>'line', strokewidth=>'2',
points=>"50,420 660,420");
for($x=150;$x<=650;$x+=100)
{
$ima -> Draw (stroke=>'pink', primitive=>'line', strokewidth=>'3',
points=>"$x,414 $x,424");
$xlp = $x - 340;
$ima->Annotate(text=>"$xl",x=>"$xlp", y=>"419",font=>'Generic.ttf',
fill=>'black',gravity=>'North',pointsize=>14);
$xl += 100;
}
#Harmony Calibration Plot - Values from p1
#363 2155.201
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"413,247.6 418,247.6");
#129 701.6
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"179,363.72 184,363.72");
#174 1032.8
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"224,337.36 229,337.36");
#437 2200.002
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"487,244 492,244");
#111 673.9001
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"156,366.16 161,366.16");
#153 764.9001
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"201,354.8 206,354.8");
#183 930.8999
$ima -> Draw (stroke=>'gold',primitive=>'line', strokewidth=>'9',
points=>"233,345.2 238,345.2");
#113 702.9
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"163,363.4 168,363.4");
#124 748.1999
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"174,360.16 179,360.16");
#247 1284.4
$ima -> Draw (stroke=>'gold', primitive=>'line', strokewidth=>'9',
points=>"297,317.28 302,317.28");
#TrendsLine
$ima -> Draw (stroke=>'black', primitive=>'line', strokewidth=>'1',
points=>"50,415 660,160");
# Processing of Input data
open(K,"<$infile");
while (<K>)
{
chomp;
$_ =~ s/^\s+//;
$_ =~ s/\s+$//;
($x,$y) = split(/ /,$_);
$yp = 420 - ($y / 12.5);
$x += 50;
$xp1 = $x - 2;
$xp2 = $x + 2;
$ima -> Draw (stroke=>'blue', primitive=>'line', strokewidth=>'9',
points=>"$xp1,$yp $xp2,$yp");
}
close K;
# GIF Image Generated
$ima->Write('gif:-');
Thats all -
try the program as program.pl filename>image.gif
If everything fails - Expect magical - miracles !!!
Happy PERL !!!
SK
- Prev by Date: Re: regular expression
- Next by Date: Re: regular expression
- Previous by thread: regular expression
- Next by thread: using an system call for decryption
- Index(es):
Relevant Pages
|
|
