Ensure debug-draw allocates itself

Shirakumo · Jan 17, 2025 · f3850c1 · f3850c1
1 parent 04e298e
commit f3850c1
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/debug.lisp b/debug.lisp
@@ -101,6 +101,10 @@ void main(){
   (stage (flats-vao draw) area)
   (stage (text-render draw) area))
 
+(defmethod render :before ((draw debug-draw) target)
+  (unless (allocated-p (shader-program draw))
+    (commit draw (loader +main+) :unload NIL)))
+
 (defmethod render ((draw debug-draw) (program shader-program))
   (when (logbitp 1 (dirty draw))
     (resize-buffer-data (caar (bindings (points-vao draw))) T))