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

Diff for /loncom/homework/randomlylabel.pm between versions 1.18 and 1.19

version 1.18, 2004/02/23 23:54:14 version 1.19, 2004/03/16 23:08:23
Line 201  sub handler { Line 201  sub handler {
     }      }
     $image->copy($subimage,$x,$y,0,0,$subimage->getBounds());      $image->copy($subimage,$x,$y,0,0,$subimage->getBounds());
  } elsif ($type eq 'LABEL') {   } elsif ($type eq 'LABEL') {
     my ($x,$y,$text,$font,$color)=split(':',$ENV{"cgi.$id.OBJ$i"});      my ($x,$y,$text,$font,$color,$direction)=
    split(':',$ENV{"cgi.$id.OBJ$i"});
     $text=&Apache::lonnet::unescape($text);      $text=&Apache::lonnet::unescape($text);
     my $imcolor=&get_color_from_hexstring($image,$color);      my $imcolor=&get_color_from_hexstring($image,$color);
     my $height=GD::Font->Giant->height;      my $type='normal';
     $image->string(GD::gdGiantFont,$x,$y-$height,$text,$imcolor);      my ($height,$fontref);
       if ($font eq 'tiny') {
    $height=GD::Font->Tiny->height;
    $fontref=GD::gdTinyFont;
       } elsif ($font eq 'small') {
    $height=GD::Font->Small->height;
    $fontref=GD::gdSmallFont;
       } elsif ($font eq 'medium') {
    $height=GD::Font->MediumBold->height;
    $fontref=GD::gdMediumBoldFont;
       } elsif ($font eq 'large') {
    $height=GD::Font->Large->height;
    $fontref=GD::gdLargeFont;
       } elsif ($font eq 'giant' || !defined($font)) {
    $height=GD::Font->Giant->height;
    $fontref=GD::gdGiantFont;
       } else {
    $type='ttf';
       }
       if ($type eq 'normal' && $direction eq 'vertical') {
    $image->stringUp($fontref,$x,$y-$height,$text,$imcolor);
       } elsif ($type eq 'normal') {
    $image->string($fontref,$x,$y-$height,$text,$imcolor);
       } elsif ($type eq 'ttf') {
    my ($fontname,$ptsize)=split(/\s+/,$font);
    $image->stringFT($imcolor,$fontname,$ptsize,90,$x,$y,$text);
       }
  } else {   } else {
     &Apache::lonnet::logthis("randomlylabel unable to handle object of type $type");      &Apache::lonnet::logthis("randomlylabel unable to handle object of type $type");
  }   }
Removed from v.1.18  
changed lines
  Added in v.1.19

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