diff --git a/src/ludus/draw.cljs b/src/ludus/draw.cljs index e2d0620..302b27b 100644 --- a/src/ludus/draw.cljs +++ b/src/ludus/draw.cljs @@ -1,2 +1,15 @@ (ns ludus.draw) +(defn background + ([x] (js/background x)) + ([r g b] (js/background r g b)) + ([r g b a] (js/background r g b a))) + +(defn rect [[x y] [w h]] + (js/rect x y w h)) + +(defn ellipse [[x y] [w h]]) + +(def draw { + + }) \ No newline at end of file diff --git a/src/ludus/prelude.cljc b/src/ludus/prelude.cljc index e768485..ba3b498 100644 --- a/src/ludus/prelude.cljc +++ b/src/ludus/prelude.cljc @@ -250,7 +250,7 @@ ;(println "Fn: " called) ;(println "Args: " (clj->js fn-args)) #?( - :clj(apply called fn-args) + :clj (apply called fn-args) :cljs (.apply called js/window (clj->js fn-args)))))}) (def count- {:name "count"