Verlustfreies Zoomen von Bildern (Interpolieren)

[himitsu]

> Byte/Extended inkompatibl = nicht gerundet
> Function/Variable selbe Namen
...

Hab's überarbeitet und als Beispiel angehängt.

Achtung: Eine Optimierung folgender Art ist nicht möglich. Fehler bei Positionsberechnung.
(stimmt zwar rechnerisch, funktioniert aber nicht - es entstehen unschöne Linien im Bild)

Delphi-Quellcode:

X2 := Trunc(QI.Width * (X / ZI_Width));
=>
X2 := QI.Width * X div ZI_Width;