[asciilib] White cell in Death Trap

2021-04-25 00:30:34 -06:00
parent bd2b36bf1f
commit 1f57aab3b2
11 changed files with 76 additions and 11 deletions
--- a/projects/asciilib2/examples/death-trap/source/DeathTrapLogic.kiss
+++ b/projects/asciilib2/examples/death-trap/source/DeathTrapLogic.kiss
@@ -1,4 +1,9 @@
-(defnew [] [:Int a 5])
+(defprop &mut firstDraw true)
+
+(defmethod new [] 0)

 (defmethod :Void update [:Float deltaSeconds] 0)
-(defmethod :Void draw [:Void->Graphics graphics] 0)
+(defmethod :Void draw [:Void->Graphics graphics]
+    (when firstDraw
+        (set firstDraw false)
+        (.setBackgroundColor (graphics) 5 5 Colors.White)))