more things

1 files changed, 30 insertions, 4 deletions

diff --git a/src/player.fnl b/src/player.fnl
index 9ba457a..53ceb59 100644
--- a/src/player.fnl
+++ b/src/player.fnl
@@ -17,20 +17,46 @@
           world (if ?world ?world
                     {:move (fn move [_1 _2 tx ty] (values tx ty))})]
          (when (not= sf 0)
+               (if (> vx 0) (set self.left false)
+                   (< vx 0) (set self.left true))
                (let [vx (/ vx sf)
                      vy (/ vy sf)
                      tx (+ self.x (* vx dt speed))
                      ty (+ self.y (* vy dt speed))
                      (ax ay) (world:move :player tx ty)]
-                    (tset self :x ax)
-                    (tset self :y ay)))))
+                    (set self.x ax)
+                    (set self.y ay)))))
 
 (fn C.draw [self]
+    (love.graphics.push)
+    (love.graphics.translate self.x self.y)
+    (if self.left
+        (love.graphics.scale -1 1))
+    (love.graphics.scale 0.1)
+    
     (love.graphics.setColor 0.91 0.62 0)
-    (love.graphics.rectangle :fill self.x self.y  10 10))
+    (love.graphics.circle :fill 0 0 150)
+    (love.graphics.setColor 1 1 1)
+    (love.graphics.setLineWidth 4)
+    (love.graphics.circle :line 0 0 150)
+
+    
+    (love.graphics.setColor 0 0 0)
+    (love.graphics.circle :fill 30  -80 20)
+    (love.graphics.circle :fill 100 -80 20)
+    
+    (love.graphics.setLineWidth 20)
+    (love.graphics.line 40  50   0   70)
+    (love.graphics.line 120 50   150 70)
+    
+    
+    (love.graphics.pop))
+
+
+    
 
 (fn make [] 
-    (let [s {:x 170 :y 150}]
+    (let [s {:x 170 :y 150 :left false}]
          (setmetatable s C)
          s))