[WWcvs] pg: WWPlot: slightly better choice of dash-length and spacing for dashing option on lines and arrows.

[Gavin L. v. a. <we...@ma...>]

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 {