[#15] text drawing function

clojerl · Nov 24, 2018 · d21ca53 · d21ca53
1 parent 3aa5a68
commit d21ca53
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/doodler/core.clje b/src/doodler/core.clje
@@ -75,15 +75,19 @@
                     #erl[(- x (erlang/div w 2)) (- y (erlang/div h 2))]
                     #erl[w h]))
 
+(defn point
+  [x y]
+  (wxDC/drawPoint *canvas* (tuple x y)))
+
 (defn rect
   ([x y w h]
    (wxDC/drawRectangle *canvas* #erl[x y] #erl[w h]))
   ([x y w h r]
    (wxDC/drawRoundedRectangle *canvas* #erl[x y] #erl[w h] r)))
 
-(defn point
-  [x y]
-  (wxDC/drawPoint *canvas* (tuple x y)))
+(defn text
+  [s x y]
+  (wxDC/drawText *canvas* s #erl[x y]))
 
 (defn width
   []