[BACK]Return to lonplot.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonplot.pm between versions 1.45 and 1.46

version 1.45, 2002/01/28 14:12:34 version 1.46, 2002/01/30 13:27:51
Line 882  sub write_gnuplot_file { Line 882  sub write_gnuplot_file {
     # tics      # tics
     if (%xtics) {          if (%xtics) {    
  $gnuplot_input .= "set xtics $xtics{'location'} ";   $gnuplot_input .= "set xtics $xtics{'location'} ";
  $gnuplot_input .= ( $xtics{'mirror'} eq 'on' ? "mirror" : "nomirror ");   $gnuplot_input .= ( $xtics{'mirror'} eq 'on'?"mirror ":"nomirror ");
  $gnuplot_input .= "$xtics{'start'}, ";   $gnuplot_input .= "$xtics{'start'}, ";
  $gnuplot_input .= "$xtics{'increment'}, ";   $gnuplot_input .= "$xtics{'increment'}, ";
  $gnuplot_input .= "$xtics{'end'}\n";   $gnuplot_input .= "$xtics{'end'}\n";
     }      }
     if (%ytics) {          if (%ytics) {    
  $gnuplot_input .= "set ytics $ytics{'location'} ";   $gnuplot_input .= "set ytics $ytics{'location'} ";
  $gnuplot_input .= ( $ytics{'mirror'} eq 'on' ? "mirror" : "nomirror ");   $gnuplot_input .= ( $ytics{'mirror'} eq 'on'?"mirror ":"nomirror ");
  $gnuplot_input .= "$ytics{'start'}, ";   $gnuplot_input .= "$ytics{'start'}, ";
  $gnuplot_input .= "$ytics{'increment'}, ";   $gnuplot_input .= "$ytics{'increment'}, ";
         $gnuplot_input .= "$ytics{'end'}\n";          $gnuplot_input .= "$ytics{'end'}\n";
Line 1039  sub insert_plot { Line 1039  sub insert_plot {
     return $result;      return $result;
 }  }
   
   sub insert_tics {
       my $result;
       $result .= &insert_xtics() . &insert_ytics;
       return $result;
   }
   
 sub insert_xtics {  sub insert_xtics {
     my $result;      my $result;
     $result .= "    <xtics \n";      $result .= "\n    <xtics ";
     foreach my $attr (keys(%tic_defaults)) {      foreach my $attr (keys(%tic_defaults)) {
  $result .= "         $attr=\"$tic_defaults{$attr}->{'default'}\"\n";   $result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" ";
     }      }
     $result .= "   />\n";      $result .= "/>\n";
     return $result;      return $result;
 }  }
   
 sub insert_ytics {  sub insert_ytics {
     my $result;      my $result;
     $result .= "    <ytics \n";      $result .= "\n    <ytics ";
     foreach my $attr (keys(%tic_defaults)) {      foreach my $attr (keys(%tic_defaults)) {
  $result .= "         $attr=\"$tic_defaults{$attr}->{'default'}\"\n";   $result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" ";
     }      }
     $result .= "   />\n";      $result .= "/>\n";
     return $result;      return $result;
 }  }
   
 sub insert_key {  sub insert_key {
     my $result;      my $result;
     $result .= "    <key \n";      $result .= "\n    <key \n";
     foreach my $attr (keys(%key_defaults)) {      foreach my $attr (keys(%key_defaults)) {
  $result .= "         $attr=\"$key_defaults{$attr}->{'default'}\"\n";   $result .= "         $attr=\"$key_defaults{$attr}->{'default'}\"\n";
     }      }
Line 1071  sub insert_key { Line 1077  sub insert_key {
   
 sub insert_axis{  sub insert_axis{
     my $result;      my $result;
     $result .= '    <axis ';      $result .= "\n    <axis ";
    foreach my $attr (keys(%axis_defaults)) {     foreach my $attr (keys(%axis_defaults)) {
  $result .= "         $attr=\"$axis_defaults{$attr}->{'default'}\"\n";   $result .= "         $attr=\"$axis_defaults{$attr}->{'default'}\"\n";
     }      }
Line 1079  sub insert_axis{ Line 1085  sub insert_axis{
     return $result;      return $result;
 }  }
   
 sub insert_title { return "    <title></title>\n"; }  sub insert_title { return "\n    <title></title>\n"; }
 sub insert_xlabel { return "    <xlabel></xlabel>\n"; }  sub insert_xlabel { return "\n    <xlabel></xlabel>\n"; }
 sub insert_ylabel { return "    <ylabel></ylabel>\n"; }  sub insert_ylabel { return "\n    <ylabel></ylabel>\n"; }
   
 sub insert_label {  sub insert_label {
     my $result;      my $result;
     $result .= '    <label ';      $result .= "\n    <label ";
     foreach my $attr (keys(%label_defaults)) {      foreach my $attr (keys(%label_defaults)) {
  $result .= '         '.$attr.'="'.   $result .= '         '.$attr.'="'.
     $label_defaults{$attr}->{'default'}."\"\n";      $label_defaults{$attr}->{'default'}."\"\n";
Removed from v.1.45  
changed lines
  Added in v.1.46

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>