my phd was a loooong gnuplot script

and here is the time-honored japhy - my first one!

use GD::Simple;
use Chart::Gnuplot;

my $image = GD::Simple->new(400, 40);
$image->trueColor(1);
$image->bgcolor('white');
$image->fgcolor('black');
$image->font('courier');
$image->fontsize(20);
$image->moveTo(1,21);
#$image->string("Just Another Perl Hacker");
$image->string("just another perl hacker");

my $W = $image->width();
my $H = $image->height();

my ($x, $y, $r, @onX, @onY);
for ($x=0; $x<$image->width(); $x++) { for ($y=0; $y<$image->height();
+ $y++) {
    $r = $image->getPixel($x,$y);
    if( $r > 0 ){
        push @onY, $x;
        push @onX, $y;
    }
}}

my $dataSet = Chart::Gnuplot::DataSet->new(
    xdata => \@onX,
    ydata => \@onY,
    title => undef,
    style => "dots",
);
# Create chart object and specify the properties of the chart
my $chart = Chart::Gnuplot->new(
    title => undef,
    xlabel => undef,
    ylabel => undef,
    terminal => 'dumb size 40,180',
);
# Plot the data set on the chart
$chart->plot2d($dataSet);

[download]
  400 +-----------------------------+   
      |       +      +       +      |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |        . .                  |   
      |       .. .           .      |   
      |       ..           . .      |   
      |       .. .         . .      |   
      |       .. .. .. .. .. .      |   
      |       ..           . .      |   
      |       .            . .      |   
      |                             |   
      |        . .. ..    .. .      |   
      |       .. .  ..     . .      |   
      |       ..    ..     . .      |   
      |       ..    ..     . .      |   
      |       .. .. .. .. ..        |   
      |          .. .. .. .         |   
      |                             |   
  350 |-+     ..           . .    +-|   
      |       .. .      . .. .      |   
      |       .. ..  . .. .. .      |   
      |          .. .. .            |   
      | .. .. .. .. .. .. .. .      |   
      | .                  . .      |   
      |                             |   
      |       .. ..     . ..        |   
      |       .. .        .. .      |   
      |       ..           . .      |   
      |       ..           . .      |   
      |       .. .. .. .. .. .      |   
      |           . .. ..           |   
      |                             |   
      |                    . .      |   
      |       .. .. .. .. .. .      |   
      |       ..    ..    .. .      |   
      |       ..    ..     . .      |   
      |       ..    .. .. .. .      |   
      |              . .. ..        |   
      |                             |   
      |                    . .      |   
  300 |-+     .. .. .. .. .. .    +-|   
      |       ..             .      |   
      |       ..           . .      |   
      | .. .. .. .. .. .. .. .      |   
      | .. .. .. .. .. .. .. .      |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                    . .      |   
      |                    . .      |   
      | .. .. .. .. .. .. .. .      |   
      | .. .. .. .. .. .. .. .      |   
      | .                  . .      |   
      | .                  . .      |   
      |                             |   
      |       .. .                  |   
      |       ..           . .      |   
  250 |-+     .. .         . .    +-|   
      |       .. .. .. .. .. .      |   
      |       .. .. .. .. .. .      |   
      |       ..           . .      |   
      |                             |   
      |           . ..    ..        |   
      |        . .. ..    .. .      |   
      |       .. .  ..     . .      |   
      |       ..    ..     . .      |   
      |       .. .  ..    .. .      |   
      |        . .. .. .. ..        |   
      |             .. .            |   
      |          .. .. .. .         |   
      |       .. ..     . .. .      |   
      |       ..           . .      |   
      |       ..           . .     .|   
      |       .. .. .  .. .. .     .|   
      |       .. .. .. .. .. .. .. .|   
      |       ..                   .|   
      |                             |   
      |                             |   
      |                             |   
  200 |-+                         +-|   
      |                             |   
      |                             |   
      |                             |   
      |       .. .                  |   
      |       ..           . .      |   
      |       .. .         . .      |   
      |       .. .. .. .. .. .      |   
      |       .. .. .. .. .. .      |   
      |       ..           . .      |   
      |                             |   
      |           . ..    ..        |   
      |        . .. ..    .. .      |   
      |       .. .  ..     . .      |   
      |       ..    ..     . .      |   
      |       .. .  ..    .. .      |   
      |        . .. .. .. ..        |   
      |             .. .            |   
      |                    . .      |   
      |       .. .. .. .. .. .      |   
      |       .. .         . .      |   
      |       ..                    |   
  150 |-.. .. .. .. .. .. .. .    +-|   
      | .. .. .. .. .. .. .. .      |   
      | .                  . .      |   
      |                             |   
      |       ..          .. .      |   
      |       ..           . .      |   
      |       ..           . .      |   
      | .. .. .. .. .. .. .. .      |   
      | .. .. .. .. .. .. .         |   
      |       ..                    |   
      |              .              |   
      |        . .. .. .. ..        |   
      |       .. .        .. .      |   
      |       ..           . .      |   
      |       .. .        .. .      |   
      |        . .. .. .. ..        |   
      |              .              |   
      |                    . .      |   
      |       .. .. .. .. .. .      |   
      |       .. .         . .      |   
      |       ..                    |   
      |       .. .         . .      |   
  100 |-+     .. .. .. .. .. .    +-|   
      |       ..           . .      |   
      |                    . .      |   
      |          .. .. .. .. .      |   
      |       .. .. .. .. .. .      |   
      |       ..    ..     . .      |   
      |       ..    ..     . .      |   
      |       ..    .. .. .. .      |   
      |                 . .         |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                             |   
      |                   .. .      |   
      |       ..           . .      |   
      |       ..           . .      |   
      |  . .. .. .. .. .. .. .      |   
      | .. .. .. .. .. .. ..        |   
   50 |-+     ..                  +-|   
      |                             |   
      |       .. ..  . .. ..        |   
      |       .. .. .. .. .. .      |   
      |       ..    ..     . .      |   
      |       ..  . ..     . .      |   
      |       .. .. .   . .. .      |   
      |                 . .. .      |   
      |                    . .      |   
      |       .. .. .. .. .. .      |   
      |       .. .. .. .. .. .      |   
      |       ..           . ..     |   
      |                    . .      |   
      |       .. .. .. .. .. .      |   
      |       ..                    |   
      |                             |   
      |       .. .. .. .. .. .. .   |   
      | ..    .. .. .. .. .. .. .. .|   
      | ..    ..                   .|   
      |       ..                   .|   
      |       ..                   .|   
      |       +      +       +      |   
    0 +-----------------------------+   
      5       10     15      20     25

[download]

bw, bliako

In reply to Re^3: Plaintext plot - existing sofware? by bliako
in thread Plaintext plot - existing software? by parv

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.