- glUniform1fARB( glGetUniformLocationARB( ProgramObject, PGLCharARB('CETX')), cetx );
- glUniform1fARB( glGetUniformLocationARB( ProgramObject, PGLCharARB('CETY')), cety );
Dieser etwas unorthodoxe Shader ist mein erster Versuch mit GLSLang die GPU zu programmieren, also besser nicht zu viel erwarten. Das Programm zeichnet lediglich ein Quadrat und der Shader berechnet darin ein Julia Set. Damit das Messen der Framerate etwas interessanter wird, bekommt der Shader 2 Parameter, wodurch eine "Animation" stattfindet. Wenn in der MessageBox nach Programmstart nichts drinne steht ist das nicht schlimm, sie zeigt nur das Fehlerlog vom Shader linken.
Der Shader ist schon etwas optimiert, mir fällt momentan nur eine Verbesserung ein, um die fps zu erhöhen. Man könnte die fps bis zu verdoppeln, indem man nur eine Hälfte des Fraktals zeichnet und eine Punktspiegelung durchführt, bzw. in eine Textur rendern und diese gespiegelt zeichnen. Falls jemand noch eine Verbesserungsmöglichkeit kennt, würde ich sie gerne hören!
Zum Aufbau:
Das Delphi-Programm initialisiert OpenGL, Shader und beliefert den Shader mit CETX und CETY, welche für die "Animation" des Fraktals zuständig sind. Die Farben werden über eine 1D Textur bestimmt, die zufällig aus einer der 4 .bmp Dateien beim Programmstart geladen wird, um das ganze etwas interessanter zu machen. Die eigentliche Berechnung der Grafik findet in Julia.FS2.txt (16 Iterationen) statt, ich habe mal den ungetesten Julia.FS3.txt (beliebig viele Iterationen) beigefügt, den Ihr in der FormCreate eintragen könnt, wenn Ihr neugierig sein solltet. Die .bmps müssen für korrekte Darstellung des FS3-Shaders wohl von 16*1 auf maxiterations*1 vergrößert werden, oder Ihr ändert die Zuweisung von gl_FragColor auf greyscale.
Der Source compiliert fehlerfrei mit Delphi 6 PE. Die dglopengl.pas Unit wird benötigt, ist aber wegen ihrer Größe nicht enthalten. Ich weise darauf hin, daß der Source (bis auf den Code der Template) keine gute Quelle zum lernen über Delphi, OpenGL oder Julia Sets ist, mich würde es nicht wundern wenn ich mit dem {$I} ein Verbrechen begangen habe, das mit lebenslänglichem Compiler-Verbot bestraft wird.
Bisherige Benchmarks ohne Übertaktung:
Geforce FX 5200 - 3,4 fps
Geforce FX 5600 - 5,0 fps
Schreibt bitte mal Eure fps oder Compiler-Fehler auf, mich würden vor allem Ergebnisse auf Radeon-Karten interessieren, und natürlich Ergebnisse auf den aktuellen GPUs.
| Dateianhänge: |
Dateikommentar: GLSL Julia Set Delphi Source Code (Radeon friendly)
GLSL Julia Set.rar [5.86 KiB]
365-mal heruntergeladen |
|
Dateikommentar: Screenshot Screenshot.gif [ 16.96 KiB | 6864-mal betrachtet ] |
