I have an Image::Magick code to generate a sample graph simple <x-y point plot>
The program will read a file which contain a list of x-y values and plot it.
I am posting this code for those who need to map dynamic code on a static graph,
I would appreciate if any of you can convert it for me in to GD::Graph code.
Image of the graph is attached.
Cheers and Thanks in advance
S K
code
---------
#!/usr/bin/perl
use Image::Magick;
my $ima = Image::Magick -> new;
$ima->Label('* FOO PLOT * ');
$ima -> set(size=>'680 x 450');
$ima->ReadImage('xc:white');
#$ima->Draw(primitive=>'rectangle', points=>'2,2 670,440');
#Text Details
$ima->Annotate(fill=>'red', font=>'string',primitive=>'text',x
=> "35", y => "30", pointsize=>'40',
text=>"foo ~ Calibration Plot");
$ima->Annotate(text=>'Foo Online',x=>'10',
y=>'300',font=>'Generic.ttf',
fill=>'gold',gravity=>'North',pointsize=>14);
#Y - Axiz
$ima -> Draw (stroke=>'black', primitive=>'line', strokewidth=>'2',
points=>"30,420 30,10");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,380 34,380");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,340 34,340");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,300 34,300");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,260 34,260");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,220 34,220");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,180 34,180");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,140 34,140");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,100 34,100");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,60 34,60");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"26,20 34,20");
#X - Axiz
$ima -> Draw (stroke=>'black', primitive=>'line', strokewidth=>'2',
points=>"30,420 640,420");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"130,414 130,424");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"230,414 230,424");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"330,414 330,424");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"430,414 430,424");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"530,414 530,424");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"630,414 630,424");
#Harmony Calibration Plot - Values from p1
#363 15424
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"393,111.6
398,111.6");
#129 5555.166
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"159,309 164,309");
# 174 7389
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"204,270 209,270");
#437 17984
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"467,60.2 472,60.2");
#111 4840.28
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"141,323 146,323");
#153 6710.9
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"183,292.7 188,292.7");
#183 7235.257
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"213,275 218,275");
#113 4940.24
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"143,311.1 148,311.1");
#124 5050
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"154,319 159,319");
#247 10393
$ima -> Draw (stroke=>'green', primitive=>'line', strokewidth=>'9',
points=>"277,212 282,212");
#Trend Line
#$ima -> Draw (stroke=>'black', primitive=>'line',
strokewidth=>'2', points=>"46,340 624,122");
$ima -> Draw (stroke=>'red', primitive=>'line', strokewidth=>'3',
points=>"128,342 502,30");
# Processing of Input data
# File handling of image
$filename = "caligraph.gif";
open(IMAGE, ">$filename");
$ima ->Write(file=>\*IMAGE, filename=>$filename);
close(IMAGE);
$ima->Write('gif:-');
caligraph.gif
Description: GIF image
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
