Log Message:
-----------
WWPlot: slightly better choice of dash-length and spacing for dashing
option on lines and arrows.
Modified Files:
--------------
pg/lib:
WWPlot.pm
Revision Data
-------------
Index: WWPlot.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/WWPlot.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -Llib/WWPlot.pm -Llib/WWPlot.pm -u -r1.5 -r1.6
--- lib/WWPlot.pm
+++ lib/WWPlot.pm
@@ -380,8 +380,8 @@
$self->im->setThickness( $w );
if ( $d ) {
- my @dashing = ( $color )x(4*$w);
- my @spacing = ( GD::gdTransparent )x(4*$w);
+ my @dashing = ( $color )x(4*$w*$w);
+ my @spacing = ( GD::gdTransparent )x(3*$w*$w);
$self->im->setStyle( @dashing, @spacing );
$self->im->line(@{$self->position},$x,$y,GD::gdStyled);
} else {
@@ -433,8 +433,8 @@
$head->addPt($hbx - 2*$width*$px, $hby - 2*$width*$py);
$self->im->filledPolygon( $head, $color );
if ( $d ) {
- my @dashing = ( $color )x(4*$w);
- my @spacing = ( GD::gdTransparent )x(4*$w);
+ my @dashing = ( $color )x(4*$w*$w);
+ my @spacing = ( GD::gdTransparent )x(3*$w*$w);
$self->im->setStyle( @dashing, @spacing );
$self->im->line( $x0,$y0,$x1,$y1,GD::gdStyled);
} else {
|
