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

Diff for /loncom/xml/lonplot.pm between versions 1.134 and 1.138

version 1.134, 2008/01/20 02:47:06 version 1.138, 2008/05/13 11:01:43
Line 91  BEGIN { Line 91  BEGIN {
 my $max_str_len = 50;    # if a label, title, xlabel, or ylabel text  my $max_str_len = 50;    # if a label, title, xlabel, or ylabel text
                          # is longer than this, it will be truncated.                           # is longer than this, it will be truncated.
   
   my %linetypes =
       (
        solid          => 1,
        dashed         => 0
       );
   
 my %linestyles =   my %linestyles = 
     (      (
      lines          => 2,     # Maybe this will be used in the future       lines          => 2,     # Maybe this will be used in the future
Line 497  my %axis_defaults = Line 503  my %axis_defaults =
   
      );       );
   
 my @curve_edit_order = ('color','name','linestyle','linewidth','pointtype','pointsize','limit');  my @curve_edit_order = ('color','name','linestyle','linewidth','linetype','pointtype','pointsize','limit');
   
 my %curve_defaults =   my %curve_defaults = 
     (      (
Line 518  my %curve_defaults = Line 524  my %curve_defaults =
      linestyle => {       linestyle => {
  default => 'lines',   default => 'lines',
  test => $linestyle_test,   test => $linestyle_test,
  description => 'Line style',   description => 'Plot with:',
  edit_type   => 'choice',   edit_type   => 'choice',
  choices     => [keys(%linestyles)]   choices     => [keys(%linestyles)]
  },   },
      linewidth => {       linewidth => {
          default     => 1,           default     => 1,
          test        => $int_test,           test        => $int_test,
          description => 'Line width (may not apply to all line styles)',           description => 'Line width (may not apply to all plot styles)',
          edit_type   => 'choice',           edit_type   => 'choice',
          choices     => [1,2,3,4,5,6,7,8,9,10]           choices     => [1,2,3,4,5,6,7,8,9,10]
          },           },
        linetype => {
            default     => 'solid',
            test        => sub {$_[0]=~/^(solid|dashed)$/},
            description => 'Line type (may not apply to all plot styles)',
            edit_type   => 'choice',
            choices     => ['solid', 'dashed']
            }, 
      pointsize => {       pointsize => {
          default     => 1,           default     => 1,
          test        => $pos_real_test,           test        => $pos_real_test,
          description => 'Point size (may not apply to all line styles)',           description => 'Point size (may not apply to all plot styles)',
          edit_type   => 'entry',           edit_type   => 'entry',
          size        => '5'           size        => '5'
          },           },
      pointtype => {       pointtype => {
          default     => 1,           default     => 1,
          test        => $int_test,           test        => $int_test,
          description => 'Point type (may not apply to all line styles)',           description => 'Point type (may not apply to all plot styles)',
          edit_type   => 'choice',           edit_type   => 'choice',
          choices     => [0,1,2,3,4,5,6]           choices     => [0,1,2,3,4,5,6]
          },           },
      limit     => {       limit     => {
          default     => 'closed',           default     => 'closed',
  test        => sub {$_[0]=~/^(closed|x1|x2|y1|y2)$/},   test        => sub {$_[0]=~/^(above|below|closed|x1|x2|y1|y2)$/},
          description => 'Point to fill -- for filledcurves',           description => 'Point to fill -- for filledcurves',
          edit_type   => 'choice',           edit_type   => 'choice',
          choices     => ['closed','x1','x2','y1','y2']           choices     => ['above', 'below', 'closed','x1','x2','y1','y2']
          },           },
      );       );
   
Line 808  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 856  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}"},
         '#150'          => {'tex' => '{/Text \55}',     'web' => "\x{2013}"},  #Untested here en dash
         '#151'          => {'tex' => '{/Symbol \55}',   'web' => "\x{2014}"},  # em dash
         '#152'          => {'tex' => '~',               'web' => '~'},
         '#153'          => {'tex' => '{/Text \324}',    'web' => "\x{2122}"}, # trademark
         '#154'          => {'tex' => 's',               'web' => "\x{161}"}, # small s-caron no ps.
         '#155'          => {'tex' => '>',               'web' => '\76'},     # >
         '#156'          => {'tex' => '{/Text \372}',    'web' => "\x{153}"}, # oe ligature.
         '#159',         => {'tex' => 'Y',               'web' => "\x{178}"}, # Y-umlaut - can't print
         '(nbsp|#160)'   => {'tex' => ' ',               'web' => ' '},       # non breaking space.
         '(iexcl|#161)'  => {'tex' => '{/Text \241}',    'web' => "\x{a1}"},  # inverted !
         '(cent|#162)'   => {'tex' => '{/Text \242}',    'web' => "\x{a2}"},  # Cent currency.
         '(pound|#163}'  => {'tex' => '{/Text \243}',    'web' => "\x{a3}"},  # GB Pound currency.
         '(curren|#164)' => {'tex' => '{/Text \250}',    'web' => "\x{a4}"},  # Generic currency symb.
         '(yen|#165)'    => {'tex' => '{/Text \245}',    'web' => "\x{a5}"},  # Yen currency.
         '(brvbar|#166)' => {'tex' => '{/Symbol \174}',  'web' => "\x{a6}"},  # Broken vert bar no print.
         '(sect|#167)'   => {'tex' => '{\247}',          'web' => "\x{a7}"},  # Section symbol.
         '(uml|#168)'    => {'tex' => '{\250}',          'web' => "\x{a8}"},  # 'naked' umlaut.
         '(copy|#169)'   => {'tex' => '{/Symbol \343}',  'web' => "\x{a9}"},  # Copyright symbol.
         '(ordf|#170)'   => {'tex' => '{/Text \343}',    'web' => "\x{aa}"},  # Feminine ordinal.
         '(laquo|#171)'  => {'tex' => '{/Text \253}',    'web' => "\x{ab}"},  # << quotes.
         '(not|#172)'    => {'tex' => '\254',            'web' => "\x{ac}"},  # Logical not.
         '(shy|#173)'    => {'tex' => '-',               'web' => "\x{ad}"},  # soft hyphen.
         '(reg|#174)'    => {'tex' => '{/Symbol \342}',  'web' => "\x{ae}"},  # Registered tm.
         '(macr|#175)'   => {'tex' => '^{-}',            'web' => "\x{af}"},  # 'naked' macron (overbar).
         '(deg|#176)'    => {'tex' => '{/Text \312}',    'web' => "\x{b0}"},  # Degree symbo..
         '(plusmn|#177)' => {'tex' => '{/Symbol \261}',  'web' => "\x{b1}"},  # +/- symbol.
         '(sup2|#178)'   => {'tex' => '^2',              'web' => "\x{b2}"},  # Superscript 2.
         '(sup3|#179)'   => {'tex' => '^3',              'web' => "\x{b3}"},  # Superscript 3.
         '(acute|#180)'  => {'tex' => '{/Text \302}',    'web' => "\x{b4}"},  # 'naked' acute accent.
         '(micro|#181)'  => {'tex' => '{/Symbol \155}',  'web' => "\x{b5}"},  # Micro (small mu).
         '(para|#182)'   => {'tex' => '{/Text \266}',    'web' => "\x{b6}"},  # Paragraph symbol.
         '(middot|#183)' => {'tex' => '^.',              'web' => "\x{b7}"},  # middle dot (maybe text 267 is better)?
         '(cedil|#184)'  => {'tex' => '\233',            'web' => "\x{b8}"},  # 'naked' cedilla.
         '(sup1|#185)'   => {'tex' => '^1',              'web' => "\x{b9}"},  # superscript 1.
         '(ordm|#186)'   => {'tex' => '\353',            'web' => "\x{ba}"},  # masculine ordinal.
         '(raquo|#187)', => {'tex' => '\273',            'web' => "\x{bb}"},  # Right angle quotes.
         '(frac14|#188)' => {'tex' => '\274',            'web' => "\x{bc}"},  # 1/4.
         '(frac12|#189)' => {'tex' => '\275',            'web' => "\x{bd}"},  # 1/2.
         '(frac34|#190)' => {'tex' => '\276',            'web' => "\x{be}"},  # 3/4
         '(iquest|#191)' => {'tex' => '{/Text \277}',    'web' => "\x{bf}"},  # Inverted ?
         '(Agrave|#192)' => {'tex' => '\300',            'web' => "\x{c0}"},  # A Grave.
         '(Aacute|#193)' => {'tex' => '\301',            'web' => "\x{c1}"},  # A Acute.
         '(Acirc|#194)'  => {'tex' => '\302',            'web' => "\x{c2}"},  # A Circumflex.
         '(Atilde|#195)' => {'tex' => '\303',            'web' => "\x{c3}"},  # A tilde.
         '(Auml|#196)'   => {'tex' => '\304',            'web' => "\x{c4}"},  # A umlaut.
         '(Aring|#197)'  => {'tex' => '\305',            'web' => "\x{c5}"},  # A ring.
         'AElig|#198)'   => {'tex' => '\306',            'web' => "\x{c6}"},  # AE ligature.
     );      );
   
   
Line 863  sub replace_entities { Line 947  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 1464  sub write_gnuplot_file { Line 1549  sub write_gnuplot_file {
                 $gnuplot_input.=' pointsize '.$curve->{'pointsize'};                  $gnuplot_input.=' pointsize '.$curve->{'pointsize'};
             } elsif ($curve->{'linestyle'} eq 'filledcurves') {               } elsif ($curve->{'linestyle'} eq 'filledcurves') { 
                 $gnuplot_input.= ' '.$curve->{'limit'};                  $gnuplot_input.= ' '.$curve->{'limit'};
               } elsif ($curve->{'linetype'} ne '' &&
                        $curve->{'linestyle'} eq 'lines') {
                   $gnuplot_input.= ' linetype ';
                   $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                   $gnuplot_input.= ' linecolor rgb "';
                   # convert color from xaaaaaa to #aaaaaa
                   $curve->{'color'} =~ s/^x/#/;
                   $gnuplot_input.= $curve->{'color'}.'"';
             }              }
             $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};              $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};
   
Line 1500  sub write_gnuplot_file { Line 1593  sub write_gnuplot_file {
                 $gnuplot_input.=' pointsize '.$curve->{'pointsize'};                  $gnuplot_input.=' pointsize '.$curve->{'pointsize'};
             } elsif ($curve->{'linestyle'} eq 'filledcurves') {               } elsif ($curve->{'linestyle'} eq 'filledcurves') { 
                 $gnuplot_input.= ' '.$curve->{'limit'};                  $gnuplot_input.= ' '.$curve->{'limit'};
               } elsif ($curve->{'linetype'} ne '' &&
                        $curve->{'linestyle'} eq 'lines') {
                   $gnuplot_input.= ' linetype ';
                   $gnuplot_input.= $linetypes{$curve->{'linetype'}};
                   $gnuplot_input.= ' linecolor rgb "';
                   # convert color from xaaaaaa to #aaaaaa
                   $curve->{'color'} =~ s/^x/#/;
                   $gnuplot_input.= $curve->{'color'}.'"';
             }              }
             $gnuplot_input.= ' linewidth '.$curve->{'linewidth'};                  $gnuplot_input.= ' linewidth '.$curve->{'linewidth'}; 
  }   }
     }      }
     # Write the output to a file.      # Write the output to a file.
Removed from v.1.134  
changed lines
  Added in v.1.138

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