diff --git a/tempest/tempest.cljs b/tempest/tempest.cljs
line changes: +76/-0
index f9a4e02..5403041
--- a/tempest/tempest.cljs
+++ b/tempest/tempest.cljs

@@ -6,6 +6,77 @@
             [goog.events.EventType :as event-type]
             [goog.math :as math]))
 
+
+;;
+;; Draw player:
+;;
+;;               
+;;  /|         |\ 
+;;  | |        | | <-- claw
+;;   \ \      / /
+;;    \ \ __ / / <---- arm
+;;      \    /
+;;        \/   <------ origin
+;;
+;;
+;; drawn as vectors
+;; start at origin (x,y)
+;; right arm: (10, 45 deg)
+;; right claw: (5, 95 deg)
+;; right claw inner: (6, 270 deg)
+;; right arm inner: (8, 220 deg)
+;; left arm inner: (8, 140 deg)
+;; left claw inner: (6, 90 deg)
+;; left claw: (5, 265 deg)
+;; left arm: (10, 315 deg)
+
+(def player-vectors
+  [[10 45]
+   [5 95]
+   [6 270]
+   [8 220]
+   [8 140]
+   [6 90]
+   [5 265]
+   [10 315]])
+
+(def player-vectors
+  [[20 225]
+   [10 275]
+   [12 90]
+   [16 40]
+   [16 320]
+   [12 270]
+   [10 85]
+   [20 135]])
+
+(defn rotate-path [angle path]
+  (map (fn [coords]
+         [(first coords)
+          (mod (+ angle (last coords)) 360)])
+       path))
+
+(defn rebase-origin [point origin]
+  (map + point origin))
+
+(defn draw-path [context origin vecs]
+  (do
+    (.moveTo context (first origin) (last origin))    
+    ((fn [origin vecs]
+       (if (nil? vecs)
+         nil
+         (let [line (first vecs)
+               point (rebase-origin (polar-to-cartesian-coords line) origin)]
+           (.log js/console (str "Draw vector: " (pr-str (first vecs))))
+           ;;(println (str "Draw vector: " (pr-str (first vecs))))
+           ;;(println (str "From point: " (pr-str origin)))
+           (.lineTo context (first point) (last point))
+           (recur point (next vecs)))))
+     origin vecs)
+    (.stroke context)))
+
+
+
 (defn polar-to-cartesian-coords
   ([[r angle]] [(math/angleDx angle r) (math/angleDy angle r)])
   ([[r angle] length-fn]

@@ -66,6 +137,11 @@
         timer (goog.Timer. 500)
         dims {:width (.-width canvas) :height (.-height canvas)}
         level (get levels/*levels* (- (js/parseInt level) 1))]
+    (draw-path context [200 200] player-vectors)
+    (draw-path context [250 250] (rotate-path 45 player-vectors))
+    (draw-path context [300 300] (rotate-path 90 player-vectors))
+    (draw-path context [350 350] (rotate-path 135 player-vectors))
+    (draw-path context [400 400] (rotate-path 180 player-vectors))
     (doseq [idx (range (count (:segments level)))]
       (draw-rectangle context(rectangle-to-canvas-coords dims (rectangle-for-segment level idx))))
   ))