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

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

version 1.172, 2013/01/31 17:10:38 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 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 .= $/;
     }      }
Removed from v.1.172  
changed lines
  Added in v.1.175

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