diff options
| -rw-r--r-- | wheelwork.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
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") |