UI modifications, better use of binding

scratches/bootstrap.clj

@@ -1,16 +1,17 @@
 ;; you should be in age-of-sail.core>
 
-(def my-ship (ref {:position [0. 0.]
-                   :name "Virginia Woolfe"
+(def virginia-woolfe (ref {:position [0. 0.]
+                           :name "Virginia Woolfe"
+                           :heading (normalize [1.0 1.0])
+                           :slots [{:type :downwind-sail :length 2 :furl 1.0}]
+                           :velocity [1. 0.]}))
+
+(def revenge (ref {:position [0. 0.]
+                   :name "Revenge"
                    :heading (normalize [1.0 1.0])
                    :slots [{:type :downwind-sail :length 2 :furl 1.0}]
                    :velocity [1. 0.]}))
 
-(reset! ships [my-ship])
+(reset! ships [virginia-woolfe revenge])
 
-(start-program)
-@my-ship
-(stop-program)
-
-(show-ui)
 @tracked-ship