Delphi-Quellcode:
MoveTo(Round(92 + (ax-1)*61.7), 0);
LineTo(Round(92 + (ax-1)*61.7), 321);
//MoveTo(Round(80 + (ay-1)*33), 89);
//LineTo(Round(321 + (ay-1)*33), 89);
MoveTo(89, Round(80 + (ay-1)*33));
LineTo(89, Round(321 + (ay-1)*33));
Fällt dir was auf?
Vorallem bei der falschen Reihenfolge der X- und Y-Werte, sieht man, daß bei AY etwas nicht stimmt.
Damit die Linie "grade" ist, muß hochzählende Position am Anfang und Ende gleich sein
und die feste Achse enthält unterschiedliche Werte.