diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-02-09 20:45:06 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-06-08 08:14:41 -0400 |
| commit | 728a6737bb6664d08c52d090ee5b2f3b30eb85c2 (patch) | |
| tree | 2e9a46df1a961202ae56698e1d8c772f80da4107 | |
| parent | 917894e203fb6fb32bedc76e71dcc705ebb708b0 (diff) | |
graphics: shader: Remove sglsl.
| -rw-r--r-- | chickadee/graphics/shader.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/chickadee/graphics/shader.scm b/chickadee/graphics/shader.scm index 9cf4f89..8855641 100644 --- a/chickadee/graphics/shader.scm +++ b/chickadee/graphics/shader.scm @@ -33,7 +33,6 @@ #:use-module (chickadee graphics color) #:use-module (chickadee graphics engine) #:use-module (chickadee graphics gl) - #:use-module (chickadee graphics sglsl) #:use-module (chickadee graphics texture) #:use-module (chickadee utils) #:export (shader-data-type? @@ -796,20 +795,6 @@ shader program." (lambda (fragment-port) (make-shader vertex-port fragment-port)))))) -(define-syntax make-shader* - (lambda (x) - (syntax-case x () - ((_ vertex fragment) - (with-syntax ((vert-glsl (datum->syntax x - (with-output-to-string - (lambda () - (sglsl->glsl (syntax->datum #'vertex)))))) - (frag-glsl (datum->syntax x - (with-output-to-string - (lambda () - (sglsl->glsl (syntax->datum #'fragment))))))) - #'(strings->shader (pk vert-glsl) (pk frag-glsl))))))) - (define (shader-uniform shader name) "Return the metadata for the uniform NAME in SHADER." (let ((uniform (uniform-namespace-ref (shader-uniforms shader) name))) |