summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/render/shader.scm20
1 files changed, 1 insertions, 19 deletions
diff --git a/chickadee/render/shader.scm b/chickadee/render/shader.scm
index 19f1f3c..c1e9f58 100644
--- a/chickadee/render/shader.scm
+++ b/chickadee/render/shader.scm
@@ -546,22 +546,6 @@ them into a GPU shader program."
(and start (string->number (substring name (+ start 1) end)))))
(define (struct? name)
(string-contains name "."))
- (define (namespace->alist table)
- (hash-map->list
- (lambda (key value)
- (cons key
- (cond
- ((uniform-namespace? value)
- (namespace->alist value))
- ((uniform-array? value)
- (hash-map->list (lambda (key value)
- (cons key (namespace->alist value)))
- (uniform-array-namespaces value)))
- (else
- (list (uniform-location value)
- (shader-data-type-name (uniform-type value))
- (uniform-size value))))))
- (uniform-namespace-members table)))
(define (parse-struct name uniform namespace)
;; Deconstruct the uniform name to produce a path through the
;; namespace tree, follow it to the end and add the uniform as a
@@ -646,9 +630,7 @@ them into a GPU shader program."
(max scratch-size
(* size
(shader-data-type-size type))))))
- (begin
- (pretty-print (namespace->alist namespace))
- (values namespace scratch-size))))))
+ (values namespace scratch-size)))))
(define (attribute-count id)
(let ((bv (make-u32vector 1)))
(gl-get-programiv id