18 lines
606 B
Clojure
18 lines
606 B
Clojure
;; you should be in age-of-sail.core>
|
|
|
|
(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 [0. 1.0])
|
|
:slots [{:type :downwind-sail :length 2 :furl 1.0}]
|
|
:velocity [1. 0.]}))
|
|
|
|
(reset! ships [virginia-woolfe revenge])
|
|
|
|
(show-ui)
|