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

[Piske, Harald]

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;
}