floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add glsl version directive to the shader according to the supported version

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-04-04 23:45:23 +02:00
parent a7fd8e4842
commit 8b96f8166f
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/render/shader/glsl.lisp
View file

@ -28,6 +28,10 @@
"Configure the verbosity of the compiler. "Configure the verbosity of the compiler.
if non-nil, the dsl will be printed in comments together with the glsl code.") if non-nil, the dsl will be printed in comments together with the glsl code.")
(defvar *version-profiles* '(("1.30" . "#version 130
#extension ARB_explicit_attrib_location : require")
("3.30" . "#version 330 core")))
(defvar *glsl-symbols* '(gl-position "gl_Position") (defvar *glsl-symbols* '(gl-position "gl_Position")
"Keep a table of reserved glsl symbols.") "Keep a table of reserved glsl symbols.")
@ -113,6 +117,7 @@ the forms comprised of these keywords will be printed in comments."
(defun glsl-compile (lambda-list body) (defun glsl-compile (lambda-list body)
(format nil "~a~%~%~{~a~}~%void main ()~%{~%~a}~%" (format nil "~a~%~%~{~a~}~%void main ()~%{~%~a}~%"
(cdr (assoc gl-utils:*glsl-version* *version-profiles* :test #'equal))
(mapcar #'handle-preamble lambda-list) (mapcar #'handle-preamble lambda-list)
(let ((*current-indent* 2)) (let ((*current-indent* 2))
(walk `(progn ,body) *form-handlers* #'default-handler *env*)))) (walk (cons 'progn body) *form-handlers* #'default-handler *env*))))