title: Generatings Charts in perl
body: <p>I am trying to understand an old code which generated charts. It takes arrays as input for x and y axis and generates graphs using print statements. I debug the programs to see for loaded modules, but it is not making use of any Perl Modules to do so. I am wondering if anyone could help me in understanding this,</p>
  
  <pre><code>print "\@with line\n";
  print "\@  line on\n";
  print "\@  line loctype view\n";
  printf "\@  line %.3f, 0.2, %.3f, 0.8\n", $viewx, $viewx;
  print "\@  line linewidth 2\n";
  print "\@  line linestyle 1\n";
  print "\@  line arrow 0\n";
  print "\@line def\n";
  
  print "\@with string\n";
  print "\@  string on\n";
  print "\@  string loctype view\n";
  printf "\@  string %.3f, %.3f\n", $labx, 0.25   unless $top;
  printf "\@  string %.3f, %.3f\n", $labx, 0.75   if     $top;
  </code></pre>