Chart::EPS_graph 0.01d review

Chart::EPS_graph creates line graphs in PostScript as *.eps format. SYNOPSIS # Create anew a 600 x 600 points (not pixe

License: Perl Artistic License File size: 23K Developer: Gan Uesli Starling

0

Chart::EPS_graph creates line graphs in PostScript as *.eps format.

SYNOPSIS

# Create anew a 600 x 600 points (not pixels!) EPS file
my $eps = Chart::EPS_graph->new(600, 600);

# Choose minimum required display info
$eps->set(
label_top => 'Graph Main Title',
label_y1 => 'Y1 Axis Measure (Units)',
label_y2 => 'Y2 Axis Measure (Units)',
label_x => 'X Axis Measure (Units)',
);

# Choose 6 of 13 named chans, 4 at left, 2 at right
$eps->set(
names => @all_13_name_strings,
data => @all_13_data_arefs,
y1 => [7, 8, 10, 11],
y2 => [9, 12],
);


# Choose optional graph features
$eps->set(
label_y1_2 => 'Extra Y1 Axis Info',
label_y2_2 => 'Extra Y2 Axis Info',
label_x_2 => 'Extra X Axis Info',

# Any common browser color no matter how hideous.
bg_color => 'DarkOliveGreen',
fg_color => 'HotPink',
web_colors => ['Crimson', 'Lime', 'Indigo', 'Gold', 'Snow', 'Aqua'],

# Any known I font no matter how illegible
font_name => 'ZapfChancery-MediumItalic',
font_size => 18,

# See POD about this one. But in brief:
# If set to "1" channel innumeration gaps will be closed.
# If set to "0" (the default) they will be left as they are.
close_gap => 0,

# If the 0th channel is not for the X axis (the default) then the
# data point count is used as the X axis, which you may scale.
# So if X were Time in seconds, with no 0th channel having acutally
# recorded it, but each data point were known to be 0.5 seconds...
$self->{x_is_zeroth} = 0; # Boolean, so '1' or '0'.
$self->{x_scale} = 2; # Have 10th datapoint show as 20, etc.
);

# Write output as EPS
$eps->write_eps( cwd() . '/whatever.eps' ); # Write to a file.

# View, convert or edit the EPS output
$eps->display(); # Display in viewer (autodetects 'gv' or 'gsview.exe').
$eps->display('GS'); # Convert to PNG via Ghostscript.
$eps->display('GIMP'); # Open for editng in The GIMP.

Requirements:
Perl