         num-cols (:num-cols grid)]
     [:svg {:width width
            :height height}
-           [:g {:transform
-             (str "scale(" (/ width num-rows) "," (/ height num-cols) ")")}
-            (for [x (range num-rows)]
-            (for [y (range num-cols)]
-              [cell {:key (str x ":" y) :x x :y y}]
-            ))
-            [turtle (:turtle @app-state)]
-          ]
-       ]))
+     [:g {:transform
+          (str "scale(" (/ width num-rows) "," (/ height num-cols) ")")}
+      (for [x (range num-rows)]
+        (for [y (range num-cols)]
+          [Cell {:key (str x ":" y) :x x :y y}]
+          ))
+      [Turtle (:turtle @app-state)]
+      ]
+     ]))
 
 
 (defn controls []
   [:div {:style {
-     :display "flex" :flex-direction "column" :align-items "center"
-     :width 200
-    }}
-    [:div {:style {:padding 5}}
-      (case (-> @app-state :program :mode)
-        :play [:button {:on-click stop! } "Stop"]
-        :stop [:button {:on-click play! } "Play"])]
-    [:textarea {
-      :rows 20 :cols 20
-      :style { :font-family "monospace" }
-      :value (-> @app-state :program :code (#(apply str %)))} ]
-
-    [:div  "Step: " (-> @app-state :program :step)]
-  ])
+                 :display "flex" :flex-direction "column" :align-items "center"
+                 }}
+   [:div {:style {:padding 5}}
+    (case (-> @app-state :program :mode)
+      :play [:button {:on-click stop! } "Stop"]
+      :stop [:button {:on-click play! } "Play"])
+    [:button {:on-click reset-turtle! } "Reset"]]
+   [:textarea {
+               :style { :font-family "monospace" :width 400 :height 300 }
+               :value (-> @app-state :program :code (#(apply str %)))} ]
+
+   [:div  "Step: " (-> @app-state :program :step)]
+   ])
 
 
 (defn world []
-  [:div {:style { :display "flex" :flex-direction "row" }}
-  ;  [:h1 "Playwood Logo"]
-     [board]
-     [controls]
+  [:div {:style { :display "flex" :flex-direction "column" }}
+   [Board]
+   [controls]
    ])
 
 

(ns playwood-logo.core
    (:require [reagent.core :as reagent :refer [atom]]))

(enable-console-print!)


  ;; optionally touch your app-state to force rerendering depending on
  ;; your application
  ;; (swap! app-state update-in [:__figwheel_counter] inc)
  )
