     (.stroke context)
     (.restore context)))
 
-(defn square [[[x0 y0] [x1 y1]]]
+(defn rectangle [[[x0 y0] [x1 y1]]]
   [[x0 y0] [x1 y0] [x1 y1] [x0 y1]])
 
-(defrecord SquareAction [points props]
+(defrecord RectangleAction [points props]
   Drawable
   (-draw [this context]
     (.save context)

(def all-tools
  {:line straight-line-tool
   :freehand freehand-tool
   :square square-tool
   :circle circle-tool})

(defn current-tool []


(swap! app-state update-in [:canvas :dimensions] assoc :width 900 :height 300)

(rectangle [[587 229] [554 333]])

)
