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

Diff for /loncom/xml/lonplot.pm between versions 1.170 and 1.175

version 1.170, 2012/12/05 19:30:28 version 1.175, 2014/06/19 17:23:50
Line 78  BEGIN { Line 78  BEGIN {
 ##  align  ##  align
 ##  ##
 ##  @labels: $labels[$i] = \%label  ##  @labels: $labels[$i] = \%label
 ##           %label: text, xpos, ypos, justify  ##           %label: text, xpos, ypos, justify, rotate, zlayer
 ##  ##
 ##  @curves: $curves[$i] = \%curve  ##  @curves: $curves[$i] = \%curve
 ##           %curve: name, linestyle, ( function | data )  ##           %curve: name, linestyle, ( function | data )
Line 105  my %linetypes =   # For png use these li Line 105  my %linetypes =   # For png use these li
     );      );
 my %ps_linetypes = # For ps the line types are different!  my %ps_linetypes = # For ps the line types are different!
    (     (
     solid          => 0,      solid          => 1,
     dashed         => 7      dashed         => 7
    );     );
   
Line 421  my %label_defaults = Line 421  my %label_defaults =
          description => 'Rotation of label (degrees)',           description => 'Rotation of label (degrees)',
          edit_type   => 'entry',           edit_type   => 'entry',
          size        => '10',           size        => '10',
      }       },
        zlayer => {
            default => '',
            test => sub {$_[0]=~/^(front|back)$/},
            description => 'Z position of label',
            edit_type   => 'choice',
            choices     => ['front','back'], 
        },
      );       );
   
 my @tic_edit_order = ('location','mirror','start','increment','end',  my @tic_edit_order = ('location','mirror','start','increment','end',
Line 1714  sub generate_tics { Line 1721  sub generate_tics {
     my $result   = '';      my $result   = '';
   
   
     if (defined %$spec) {      if ((ref($spec) eq 'HASH') && (keys(%{$spec}) > 0)) {
   
   
   
Line 1752  sub generate_tics { Line 1759  sub generate_tics {
  if ($spec->{'minorfreq'} != 0) {   if ($spec->{'minorfreq'} != 0) {
     $result .= "set m$type $spec->{'minorfreq'}\n";      $result .= "set m$type $spec->{'minorfreq'}\n";
  }   }
     } else {      } elsif ($target eq 'tex' ) {
  $result .= "set $type font " . '"Helvetica,22"' ."\n";   $result .= "set $type font " . '"Helvetica,22"' ."\n";
     }      }
           
Line 1967  sub write_gnuplot_file { Line 1974  sub write_gnuplot_file {
         $gnuplot_input .= ' '.$label->{'justify'};          $gnuplot_input .= ' '.$label->{'justify'};
   
         if ($target eq 'tex') {          if ($target eq 'tex') {
     $gnuplot_input .=' font "'.$font_properties->{'printname'}.','.$fontsize.'pt"' ;      $gnuplot_input .=' font "'.$font_properties->{'printname'}.','.$fontsize.'pt"';
           }
           if (($label->{'zlayer'} eq 'front') || ($label->{'zlayer'} eq 'back')) {
               $gnuplot_input .= ' '.$label->{'zlayer'};
         }          }
         $gnuplot_input .= $/;          $gnuplot_input .= $/;
     }      }
Line 1984  sub write_gnuplot_file { Line 1994  sub write_gnuplot_file {
     #      #
     my $linestyle_index = 50;      my $linestyle_index = 50;
     my $line_width   = '';      my $line_width   = '';
     my $plots;      my $plots = '';
   
     # If arrows are needed there will be an arrow style for each as well:      # If arrows are needed there will be an arrow style for each as well:
     #      #
Line 1993  sub write_gnuplot_file { Line 2003  sub write_gnuplot_file {
   
     for (my $i = 0;$i<=$#curves;$i++) {      for (my $i = 0;$i<=$#curves;$i++) {
  $curve = $curves[$i];   $curve = $curves[$i];
  my $plot_command;   my $plot_command = '';
  my $plot_type = ', ' if ($i > 0);   my $plot_type = '';
    if ($i > 0) {
       $plot_type = ', ';
    }
  if ($target eq 'tex') {   if ($target eq 'tex') {
     $curve->{'linewidth'} *= 2;      $curve->{'linewidth'} *= 2;
  }   }
Removed from v.1.170  
changed lines
  Added in v.1.175

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