   class Head extends GameObject
     color: 'red'
     constructor: (@game) -> @points = []
+
+    set: (point) ->
+      if @points.length > 0
+        tmp = @points[0]
+        do @unset
+        @game.snake.set tmp
+      super point
 
   color: 'white'
 


  move: ->
    do @step
    x = @head.points[0].x
    y = @head.points[0].y


      when @LEFT
        if x > 0 then x = x-1
        else  x = @game.width-1
    return @get x, y

  step: ->
    if @stack[0]
