def image args, key_args
      anchor, image = key_args.values_at(*%w{anchor image})
      
      proc do |tkaroid, cos_r, sin_r|
        x = tkaroid.x
        y = tkaroid.y
        params = tkaroid.params

        xv, yv = args.map {|arg| arg[params] rescue arg}
        coords = [
          x + xv * cos_r - yv * sin_r,
          y + xv * sin_r + yv * cos_r
        ]
        
        config = {}
        if anchor
          config[:anchor] = anchor[params] rescue anchor
        end
        if image
          config[:image] = get_image(image[params]) rescue get_image(image)
        end

        [TkcImage, coords, config]
      end
    end
def image args, key_args
      anchor, image = key_args.values_at(*%w{anchor image})
      
      proc do |tkaroid, cos_r, sin_r|
        x = tkaroid.x
        y = tkaroid.y
        params = tkaroid.params

        xv, yv = args.map {|arg| arg[params] rescue arg}
        coords = [
          x + xv * cos_r - yv * sin_r,
          y + xv * sin_r + yv * cos_r
        ]
        
        config = {}
        if anchor
          config[:anchor] = anchor[params] rescue anchor
        end
        if image
          config[:image] = get_image(image[params]) rescue get_image(image)
        end

        [TkcImage, coords, config]
      end
    end
imageX,Y,key:val...

  anchor anchorPos (center, n, nw, ...)
  image imageFileName