[system] / trunk / pg / lib / WWPlot.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/WWPlot.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6045 Revision 6046
… …
378 $color = $self->{'colors'}{$color} if $color=~/[A-Za-z]+/ && defined($self->{'colors'}{$color}) ; # colors referenced by name works here. 378 $color = $self->{'colors'}{$color} if $color=~/[A-Za-z]+/ && defined($self->{'colors'}{$color}) ; # colors referenced by name works here.
379 $color = $self->{'colors'}{'default_color'} unless defined($color); 379 $color = $self->{'colors'}{'default_color'} unless defined($color);
380 380
381 $self->im->setThickness( $w ); 381 $self->im->setThickness( $w );
382 if ( $d ) { 382 if ( $d ) {
383 my @dashing = ( $color )x(4*$w); 383 my @dashing = ( $color )x(4*$w*$w);
384 my @spacing = ( GD::gdTransparent )x(4*$w); 384 my @spacing = ( GD::gdTransparent )x(3*$w*$w);
385 $self->im->setStyle( @dashing, @spacing ); 385 $self->im->setStyle( @dashing, @spacing );
386 $self->im->line(@{$self->position},$x,$y,GD::gdStyled); 386 $self->im->line(@{$self->position},$x,$y,GD::gdStyled);
387 } else { 387 } else {
388 $self->im->line(@{$self->position},$x,$y,$color); 388 $self->im->line(@{$self->position},$x,$y,$color);
389 } 389 }
… …
431 $head->addPt($x1,$y1); 431 $head->addPt($x1,$y1);
432 $head->addPt($hbx + 2*$width*$px, $hby + 2*$width*$py); 432 $head->addPt($hbx + 2*$width*$px, $hby + 2*$width*$py);
433 $head->addPt($hbx - 2*$width*$px, $hby - 2*$width*$py); 433 $head->addPt($hbx - 2*$width*$px, $hby - 2*$width*$py);
434 $self->im->filledPolygon( $head, $color ); 434 $self->im->filledPolygon( $head, $color );
435 if ( $d ) { 435 if ( $d ) {
436 my @dashing = ( $color )x(4*$w); 436 my @dashing = ( $color )x(4*$w*$w);
437 my @spacing = ( GD::gdTransparent )x(4*$w); 437 my @spacing = ( GD::gdTransparent )x(3*$w*$w);
438 $self->im->setStyle( @dashing, @spacing ); 438 $self->im->setStyle( @dashing, @spacing );
439 $self->im->line( $x0,$y0,$x1,$y1,GD::gdStyled); 439 $self->im->line( $x0,$y0,$x1,$y1,GD::gdStyled);
440 } else { 440 } else {
441 $self->im->line( $x0,$y0,$x1,$y1,$color ); 441 $self->im->line( $x0,$y0,$x1,$y1,$color );
442 } 442 }
Legend:
Removed from v.6045  
changed lines
  Added in v.6046
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9