Affine Texture Mapping in BASIC

Ich habe mal mit etwas rumgespielt, wofür BASIC nun eigentlich so gar nicht taugt: Texture Mapping! Das ganze ist ohne Perspektivkorrektur, also Playstation 1-Style und wie zu erwarten nicht sehr schnell. Eigentlich habe ich es für dieses Projekt als Fingerübung gebaut: BASIC V2 in Java

Aber dann habe ich es auch mal, wo ich doch neulich so einen schönen 128er erworben habe, auf echter Hardware laufen lassen. An einem Frame rendert das Programm (ohne Setup-Arbeiten wie Bildschirm löschen usw, die auch alle in feinstem BASIC sind) ungefähr 6 Min. Compiliert mit Basic-Boss sind es aber nur noch etwa 24 Sek. Immer noch nicht so richtig Echtzeit, aber naja. Auf dem oben verlinkten BASIC-Interpreter-Ersatz läuft es allerdings in Echtzeit (siehe GIF).

Wen es interessiert, hier ist das BASIC-Programm: http://jpct.de/stuff/affine/affine.prg
Und hier eine compilierte Fassung: http://jpct.de/stuff/affine/affine compiled.prg

Das Programm nutzt Integer-Variablen wo möglich (und teilweise auch nötig) (also die mit %). Ja, ich weiß, dass das im BASIC-Interpreter langsamer ist. Aber so ist deutlicher, welchen Wertebereich welche Variable wirklich haben muss und für den Basic-Boss ist es auch nützlich.

So sieht das auf dem C128 aus (im C64-Modus...natürlich...

Und so in meinem eigenen BASIC V2-Interpreter/Compiler in Echtzeit:

Zitat von Tale-X

Gefällt mir! Was dagegen, wenn ich mich dran versuche, das in ne andere Sprache (Pascal) zu portieren?

Nee, klar. Hau in die Tasten. Vielleicht noch zwei Anmerkungen:

• Der Code enthält kein 3D- und auch kein 2D-Clipping, d.h. alles, was die Sichtpyramide verlässt, sieht entweder komisch aus oder malt im Speicher rum. Mit den aktuellen Einstellungen ist das aber kein Problem.
• Die Textur liegt als 64*64-Bitmap im Speicher ab C000. In den Datas steht sie als RLE-gepackte (immer Anzahl Bytes, Wert) Quasi-Multicolor-Bitmap, allerdings planar. Also ohne diese Merkwürdigkeit beim C64 mit 8-Byte-Blöcken, sondern einfach hintereinander weg. Das Programm packt das Multicolor-Byteformat dann wieder aus, so das pro Byte ein Pixel vorliegt. Das muss man aber nicht so machen. Letztendlich liegen die Texturkoordinaten in der inneren Schleife in u% und v% (mit 128 multipliziert) vor. Du kannst darauf basierend also auch irgendwelche anderen Farbwerte von irgendwo auslesen.

Interessant...die Fransen am Rand sind wirklich merkwürdig. Ich glaube, da stimmt eher was in der Berechnung nicht ganz. Für Rundungsfehler sind die etwas viel...denke ich. Vielleicht auch nicht...!?

Ich habe die BASIC-Version noch etwas optimiert: http://jpct.de/download/tmp/affine.d64

...und eine Version gebaut, bei der die innere Schleife in (recht unoptimiertem) Assembler gebaut ist: http://jpct.de/download/tmp/affine_fast.d64

Zitat von Dekay

Entweder es ist ein Schutz drauf oder es ist doch nicht Basic und hat nur einen Basic Start.

Nein, das hat keinen Schutz und es ist ganz normales BASIC. Ich glaube, die kompilierte Variante ist auch mit dabei. Die ist natürlich kein BASIC mehr, aber die kann man auch nicht mit RUN/STOP abbrechen.