       width: @block*10
       height: @block*10
 
-    @program_stroke_style = '#8000c0'
+    @program_fill_style = '#404040'
+    @program_stroke_style = '#000000'
     @grid_stroke_style = '#404040'
 
     @computeOutlines()

    s: '#c00000'  # red
    c: '#00c000'  # green
    d: '#0000c0'  # blue
    h: '#00c0c0'  # light blue

  computeOutlines: () ->
    @outline_links = []

          when 'empty'
            @ctx.strokeRect(x*@block-.5, y*@block-.5, @block, @block)
    @ctx.strokeStyle = @program_stroke_style
    @ctx.fillStyle = @program_fill_style
    for x in [0...@game_state.Wi]
      for y in [0...@game_state.Hi]
        switch @game_state.level[x][y].type
          when 'program'
            @ctx.fillRect(x*@block-.5, y*@block-.5, @block, @block)
            @ctx.strokeRect(x*@block-.5, y*@block-.5, @block, @block)
    @ctx.restore()

  renderBot: (sprite) =>
