Fully pivot to pirates, some UI

scratches/bootstrap.clj

@@ -1,6 +1,7 @@
-;; you should be in space-sim.core>
+;; you should be in age-of-sail.core>
 
 (def my-ship (ref {:position [0. 0.]
+                   :name "Virgina Woolfe"
                    :heading (normalize [1.0 1.0])
                    :slots [{:type :downwind-sail :length 2 :furl 1.0}]
                    :velocity [1. 0.]}))
@@ -9,8 +10,7 @@
 
 (start-program)
 @my-ship
-(dosync (alter my-ship assoc :heading (normalize [0. 1.])))
 (stop-program)
 
-
 (show-ui)
+@tracked-ship