[perl-win32-gui-users] Arc function OK in 2000, not in 98?

[Piske, H. <Har...@bo...>]

I made a paint sub that uses some drawing functions. It makes a beautiful
picture in Win2000, but on the target machine, running Win98, nothing shows.
Rectangle seems to work fine, Circle behaves strangely and Arc does not work
at all. Any ideas?

####### code snippet:
sub Paint
{
	$pitch = $window->Pitch->{-text} % 360;
	$roll  = $window->Roll->{-text};
	$roll += 180 if ($pitch > 90 && $pitch <= 270);
	$roll = $roll % 360;
#print "$pitch $roll\n";
	@_ = (180, 200, 100, $pitch + $roll, 180 - 2 * $pitch);
	$dc->BeginPath();
	$dc->Arc (@_[0..3], 0);		# just position pen
	$dc->AbortPath();
	$dc->SelectObject($Pb5);	# black pen, width 5
	$dc->SelectObject($Bblu);	# blue brush
	$dc->BeginPath();
	$dc->Arc (@_);
	$dc->CloseFigure();
	$dc->EndPath();
	$dc->StrokeAndFillPath();
	$dc->SelectObject($Pw4);	# white pen, width 4
	$dc->SelectObject($Bbro);	# brown brush
	$dc->BeginPath();
	$dc->Arc (@_[0..2], $_[3] + $_[4], 360 - $_[4]);
	$dc->CloseFigure();
	$dc->EndPath();
	$dc->StrokeAndFillPath();
	$dc->SelectObject($Pb5);
	$dc->Arc (@_[0..3], 360);	# redraw circle in black
	return 1;
}