[#15] Random function

src/doodler/core.clje

@@ -54,7 +54,7 @@
   (let [brush (wxDC/getBackground *canvas*)]
     (wxBrush/setColour brush (apply color args))
     (wxDC/setBackground *canvas* brush)
-    (wxDC/clear *canvas*)))
+    (clear)))
 
 (defn fill
   [& args]
@@ -79,6 +79,12 @@
   [x y]
   (wxDC/drawPoint *canvas* (tuple x y)))
 
+(defn random
+  ([max]
+   (dec (rand/uniform max)))
+  ([min max]
+   (+ min (dec (rand/uniform max)))))
+
 (defn rect
   ([x y w h]
    (wxDC/drawRectangle *canvas* #erl[x y] #erl[w h]))

src/doodler/sketch.clje

@@ -206,9 +206,10 @@
             :on-close on-close-fn}
             ;; Create bitmap after frame is visible to
             ;; get the right dimensions
-           (let [bitmap (make-bitmap canvas)]
+           (let [bitmap    (make-bitmap canvas)
+                 bitmap-dc (wxMemoryDC/new bitmap)]
              {:bitmap    bitmap
-              :bitmap-dc (wxMemoryDC/new bitmap)}))))
+              :bitmap-dc bitmap-dc}))))
 
 ;; Events