10 lines
332 B
Plaintext
10 lines
332 B
Plaintext
(defprop &mut firstDraw true)
|
|
|
|
(defmethod new [] 0)
|
|
|
|
(defmethod :Void update [:Float deltaSeconds] 0)
|
|
(defmethod :Void draw [:Void->Graphics graphics]
|
|
(when firstDraw
|
|
(set firstDraw false)
|
|
(.setBackgroundColor (graphics) 5 5 Colors.White)
|
|
(.setLetter (graphics) 10 5 (object char "@" color Colors.Red)))) |