Load PBR demo helmet in shared executor and display loading message

borodust · Aug 9, 2018 · cf96a90 · cf96a90
1 parent 337fb78
commit cf96a90
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/graphics/packages.lisp b/graphics/packages.lisp
@@ -10,6 +10,7 @@
   (:export graphics-system
            graphics
            for-graphics
+           for-shared-graphics
 
            defshader
            defpipeline

diff --git a/graphics/system.lisp b/graphics/system.lisp
@@ -40,6 +40,11 @@
      ,@body))
 
 
+(defmacro for-shared-graphics ((&optional arg) &body body)
+  `(-> (graphics) :main-p nil (,@(when arg (list arg)))
+     ,@body))
+
+
 (defmethod enabling-flow ((this graphics-system))
   (with-slots (resource-executor) this
     (>> (call-next-method)