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

Diff for /loncom/xml/lonplot.pm between versions 1.135 and 1.137

version 1.135, 2008/03/19 21:09:09 version 1.137, 2008/05/12 11:13:28
Line 821  sub parse_label { Line 821  sub parse_label {
   
   
 my %lookup =   my %lookup = 
    ('(Alpha|#913)'    => {'tex' => '{/Symbol A}', 'web' => "\x{391}"},     (  # Greek alphabet:
      '(Beta|#914)'    => {'tex' => '{/Symbol B}', 'web' => "\x{392}"},  
        '(Alpha|#913)'    => {'tex' => '{/Symbol A}', 'web' => "\x{391}"},
         '(Beta|#914)'    => {'tex' => '{/Symbol B}', 'web' => "\x{392}"},
      '(Chi|#935)'     => {'tex' => '{/Symbol C}', 'web' => "\x{3A7}"},       '(Chi|#935)'     => {'tex' => '{/Symbol C}', 'web' => "\x{3A7}"},
      '(Delta|#916)'   => {'tex' => '{/Symbol D}', 'web' => "\x{394}"},       '(Delta|#916)'   => {'tex' => '{/Symbol D}', 'web' => "\x{394}"},
      '(Epsilon|#917)' => {'tex' => '{/Symbol E}', 'web' => "\x{395}"},       '(Epsilon|#917)' => {'tex' => '{/Symbol E}', 'web' => "\x{395}"},
Line 869  my %lookup = Line 871  my %lookup =
      '(xi|#958)'      => {'tex' => '{/Symbol x}', 'web' => "\x{3BE}"},       '(xi|#958)'      => {'tex' => '{/Symbol x}', 'web' => "\x{3BE}"},
      '(psi|#968)'     => {'tex' => '{/Symbol y}', 'web' => "\x{3C8}"},       '(psi|#968)'     => {'tex' => '{/Symbol y}', 'web' => "\x{3C8}"},
      '(zeta|#950)'    => {'tex' => '{/Symbol z}', 'web' => "\x{3B6}"},       '(zeta|#950)'    => {'tex' => '{/Symbol z}', 'web' => "\x{3B6}"},
   
         # Punctuation:
         
         '(quot|#034)'   => {'tex' =>  '\42',        'web' => '\42'},
         '(amp|#038)'    => {'tex' =>  '\46',        'web' => '\46'},
         '(lt|#060)'     => {'tex' =>  '\74',        'web' => '\74'},
         '(gt|#062)'     => {'tex' =>  '\76',        'web' => '\76'},
         '#131'          => {'tex' =>  '{/Symbol \246}', 'web' => "\x{192}"},
         '#132'          => {'tex' => '{/Text \271}',        'web' => "\x{201e}"},
         '#133'          => {'tex' => '{/Symbol \274}', 'web'=> "\x{2026}"},
         '#134'          => {'tex' => '{/Text \262}',  'web' => "\x{2020}"},
         '#135'          => {'tex' => '{/Text \263}',  'web' => "\x{2021}"},
         '#136'          => {'tex' => '\\\\^',            'web' => '\\\\^'},
         '#137'          => {'tex' => '{/Text \275}', 'web' => "\x{2030}"},
         '#138'          => {'tex' => 'S',           'web' => "\x{160}"}, # no S-caron in ps fonts.
         '#139'          => {'tex' => '<',           'web' => '<'},
         '#140'          => {'tex' => '{/Text \352}','web' => "\x{152}"},
         '#145'          => {'tex' => '\140',        'web' => "\x{2018}"},
         '#146'          => {'tex' => '\47',         'web' => "\x{2019}"},
         '#147'          => {'tex' => '{/Text \252}','web' => "\x{201c}"},
         '#148'          => {'tex' => '{/Text \315}','web' => '\\"'},
         '#149'          => {'tex' => '{/Symbol \267}', 'web' => "\x{2022}"},
         
     );      );
   
   
Line 876  sub replace_entities { Line 901  sub replace_entities {
     my ($target,$text) = @_;      my ($target,$text) = @_;
     $text =~ s{([_^~\{\}]|\\\\)}{\\\\$1}g;      $text =~ s{([_^~\{\}]|\\\\)}{\\\\$1}g;
     while (my ($re, $replace) = each(%lookup)) {      while (my ($re, $replace) = each(%lookup)) {
    my $repl = $replace->{$target};
  $text =~ s/&$re;/$replace->{$target}/g;   $text =~ s/&$re;/$replace->{$target}/g;
     }      }
     $text =~ s{(&)}{\\\\$1}g;      $text =~ s{(&)}{\\\\$1}g;
Line 1483  sub write_gnuplot_file { Line 1509  sub write_gnuplot_file {
                 $gnuplot_input.= $linetypes{$curve->{'linetype'}};                  $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                 $gnuplot_input.= ' linecolor rgb "';                  $gnuplot_input.= ' linecolor rgb "';
                 # convert color from xaaaaaa to #aaaaaa                  # convert color from xaaaaaa to #aaaaaa
                 $curve->{'color'} =~ s/x/#/;                  $curve->{'color'} =~ s/^x/#/;
                 $gnuplot_input.= $curve->{'color'}.'"';                  $gnuplot_input.= $curve->{'color'}.'"';
             }              }
             $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};              $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};
Line 1527  sub write_gnuplot_file { Line 1553  sub write_gnuplot_file {
                 $gnuplot_input.= $linetypes{$curve->{'linetype'}};                  $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                 $gnuplot_input.= ' linecolor rgb "';                  $gnuplot_input.= ' linecolor rgb "';
                 # convert color from xaaaaaa to #aaaaaa                  # convert color from xaaaaaa to #aaaaaa
                 $curve->{'color'} =~ s/x/#/;                  $curve->{'color'} =~ s/^x/#/;
                 $gnuplot_input.= $curve->{'color'}.'"';                  $gnuplot_input.= $curve->{'color'}.'"';
             }              }
                 $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};                   $gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; 
Removed from v.1.135  
changed lines
  Added in v.1.137

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