29 lines
685 B
Perl
29 lines
685 B
Perl
#!/usr/bin/perl -w
|
|
|
|
#############################################################################
|
|
# This example is a bit outdated, please use the new bin/grapheasy script -
|
|
# which is after "make install" available in your system as simple as
|
|
# "grapheasy" on any command line prompt.
|
|
|
|
#############################################################################
|
|
# This script uses examples/common.pl to generate some example graphs and
|
|
# displays them in ASCII.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN { chdir 'examples' if -d 'examples'; }
|
|
|
|
require "common.pl";
|
|
|
|
sub out
|
|
{
|
|
my ($graph,$method) = @_;
|
|
|
|
$method = 'as_' . $method;
|
|
print $graph->$method(), "\n";
|
|
}
|
|
|
|
gen_graphs ();
|
|
|