Pixel zeilenweise durchnummerieren ohne scanline

[terence14]

Dein Bild hat eine Breite von 100. xMax=100;
Und eine Höhe von 100. yMax=100;

Delphi-Quellcode:

xMin:=1; xMax:=100;
yMin:=1; yMax:=100;
EinerStelle:=x mod 10;
ZehnerStelle:=x div 10;
if (y > yMin) then 
   ZehnerStelle:=ZehnerStelle + (y - yMin) * xMax;
Nummer:=(ZehnerStelle * 10) + EinerStelle;

Der Wert in Nummer ergibt die durchnummerierte Zahl.

MfG,
terence