From 7a9f89e46e21f2c18d6e61eee16c6d37bdd27800 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 22 Jun 2022 07:31:58 -0500
Subject: [fix] bitmap shader program to handle alpha channel appropriately

---
 wheelwork.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/wheelwork.lisp b/wheelwork.lisp
index 42dd830..a66d6a6 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -301,7 +301,10 @@ order). Makes sure to remove the unit from its current container if necessary."
              '(:fragment
                ((tc :vec2))
                ((tex :sampler-2d))
-               ((vari:texture tex tc)))))
+               ((let ((frag  (vari:texture tex tc)))
+                  (if (< (aref frag 3) 0.01)
+                      (vari:discard)
+                      frag))))))
       (gl:program-uniformi
        shader
        (gl:get-uniform-location shader "TEX")
-- 
cgit v1.2.3