use GD;
use URI::Escape;

#NOTE:  yInc should normally be a multiple of ygrid, if not specifying low 
#       and high values for y.

#NOTE:  (FIX ME) NEGATIVE NUMBERS APPEAR TO BE BROKEN :( !!!!!!!!!!!!!!!!!
#
#	This version of GDstackchart has been modified to handle multibar sets.
#	This is achieved by providing multiline x-values by including "\n" in them 
#	and using the -xbreak and -barpct options.  Coloration will now cycle on 
#	as desired.  Another option added to provide padding before the leftmost 
#	bar preventing undesirable appearance when setting -barpct close to 100 is 
#	the new "lmgn2" option, which provides this desired padding (between the 
#	left (y) axis and the left side of the 1st bar in pixels.

=head1 EXAMPLE

@codes = ('D5','','P5','','D13','','N7','','N19','','N19','','N23','','DC17','');
@yvals = (1, 3, 5, 7, 2, 4, 6, ' ', 10, 9, 8, 7, 4, 3, 2, ' ', 3, 6, 2, 4, 5, 1, 7, ' ', 8, 6, 4, 2, 4,3,2,' ', 3, 5, 7, 2, 4, 6, 8, ' ', 10, 9, 8, 7, 4, 3, 2, ' ', 3, 6, 2, 4, 5, 1, 7, ' ', 8, 6, 4, 2, 4,3,2,' '),
($g,undef) = &StackChart(
          -xvals => \@codes, 
          -yvals => \@yvals,
          -xtitle => 'x-title',
          -ytitle => 'y-title',
          -xbreaklegend => ['grp1', 'grp2', 'grp3', 'grp4', 'grp5', 'grp6', 'grp7', 'grp8'],
          -xlegend => ["50G\n<90 Days", "USAF\n90 Days", "Blk 60\n120 Days", 'PE'],
          -title => 'Harnesses',              ^
          -maxysiz => 300,                    |
          -showvalues => 'bottom,total,top',  |
          -xbreak => 2,    <-------------------
          -barxsiz => 20,
          -barpct => 100,  <-------------------
          -border => 1,
          -lmgn2 => 10,    <-------------------
);

#THIS CREATES A CHART WITH 2 SETS OF X-VALUES FOR A TOTAL OF 7.  NOTE THAT 
#EVERY 8TH Y-VALUE IS ' ', SINCE WE ONLY WANT 3 VALUES IN EVERY 2ND BAR.
#EACH 1ST BAR HAS 4 VALUES.  BY SETTING XBREAK TO 2 AND BARPCT TO 100, EACH 
#"PAIR" OF BARS ABUTS EACH OTHER, BUT IS SEPARATED FROM OTHER PAIRS!
#NOTE:  COMBINING LINES W/MULTIBAR SETS DOES NOT WORK PROPERLY - THERE WILL 
#BE A POINT PLOTTED FOR EACH BAR IN THE GROUP + ONE MORE BETWEEN GROUPS - 
#THIS NEEDS TO BE CHANGED TO (PROBABLY) ONLY PLOT A SINGLE POINT PER GROUP
#OR A POINT FOR EACH BAR, SKIPPING THE SPACE IN BETWEEN GROUPS, BUT THEN
#THIS WOULD PROBABLY LOOK SQUIRRLY?!

=cut
sub StackChart
{
	my %parm;
	my (@barcolrs, @barcolors, @linecolors);
	my ($g, $v);
	my ($ycnt, $ylncnt, $h, $i, $j, $legendx, $legendy, $mapstr);

#print "<BR><BR>entering GDbarchart!\n";
	while (@_)
	{
		$v = shift;
		$v =~ s/^\-//;
		$parm{$v} = shift;
#print "<BR>111 parm name=$v= set to =$parm{$v}=\n";
	}
#print "<BR>????? *START* ????? barysiz=$parm{barysiz}=\n";



#print "<BR>HELLO WORLD:  xcnt=$#{$parm{xvals}}= ycnt=$#{$parm{yvals}}=\n";

			for ($i=0;$i<$#{$parm{xvals}};$i++)
			{
#print "<BR>xxxx=${$parm{xvals}}[$i]=\n";
			}
			for ($i=0;$i<$#{$parm{yvals}};$i++)
			{
#print "<BR>yyyy=${$parm{yvals}}[$i]=\n";
			}




	my (@l);
	my ($sfw,$sfh) = (gdSmallFont->width,gdSmallFont->height);
	my ($lfw,$lfh) = (gdLargeFont->width,gdSmallFont->height);
	my ($sfh_1) = $sfh - 1;
	my ($sfh2) = $sfh + 2;
	my ($sfh_2) = $sfh / 2;

	#SET UP PARAMETER DEFAULTS.

	#$parm{lmgn} = 60  unless($parm{lmgn});
	#$parm{rmgn} = 20  unless($parm{rmgn});
	$parm{minlmgn} ||= 20;   #ADDED 20030910.
	$parm{minrmgn} ||= 20;   #ADDED 20110617.
	#$parm{bmgn} = 80  unless($parm{bmgn});
	my @titles;

	#NEXT LINE ADDED 20030430 TO SUPPORT MULTILINE TITLES!
	@titles = split(/\n|\<BR\>/i, $parm{title})  if (defined($parm{title}));
	unless($tmgn)
	{
		$parm{tmgn} = 20;
		#$parm{tmgn} += $lfh + $sfh  if (defined($parm{title})); #CHGD. TO NEXT 20030430 TO SUPPORT MULTILINE TITLES!
		$parm{tmgn} += ($lfh+2)*scalar(@titles) + $sfh  if ($#titles >= 0);
	}
#$parm{border} = 3  unless (defined($parm{border}));  #FOR DEBUG ONLY.
	#$parm{barcolor} = 'blue'  unless ($parm{barcolor});
	#$parm{bgcolor} = 'white'  unless ($parm{bgcolor});
	$parm{valcolor} = 'white'  unless ($parm{valcolor});
	$parm{axiscolor} = 'black'  unless ($parm{axiscolor});
	$parm{titlecolor} = $parm{axiscolor}  unless ($parm{titlecolor});
	$parm{valxcolor} = $parm{axiscolor}  unless ($parm{valxcolor});
	#$parm{barcolors} = [qw(Steelblue4 DarkGreen brown4 Yellow3 darkorchid skyblue darkorange gray khaki salmon bisque4 olivedrab)]  unless(defined($parm{barcolors}));
	#$parm{barcolors} = [qw(SteelBlue gray brown4 skyblue salmon DarkGreen brown4 purple darkorange olivedrab khaki darkcyan bisque4)]  unless(defined($parm{barcolors}));
	$parm{barcolors} = [qw(SteelBlue gray brown4 khaki3 DarkGreen salmon skyblue bisque3 purple darkorange olivedrab yellow3)]  unless(defined($parm{barcolors}));

	#ADDED 20030415 TO ALLOW MULTIPLE LINES OF XLEGEND VALUES SPLIT ON \n!

	$legendx = $parm{lmgn} / 2;
	$ix = 0;
	my $colormax = $#{$parm{xlegend}} + 1;
	my $xlegendycnt = 1;

	#NEXT 12 ADDED 20030417 TO CALCULATE MAX WIDTH NEEDED FOR MULTIPLE LEGEND LINES.

	my @legendlens;
	for (my $i=0;$i<=$#{$parm{xlegend}};$i++)
	{
		@l = split(/\n/o, $parm{xlegend}->[$i]);
		$xlegendycnt = scalar(@l)  unless ($xlegendycnt > scalar(@l));
		for (my $j=0;$j<=$#l;$j++)
		{
			$legendlens[$j] += length($l[$j]);
#print "<BR>ix=$ix= l($l[$j])=".length($l[$j])."= ll0=$legendlens[0]= ll1=$legendlens[1]=\n";
		$ix = $legendlens[$j]  unless ($ix > $legendlens[$j]);
		}
	}
	$legendx = (scalar(@{$parm{xlegend}})*($sfh2+5) + $sfw*$ix + $parm{lmgn} + $parm{rmgn})- 2*$sfh;
#print "<BR>xl=".scalar(@{$parm{xlegend}})."= sfw=$sfw= sfh2=$sfh2 sfh=$sfh= lx=$legendx= ix=$ix=\n";

#print "<BR>xlegendycnt=$xlegendycnt=\n";
	$colormax *= $xlegendycnt  if ($xlegendycnt);

	for ($j=0;$j<$parm{shiftcolors};$j++)
	{
		$ix = shift(@{$parm{barcolors}});
		@barcolrs = (@{$parm{barcolrs}},$ix);
	}
	if (defined($parm{barcolor}))
	{
		$parm{barcolors} = [$parm{barcolor}];
	}
	elsif (defined($parm{xlegend}) && $#{$parm{barcolors}} > 0 && $#{$parm{xlegend}} > 0)
	{
#		$#{$parm{barcolors}} = $#{$parm{xlegend}}  if ($#{$parm{barcolors}} > $#{$parm{xlegend}});
		$#{$parm{barcolors}} = $colormax  if ($#{$parm{barcolors}} > $colormax);
		$parm{barcolor} = ${$parm{barcolors}}[0];
	}
	else
	{
		$parm{barcolor} = ${$parm{barcolors}}[0];
	}
	my ($shadowcolor) = 'black';
        if (defined($parm{shadowcolor}))
        {
                $shadowcolor = $parm{shadowcolor};
        }
        else
        {
                if (defined($parm{bgcolor}))
                {
                        $shadowcolor = 'gray'  if ($parm{bgcolor} =~ /black/i);
                }
        }
	$parm{gridcolor} = $parm{barcolor}  unless ($parm{gridcolor});
	$parm{headercolor} = $parm{barcolor}  unless ($parm{headercolor});
	$parm{bordercolor} = 'black'  unless ($parm{bordercolor});
	$parm{shadowcolor} = $shadowcolor;

	$ycnt = $#{$parm{xlegend}} + 1  if (defined($parm{xlegend}));
	$ycnt = 1  unless ($ycnt > 1);
	my $lnlegendsz = 0;
	if (defined($parm{lnlegend}))
	{
		$ylncnt = $#{$parm{lnlegend}} + 1;
		#$lnlegendsz = $ylncnt;    #CHGD. TO NEXT 4 20020626.
		for ($i=0;$i<$ylncnt;$i++)
		{
			++$lnlegendsz  if (defined(${$parm{lnlegend}}[$i]));
		}
	}
	my $ybottomcnt = 0;
	if (defined($parm{xlegend}))
	{
		for ($i=0;$i<$ycnt;$i++)
		{
			++$ybottomcnt  if (defined(${$parm{xlegend}}[$i]) && length(${$parm{xlegend}}[$i]));
		}
	}

	my ($yvalcnt) = $ycnt * ($#{$parm{xvals}}+1);  #NO. OF YVALS THERE "SHOULD" BE.
	for ($i=0;$i<$yvalcnt;$i++)    #MAKE SURE ALL Y-VALUES HAVE A VALUE!
	{
		${$parm{yvals}}[$i] = '0'  unless (${$parm{yvals}}[$i]);
#print "<BR>yyyy=${$parm{yvals}}[$i]= cnt=$#{$parm{yvals}}=\n";
	}
	if ($parm{debug})
	{
		$ix = 0;
		for ($j=0;$j<=$#{$parm{yvals}};$j+=$ycnt)
		{
			for ($i=0;$i<$ycnt;$i++)   #DRAW ALL MULTIBARS FOR EACH X-VALUE.
			{
				$g .= "<BR>$parm{xvals}[$i]:  $parm{yvals}[$ix]\n";
			}
		}
		return ($g);
	}
	if (defined($parm{yloval}))
	{
#print "<BR>----yloval defined as $parm{yloval}.\n";
		$parm{ymin} = $parm{yloval};
		$ymin = $parm{ymin};
	}
	else
	{
		$parm{ymin} = 99999;
		$parm{ymin} = 0  if (defined($parm{yhival}));
	}
	if (defined($parm{yhival}))
	{
#print "<BR>----yhival defined as $parm{yhival}.\n";
		$parm{ymax} = $parm{yhival};
		$ymax = $parm{ymax};
	}
	else
	{
		$parm{ymax} = -99999;
	}
	#$parm{ymax} = $parm{yhival};
	my $ymaxwidthval = '0';  #ADDED 20030619
	my $ymax2widthval = '0';  #ADDED 20030703
	#YVALPREFIX & YVALSUFFIX ADDED 20050204 TO APPEND "$" AND OR "%" TO VALUES FOR DISPLAY!
#	my $yvalprefix = defined $parm{yvalprefix} ? $parm{yvalprefix} : '';
#	my $yvalsuffix .= defined $parm{yvalsuffix} ? $parm{yvalsuffix} : '';
	my @yvalprefix = ('');
	my @yvalsuffix = ('');
	my @ylnvalprefix = ('');
	my @ylnvalsuffix = ('');
	if (defined $parm{yvalprefix})
	{
		@yvalprefix = (ref($parm{yvalprefix}) =~ /ARRAY/i) ? @{$parm{yvalprefix}} 
				: ($parm{yvalprefix});
	}
	if (defined $parm{yvalsuffix})
	{
		@yvalsuffix = (ref($parm{yvalsuffix}) =~ /ARRAY/i) ? @{$parm{yvalsuffix}} 
				: ($parm{yvalsuffix});
	}
	if (defined $parm{ylnvalprefix})
	{
		@ylnvalprefix = (ref($parm{ylnvalprefix}) =~ /ARRAY/i) ? @{$parm{ylnvalprefix}} 
				: ($parm{ylnvalprefix});
	}
	if (defined $parm{ylnvalsuffix})
	{
		@ylnvalsuffix = (ref($parm{ylnvalsuffix}) =~ /ARRAY/i) ? @{$parm{ylnvalsuffix}} 
				: ($parm{ylnvalsuffix});
	}
	my $llegendprefix = defined($parm{llegendprefix}) ? $parm{llegendprefix} : '';
	my $rlegendprefix = defined($parm{rlegendprefix}) ? $parm{rlegendprefix} : '';
	my $llegendsuffix = defined($parm{llegendsuffix}) ? $parm{llegendsuffix} : '';
	my $rlegendsuffix = defined($parm{rlegendsuffix}) ? $parm{rlegendsuffix} : '';
	unless (defined($parm{yhival}) && defined($parm{yloval}))   #CALCULATE HIGH AND LO Y-VALUES.
	{
#print"<BR>????? either yloval or yhival not defined! ycnt=$ycnt\n";
		my ($ysum);
		for ($j=0;$j<=$#{$parm{yvals}};$j+=$ycnt)   #FIND LOWEST & HIGHEST Y.
		{
			$ysum = 0;
			for ($i=0;$i<$ycnt;$i++)
			{
				$_ = $i + $j;
				$ysum += ${$parm{yvals}}[$_];
#print "<BR>???? ymin=$parm{ymin}= val=${$parm{yvals}}[$_]=\n";
			}
			if ($ysum < 0)
			{
				$parm{ymin} = $ysum  unless ($parm{ymin} <= $ysum);
			}
			else
			{
				$parm{ymax} = $ysum  unless ($parm{ymax} >= $ysum);
			}
		}
		$parm{ymin} = 0  unless ($parm{ymin} < 0);
		$parm{ymax} = 0  unless ($parm{ymax} > 0);
		#NEXT 3 LINES ADDED 20030619 TO PREVENT WIDE NUMBERS FROM DISPLAYING ON BARS.
		$ymaxwidthval = &commatize($parm{ymax}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
				, $parm{yval_places});
		$ymaxwidthval = &commatize($parm{ymin}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
				, $parm{yval_places})
				if (length($parm{ymin}) > length($parm{ymax}));
		unless (defined $parm{ylnmin} || defined $parm{ylnmax})
		{
			if (defined $parm{ylnvals})
			{
				for ($j=0;$j<=$#{$parm{ylnvals}};$j+=$ylncnt)   #FIND LOWEST & HIGHEST Y.
				{
					for ($i=0;$i<$ylncnt;$i++)
					{
						$_ = $i + $j;
						if (defined(${$parm{ylnvals}}[$_]))
						{
							$parm{ymin} = ${$parm{ylnvals}}[$_]  unless ($parm{ymin} <= ${$parm{ylnvals}}[$_]);
							$parm{ymax} = ${$parm{ylnvals}}[$_]  unless ($parm{ymax} >= ${$parm{ylnvals}}[$_]);
						}

					}
				}
			}
		}
$parm{ymax} = 1  unless ($parm{ymax} || $parm{ymin});  #ADDED 20001205 TO HANDLE ALL ZEROS.
		$ymin = $parm{ymin};
		$ymax = $parm{ymax};
		if ($parm{yInc} && defined($parm{ybase}))  #FIND NEXT EVEN GRIDPOINTS.
		{
			unless ($parm{yloval})
			{
				$y = $parm{ybase};
				$y -= $parm{yInc}  while ($y > $parm{ymin});
				$parm{ymin} = $y;
			}
			unless ($parm{yhival})
			{
				$y = $parm{ybase};
				$y += $parm{yInc}  while ($y < $parm{ymax});
				$parm{ymax} = $y;
			}
			$parm{yInc} = ($parm{ymax} - $parm{ymin}) / $parm{ygrid}
					if ($parm{ygrid} > 0);
		}
		else
		{
			my ($ygrid);
			if (defined($parm{ygrid}))
			{
				$ygrid = $parm{ygrid};
			}
			else
			{
				$parm{ygrid} = 4;
			}
			if (defined($parm{ybase}))
			{
				$parm{ymin} = $parm{ybase}  if ($parm{ymin} > $parm{ybase});
				$parm{ymax} = $parm{ybase}  if ($parm{ymax} < $parm{ybase});
				my ($yrange) = $parm{ymax} - $parm{ymin};
				if ($parm{ymin} < $parm{ybase} && $parm{ymax} > $parm{ybase})
				{
					for ($j=$parm{ygrid};$j>=$parm{ygrid}-1;$j--)
					{
						$parm{yInc} = &xfincx($yrange,$j);
						$ymin = $parm{ybase};
						while ($ymin > $parm{ymin})
						{
							$ymin -= $parm{yInc};
						}
						$ymax = $ymin + $parm{yInc} * $parm{ygrid};
#print "<BR>???2 Inc=$parm{yInc}= grid=$j= ymin=$ymin= ymax=$ymax= parm(ymax)=$parm{ymax}=\n";
						last  if ($ymax >= $parm{ymax});
					}
					$parm{ymin} = $ymin;
					unless ($ygrid)
					{
						while ($parm{ygrid} && $ymax > $parm{ymax})
						{
							--$parm{ygrid};
							$ymax -= $parm{yInc};
						}
						$parm{ygrid} = 1  unless ($parm{ygrid});
#print "<BR>???3 Inc=$parm{yInc}= grid=$j= ymax=$ymax= parm(ymax)=$parm{ymax}=\n";
						unless ($ymax >= $parm{ymax})
						{
							++$parm{ygrid};
							$ymax += $parm{yInc};
						}
					}
					$parm{ymax} = $ymax;
#print "<BR>???4 Inc=$parm{yInc}= grid=$j= ymax=$ymax= parm(ymax)=$parm{ymax}=\n";
				}
				else
				{
					$parm{yInc} = &xfincx($yrange,$parm{ygrid});
					$parm{ymax} = $parm{yInc} * $parm{ygrid};
				}
			}
			else
			{
				unless ($parm{yInc})
				{
					$parm{yInc} = &xfincx(($parm{ymax} - $parm{ymin}), 
							$parm{ygrid});
					$parm{ymax} = $parm{ymin} + $parm{yInc} * $parm{ygrid};
#print "<BR>??? Inc=$parm{yInc}= grid=$parm{ygrid}= ymax=$ymax= parm(ymax)=$parm{ymax}=\n";
				}
			}
		}
	}
	else    #ADDED 20030619 TO PREVENT WIDE NUMBERS FROM DISPLAYING ON BARS.
	{
		$ymaxwidthval = &commatize($parm{yhival}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
				, $parm{yval_places});
		$ymaxwidthval = &commatize($parm{yloval}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
				, $parm{yval_places})
			if (length($parm{yloval}) > length($parm{yhival}));
	}
#print "<BR> ymin=$parm{ymin}; ymax=$parm{ymax}; yInc=$parm{yInc}; \n";
	unless ($ycnt == 1 || $parm{showvalues} =~ /nobar|top/)   #ADDED 20030703
	{
		my @l = ();  my @l2 = ();
		for ($i=0;$i<=$#{$parm{yvals}};$i+=$ycnt)
		{
			@l = ();
			for (my $j=0;$j<$ycnt;$j++)
			{
				$l[$j] = ${$parm{yvals}}[$i+$j]  unless ($l[$j] > ${$parm{yvals}}[$i+$j]);
			}
			@l2 = sort {$b <=> $a} @l;
			$ymax2widthval = $l2[1]  unless ($ymax2widthval > $l2[1]);

		}
	}
	else
	{
		$ymax2widthval = 9999;
	}
	$parm{ymax} = $parm{ygrid}  unless ($parm{ymin} || $parm{ymax});

	#ADDED 20030616 TO HANDLE DUAL RANGES!

	$rightlegend = 1;
	if (defined $parm{ylnmin} && defined $parm{ylnmax})
	{
		$parm{ylnInc} = ($parm{ylnmax} - $parm{ylnmin}) / $parm{ygrid};
	}
	elsif (defined $parm{ylnmin} && defined $parm{ylnvals})
	{
		my $jx = 0;
		for ($j=0;$j<=$#{$parm{ylnvals}};$j+=$ylncnt)   #FIND LOWEST & HIGHEST Y.
		{
			#NEXT UNLESS ADDED 20031022 TO ALLOW PARAMETER TO SPECIFY PLOTTING LINES AGAINST *LEFT* LEGEND!
			unless (defined($parm{ylnplotlegend}[$jx]) && $parm{ylnplotlegend}[$jx])
			{
				for ($i=0;$i<$ylncnt;$i++)

				{
					$_ = $i + $j;
					if (defined(${$parm{ylnvals}}[$_]))
					{
						$parm{ylnmax} = ${$parm{ylnvals}}[$_]  unless ($parm{ylnmax} >= ${$parm{ylnvals}}[$_]);
					}
				}

			}
			++$jx;
		}
		$parm{ylnInc} = &xfincx(($parm{ylnmax}-$parm{ylnmin}), $parm{ygrid}) || 1;
		#NEXT LINE ADDED 20040122.
		$parm{ylnmax} = $parm{ygrid} * $parm{ylnInc}
				if ($parm{ylnmax} < ($parm{ygrid} * $parm{ylnInc}));
	}
	elsif (defined $parm{ylnmax} && defined $parm{ylnvals})
	{
		my $jx = 0;
		for ($j=0;$j<=$#{$parm{ylnvals}};$j+=$ylncnt)   #FIND LOWEST & HIGHEST Y.
		{
			#NEXT UNLESS ADDED 20031022 TO ALLOW PARAMETER TO SPECIFY PLOTTING LINES AGAINST *LEFT* LEGEND!
			unless (defined($parm{ylnplotlegend}[$jx]) && $parm{ylnplotlegend}[$jx])
			{
				for ($i=0;$i<$ylncnt;$i++)

				{
					$_ = $i + $j;
					if (defined(${$parm{ylnvals}}[$_]))
					{
						$parm{ylnmin} = ${$parm{ylnvals}}[$_]  unless ($parm{ylnmin} <= ${$parm{ylnvals}}[$_]);
					}
				}

			}
			++$jx;
		}
		$parm{ylnInc} = &xfincx(($parm{ylnmax}-$parm{ylnmin}), $parm{ygrid});
	}
	else
	{
		$parm{ylnmin} = $parm{ymin};
		$parm{ylnmax} = $parm{ymax};
		$parm{ylnInc} = $parm{yInc};
		$rightlegend = 0;
	}
	$parm{ylnbase} ||= $parm{ybase};

	my $prelegendlength = 0;  #ADDED 20030910.
	unless ($parm{lmgn})   #CALCULATE LEFT MARGIN, IF NOT SPECIFIED.
	{
		if (length($parm{ymin}) > length($parm{ymax}))
		{
			$x = length(&commatize($parm{ymin}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
					, $parm{yval_places}));
		}
		else
		{
			$x = length(&commatize($parm{ymax}, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
					, $parm{yval_places}));
		}
		$parm{lmgn} = ($x*$sfw) + $sfw + $parm{minlmgn};
		$parm{lmgn} += $sfh + 2  if (defined($parm{ytitle}));
		if (defined($parm{prelegend}))  #ADDED 20030910 TO SUPPORT HEADERS LEFT OF X-VALUES.
		{
			@l = split(/\n/, $parm{prelegend});
			foreach my $i (@l)
			{
				$prelegendlength = length($i)  if ($prelegendlength < length($i));
			}
			if ($prelegendlength > 0)
			{
				$prelegendlength *= $sfw;
				$_ = $prelegendlength + $parm{minlmgn} + $sfh;
				$parm{lmgn} = $_  if ($parm{lmgn} < $_);
			}
		}
#print "<BR>??? ymin=$parm{ymin}= ymax=$parm{ymax}= lmgn=$parm{lmgn}= x=$x=\n";
	}
#print "<BR>-???-1 rmgn=$parm{rmgn}= rl=$rightlegend=\n";
	if ($rightlegend)   #ADDED 20030616 TO HANDLE DUAL RANGES!
	{
		unless ($parm{rmgn})   #CALCULATE RIGHT MARGIN, IF NOT SPECIFIED.
		{
			if (length("$parm{ylnmin}") > length("$parm{ylnmax}"))
			{
				$x = length(&commatize($parm{ylnmin}, $parm{commatize}, $ylnvalprefix[0], $yvalsuffix[0]
						, $parm{ylnval_places}));
			}
			else
			{
				$x = length(&commatize($parm{ylnmax}, $parm{commatize}, $ylnvalprefix[0], $yvalsuffix[0]
						, $parm{ylnval_places}));
			}
			$parm{rmgn} = ($x*$sfw) + $sfw + $parm{minrmgn};
			$parm{rmgn} += $sfh + 2  if (defined($parm{ylntitle}));
		}
	}
	unless ($parm{rmgn})
	{
		$parm{rmgn} = $parm{minrmgn};
		$parm{rmgn} += $sfh + 2  if (defined($parm{ylntitle}));
	}
#print "<BR>-???-3 rmgn=$parm{rmgn}=\n";
	
	my ($pointdiam) = 0;
	#$pointdiam = abs($parm{points})  if (defined($parm{points}));
	#my ($pointdiam0) = $pointdiam;
	#$pointdiam0 = 1  if ($parm{points} > 0);
	#$pointrad = $pointdiam / 2;
	$pointrad = 0;
	if (defined ($parm{points}) && @{$parm{points}})
	{
		for ($i=0;$i<=$#{$parm{points}};$i++)
		{
			$pointrad = ${$parm{points}}[$i]  if ($pointrad < ${$parm{points}}[$i]);
		}
	}
	elsif ($parm{points} > 0)
	{
		$pointrad = $parm{points};
	}
	my ($xvallines) = 0;
	foreach (@{@parm{xvals}})
	{
		(@l) = split(/\n/);
		$xvallines = $#l  if ($#l > $xvallines);
	}

	unless ($parm{bmgn})  #CALCULATE BOTTOM MARGIN, IF NOT SPECIFIED.
	{
		$parm{bmgn} = ($xvallines*$sfh2) + $sfh2 + 12  unless ($parm{bmgn});  #CALCULATE BOTTOM MARGIN, IF NOT SPECIFIED.
		#$parm{bmgn} += $sfh2  if (defined($parm{xtitle}));  #CHGD. TO NEXT 20030820!
		$parm{bmgn} += 2 * $sfh2  if (defined($parm{xtitle}));
		$parm{bmgn} += $sfh2+2  if ($parm{showvalues} =~ /\btotal/i);  #CHGD. TO NEXT 20110922 B/C TOTAL LINE DOES NOT PRINT W/O "BOTTOM"!
#		$parm{bmgn} += $sfh2+2  if ($parm{showvalues} =~ /\bx?bottom/i);
		$parm{bmgn} += $sfh2+2  if ($parm{showvalues} =~ /lntotal/i);
		$parm{bmgn} += $sfh  if ($parm{ymin} < $parm{ybase});  #ALLOW ROOM FOR VALUES BELOW DOWNWARD BARS.
		#$parm{bmgn} += $sfh2  if (defined($parm{xlegend}));
		$parm{bmgn} += $xlegendycnt*$sfh2  if (defined($parm{xlegend}) 
				|| defined($parm{barseplegend}));
		$parm{bmgn} += $sfh2  if (defined($parm{xbreaklegend}));  #ADDED 20110922:
		$parm{bmgn} += $sfh2  if (defined($parm{lnlegend})
				|| defined($parm{lnprelegend}));
		$parm{bmgn} += $sfh2  if (defined($parm{lnprelegend}));
#?		$parm{bmgn} += $sfh2  if (defined($parm{ylnvals}));  #NEEDED! #MAYBE NOT - REMOVED 20110922.
#?		$parm{bmgn} += $sfh2  if (defined($parm{ylnvals}) || defined($parm{xlegend}));  #CHGD. TO NEXT 20110922 B/C TOTAL LINE DOES NOT PRINT W/O "BOTTOM"!
#?		$parm{bmgn} += $sfh2  if (defined($parm{ylnvals}));  #REMOVED 20110922.
		$parm{bmgn} += $sfh2  if (defined($parm{barseplegend}));
		$parm{bmgn} += $sfh2+2  if (defined($parm{lrtitle}));  #ADDED 20110923.
		if ($parm{showvalues} =~ /xbottom/i && $ybottomcnt > 0)  #ADDED 20030527.
		{
			#$parm{bmgn} += ($ycnt * $sfh2) + 2;  #CHGD. TO NEXT 20030626.
			$parm{bmgn} += ($ybottomcnt * $sfh2) + 2;
		}
		if ($parm{showvalues} =~ /lnbottom/i && $lnlegendsz > 0)  #ADDED 20030408.
		{
			$parm{bmgn} += ($lnlegendsz * $sfh2) + 2;
		}		
	}
	
	unless ($parm{maxxsiz})
	{
		#$parm{barxsiz} = 60  unless ($parm{barxsiz});
		my $xvalcnt = $#{$parm{xvals}} + 1;
		unless ($parm{barxsiz})
		{
			$x = 0;
			foreach my $j (@{$parm{xvals}})   #FIND WIDEST X HEADER TO COMPUTE LINE SIZE.
			{
				#$i = $sfw * length($_);  #CHGD. TO NEXT 20041006 TO ALLOW MULTI-LINE STRINGS.
				@l = split(/\n/, $j);
				while (@l)
				{
					$_ = shift(@l);
					$i = $sfw * length($_);
					$x = $i  unless ($x > $i);
#print "-??????- i=$i= x=$x= cash=$_= ycnt=$ycnt=\n";
				}
			}
			$parm{barxsiz} = $x + 4;
			#$parm{barxsiz} = ($x + 4) * $ycnt;
#print "--- barxsiz :=$parm{barxsiz}=\n";
		}
		if ($parm{xbreak} > 0)   #XBREAK STUFF ADDED 20001204 TO ALLOW GROUPING. (ADD HORIZONTAL SPACE AFTER EVERY NTH BAR).
		{
			if ($parm{xbreakpct})  #ADDED 20041005 TO SUPPORT BREAK GAPS < 1 FULL BAR WIDE.
			{
				$_ =  $xvalcnt + ((($xvalcnt/($parm{xbreak}||1))-0.5)*$parm{xbreakpct})/100;
			}
			else
			{
				$_ =  $xvalcnt + ($xvalcnt/($parm{xbreak}||1))-0.5;
			}
			$_ ||= 1;
			$parm{maxxsiz} = ($parm{barxsiz} * $_) 
					+ $parm{lmgn} + $parm{rmgn} + $parm{lmgn2};
		}
		else
		{
			$parm{maxxsiz} = ($parm{barxsiz} * $xvalcnt) 
					+ $parm{lmgn} + $parm{rmgn} + $parm{lmgn2};
		}
#print "-mxs=$parm{maxxsiz}= cash=$_= l=$parm{lmgn}, r=$parm{rmgn}, l2=$parm{lmgn2}\n";
		if (defined($parm{xlegend}))  #IF LEGENDS WIDER THAN CHART, WIDEN CHART!
		{
#			NEXT 9 REPLACED BY 12 LINES AT ~ 109L 20030417.
#			$legendx = $parm{lmgn} / 2;
#			$ix = 0;
#			$i = $sfh + 7;
#			foreach (@{$parm{xlegend}})
#			{
#				$legendx += $i + ($sfw * length(${$parm{xlegend}}[$ix]));
#				#last  if ($ix >= $ycnt);
#				++$ix;
#			}
#NOT SURE:			$legendx += 2 * $parm{minlmgn};
			$parm{maxxsiz} = $legendx  if ($parm{maxxsiz} < $legendx);

			#IF ANY TITLE LINE IS WIDER THAN CHART, WIDEN CHART.

			for (my $i=0;$i<=$#titles;$i++)
			{
				$_ = $lfw*length($titles[$i]) + (2 * $parm{minlmgn});
				$parm{maxxsiz} = $_  if ($parm{maxxsiz} < $_);
			}
		}
	}
	else   #USER SAID USE FIXED CHART WIDTH!
	{
		my $xvalcnt = $#{$parm{xvals}} + 1;
		if ($parm{xbreak} > 0)
		{
			unless ($parm{barxsiz})
			{
				#NOTE - WE WANT A 1/2 GAP LEFT AFTER LAST BAR!
				if ($parm{xbreakpct})  #ADDED 20041005 TO SUPPORT BREAK GAPS < 1 FULL BAR WIDE.
				{
					$_ = $xvalcnt + ((($xvalcnt/($parm{xbreak}||1))-0.5)*$parm{xbreakpct})/100;
				}
				else
				{
					$_ = $xvalcnt + ($xvalcnt/($parm{xbreak}||1))-0.5;
				}
				$_ ||= 1;
#print "<BR>cash=$_= xvcnt=".$#{$parm{xvals}}."= xbreak=$parm{xbreak}= line=".__LINE__."=\n";
				$parm{barxsiz} = ($parm{maxxsiz} - ($parm{lmgn2} + $parm{lmgn} + $parm{rmgn})) / $_;
#print "<BR>-bxs=$parm{barxsiz}= mx=$parm{maxxsiz}= cash=$_= xvalcnt=$xvalcnt= xb=$parm{xbreak}= xbpct=$parm{xbreakpct}= l=$parm{lmgn}, r=$parm{rmgn}, l2=$parm{lmgn2}\n";
			}
		}
		elsif ($#{$parm{xvals}} < 0)  #ADDED 20030501 TO PREVENT DIVID-BY-ZERO.
		{
			$parm{barxsiz} = 10;
			#$parm{barxsiz} = ($parm{maxxsiz} - ($parm{lmgn2} + $parm{lmgn} + $parm{rmgn})) / $xvalcnt  unless ($parm{barxsiz});
		}
		else
		{
			$parm{barxsiz} = ($parm{maxxsiz} - ($parm{lmgn2} + $parm{lmgn} + $parm{rmgn})) / $xvalcnt  unless ($parm{barxsiz});
#print "<BR>-bxs=$parm{barxsiz}= mx=$parm{maxxsiz}= xvalcnt=$xvalcnt= xb=$parm{xbreak}= xbpct=$parm{xbreakpct}= l=$parm{lmgn}, r=$parm{rmgn}, l2=$parm{lmgn2}\n";
		}
	}

	#NEXT 24 LINES ADDED 20030619 TO PREVENT NUMBERS WIDER THAN BARS FROM BEING 
	#DISPLAYED ON THE BARS (IF *ANY* Y-VALUE TOO WIDE, FORCE ALL TO BOTTOM!
#2	my $ymaxwidth = length($ymaxwidthval) * $sfw;
#2	my $ymax2width = length($ymax2widthval) * $sfw;
#2	if ($ymaxwidth > $barxpix && $ymax2width > $barxpix && ($ycnt > 1 || $ymaxwidth > $parm{barxsiz}))
#2	{
#2		$parm{commatize} = 0;    #1ST, TRY STRIPPING COMMAS, SEE IF FITS NOW.
#2		$ymaxwidthval =~ s/\,//g;
#2		$ymaxwidth = length($ymaxwidthval) * $sfw;
#2		my $addedbottom = 0;
#2		if ($ymaxwidth > $barxpix)
#2		{
#2			#STILL WON'T FIT, FORCE OFF OF BAR AND ONTO BOTTOM OF CHART.
#2			$addedbottom = 1;
#2		}
#2		#IF STILL WON'T FIT WITHIN THE ALLOWED SPACE AT BOTTOM, DON'T SHOW AT ALL!!!
#2		if ($ymaxwidth > $parm{barxsiz})
#2		{
#2			$parm{bmgn} -= $sfh2 + 2
#2					if ($parm{showvalues} =~ s/(?:xbottom|total)//g);
#2			$parm{showvalues} .= ',nobar';
#2		}
#2		elsif ($addedbottom)
#2		{
#2			unless ($parm{showvalues} =~ /xbottom/)
#2			{
#2				#$parm{bmgn} += $sfh2 + 2;   #CHGD. TO NEXT 20030903.
#2				$parm{bmgn} += ($ybottomcnt * $sfh2) + 2;
#2			}
#2			$parm{showvalues} .= ',nobar,xbottom';
#2		}
#2	}

	unless ($parm{maxysiz})
	{
		$parm{barysiz} = 1  unless ($parm{barysiz});
#print "<BR>????? 1 ????? barysiz=$parm{barysiz}=\n";
		$parm{maxysiz} = ($parm{barysiz} * ($parm{ymax} - $parm{ymin})) + $parm{bmgn} + $parm{tmgn};
	}
	else
	{
#print "<BR>??? maxy=$parm{maxysiz}, t=$parm{tmgn}; b=$parm{bmgn}; ymax=$parm{ymax}; ymin=$parm{ymin}; barysiz=$parm{barysiz}.\n";
		$parm{barysiz} = ($parm{maxysiz} - ($parm{tmgn} + $parm{bmgn})) / ($parm{ymax} - $parm{ymin})  unless ($parm{barysiz});
	}
#print "<BR> barxsiz=$parm{barxsiz}; barysiz=$parm{barysiz};\n";
	unless ($parm{barpct})
	{
		$parm{barpct} = 80;
		$parm{barpct} = 100  if ($parm{barxsiz} < 10);
	}
#	if ($parm{xbreak} > 0)  #CHGD. TO NEXT STMT. 20041006.
#	{
#		$chartxsiz = $parm{barxsiz} * ($#{$parm{xvals}}+1+int($#{$parm{xvals}}/$parm{xbreak}));  #(PIXELS)
#	}
#	else
#	{
#		$chartxsiz = $parm{barxsiz} * ($#{$parm{xvals}}+1);  #(PIXELS)
#	}
#	$chartxsiz += $parm{lmgn2};
	$chartxsiz = $parm{maxxsiz} - ($parm{lmgn} + $parm{rmgn});
	$chartysiz = $parm{barysiz} * ($parm{ymax} - $parm{ymin});
#print "------ bys=$parm{barysiz}= ymn=$parm{ymin}= ymx=$parm{ymax}=\n";
	unless ($parm{ygrid})    #CALCULATE YGRID (# OF GRID LINES), IF NECESSARY.
	{
		##IF Y IS AN LOV, SET YGRID TO # OF ELEMENTS IN LOV!
		if ($parm{yInc})   #IF YINC SET, USE YINC.
		{
			$parm{ygrid} = ($parm{ymax} - $parm{ymin}) / $parm{yInc}  if ($parm{yInc});
		}
		else
		{
			$parm{ygrid} = 4;
		}
	}
	unless ($parm{yInc})
	{
		$parm{yInc} = ($parm{ymax} - $parm{ymin}) / $parm{ygrid};
	}
	if ($parm{ybreak})
	{
		while (   (($ymax == 0) || (($ymax * $parm{ybreak}) < $parm{ymax}))
				&& (($ymin == 0) || (($ymin * $parm{ybreak}) > $parm{ymin})))
		{
			$parm{ymax} /= 2;
			$parm{ymin} /= 2;
			$parm{yInc} /= 2;
			$parm{yinc} /= 2;
			$parm{barysiz} *= 2;
		}
	}

	$parm{ybase} = $parm{ymin}  unless (defined($parm{ybase}));

#print "<BR>----final values: maxxsiz=$parm{maxxsiz}; maxysiz=$parm{maxysiz}; ybase=$parm{ybase}; yInc=$parm{yInc}; ygrid=$parm{ygrid}= ymax=$parm{ymax}.\n";
	$g = new GD::Image($parm{maxxsiz},$parm{maxysiz});
	
	#CONVERT COLOR NAMES TO RGB VALUES.

#print "<BR>colors =".join('|',@{$parm{barcolors}})."=\n";
	my @linecolrs = ();
	if (open(RGB,"</usr/share/X11/rgb.txt"))
	{
		while (<RGB>)
		{
			chomp;
			($rr,$gg,$bb,$color) = split(' ');
			$color = "\L$color\E";
			foreach (qw(bar bg val axis grid title valx header border shadow barsep))
			{
				$x = $parm{$_."color"};
				${$_."colr"} = $g->colorAllocate($rr,$gg,$bb)  if ($color eq "\L$x\E");
			}
			for($j=0;$j<=$#{$parm{barcolors}};$j++)
			{
				if ($color eq "\L${$parm{barcolors}}[$j]\E")
				{
					$i = $g->colorAllocate($rr,$gg,$bb);
					$barcolrs[$j] = $i;
          					$barcolors[$j] = $color;
				}
			}
			if (defined($parm{linecolors}))
			{
				for($j=0;$j<=$#{$parm{linecolors}};$j++)
				{
					if ($color eq "\L${$parm{linecolors}}[$j]\E")
					{
						$i = $g->colorAllocate($rr,$gg,$bb);
#	 					$bcweights[$j] = ($rr > $gg) ? (($bb > $rr) ? $bb : $rr) :
#								(($bb > $gg) ? $bb : $gg);
						$linecolrs[$j] = $i;
						$linecolors[$j] = $color;
					}
				}
			}
			if (defined($parm{barsepcolors}))
			{
				for($j=0;$j<=$#{$parm{barsepcolors}};$j++)
				{
					if ($color eq "\L${$parm{barsepcolors}}[$j]\E")
					{
						$i = $g->colorAllocate($rr,$gg,$bb);
						$barsepcolrs[$j] = $i;
					}
				}
			}
		}
		close (RGB);
		my (@colorindex) = (0..$#{$parm{barcolors}});
#		for ($j=0;$j<$parm{shiftcolors};$j++)
#		{
#			$ix = shift(@barcolrs);
#			@barcolrs = (@barcolrs,$ix);
#		}
	}
	$j = 0;
	$j += $ycnt  if (defined($parm{xlegend}) && !defined($parm{linecolor}) && $#linecolrs < 0);
	while ($#linecolrs < $ylncnt)
	{
#		push(@linecolrs, defined($linecolr) ? $linecolr : $barcolrs[$j++]);
		push(@linecolrs, $barcolrs[$j++]);
		push(@linecolors, $barcolors[$j++]);
	}

	#SET UP DEFAULTS FOR ANY MISSING COLORS.

	$black = $g->colorAllocate(0,0,0);
	$barcolr = $g->colorAllocate(0,0,0)  unless ($barcolr);
	$valcolr = $g->colorAllocate(0,0,0)  unless ($valcolr);
	$axiscolr = $g->colorAllocate(0,0,0)  unless ($axiscolr);
	$gridcolr = $g->colorAllocate(0,0,0)  unless ($gridcolr);
	$shadowcolr = $g->colorAllocate(0,0,0)  unless ($shadowcolr);
	#$bgcolr = $g->colorAllocate(127,127,127)  unless ($bgcolr);

#print "<BR>bc=$#barcolrs= cm=$colormax=\n";
	if ($#barcolrs <= 0)    #FILL OUT COLOR ARRAY WITH BAR-COLOR IF NOT SPECIFIED.
	{
		for ($j=0;$j<=$colormax;$j++)
		{
			$barcolrs[$j] = $barcolr;
			$barcolors[$j] = 'black';
		}
	}
	elsif ($#barcolrs < $colormax)    #FILL OUT COLOR ARRAY TO MATCH Y-ARRAY.
	{
		for ($j=$#barcolrs+1;$j<$ycnt;$j++)
		{
			$barcolrs[$j] = $barcolrs[($j % $#barcolrs)];
			$barcolors[$j] = $barcolors[($j % $#barcolors)];
		}
	}
#print "<BR>colors =".join('|',@barcolrs)."= cm=$colormax= bccnt=$#barcolrs=\n";
	if (defined($parm{bgcolor}))
	{
#print "<BR>??? bgcolor=$parm{bgcolor}= bgcolr=$bgcolr=\n";
		#$g->transparent($bgcolr);  #MAKE THE BACKGROUND COLOR TRANSPARENT.
		$g->fill(1,1,$bgcolr);
	}
	for (0..($parm{border}-1))
	{
		$g->rectangle($_,$_,($parm{maxxsiz}-($_+1)),($parm{maxysiz}-($_+1)),$bordercolr);
	}
	my $barylo = $parm{tmgn} + ($chartysiz * (($parm{ymax}-$parm{ybase}) / ($parm{ymax}-$parm{ymin})));

#goto SKIPIT1;
	#DRAW THE X AND Y AXES.

	my $maxygridarea = $parm{maxxsiz} - $parm{rmgn};
	my $maxygridarea3 = $maxygridarea + 3;
	#CHGD. TO NEXT 20030619 SO THAT AXIS SPANS CHART EVEN IF ZERO OR FEW BARS.
	$g->line($parm{lmgn},$barylo,($parm{lmgn}+$chartxsiz),$barylo,$axiscolr);
#2	$g->line($parm{lmgn},$barylo,$maxygridarea,$barylo,$axiscolr);
	$g->line($parm{lmgn},$parm{tmgn},$parm{lmgn},($parm{tmgn}+$chartysiz),$axiscolr);
	my $xzonewidth = ((100-$parm{barpct})*$parm{barxsiz}) / 200;
	if (defined $parm{barseps})   #ADDED 20030903 TO SUPPORT VERTICAL SEPARATORS BETWEEN BARS.
	{
		my $s;
		my $justify = '|';
		my $x;
		if (ref($parm{barseps}) =~ /ARRAY/i)
		{
			for (my $i=0;$i<=$#{$parm{barseps}};$i++)
			{
				$g->line($parm{lmgn}+($parm{barseps}->[$i]*$parm{barxsiz}),$parm{tmgn}-4,
						$parm{lmgn}+($parm{barseps}->[$i]*$parm{barxsiz}),($parm{tmgn}+$chartysiz+4),
						(defined $barsepcolrs[$i]) ? $barsepcolrs[$i] 
						: ($barsepcolr||$axiscolr));
				#ADDED 20030903 TO SUPPORT LEGEND TEXT ABOVE VERTICAL LINES.
				if (defined $parm{barseptoplegend} && ref($parm{barseptoplegend}) =~ /ARRAY/i)
				{
					$s = $parm{barseptoplegend}->[$x];
					$justify = $1  if ($s =~ s/^([\<\|\>])//);
					$x = $parm{lmgn}+($parm{barseps}->[$i]*$parm{barxsiz})+2;
					if ($justify eq '<')
					{
						$x -= (length($s)*$sfw) + 2;
					}
					elsif ($justify eq '|')
					{
						$x -= (length($s)*$sfw) / 2;
					}
					$g->string(gdSmallFont, $x, $parm{tmgn}-(2+$sfh), $s, 
							$headercolr);
				}
			}
		}
		else
		{
			$g->line($parm{lmgn}+($parm{barseps}*$parm{barxsiz}),$parm{tmgn}-4,
					$parm{lmgn}+($parm{barseps}*$parm{barxsiz}),($parm{tmgn}+$chartysiz+4),
					($barsepcolr||$axiscolr));
			#ADDED 20030903 TO SUPPORT LEGEND TEXT ABOVE VERTICAL LINES.
			if (defined $parm{barseptoplegend})
			{
				$s = $parm{barseptoplegend};
				$justify = $1  if ($s =~ s/^([\<\|\>])//);
				$x = $parm{lmgn}+($parm{barseps}*$parm{barxsiz})+2;
				if ($justify eq '<')
				{
					$x -= (length($s)*$sfw) + 2;
				}
				elsif ($justify eq '|')
				{
					$x -= (length($s)*$sfw) / 2;
				}
				$g->string(gdSmallFont, $x, $parm{tmgn}-(2+$sfh), $s, 
						$headercolr);
			}
		}
	}

	#NOW DRAW THE HORIZ. GRID LINES

	my $ydelta = $parm{barysiz} * $parm{yInc};
#print "<BR>??? ydelta=$ydelta= barysiz=$parm{barysiz}= Inc=$parm{yInc}.\n";
	my $yhead = (defined $parm{ybase}) ? $parm{ybase} : $yparm{base};
	my $yhead2 = $parm{ylnbase};
	my $yheadxmax = length("$yhead")  if(defined($parm{ytitle}));
	my $myyval = &commatize($yhead,$parm{commatize}, $yvalprefix[0], $yvalsuffix[0], $parm{ygrid_places});
	$g->string(gdSmallFont,$parm{lmgn}-((length("$yhead")*$sfw)+3),$barylo-($sfh/2),
			"$yhead",$headercolr);
##	$yhead = $parm{ybase} + $parm{yInc};
	$yhead = $parm{ybase};
##	$y = $barylo - $ydelta;
	my $yheadxmax2;
	$yheadxmax2 = length("$yhead2")  if(defined($parm{ylntitle}));
	$y = $barylo;

#open X, ">>/tmp/gdchart.out";
	my $ypx = defined($parm{llegendprefix}) ? $llegendprefix : $yvalprefix[0];
	my $ysx = defined($parm{llegendsuffix}) ? $llegendsuffix : $yvalsuffix[0];
	my $ypx2 = defined($parm{rlegendprefix}) ? $rlegendprefix : $ylnvalprefix[0];
	my $ysx2 = defined($parm{rlegendsuffix}) ? $rlegendsuffix : $ylnvalsuffix[0];
	while ($y >= $parm{tmgn}-1)
	{
		$myyval = &commatize($yhead,$parm{commatize}, $yvalprefix[0], $yvalsuffix[0], $parm{ygrid_places});
		#CHGD. TO NEXT 20030619 SO THAT AXIS SPANS CHART EVEN IF ZERO OR FEW BARS.
		$g->line($parm{lmgn}-4,$y,($parm{lmgn}+$chartxsiz),$y,$gridcolr);
#2		$g->line($parm{lmgn}-4,$y,$maxygridarea,$y,$gridcolr);  #DRAW HORIZ. GRID-LINE.
		$g->string(gdSmallFont,$parm{lmgn}-((length($myyval)*$sfw)+3),$y-($sfh/2),
				$myyval,$headercolr);
		$yheadxmax = length($myyval)  if (defined($parm{ytitle}) && (length($myyval) > $yheadxmax));
		$myyval = &commatize($yhead2,$parm{commatize}, $ylnvalprefix[0], $ylnvalsuffix[0]
				, $parm{ylngrid_places});
		$yheadxmax2 = length($myyval)  if (defined($parm{ylntitle}) && (length($myyval) > $yheadxmax2));
		$g->string(gdSmallFont,$maxygridarea3,$y-($sfh/2),
				$myyval,$headercolr)  if ($rightlegend);  #DRAW RIGHT LEGEND VALUES.
		$y -= $ydelta;
		$yhead += $parm{yInc};
		$yhead2 += $parm{ylnInc};
	}

	$yhead = $parm{ybase} - $parm{yInc};
	$y = $barylo + $ydelta;
	while ($y <= ($parm{tmgn} + $chartysiz)+1)
	{
		$myyval = &commatize($yhead,$parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
				, $parm{yval_places});
		#CHGD. TO NEXT 20030619 SO THAT AXIS SPANS CHART EVEN IF ZERO OR FEW BARS.
		$g->line($parm{lmgn}-4,$y,($parm{lmgn}+$chartxsiz),$y,$gridcolr);
#2		$g->line($parm{lmgn}-4,$y,$maxygridarea,$y,$gridcolr);
		$g->string(gdSmallFont,$parm{lmgn}-((length($myyval)*$sfw)+3),$y-($sfh/2),
				$myyval,$headercolr);
		$y += $ydelta;
		$yhead -= $parm{yInc};
	}

	if ($parm{yinc} > 1)   #DRAW THE HORIZ. TICKMARKS, IF NEEDED.
	{
		$ydelta = ($parm{barysiz} * $parm{yInc}) / $parm{yinc};
		$y = $barylo;
		while ($y > $parm{tmgn})
		{
			$g->line($parm{lmgn}-2,$y,$parm{lmgn},$y,$gridcolr);
			$y -= $ydelta;
		}
		$y = $barylo;
		while ($y < ($parm{tmgn} + $chartysiz))
		{
			$g->line($parm{lmgn}-2,$y,$parm{lmgn},$y,$gridcolr);
			$y += $ydelta;
		}
	}

	#SET UP IMAGE MAPPING, IF APPLICABLE.

	if (defined($parm{links}) || defined($parm{mouseovers})
			|| defined($parm{link}) || defined($parm{mouseover}
			|| defined($parm{legendlinks})))
	{
		$parm{mapname} = "BarChart.$$"  unless (defined($parm{mapname}));
		$mapstr = '<MAP NAME="' . $parm{mapname} . '">' . "\n";
#print "<BR>??? MAP NAME=$parm{mapname}= mapstr=$mapstr=\n";
	}

	#DRAW THE BARS.
SKIPIT:
	my $barxpix = ($parm{barxsiz} * $parm{barpct}) / 100;
	#my $barxbase = $parm{lmgn} + (((100-$parm{barpct})*$parm{barxsiz})/200) + $parm{lmgn2};
	my $barxbase;
	if ($parm{lmgn2})
	{
		$barxbase = $parm{lmgn} + $parm{lmgn2};
	}
	else  #THROUGH IN A FUDGEFACTOR OF 1/2 THE GAP SO 1ST BAR WON'T ABUT LEFT EDGE OF CHART.
	{     #NOTE - THIS MAY CAUSE LAST BAR TO HANG OVER INTO RIGHT-MARGIN.
		$barxbase = $parm{lmgn} + (((100-$parm{barpct})*$parm{barxsiz})/200) + $parm{lmgn2};
	}
#print "-barxbase=$barxbase= bpct=$parm{barpct}=\n";
	my $barxlo = $barxbase;

	$ix = 0;
	#$barcolr = $barcolrs[$ix];
	my $rightedge = $parm{lmgn} + $chartxsiz;
	my $colorcnt = $#barcolrs + 1;
	my $barxpix1 = $barxpix + 1;
	#$colorcnt = $ycnt  if ($ycnt > 1 && $colorcnt > $ycnt);
	$colorcnt = $colormax;
	$colorcnt = 1  if ($colorcnt <= 0);
#print "<BR>pccnt=$#barcolrs= ycnt=$ycnt= colorcnt=$colorcnt= \n";
	#SOME VARIABLES TO SAVE ARITHMETIC IN LOOPS.

	my ($linkbottom) = $parm{tmgn} + $chartysiz + $sfh + 4;
	my ($chartbottom2) = $parm{tmgn} + $chartysiz + 2;
	$chartbottom2 += $sfh  if ($parm{ymin} < $parm{ybase});  #ALLOW ROOM FOR VALUES BELOW DOWNWARD BARS.
#print "-????? cys=$chartysiz= cb2=$chartbottom2= xvallines=$xvallines\n";
	#my ($chartbottom3) = $parm{tmgn} + $chartysiz + $sfh*$xvallines + 2;
	my ($chartbottom3) = $chartbottom2 + ($sfh * $xvallines) + $sfh2 + 2;
	my $xbreaklegendy = $chartbottom3 - 2;  #NEXT 3 ADDED 20110922.
	my $grpcnt = 0;
	$grpcnt = scalar($parm{xbreak})  if (defined($parm{xbreak}));
	$chartbottom3 += $sfh2  if ($grpcnt && defined($parm{xbreaklegend}));  #ADDED 20110922.
#x	$legendy = $chartbottom3;
#x	$legendy += $sfh + 4  if (defined($parm{xtitle}));
#x	if ($parm{showvalues} =~ /bottom/i)
#x	{
#x		$legendy += $#{$parm{xlegend}}*$sfh + 2*$sfh;
#x		$legendy += $sfh + 4  if ($parm{showvalues} =~ /total/i);
#x	}
#print "<BR>??? bm=$parm{bmgn}= cys=$chartysiz= cb3=$chartbottom3 ly=$legendy=\n";
#xxx$chartbottom3 += ($sfh2*$ybottomcnt) + 2  if ($parm{showvalues} =~ /bottom/i && $ybottomcnt > 0);
#$chartbottom3 +=  + ($sfh2*$lnlegendsz) + 2  if ($parm{showvalues} =~ /lnbottom/i && $lnlegendsz > 0);
$legendy = $chartbottom3;
$legendy += ($sfh2*$ybottomcnt) + 2  if ($parm{showvalues} =~ /xbottom/i && $ybottomcnt > 0);
$legendy += ($sfh2*$lnlegendsz) + 2  if ($parm{showvalues} =~ /lnbottom/i && $lnlegendsz > 0);
#$legendy += $sfh2 if (defined($parm{xtitle}));  #CHGD. TO NEXT 20110922:
#print "-???-BEF: legendy=$legendy=\n";
$legendy += 2 * $sfh2 if (defined($parm{xtitle}));
#print "-???-AFT: legendy=$legendy=\n";
#$legendy += $sfh2 if (defined($parm{barseplegend}));
$legendy += $sfh2 if ($parm{showvalues} =~ /\btotal/i);  #ADDED 20030408.  #CHGD. TO NEXT 20110922 B/C TOTAL LINE DOES NOT PRINT W/O "BOTTOM"!
#?$legendy += $sfh2 if ($parm{showvalues} =~ /\bbottom/i);
$legendy += $sfh2 if ($parm{showvalues} =~ /lntotal/i);  #ADDED 20030408.
#print "-???????????????BEF: LEGENDY=$legendy=\n";
#$legendy += $sfh2 if (defined($parm{lrtitle}));  #ADDED 20110923.
#print "-???????????????AFT: LEGENDY=$legendy=\n";
	my ($ycnt_1) = $ycnt - 1;
	my ($ylast);
	my @legendx;
	for (my $k=0;$k<$xlegendycnt;$k++)
	{
		#2 $legendx[$k] = $parm{lmgn} / 2;
		$legendx[$k] = $parm{minlmgn}
	}
	my ($llegendx) = $parm{lmgn} - $sfh;
	$llegendx = 0  unless ($llegendx > 0);

	if ($parm{showvalues} =~ /xbottom/i)
	{
		$g->line($parm{lmgn}, $chartbottom3-2, ($parm{lmgn}+$chartxsiz),
				$chartbottom3-2, $headercolr);
		$g->line($parm{lmgn}, $chartbottom3+($ycnt*$sfh2), ($parm{lmgn}+$chartxsiz),
				$chartbottom3+($ycnt*$sfh2), $headercolr)  if ($parm{showvalues} =~ /total/i);
	}
	elsif ($parm{showvalues} =~ /total/i) {
		#THIS LINE PRINTS JUST ABOVE THE TOTALS:
		$g->line($parm{lmgn}, $chartbottom3, ($parm{lmgn}+$chartxsiz),
				$chartbottom3, $headercolr);
	}

#print "<BR>**************** xvalcnt=".$#{$parm{xvals}}."= xbreak=$parm{xbreak}= cnt=".($#{$parm{xvals}}+1+int($#{$parm{xvals}}/$parm{xbreak}))."=\n";
	my $xbreakpct = $parm{xbreakpct} || 100;  #ADDED 20041005 TO SUPPORT BREAK GAPS < 1 FULL BAR WIDE.
	my $lncenter = 0;
	my $bargrpbase = $barxbase;   #ADDED 20110922:
	for ($j=0;$j<=$#{$parm{yvals}};$j+=$ycnt)
	{
		$barxbase += ($parm{barxsiz}*$xbreakpct)/100  if ($ix && $parm{xbreak} && !($ix % $parm{xbreak}));
		$barxlo = $barxbase;
#print "-?????- gb=$bargrpbase= ycnt=$ycnt= base=$barxbase= barxlo=$barxlo= cxsz=$chartxsiz=\n";
		#$barylo = $parm{tmgn} + $chartysiz;
		$barylo = $parm{tmgn} + ($chartysiz * (($parm{ymax}-$parm{ybase}) / ($parm{ymax}-$parm{ymin})));
		$baryhi = $barylo;
		$ylast = $parm{ybase};

		next  if ($barxlo > $rightedge);   #AVOID PRINTING BARS OFF CHART!
		if (defined($parm{links}[$ix]) || defined($parm{mouseovers})   #ADD HYPERLINK, IF ANY, TO BAR.
				|| defined($parm{link}) || defined($parm{mouseover}))
		{
			$l = '';
			if (defined($parm{links}[$ix]) || defined($parm{link}))
			{
				$l = 'HREF="//';
				$parm{links}[$ix] = $parm{link}  unless($parm{links}[$ix]);
				$l = ' HREF="' . $parm{links}[$ix];
				unless ($l =~ m#\"\s*(http\:|\/)#)
				{
					$l = 'HREF="' . $parm{linkpath};
					#$l .= uri_escape($parm{links}[$ix])  unless ($l =~ s#\*#uri_escape($parm{links}[$ix])#e);  #CHGD. TO NEXT 20050204 TO GET ALL OF 'EM!
					$l .= uri_escape($parm{links}[$ix])  unless ($l =~ s#\*#uri_escape($parm{links}[$ix])#e);
				}
				$l .= '"';
			}
			$mapstr .= '<AREA SHAPE=rect COORDS="' . $barxlo . ',' .
					$parm{tmgn} . ',' . ($barxlo+$barxpix) . ',' .
					$linkbottom . '" ' . $l;
#x			if (defined($parm{mouseovers}[$ix]))   #ADD MOUSEOVER LINK, IF ANY, TO BAR.
#x			{
#x				$mapstr .= " onmouseover=\"window.status='$parm{mouseovers}[$ix]'; return true\"";
#x			}
#x			elsif (defined($parm{mouseover}))      #ADD DEFAULT MOUSEOVER LINK, IF ANY.
#x			{
#x				$mapstr .= " onmouseover=\"window.status='$parm{mouseover}'; return true\"";
#x			}
			my ($mo, $mov, $mot);
			if (defined $parm{mouseover})
			{
				$mo = $parm{mouseover};
				$mo =~ s/\*/$parm{mouseovers}[$ix]/g  if (defined $parm{mouseovers}[$ix]);
			}
			elsif (defined $parm{mouseovers}[$ix])
			{
				$mo = $parm{mouseovers}[$ix];
			}
			if (defined $mo) {
#				$mo =~ s/\\\'/\&#39;/g;
				$mo =~ s/\\\"/\&quot;/g;
				my ($mov, $mot) = split(/\|\|/o, $mo);
				$mapstr .= " onmouseover=\"$mov\"";
				$mapstr .= " onmouseout=\"$mot\""  if ($mot =~ /\S/o);
			}
			$mapstr .= ">\n";
		}
		$ysum = 0;
		for ($i=0;$i<$ycnt;$i++)   #DRAW ALL MULTIBARS FOR EACH X-VALUE.
		{
			next  if ($barxlo > $rightedge);   #AVOID PRINTING BARS OFF CHART!
			$_ = $i + $j;
			$ysum += ${$parm{yvals}}[$_];
			#PRINT X HEADERS

			#$barypix = $parm{barysiz} * (${$parm{yvals}}[$_] - $parm{ymin});

			#DRAW EACH INDIVIDUAL BAR.
			#BARS ARE DRAWN(IN ORDER 3 x-values, 4 ys per x):   1,2,3,4  5,6,7,8  9,10,11,12

			$ylast += ${$parm{yvals}}[$_];
			$baryhi = $parm{tmgn} + ($chartysiz * (($parm{ymax}-$ylast) / ($parm{ymax}-$parm{ymin})));
			$myyval = &commatize(${$parm{yvals}}[$_], $parm{commatize}, 
					(defined($yvalprefix[$_]) ? $yvalprefix[$_] : $yvalprefix[0]), 
					(defined($yvalsuffix[$_]) ? $yvalsuffix[$_] : $yvalsuffix[0]
					, $parm{yval_places}));
			#$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length(${$parm{yvals}}[$_])*$sfw))),
#print "<BR>1:myyval=$myyval= x=".($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw)))."=\n";
			#WRITE OUT BOTTOM VALUES.
			if ($parm{showvalues} =~ /xbottom/i) 
			{
				my $x0 = ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw)));
				my $x1 = $x0 + $parm{barxsiz};
				my $y0 = ($chartbottom3+(($ycnt-($i+1))*$sfh2));
				my $y1 = $y0 + $sfh2;
				my $x2 = $parm{lmgn} + $ix * $parm{barxsiz};
				$g->string(gdSmallFont, $x0,
						$y0,$myyval,$headercolr);
				if ($parm{yvallinkpath})
				{
					my $lk = $parm{yvallinkpath};
					$lk =~ s/\<x\>/${$parm{xvals}}[$ix]/gi;
					$lk =~ s/\<y\>/${$parm{xlegend}}[$i]/gi;
#print "<BR>-???- BEF lk=$lk= ix=$ix=\n";
					$lk =~ s/\<\*x\>/$ix/gi;
#print "<BR>-???- AFT lk=$lk=\n";
					$lk =~ s/\<\*y\>/$i/gi;
					$lk =~ s/\<c\>/$barcolors[$ix]/gi;
					$lk =~ s/\*/$myyval/g;
					$lk =~ uri_escape($lk);
					$lk =~ s/\s+/\%20/go;
					$mapstr .= '<AREA SHAPE="rect" COORDS="'
							.$x2.','
							.$y0.','
							.($x2+$parm{barxsiz}).','
							.$y1
							.'" HREF="' . $lk
							#."\" onmouseover=\"window.status='*'; return true\">\n";
							."\">\n";
#print "<BR>??? ix=$ix= i=$i= j=$j= x2=$x2=\n";
				}
			}
			unless ($barylo == $baryhi)
			{
#print "<BR>yval($_)=${$parm{yvals}}[$_]= YBASE=$parm{ybase}= ylo=$barylo=\n";
				if (${$parm{yvals}}[$_] < $parm{ybase})   #DRAWING BAR BELOW AXIS (NEGATIVE VALUES).
				{
					$g->filledRectangle($barxlo,$barylo,($barxlo+$barxpix),$baryhi,$barcolrs[($_ % $colorcnt)]);
					if ($parm{shadow})
					{
						$g->filledRectangle($barxlo+$barxpix+1, $barylo, 
								($barxlo+$barxpix+$parm{shadow}+1), 
								($baryhi+1-$parm{shadow}), 
								$shadowcolr);
					}
				}
				else                     #DRAWING BAR ABOVE AXIS (POSITIVE VALUES).
				{
					$g->filledRectangle($barxlo,$baryhi,($barxlo+$barxpix),$barylo,$barcolrs[($_ % $colorcnt)]);
					if ($parm{shadow})
					{
						$g->filledRectangle(($barxlo+$parm{shadow}), 
								($baryhi-$parm{shadow}), 
								($barxlo+$barxpix+$parm{shadow}), ($baryhi-1), 
								$shadowcolr);
						$g->filledRectangle($barxlo+$barxpix+1, $baryhi-$parm{shadow}, 
								($barxlo+$barxpix+$parm{shadow}+1), 
								($barylo-$parm{shadow}), $shadowcolr);
					}
				}
			}
			#$barylo = $baryhi;
			unless ($i < $ycnt_1)
			{
				(@l) = split(/\n/,${$parm{xvals}}[$ix]);
				for ($k=0;$k<=$#l;$k++)
				{
					$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($l[$k])*$sfw))/2),
							($chartbottom2+($k*$sfh)),$l[$k],$headercolr);
				}
				#$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length(${$parm{yvals}}[$_])*$sfw))/2),
				#		($chartbottom2+($k*$sfh)),$ysum,$headercolr);
				if ($grpcnt && defined($parm{xbreaklegend}) && defined(${$parm{xbreaklegend}}[$ix]))
				{
#					$bargrpbase = $barxbase  unless ($ix % $grpcnt);
#print "---ix=$ix= grp=$bargrpbase= bl=${$parm{xbreaklegend}}[$ix]= xbase=$barxbase= xlo=$barxlo= xsiz=$parm{barxsiz}=\n";
					$g->string(gdSmallFont, ($bargrpbase+($parm{barxsiz}*$grpcnt-(length(${$parm{xbreaklegend}}[$ix])*$sfw))/2),
							$xbreaklegendy,${$parm{xbreaklegend}}[$ix],$headercolr);
					$bargrpbase += $grpcnt * $parm{barxsiz} + ($parm{barxsiz}*$xbreakpct)/100;
				}
#print "-???- cb2=$chartbottom2= sfh=$sfh= bly=$xbreaklegendy=\n";
				if ($parm{showvalues} =~ /\btotal|top/i)
				{
					$myyval = &commatize($ysum, $parm{commatize}, $yvalprefix[0], $yvalsuffix[0]
							, $parm{yval_places});
					if ($ysum < 0)   #DISPLAY TOTALS WHERE THEY SHOULD GO
					{
						#$ysum = '(' . $ysum . ')';
						if ($parm{showvalues} =~ /total/i)
						{
							#ADDED 20001204 TO SHOW TOTALS AFTER STACK TOTALS AT BOTTOM.
							#$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length(${$parm{yvals}}[$_])*$sfw))),
							#		($chartbottom3+($ycnt*$sfh2)+2),$myyval,$headercolr);
							if ($parm{showvalues} =~ /xbottom/i)
							{
								$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))),
										($chartbottom3+($ycnt*$sfh2)+2),$myyval,$headercolr);
										#($chartbottom3+4),$myyval,$headercolr);
							}
							elsif ($parm{showvalues} !~ /nobar/i)
							{
								$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))),
										($chartbottom3+$sfh2+2),$myyval,$headercolr);
										#($chartbottom3+4),$myyval,$headercolr);
							}
#x							$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
#x									$baryhi+1,$myyval,$valxcolr)  if ($parm{showvalues} =~ /top/i);
						}
#						elsif (($baryhi >= ($barylo+$sfh)) && ((length($myyval)*$sfw) <= $barxpix1))
#						{
##print "<BR>---fits!\n";
#							#$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
#							#		$baryhi-$sfh,$myyval,$valcolr);
#							$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
#									$baryhi-$sfh,$myyval,$valcolr);
#						}
						if ($parm{showvalues} =~ /top/i)
						{
#print "<BR>---does not fit!\n";
							$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
									$baryhi+1,$myyval,$valxcolr);
						}
						#$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
						#		$baryhi+1,$myyval,$valxcolr);
					}
					else
					{
						#$myyval = '(' . $myyval . ')';
						if ($parm{showvalues} =~ /total/i)
						{
							#ADDED 20001204 TO SHOW TOTALS AFTER STACK TOTALS AT BOTTOM.
							#$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length(${$parm{yvals}}[$_])*$sfw))),
							if ($parm{showvalues} =~ /xbottom/i)
							{
								$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))),
										($chartbottom3+($ycnt*$sfh2)+2),$myyval,$headercolr);
										#($chartbottom3+4),$myyval,$headercolr);
							}
							elsif ($parm{showvalues} !~ /nobar/i)
							{
								$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))),
										$chartbottom3,$myyval,$headercolr);
										#($chartbottom3+4),$myyval,$headercolr);
							}
							$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
									$baryhi-$sfh,$myyval,$valxcolr)  if ($parm{showvalues} =~ /top/i);
						}
#						elsif (($barylo >= ($baryhi+$sfh)) && ((length($myyval)*$sfw) <= $barxpix1))
#						{
#							#$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
#							#		$baryhi+1,$myyval,$valcolr);
#							$g->string(gdSmallFont,($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))),
#								$baryhi+1,$myyval,$valcolr);
#						}
						if ($parm{showvalues} =~ /top/i)
						{
							#$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
							#		$baryhi-$sfh,$myyval,$valxcolr);
							$g->string(gdSmallFont,($barxlo+($barxpix-(length($myyval)*$sfw))/2),
									$baryhi-$sfh,$myyval,$valxcolr);
#print "-!!!- TOTAL: ($myyval)!\n";
						}
					}
				}
#!!!
				if (defined($parm{barseplegend}))  #MOVED HERE 20030903.
				{
					my $mylegendx = ($parm{lmgn} + $sfh) /2;
					my $myycenter = $legendy + $sfh2;
					for (my $x=0;$x<=$#{$parm{barseplegend}};$x++)
					{
						$g->line($mylegendx, $myycenter, $mylegendx, ($myycenter+$sfh), 
								(defined $barsepcolrs[$x]) ? $barsepcolrs[$x] 
								: ($barsepcolr||$axiscolr));
						$g->string(gdSmallFont, $mylegendx+$sfw, $myycenter, 
								$parm{barseplegend}->[$x], $headercolr);
						$mylegendx += ($sfw * length($parm{barseplegend}->[$x])) 
								+ 10 + $sfw;
					}
				}
			}
			$barylo = $baryhi;
		}
		$ix++;
		$barxbase += $parm{barxsiz};
	}

	#BUGFIX BY STAN PINTE  (Thanks, Stan!)
	
	if (defined($parm{xlegend}))
	{
		my $ix = 0;
		my $i = 0;
		foreach $legendItem (@{$parm{xlegend}})
		{
			if (defined($legendItem))
			{
				@l = split(/\n/o, $legendItem);
				$llegendx = $parm{lmgn} - $sfh;
				$llegendx = 0  unless ($llegendx > 0);
				for (my $k=0;$k<$xlegendycnt;$k++)
				{
					if (length($l[$k]))
					{
						$g->filledRectangle($legendx[$k],$legendy+($k*$sfh2),($legendx[$k]+$sfh),($legendy+($k*$sfh2)+$sfh),
								$barcolrs[$ix+($k*$ycnt)]);  #DRAW RECTANGLES LEFT OF THE XLEGEND VALUES.
						my ($x0, $x1, $y0, $y1);
						if ($parm{showvalues} =~ /xbottom/io)  #DRAW LITTLE LEGEND RECTANGLES LEFT OF "BOTTOM" VALUES.
						{
							$y0 = $chartbottom3+(($ycnt-($ix+1))*$sfh2);
							$x1 = $llegendx+int($sfh / $xlegendycnt);
							$y1 = (($chartbottom3+(($ycnt-($ix+1))*$sfh2))+$sfh);
							$g->filledRectangle($llegendx,$y0,$x1,$y1,
									$barcolrs[$ix+($k*$ycnt)]);
						}
						$g->string(gdSmallFont,$legendx[$k]+$sfh2+4,$legendy+($k*$sfh2),$l[$k],
								$headercolr);
#print "<BR>legend($k) =$legendx[$k]= extra=".($sfh2 + ($sfw * length($l[$k]))+2)."=\n";
						if (defined($parm{legendlinks}[$i]) || defined($parm{legendlinkpath}
								|| defined($parm{legendmouseovers}[$i]) || defined($parm{legendmouseover})))
						{
							my $u = '';
							$u = ' HREF="' . $parm{legendlinkpath} . '" '  if (defined($parm{legendlinkpath}));
							$u = ' HREF="' . $parm{legendlinks}[$i] . '" '  if (defined($parm{legendlinks}[$i]) && !$u);
							$mapstr .= '<AREA SHAPE="rect" COORDS="'
									.($legendx[$k]).','
									.($legendy+($k*$sfh2)).','
									.($legendx[$k]+$sfh2 + ($sfw * length($l[$k]))+2).','
									.($legendy+(($k+1)*$sfh2))
									.'" ' . $u;
#x							$mapstr .= "\" onmouseover=\"window.status='$parm{legendmouseovers}[$i]'; return true"
#x							    if (defined $parm{legendmouseovers}[$i]);
									#."\" onmouseover=\"window.status='*'; return true\">\n";
							my ($mo, $mov, $mot);
							if (defined $parm{legendmouseover})
							{
								$mo = $parm{legendmouseover};
								$mo =~ s/\*/$parm{legendmouseovers}[$i]/g  if (defined $parm{legendmouseovers}[$i]);
							}
							elsif (defined $parm{legendmouseovers}[$i])
							{
								$mo = $parm{legendmouseovers}[$i];
							}
							if (defined $mo) {
#								$mo =~ s/\\\'/\&#39;/g;
								$mo =~ s/\\\"/\&quot;/g;
								my ($mov, $mot) = split(/\|\|/o, $mo);
								$mapstr .= " onmouseover=\"$mov\" ";
								$mapstr .= " onmouseout=\"$mot\" "  if ($mot =~ /\S/o);
							}
							$mapstr .= ">\n";
							$mapstr =~ s#\*#$parm{legendlinks}[$i]#;
							$mapstr =~ s/\<c\>/$barcolors[$i]/gi;
#print "<BR>??? ix=$ix= i=$i= l=$parm{legendlinks}[$i]=\n";
							if ($parm{showvalues} =~ /xbottom/io)  #DRAW LITTLE LEGEND RECTANGLES LEFT OF "BOTTOM" VALUES.
							{
								$g->filledRectangle($llegendx,$y0,$x1,$y1,
										$barcolrs[$ix+($k*$ycnt)]);
								$mapstr .= '<AREA SHAPE="rect" COORDS="'
										.$llegendx.','
										.$y0.','
										.$x1.','
										.$y1
										.'" ' . $u;
								if (defined $mo) {
#									$mo =~ s/\\\'/\&#39;/g;
									$mo =~ s/\\\"/\&quot;/g;
									my ($mov, $mot) = split(/\|\|/o, $mo);
									$mapstr .= " onmouseover=\"$mov\" ";
									$mapstr .= " onmouseout=\"$mot\" "  if ($mot =~ /\S/o);
								}
								$mapstr .= ">\n";
								$mapstr =~ s#\*#$parm{legendlinks}[$i]#;
								$mapstr =~ s/\<c\>/$barcolors[$i]/gi;
							}
						}
					}
					$legendx[$k] += $sfh2 + ($sfw * length($l[$k])) + 10;
					$llegendx += int($sfh / $xlegendycnt);
#print "<BR>??? llegendx=$llegendx=\n";
					$i++;
				}
			}
			++$ix;
		}
	}


	if ($parm{showvalues} =~ /\bbar/io)
	{
		$barxbase = $parm{lmgn} + (((100-$parm{barpct})*$parm{barxsiz})/200);
		$barxlo = $barxbase;
		$ix = 0;
	
		for ($j=0;$j<=$#{$parm{yvals}};$j+=$ycnt)
		{
			$barxlo = $barxbase;
			#$barylo = $parm{tmgn} + $chartysiz;
			$barylo = $parm{tmgn} + ($chartysiz * (($parm{ymax}-$parm{ybase}) / ($parm{ymax}-$parm{ymin})));
			$baryhi = $barylo;
			$ylast = $parm{ybase};
			#$vcolr = $valcolr;
	
			next  if ($barxlo > $rightedge);   #AVOID PRINTING BARS OFF CHART!
	
			for ($i=0;$i<$ycnt;$i++)   #DRAY ALL MULTIBARS FOR EACH X-VALUE.
			{
				$_ = $i + $j;
				#$vcolr = $valxcolr  if ($i >= ($ycnt-1));  #COLOR IF PRINTING OUTSIDE ALL BARS.
	
				#PRINT X HEADERS
	
				$ylast += ${$parm{yvals}}[$_];
				$baryhi = $parm{tmgn} + ($chartysiz * (($parm{ymax}-$ylast) / ($parm{ymax}-$parm{ymin})));
				if (${$parm{yvals}}[$_] < $parm{ybase})
				{
					if (($baryhi >= ($barylo+$sfh)) && ((length("${$parm{yvals}}[$_]")*$sfw) <= $barxpix1))
					{
						$g->string(gdSmallFont,($barxlo+($barxpix-(length(${$parm{yvals}}[$_])*$sfw))/2),
								$baryhi-$sfh,"${$parm{yvals}}[$_]",$valcolr);
					}
					#else   #BAR TOO SMALL, PRINT LABEL BELOW BAR.
					#{
					#	$g->string(gdSmallFont,($barxlo+($barxpix-(length(${$parm{yvals}}[$_])*$sfw))/2),
					#			$baryhi+1,"${$parm{yvals}}[$_]",$vcolr);
					#}
				}
				else
				{
					if (($barylo >= ($baryhi+$sfh)) && ((length("${$parm{yvals}}[$_]")*$sfw) <= $barxpix1))
					{
						$g->string(gdSmallFont,($barxlo+($barxpix-(length(${$parm{yvals}}[$_])*$sfw))/2),
								$baryhi+1,"${$parm{yvals}}[$_]",$valcolr);
					}
					#else   #BAR TOO SMALL, PRINT LABEL ABOVE BAR.
					#{
					#	$g->string(gdSmallFont,($barxlo+($barxpix-(length(${$parm{yvals}}[$_])*$sfw))/2),
					#			$baryhi-$sfh,"${$parm{yvals}}[$_]",$vcolr);
					#}
				}
				$barylo = $baryhi;
			}
			$ix++;
			$barxbase += $parm{barxsiz};
		}
	}

#START:  goto STOP;
	
	#SOME VARIABLES TO SAVE ARITHMETIC IN LOOPS.
	
	$barxpix = (($parm{barxsiz} * $parm{barpct}) / 100) / $ycnt;

	#$barxbase = $parm{lmgn} + $xzonewidth;
	$barxbase = $parm{lmgn};
	$barxlo = $barxbase + $xzonewidth;

	$ix = 0;
	#$barcolr = $barcolrs[$ix];
	$legendx = $parm{lmgn} / 2;  #CHGD TO NEXT 20030910.
	$legendx = $parm{minlmgn};
#	$rightedge = $parm{lmgn} + $chartxsiz;
	$colorcnt = $#barcolrs + 1;
	$barxpix1 = $barxpix + 1;
	$colorcnt = $ycnt  if ($ycnt > 1 && $colorcnt > $ycnt);
	$colorcnt = 1  if ($colorcnt <= 0);

	#SOME VARIABLES TO SAVE ARITHMETIC IN LOOPS.

	$linkbottom = $parm{tmgn} + $chartysiz + $sfh + 4;
	$sfh2 = $sfh + 2;
	$chartbottom  = $parm{tmgn} + $chartysiz;
	$chartbottom += $sfh  if ($parm{ylnmin} < $parm{ybase});  #ALLOW ROOM FOR VALUES BELOW DOWNWARD BARS.
	$chartbottom2 += ($xvallines+1) * $sfh;
	$chartbottom3 = $chartbottom2 + ($lnlegendsz * $sfh2);
#	$legendy += $sfh2 + 2;   #CHGD. TO NEXT 20110922:
	$legendy += $sfh2;
	if (defined($parm{xtitle}))
	{
		$g->string(gdSmallFont, (($chartxsiz - ($sfw*length($parm{xtitle})))/2) + $parm{lmgn}, 
				$legendy-(2*$sfh2+4), $parm{xtitle}, $titlecolr);
	}
	$legendy += ($grpcnt-1) * $sfh2  if ($grpcnt > 1);
	my ($tmgn_2) = $parm{tmgn} - 2;
	my ($tmgn2) = $tmgn_2 + 4;
	$chartbottom = $parm{tmgn} + $chartysiz;
	my ($chartbottom1) = $chartbottom + $pointrad + 2;
	my $lnlegendyoffset = 0;
	#$lnlegendyoffset = $sfh2 * ($#{$parm{xlegend}}+1)  #CHGD. TO NEXT 20030626.
	$lnlegendyoffset = $sfh2 * $ybottomcnt  
			if (defined($parm{xlegend}) && $parm{showvalues} =~ /xbottom/i);
#print "***** LNOFFSET=$lnlegendyoffset= ybc=$ybottomcnt=\n";
#	$lnlegendyoffset += $sfh2 + 4  if ($parm{showvalues} =~ /\btotal/i);  #CHGD. TO NEXT 20110922 B/C TOTAL LINE DOES NOT PRINT W/O "BOTTOM"!
	$lnlegendyoffset += $sfh2 + 4  if ($parm{showvalues} =~ /\bx?bottom/i);
	$lnlegendyoffset += $sfh2  if ($grpcnt && defined($parm{xbreaklegend}));  #ADDED 20110922.
	my $totalbottom = $chartbottom2 + 4 + $lnlegendyoffset;
	$totalbottom += $lnlegendsz*$sfh2  if ($parm{showvalues} =~ /lnbottom/i);
	my ($linkbottom) = $chartbottom2 + 4;
	my ($ycnt_1) = $ycnt - 1;
	my $barxhi0;
	my ($mysymbol);
	my ($xcenter, $ycenter);
	my ($mycolrindx, $mycolr0, $mycolrindx2);
	#CHGD. TO NEXT 20030619 SO THAT AXIS SPANS CHART EVEN IF ZERO OR FEW BARS.
#?	$g->line($parm{lmgn}, $chartbottom2, ($parm{lmgn}+$chartxsiz),
#2	$g->line($parm{lmgn}, $chartbottom2, $maxygridarea,
#?			$chartbottom2, $headercolr)  if ($parm{showvalues} =~ /xbottom/i);
	$_ = $chartbottom2 + $lnlegendyoffset + 1;
	$g->line($parm{lmgn}, $_, ($parm{lmgn}+$chartxsiz),
			$_, $headercolr)  if ($parm{showvalues} =~ /lnbottom/i);
#$useindividualcolors =	2;
	$bottomix = 0;
	$bottomi = 0;
#print "<BR>-???- ylncnt=$ylncnt= vals=".join('|',@{$parm{ylnvals}})."=\n";
	outer: 	for ($i=0;$i<$ylncnt;$i++)   #DRAW ALL MULTILINES FOR EACH X-VALUE.
	{
		
		inner:		for ($j=0;$j<=$#{$parm{ylnvals}};$j+=$ylncnt)
		{
			unless ($j)
			{
#				$barxlo = $barxbase;  #CHGD. TO NEXT 20030528 TO LINE UP BOTTOM VALUES, IF BREAKS ANYTHING, REVERT.
				$barxlo = $barxbase + $xzonewidth;
				$barxlo0 = $barxbase - ($parm{barxsiz} / 2);
				$barxhi0 = $barxlo0 + $parm{barxsiz};
			}
#			if ($useindividualcolors == 2)
#			{
				#$mycolr0 = $linecolr;
				#$mycolrindx = $i+$j;
				$mycolrindx = $ix;
				#$mycolrindx += $ycnt  if (defined($parm{xlegend}));
				$mycolr0 = $linecolrs[$mycolrindx];
#			}
#			else
#			{
#				$mycolr0 = $linecolrs[$i];
#				$mycolrindx = $i;
#			}
			if (defined($parm{xsymbols}[$i]))
			{
				$mysymbol = $parm{xsymbols}[$i];
			}
			elsif (defined($parm{xsymbol}))
			{
				$mysymbol = $parm{xsymbol};
			}
#			else
#			{
#				$mysymbol = 'dot';
#			}
			if (defined $parm{points})
			{
				if (ref($parm{points}) eq 'ARRAY')
				{
					if (defined($parm{points}[$i]))
					{
						$pointdiam = $parm{points}[$i];
					}
					else
					{
						$pointdiam = $parm{points}[0];
					}
				}
				else
				{
					$pointdiam = $parm{points};
				}
			}
			else
			{
				$pointdiam = 0;
			}
			$_ = $i + $j;
			
			#PRINT X HEADERS
			
			$ysum[$j] += ${$parm{ylnvals}}[$_]  if (defined(${$parm{ylnvals}}[$_]));
			$barylo = $baryhi;

			#NEXT IF ADDED 20031022 TO PERMIT PLOTTING SPECIFIC LINES AGAINST THE *LEFT* LEGEND!
			if (defined($parm{ylnplotlegend}[$bottomi]) && $parm{ylnplotlegend}[$bottomi])
			{
				$baryhi = $parm{tmgn} + ($chartysiz * (($parm{ymax}-${$parm{ylnvals}}[$_]) / ($parm{ymax}-$parm{ymin})));
			}
			else
			{
				$baryhi = $parm{tmgn} + ($chartysiz * (($parm{ylnmax}-${$parm{ylnvals}}[$_]) / ($parm{ylnmax}-$parm{ylnmin})));
			}
			
			unless ($i)
			{
				if ($parm{xgriddashed})
				{
					$g->dashedLine($barxhi0,$tmgn_2,$barxhi0,$chartbottom1,$axiscolr);
				}
				else   #DRAW VERTICAL TIC-MARKS AT #BOTTOM AND TOP OF CHART.
				{
					#$g->line($barxhi0,$chartbottom,$barxhi0,$chartbottom1,$axiscolr);
					$g->line($barxhi0,$tmgn_2,$barxhi0,$tmgn2,$axiscolr);
				}
				#THIS CODE DRAWS THE VERTICAL COLUMN OF SYMBOLS JUST LEFT OF THE "LINE" "BOTTOM" VALUES
				#AND THE HORIZONTAL ROW OF SYMBOLS FOR THE "LNLEGEND" VALUES.
				#if (defined($parm{lnlegend}) && defined(${$parm{lnlegend}}[$ix]))
				#LAST COND. CHGD. TO NEXT 20030626.
				if (!$ix && defined($parm{lnprelegend}))  #ADDED 20030910 TO SUPPORT CAPTION LEFT OF LN-LEGEND.
				{
					$g->string(gdSmallFont,$legendx,$legendy,
							$parm{lnprelegend},$headercolr);
					$legendx += ($sfw * length($parm{lnprelegend})) + 5;
				}
				if (defined($parm{lnlegend}) && defined(${$parm{lnlegend}}[$ix])
						&& length(${$parm{lnlegend}}[$ix]))
				{
					my ($mysymbol, $pointdiam);
					if (defined($parm{xsymbols}[$ix]))
					{
						$mysymbol = $parm{xsymbols}[$ix];
					}
					elsif (defined($parm{xsymbol}))
					{
						$mysymbol = $parm{xsymbol};
					}
#					else
#					{
#						$mysymbol = 'dot';
#					}
					if (defined $parm{points})
					{
						if (ref($parm{points}) eq 'ARRAY')
						{
							if (defined($parm{points}[$ix]))
							{
								$pointdiam = $parm{points}[$ix];
							}
							else
							{
								$pointdiam = $parm{points}[0];
							}
						}
						else
						{
							$pointdiam = $parm{points};
						}
					}
					else
					{
						$pointdiam = 0;
					}
					my $dfltdiam = $pointdiam || $sfh_2;
					#THIS DRAWS SYMBOL FOR THE LINE-VALUES BOTH IN THE X-LEGEND AND FOR "BOTTOM" VALUES.
					if ($pointdiam)  #ADDED 20030905.
					{
						if ($mysymbol =~ /square/i)
						{
							$xcenter = $legendx + $sfh_2;
							$ycenter = $legendy + $sfh_2;
							#THIS DRAWS THE SQUARE ON THE X-LNLEGEND LINE.
							$g->filledRectangle(
									$xcenter-$dfltdiam,
									$ycenter-$dfltdiam,
									($xcenter+$dfltdiam),
									($ycenter+$dfltdiam),
									$linecolrs[$mycolrindx]);
							#$legendx = $xcenter + int($dfltdiam / 2) + 4;
							if ($parm{showvalues} =~ /lnbottom/i)
							{
								#THIS DRAWS THE SQUARE LEFT OF THE ROW OF "BOTTOM" VALUES.
								$xcenter = $parm{lmgn} - $sfh_2;
								$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
								$ycenter += $lnlegendyoffset;
								$g->filledRectangle(
										$xcenter-$dfltdiam,
										$ycenter-$dfltdiam,
										($xcenter+$dfltdiam),
										($ycenter+$dfltdiam),
										$linecolrs[$mycolrindx]);
							}
						}
						elsif ($mysymbol =~ /diamond/i)
						{
							$xcenter = $legendx + $sfh_2;
							$ycenter = $legendy + $sfh_2;
							$g->line($xcenter-$dfltdiam,
									$ycenter, $xcenter,
									$ycenter+$dfltdiam, $linecolrs[$mycolrindx]);
							$g->line($xcenter,	$ycenter+$dfltdiam, 
									$xcenter+$dfltdiam,
									$ycenter, $linecolrs[$mycolrindx]);
							$g->line($xcenter+$dfltdiam,
									$ycenter, $xcenter,
									($ycenter-$dfltdiam), $linecolrs[$mycolrindx]);
							$g->line($xcenter,	$ycenter-$dfltdiam, 
									$xcenter-$dfltdiam,
									$ycenter, $linecolrs[$mycolrindx]);
							$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							#$legendx = $xcenter + int($dfltdiam / 2) + 4;
							if ($parm{showvalues} =~ /lnbottom/i)
							{
								$xcenter = $parm{lmgn} - $sfh_2;
								$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
								$ycenter += $lnlegendyoffset;
								$g->line(($xcenter-$dfltdiam),
										$ycenter, $xcenter,
										($ycenter-$dfltdiam), $linecolrs[$mycolrindx]);
								$g->line($xcenter,	($ycenter-$dfltdiam), 
										($xcenter+$dfltdiam),
										$ycenter, $linecolrs[$mycolrindx]);
								$g->line(($xcenter+$dfltdiam),
										$ycenter, $xcenter,
										($ycenter+$dfltdiam), $linecolrs[$mycolrindx]);
								$g->line($xcenter,	($ycenter+$dfltdiam), 
										($xcenter-$dfltdiam),
										$ycenter, $linecolrs[$mycolrindx]);
								$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							}
						}
						elsif ($mysymbol =~ /down/i)   #DOWN-POINTING TRIANGLE.
						{
							$xcenter = $legendx + $sfh_2;
							$ycenter = $legendy + $sfh_2;
							my $triangrad = $dfltdiam * 0.866; #sin 60 degrees
							$g->line($xcenter, $ycenter+$triangrad+1, 
									$xcenter-$dfltdiam, ($ycenter-$triangrad)+1,
									$linecolrs[$mycolrindx]);
							$g->line($xcenter-$dfltdiam, ($ycenter-$triangrad)+1,
									$xcenter+$dfltdiam, ($ycenter-$triangrad)+1,
									$linecolrs[$mycolrindx]);
							$g->line($xcenter+$dfltdiam, ($ycenter-$triangrad)+1,
									$xcenter, $ycenter+$triangrad+1, 
									$linecolrs[$mycolrindx]);
							$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							#$legendx = $xcenter + int($dfltdiam / 2) + 4;
							if ($parm{showvalues} =~ /lnbottom/i)
							{
								$xcenter = $parm{lmgn} - $sfh_2;
								$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
								$ycenter += $lnlegendyoffset;
								$g->line($xcenter, $ycenter+$triangrad, 
										$xcenter-$dfltdiam, $ycenter-$triangrad,
										$linecolrs[$mycolrindx]);
								$g->line($xcenter-$dfltdiam, $ycenter-$triangrad,
										$xcenter+$dfltdiam, $ycenter-$triangrad,
										$linecolrs[$mycolrindx]);
								$g->line($xcenter+$dfltdiam, $ycenter-$triangrad,
										$xcenter, $ycenter+$triangrad, 
										$linecolrs[$mycolrindx]);
								$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							}
						}
						elsif ($mysymbol =~ /up/i)   #UP-POINTING TRIANGLE.
						{
							$xcenter = $legendx + $sfh_2;
							$ycenter = $legendy + $sfh_2;
							my $triangrad = $dfltdiam * 0.866; #sin 60 degrees
							$g->line($xcenter, $ycenter-$triangrad, 
									$xcenter-$dfltdiam, $ycenter+$triangrad,
									$linecolrs[$mycolrindx]);
							$g->line($xcenter-$dfltdiam, $ycenter+$triangrad,
									$xcenter+$dfltdiam, $ycenter+$triangrad,
									$linecolrs[$mycolrindx]);
							$g->line($xcenter+$dfltdiam, $ycenter+$triangrad,
									$xcenter, $ycenter-$triangrad, 
									$linecolrs[$mycolrindx]);
							$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							#$legendx = $xcenter + int($dfltdiam / 2) + 4;
							if ($parm{showvalues} =~ /lnbottom/i)
							{
								$xcenter = $parm{lmgn} - $sfh_2;
								$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
								$ycenter += $lnlegendyoffset;
								$g->line($xcenter, $ycenter-$triangrad, 
										$xcenter-$dfltdiam, $ycenter+$triangrad,
										$linecolrs[$mycolrindx]);
								$g->line($xcenter-$dfltdiam, $ycenter+$triangrad,
										$xcenter+$dfltdiam, $ycenter+$triangrad,
										$linecolrs[$mycolrindx]);
								$g->line($xcenter+$dfltdiam, $ycenter+$triangrad,
										$xcenter, $ycenter-$triangrad, 
										$linecolrs[$mycolrindx]);
								$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							}
						}
						else  #CIRCLES AND DOTS.
						{
							$xcenter = $legendx + $sfh_2;
							$ycenter = $legendy + $sfh_2;
							#$legendx = $xcenter + int($dfltdiam / 2) + 4;
							my ($rad) = $dfltdiam;
							$rad *= 2  if ($mysymbol =~ /circle/i);
							#THIS DRAWS THE SYMBOLS BEFORE YOUR LNLEGEND HEADERS!
							$g->arc($xcenter,$ycenter,$rad,$rad,0,360,
									$linecolrs[$mycolrindx]);
							$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							#THIS DRAWS SYMBOLS TO LEFT OF EACH LINE OF "BOTTOM" VALUES!
							if ($parm{showvalues} =~ /lnbottom/i)
							{
								$rad = $dfltdiam;
								$rad *= 2  if ($mysymbol =~ /circle/i);
								#$xcenter = $parm{lmgn} - $sfh_2;  #CHGD. TO NEXT: 20010820.
								$xcenter = $parm{lmgn} - $sfh_2;
								$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
								$ycenter += $lnlegendyoffset;
								$g->arc($xcenter,$ycenter,$rad,$rad,0,360,
										$linecolrs[$mycolrindx]);
								$g->fill($xcenter,$ycenter,$linecolrs[$mycolrindx]);
							}
						}
					}
					$ycenter = $legendy + $sfh_2;
					$g->line($legendx, $ycenter, 
							($legendx + $sfh), $ycenter,
							$linecolrs[$mycolrindx]);
					if ($parm{showvalues} =~ /lnbottom/i)
					{
						$xcenter = $parm{lmgn} - $sfh;
						$ycenter = int($chartbottom2+2+(1+$bottomix)*$sfh)-$sfh_2;
						$ycenter += $lnlegendyoffset;
						$g->line(
								$xcenter, $ycenter,
								($xcenter+$sfh), $ycenter,
								$linecolrs[$mycolrindx]);
					}
					#$legendx += (2 * ($sfh - $pointdiam)) + 3;
					#$legendx += (2 * $dfltdiam) + 4;
					$legendx += $sfh2 + 2;
					$g->string(gdSmallFont,$legendx,$legendy,${$parm{lnlegend}}[$ix],$headercolr);
					$legendx += ($sfw * length(${$parm{lnlegend}}[$ix])) + 5;
				}
				
				if (defined($parm{links}[$ix]) || defined($parm{mouseovers})   #ADD HYPERLINK, IF ANY, TO BAR.
				|| defined($parm{link}) || defined($parm{mouseover}))
				{
					$l = '';
					if (defined($parm{links}[$ix]) || defined($parm{link}))
					{
						$l = 'HREF="//';
						$parm{links}[$ix] = $parm{link}  unless($parm{links}[$ix]);
						$l = ' HREF="' . $parm{links}[$ix];
						unless ($l =~ m#\"\s*(http\:|\/)#)
						{
							$l = 'HREF="' . $parm{linkpath};
							#$l .= $parm{links}[$ix]  unless ($l =~ s#\*#$parm{links}[$ix]#);  #CHGD. TO NEXT 20050204 TO GET ALL OF 'EM!
							$l .= $parm{links}[$ix]  unless ($l =~ s#\*#$parm{links}[$ix]#g);
						}
						$l .= '"';
					}
					$l = ''  if ($l eq 'HREF="//"' && !defined($parm{mouseovers}[$ix]));  #ADDED 20000302!
					$mapstr .= '<AREA SHAPE=rect COORDS="' . $barxlo . ',' .
							$parm{tmgn} . ',' . ($barxlo+$parm{barxsiz}) . ',' .
							$linkbottom . '" ' . $l;
#x					if (defined($parm{mouseovers}[$ix]))   #ADD MOUSEOVER LINK, IF ANY, TO BAR.
#x					{
#x						$mapstr .= " onmouseover=\"window.status='$parm{mouseovers}[$ix]'; return true\"";
#x					}
#x					elsif (defined($parm{mouseover}))      #ADD DEFAULT MOUSEOVER LINK, IF ANY.
#x					{
#x						$mapstr .= " onmouseover=\"window.status='$parm{mouseover}'; return true\"";
#x					}
					my ($mo, $mov, $mot);
					if (defined $parm{mouseover})
					{
						$mo = $parm{mouseover};
						$mo =~ s/\*/$parm{mouseovers}[$ix]/g  if (defined $parm{mouseovers}[$ix]);
					}
					elsif (defined $parm{mouseovers}[$ix])
					{
						$mo = $parm{mouseovers}[$ix];
					}
					if (defined $mo) {
#						$mo =~ s/\\\'/\&#39;/g;
						$mo =~ s/\\\"/\&quot;/g;
						my ($mov, $mot) = split(/\|\|/o, $mo);
						$mapstr .= " onmouseover=\"$mov\"";
						$mapstr .= " onmouseout=\"$mot\""  if ($mot =~ /\S/);
					}
					$mapstr .= ">\n";
				}
			}
#			unless ($i < $ycnt_1)
			{
				if ($parm{showvalues} =~ /lntotal/i)  #THIS IS YOUR YLNVAL TOTALS LINE AT BOTTOM:
				{
					$myyval = &commatize($ysum[$j],$parm{commatize}, 
						(defined($ylnvalprefix[$_]) ? $ylnvalprefix[$_] : $ylnvalprefix[0]), 
						(defined($ylnvalsuffix[$_]) ? $ylnvalsuffix[$_] : $ylnvalsuffix[0])
						, $parm{ylnval_places});
					$g->line($parm{lmgn}, $totalbottom, ($parm{lmgn}+$chartxsiz),
							$totalbottom, $headercolr);
					$lncenter = 0;
					if ($parm{lnlegendjustify} eq '<')
					{
						$lncenter -= $parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw);
					}
					elsif ($parm{lnlegendjustify} eq '|')
					{
						$lncenter -= ($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw)) / 2;
					}
					$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))+$lncenter),
							$totalbottom+2,$myyval,$valxcolr);
				}
			}
			
			#if (defined(${$parm{ylnvals}}[$_]) && length(${$parm{ylnvals}}[$_]) && defined(${$parm{lnlegend}}[$i]))
			#PREV. LINE CHGD. TO NEXT 20030922 TO FIX SKIPPING SPACE FOR EMPTY LEGEND VALUES.
#print "<BR>-???-1: i=$I= sv=$parm{showvalues}=\n";
			if (defined($parm{lnlegend}) && defined(${$parm{lnlegend}}[$i])
						&& length(${$parm{lnlegend}}[$i]) && defined(${$parm{ylnvals}}[$_]) && defined(${$parm{lnlegend}}[$i]))
			{
				#THIS DISPLAYS THE Y-LINE-VALUES AT THE "BOTTOM", IF REQUESTED.
				if ($parm{showvalues} =~ /lnbottom/i)
				{
					$myyval = &commatize(${$parm{ylnvals}}[$_],$parm{commatize}, 
						(defined($ylnvalprefix[$_]) ? $ylnvalprefix[$_] : $ylnvalprefix[0]), 
						(defined($ylnvalsuffix[$_]) ? $ylnvalsuffix[$_] : $ylnvalsuffix[0]
						, $parm{ylnval_places}));
					$ycenter = $chartbottom2+2+$lnlegendyoffset;
					$ycenter += $bottomi*$sfh2  if ($parm{showvalues} =~ /xbottom/i);
					$lncenter = 0;
					if ($parm{lnlegendjustify} eq '<')
					{
						$lncenter -= $parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw);
					}
					elsif ($parm{lnlegendjustify} eq '|')
					{
						$lncenter -= ($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw)) / 2;
					}
					$g->string(gdSmallFont, ($barxlo+($parm{barxsiz}*($parm{barpct}/100)-(length($myyval)*$sfw))+$lncenter ),
							 $ycenter,$myyval,$headercolr)
				}
				#THIS ACTUALLY DRAWS THE LINE!!!!!
				$mycolrindx2 = $i;
				#$mycolrindx2 += $ycnt  if (defined($parm{xlegend}));
#print "<BR>--cash=$_= ylncnt=$ylncnt= line from ($barxlo0,$barylo) to ($barxhi0,$baryhi) - $linecolrs[$mycolrindx2]!\n";
				if ($_ >= $ylncnt)
				{
					$g->line($barxlo0,$barylo,$barxhi0,$baryhi,$linecolrs[$mycolrindx2]);
				}
				if ($pointdiam > 0)
				{
					for $x (1..$pointdiam)
					{
						if ($mysymbol =~ /square/i)
						{
							$g->filledRectangle(
							$barxhi0-$x,
									$baryhi-$x,
									$barxhi0+$x,
									$baryhi+$x,
									$linecolrs[$mycolrindx2]
							);
						}
						elsif ($mysymbol =~ /diamond/i)
						{
							$g->line(($barxhi0-$x),
									$baryhi, $barxhi0,
									($baryhi-$x), $linecolrs[$mycolrindx2]);
							$g->line($barxhi0,	($baryhi-$x), 
									($barxhi0+$x),
									$baryhi, $linecolrs[$mycolrindx2]);
							$g->line(($barxhi0+$x),
									$baryhi, $barxhi0,
									($baryhi+$x), $linecolrs[$mycolrindx2]);
							$g->line($barxhi0,	($baryhi+$x), 
									($barxhi0-$x),
									$baryhi, $linecolrs[$mycolrindx2]);
						}
						elsif ($mysymbol =~ /down/i)   #DOWN-POINTING TRIANGLE.
						{
							my $triangrad = $x * 0.866; #sin 60 degrees
							$g->line($barxhi0, $baryhi+$triangrad+1, 
									$barxhi0-$x, ($baryhi-$triangrad)+1,
									$linecolrs[$mycolrindx2]);
							$g->line($barxhi0-$x, ($baryhi-$triangrad)+1,
									$barxhi0+$x, ($baryhi-$triangrad)+1,
									$linecolrs[$mycolrindx2]);
							$g->line($barxhi0+$x, ($baryhi-$triangrad)+1,
									$barxhi0, $baryhi+$triangrad+1, 
									$linecolrs[$mycolrindx2]);
						}
						elsif ($mysymbol =~ /up/i)   #UP-POINTING TRIANGLE.
						{
							my $triangrad = $x * 0.866; #sin 60 degrees
							$g->line($barxhi0, $baryhi-$triangrad, 
									$barxhi0-$x, $baryhi+$triangrad,
									$linecolrs[$mycolrindx2]);
							$g->line($barxhi0-$x, $baryhi+$triangrad,
									$barxhi0+$x, $baryhi+$triangrad,
									$linecolrs[$mycolrindx2]);
							$g->line($barxhi0+$x, $baryhi+$triangrad,
									$barxhi0, $baryhi-$triangrad, 
									$linecolrs[$mycolrindx2]);
						}
						elsif ($mysymbol =~ /circle/i)
						{
							$g->arc($barxhi0,$baryhi,($x*2),($x*2),0,360,
									$linecolrs[$mycolrindx2]);
						}
						else
						{
							$g->arc($barxhi0,$baryhi,$x,$x,0,360,
									$linecolrs[$mycolrindx2]);
						}
					}
				}
				#$g->string(gdSmallFont,($barxlo0+($barxpix-(length(${$parm{ylnvals}}[$_])*$sfw))/2),
				#		$baryhi-($sfh+$pointdiam),"${$parm{ylnvals}}[$_]",$mycolr0)
				$g->string(gdSmallFont,
						($barxlo+($parm{barxsiz}-(length(${$parm{ylnvals}}[$_])*$sfw))/2),
						($baryhi-($sfh+$pointrad)),
						"${$parm{ylnvals}}[$_]",$mycolr0)
				if ($parm{showvalues} =~ /line/i);
				++$bottomix;
			}
			
			$barxlo0 = $barxhi0;
			$barxhi0 += $parm{barxsiz};
			$barxlo += $parm{barxsiz};
			$barxlo1 += $parm{barxsiz};
			$ix++;
		}
		++$bottomi  if (defined(${$parm{ylnvals}}[$_]) && defined(${$parm{lnlegend}}[$i])
				&& length(${$parm{lnlegend}}[$i]));
	}

STOP:

	if (defined($parm{links}) || defined($parm{mouseovers})
			|| defined($parm{link}) || defined($parm{mouseover}))
	{
		$l = '';
		if (defined($parm{link}))
		{
			$l = 'HREF="' . $parm{link};
			#$l = $parm{linkpath} . $l  unless ($l =~ m#^\s*(http\:|\/)#);
			unless ($l =~ m#\"\s*(http\:|\/)#)
			{
				$l = "HREF=\"$parm{linkpath}";
				#$l .= $parm{link}  unless ($l =~ s#\*#$parm{link}#);  #CHGD. TO NEXT 20050204 TO GET ALL OF 'EM!
				$l .= $parm{link}  unless ($l =~ s#\*#$parm{link}#g);
			}
			$l .= '"';
		}
		if (defined($parm{link}) || defined($parm{mouseover}) || defined($parm{legendlinks}))
		{
#x			$l ||= 'HREF="#"'  if (defined($parm{mouseover}) || defined($parm{legendlinks}));
			$mapstr .= '<AREA SHAPE=default ' . $l;
#x			$mapstr .= " onmouseover=\"window.status='$parm{mouseover}'; return true\""
#x					if (defined($parm{mouseover}));
			my ($mo, $mov, $mot);
			if (defined $parm{mouseover})
			{
				$mo = $parm{mouseover};
			}
			if (defined $mo) {
#				$mo =~ s/\\\'/\&#39;/g;
				$mo =~ s/\\\"/\&quot;/g;
				my ($mov, $mot) = split(/\|\|/o, $mo);
				$mapstr .= " onmouseover=\"$mov\" ";
				$mapstr .= " onmouseout=\"$mot\" "  if ($mot =~ /\S/o);
			}
			$mapstr .= ">\n";
		}
		$mapstr .= '</MAP>' . "\n";
	}

	#PRINT MAIN HEADERS AND TITLES.

	if (defined($parm{title}))
	{
		#$g->string(gdLargeFont,(($chartxsiz - ($lfw*length($parm{title})))/2) + $parm{lmgn},
		#		($parm{tmgn} - $lfh) / 2, $parm{title}, $titlecolr);
		#CHGD. TO NEXT 20030417 TO MAKE TITLE APPEAR CENTERED IN CHART RATHER THAN ABOVE GRAPH.
		#THIS LOOKS BETTER ESPECIALLY WHEN GRAPH IS ONLY ON LEFT SIDE OF CHART.
		#$g->string(gdLargeFont,(($parm{maxxsiz} - ($lfw*length($parm{title})))/2),
		#		($parm{tmgn} - $lfh) / 2, $parm{title}, $titlecolr);
		#CHGD. TO NEXT (FOR-LOOP) 20030430 TO SUPPORT MULTILINE TITLES!
		for (my $i=0;$i<=$#titles;$i++)
		{
			$g->string(gdLargeFont,(($parm{maxxsiz} - ($lfw*length($titles[$i])))/2),
					(($parm{tmgn} - (scalar(@titles)*($lfh+2))) / 2)+(($lfh+2)*$i), $titles[$i], $titlecolr);
		}
	}
#print "<BR>??? legendy=$legendy= sfh2=$sfh2=\n";
	if (defined($parm{lrtitle}))  #ADDED 20030506 TO ADD LOWER-RIGHT CORNER TITLE.
	{
		$_ = ($parm{lmgn}+$chartxsiz) - ($sfw*length($parm{lrtitle}));
#print "<BR>cash=$_= y=".(($parm{maxysiz}-(2*$sfh))+2)."= lrtitle=$parm{lrtitle}= legendx=".($legendx[$#legendx])."=\n";
#		if ($_ >= $legendx[$#legendx])  #CONDITIONAL REMOVED 20110923:
#		{
			$g->string(gdSmallFont, ($parm{lmgn}+$chartxsiz) - ($sfw*length($parm{lrtitle})), 
#					($parm{maxysiz}-(2*$sfh+2)), $parm{lrtitle}, $titlecolr);  #CHGD. TO NEXT 20110922:
					($parm{maxysiz}-(2*$sfh))+2, $parm{lrtitle}, $titlecolr);  #CHGD. TO NEXT 20110923:
#		}
	}
	if (defined($parm{ytitle}))
	{
		$i = $sfw*length($parm{ytitle});
#my $xxx=((($parm{lmgn}-($yheadxmax2*$sfw))-$sfh)-$sfh) / 2;
my $xxx=(($parm{lmgn}-($yheadxmax*$sfw))-$sfh) - $sfh;
#print X "-lmgn=$parm{lmgn}= yhead2=$yheadxmax= sfw=$sfw= h=$sfh= POSN=$xxx=\n"; close X;
#		$g->stringUp(gdSmallFont, ((($parm{lmgn}-($yheadxmax2*$sfw))-$sfh)-$sfh) / 2, 
		$g->stringUp(gdSmallFont, (($parm{lmgn}-($yheadxmax*$sfw))-$sfh) - $sfh, 
				(($chartysiz - $i)/2) + $i + $parm{tmgn}, 
				$parm{ytitle}, $titlecolr);
	}
	if (defined($parm{ylntitle}))
	{
		$i = $sfw*length($parm{ylntitle});
		#$g->stringUp(gdSmallFont, ((($parm{rmgn}-$yheadxmax2)-$sfh)-$sfh) / 2, 
		$g->stringUp(gdSmallFont, 
				$parm{maxxsiz} - ((($parm{rmgn}-($yheadxmax2*$sfw))+$sfh)/2), 
				(($chartysiz - $i)/2) + $i + $parm{tmgn}, 
				$parm{ylntitle}, $titlecolr);
	}
#print "<BR>mapstr=$mapstr=\n";
	return ($g,$mapstr);	
}

sub xfincx
{
	my ($x,$grid) = @_;
	
	my ($i, $i1, $j, $k, $ystep, $yinc, $carry, $decimalFactor);

	#NEXT 10 LINES ADDED 20040122 TO HANDLE Y-RANGES < 1
	$decimalFactor = 1;
	if ($x)
	{
		while ($x < 1)
		{
			$x *= 10;
			$grid *= 10;
			$decimalFactor *= 10;
		}
	}

	$yinc = int($x / $grid);

	$yinc += 1  unless (($yinc * $grid) >= $x);
	
	$ylen = length($yinc);

	my @ydigits = split(//,$yinc);	
	for ($i=$ylen-2;$i>=0;$i--)
	{
		$i1 = $i + 1;

		if ($ydigits[$i] > 0 && $ydigits[$i] <= 2)
		{
			if ($ydigits[$i1] > 0 && $ydigits[$i1] < 5)
			{
				$ydigits[$i1] = 5;
				for ($k=$i1+1;$k<=$#ydigits;$k++)
				{
					$ydigits[$k] = 0;
				}
			}
			elsif ($ydigits[$i1] > 5 && $ydigits[$i1] <= 9)
			{
				$ydigits[$i1] = 0;
				$j = $i;

				while ($j >= 0)
				{
					if ($ydigits[$j] < 9)
					{
						++$ydigits[$j];

						$carry = 0;
						last;
					}
					for ($k=$j;$k<=$#ydigits;$k++)
					{
						$ydigits[$k] = 0;
					}
					$carry = 1;
					--$j;

				}

				@ydigits = (1,@ydigits)  if ($carry);
			}
		}
		elsif ($ydigits[$i1] > 0)
		{
			#$ydigits[$i1] = 0;
			for ($k=$i1;$k<=$#ydigits;$k++)
			{
				$ydigits[$k] = 0;
			}
			$j = $i;
			while ($j >= 0)
			{
				if ($ydigits[$j] < 9)
				{
					++$ydigits[$j];
					$carry = 0;
					last;
				}
				for ($k=$j;$k<=$#ydigits;$k++)
				{
					$ydigits[$k] = 0;
				}
				$carry = 1;
				--$j;
			}
			@ydigits = (1,@ydigits)  if ($carry);
		}
	}
	$yinc = join('',@ydigits);

	return $yinc / $decimalFactor;

}

sub commatize
{
	my $val = shift;
	my $doit = shift;
	my $valprefix = shift;
	my $valsuffix = shift;
	my $decPlaces = shift;
	$valprefix = ''  unless (defined $valprefix);
	$valsuffix = ''  unless (defined $valsuffix);
	unless (defined $decPlaces) {
	  my $decPart = '';
	  $decPart = $1  if ($val =~ /\.(\d+)/o);
	  $decPlaces = length($decPart) || '0';
	}

	$val = sprintf("%.${decPlaces}f",$val);
	if ($decPlaces)  #ADDED 20110923:
	{
		$val .= '.'  unless ($val =~ /\./o);
		my $l = ($val =~ /\.(\d+)$/) ? length($1) : 0;
		for (my $i=$l; $i<$decPlaces;$i++)
		{
			$val .= '0';
		}
	}
	return ("${valprefix}${val}$valsuffix")  unless ($doit);

	$val =~ s/(\d)(\d\d\d)$/$1,$2/;
	$val =~ s/(\d)(\d\d\d),/$1,$2,/g;
	$val = '(' . $val . ')'  if ($val =~ s/^\-//o);
	return ("${valprefix}${val}$valsuffix");
}

1