[BACK]Return to graph.png CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/graph.png between versions 1.11 and 1.12

version 1.11, 2002/05/13 16:52:11 version 1.12, 2002/05/16 01:31:23
Line 54  for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { Line 54  for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
   
 my @data =(\@xlabels,\@data11,\@data12);  my @data =(\@xlabels,\@data11,\@data12);
   
 my $Range;  my $Range1;
   my $Range2;
   
 if ($xlab=~/^Concepts$/){  if ($xlab=~/^Concepts$/){
     $Range=500;      $Range1=270;
 }       $Range2=200;
 else {  } else {
     if ( $PNo > 10 ) {$Range = 30*$PNo;}      if ( $PNo > 10 ) {
     else { $Range = 400+30*$PNo; }   $Range1 = 20*$PNo;
       } else { 
           $Range1 = 250+30*$PNo; 
       }
       $Range2=200; 
 }  }
   
   
 my $MyGraph = GD::Graph::bars->new($Range, 400);  my $MyGraph = GD::Graph::bars->new($Range1,$Range2);
   
 $MyGraph->set(   $MyGraph->set( 
     x_label         => $xlab,   #   x_label         => $xlab,
     y_label         => $ylab,      y_label         => $ylab,
     long_ticks      => 1,      long_ticks      => 1,
     tick_length     => 0,      tick_length     => 0,
Line 90  $MyGraph->set( Line 96  $MyGraph->set(
     boxclr              => 'lorange',      boxclr              => 'lorange',
     accentclr           => 'dblue',      accentclr           => 'dblue',
     valuesclr           => '#ffff77',      valuesclr           => '#ffff77',
   
     l_margin            => 10,      l_margin            => 10,
     b_margin            => 10,      b_margin            => 10,
     r_margin            => 10,      r_margin            => 10,
Line 98  $MyGraph->set( Line 103  $MyGraph->set(
   
     transparent     => 0,      transparent     => 0,
 ) or warn $MyGraph->error;   ) or warn $MyGraph->error; 
 if ($xlab=~/^Concepts$/){  #if ($xlab=~/^Concepts$/){
     $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers');  #    $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers');
 }  #}
   
   
 # Tell the server we are sending a gif graphic  # Tell the server we are sending a gif graphic
 print <<END;  print <<END;
 Content-type: image/gif  Content-type: image/gif
   
 END  END
   
   #$MyGraph->set_y_label_font('/home/httpd/cgi-bin/cetus.ttf', 16);
   #$MyGraph->set_x_label_font('/home/httpd/cgi-bin/cetus.ttf', 16);
   #$MyGraph->set_y_axis_font('/home/httpd/cgi-bin/cetus.ttf', 12);
   #$MyGraph->set_x_axis_font('/home/httpd/cgi-bin/cetus.ttf', 12);
   #$MyGraph->set_title_font('/home/httpd/cgi-bin/cetus.ttf', 18);
   #$MyGraph->set_legend_font('/home/httpd/cgi-bin/cetus.ttf', 10);
   #$MyGraph->set_values_font('/home/httpd/cgi-bin/cetus.ttf', 10);
   
   
 my $BinaryData=$MyGraph->plot(\@data)->png;  my $BinaryData=$MyGraph->plot(\@data)->png;
 undef $MyGraph;  undef $MyGraph;
 binmode(STDOUT);  binmode(STDOUT);
Removed from v.1.11  
changed lines
  Added in v.1.12

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