S-expression representation of GLSL

sglsl-example.scm

(define-graphics-variable sprite-shader
  (make-shader*
    ((in vec2 position)
     (in vec2 tex)
     (out vec2 fragTex)
     (uniform mat4 mvp)
     (define (void main)
       (= fragTex tex)
       (= gl_Position (* mvp (vec4 (-> position xy) 0.0 1.0)))))
   
    ((in vec2 fragTex)
     (out vec4 fragColor)
     (uniform sampler2D colorTexture)
     (uniform vec4 tint)
     (define (void main)
       (= fragColor (* (texture colorTexture fragTex) tint))))))

;; Generated vertex shader code:
;; in vec2 position;in vec2 tex;out vec2 fragTex;uniform mat4 mvp;void main(){(fragTex = tex);(gl_Position = (mvp * vec4(position.xy,0.0,1.0)));};

;; Generated fragment shader code:
;; in vec2 fragTex;out vec4 fragColor;uniform sampler2D colorTexture;uniform vec4 tint;void main(){(fragColor = (texture(colorTexture,fragTex) * tint));};