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

Diff for /loncom/xml/lonplot.pm between versions 1.4 and 1.5

version 1.4, 2001/12/18 20:34:58 version 1.5, 2001/12/18 22:29:42
Line 48  my $onoff_test     = sub {$_[0]=~/^(on|o Line 48  my $onoff_test     = sub {$_[0]=~/^(on|o
 my $key_pos_test   = sub {$_[0]=~/^(top|bottom|right|left|outside|below)+$/};  my $key_pos_test   = sub {$_[0]=~/^(top|bottom|right|left|outside|below)+$/};
 my $sml_test       = sub {$_[0]=~/^(small|medium|large)$/};  my $sml_test       = sub {$_[0]=~/^(small|medium|large)$/};
 my $linestyle_test = sub {$_[0]=~/^(lines|linespoints|dots|points|steps)$/};  my $linestyle_test = sub {$_[0]=~/^(lines|linespoints|dots|points|steps)$/};
   my $words_test     = sub {$_[0]=~/^((\w+\b*)+$/};
 ##  ##
 ## Default values for attributes of elements  ## Default values for attributes of elements
 ##  ##
Line 56  my %plot_defaults = Line 56  my %plot_defaults =
     (      (
      height       => {default => 200,       test => $int_test  },       height       => {default => 200,       test => $int_test  },
      width        => {default => 200,       test => $int_test  },       width        => {default => 200,       test => $int_test  },
      bgcolor      => {default => "xffffff", test => $color_test},       bgcolor      => {default => 'xffffff', test => $color_test},
      fgcolor      => {default => "x000000", test => $color_test},       fgcolor      => {default => 'x000000', test => $color_test},
      transparent  => {default => "off",     test => $onoff_test},       transparent  => {default => 'off',     test => $onoff_test},
      grid         => {default => "off",     test => $onoff_test},       grid         => {default => 'off',     test => $onoff_test},
      border       => {default => "on" ,     test => $onoff_test},       border       => {default => 'on',      test => $onoff_test},
      font         => {default => "medium",  test => $sml_test  }       font         => {default => 'medium',  test => $sml_test  }
      );       );
   
 my %key_defaults =   my %key_defaults = 
     (      (
      title => { default => "on" ,        test => $onoff_test  },       title => { default => '',          test => $words_test  },
      box   => { default => "off" ,       test => $onoff_test  },       box   => { default => 'off',       test => $onoff_test  },
      pos   => { default => "top right" , test => $key_pos_test}       pos   => { default => 'top right', test => $key_pos_test}
      );       );
   
 my %label_defaults =   my %label_defaults = 
     (      (
      xpos    => {default => 0,         test => $real_test                   },       xpos    => {default => 0,         test => $real_test                   },
      ypos    => {default => 0,         test => $real_test                   },       ypos    => {default => 0,         test => $real_test                   },
      color   => {default => "x000000", test => $color_test                  },       color   => {default => 'x000000', test => $color_test                  },
      justify => {default => "left",           justify => {default => 'left',    
                  test => sub {$_[0]=~/^(left|right|center)$/}}                   test => sub {$_[0]=~/^(left|right|center)$/}}
      );       );
   
 my %axis_defaults =   my %axis_defaults = 
     (      (
      color     => {default => "x000000", test => $color_test},       color     => {default => 'x000000', test => $color_test},
      thickness => {default => 1,         test => $int_test  },       thickness => {default => 1,         test => $int_test  },
      xmin      => {default => -10.0,     test => $real_test },       xmin      => {default => -10.0,     test => $real_test },
      xmax      => {default =>  10.0,     test => $real_test },       xmax      => {default =>  10.0,     test => $real_test },
Line 92  my %axis_defaults = Line 92  my %axis_defaults =
   
 my %curve_defaults =   my %curve_defaults = 
     (      (
      color     => {default => "x000000", test => $color_test      },       color     => {default => 'x000000', test => $color_test      },
      name      => {default => "x000000", test => sub {$_[0]=~/^[\w ]*$/} },       name      => {default => 'x000000', test => sub {$_[0]=~/^[\w ]*$/} },
      linestyle => {default => "lines",   test => $linestyle_test  }       linestyle => {default => 'lines',   test => $linestyle_test  }
      );       );
   
 ##  ##
Removed from v.1.4  
changed lines
  Added in v.1.5

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