def oval args, key_args
      proc do |tkaroid, cos_r, sin_r|
        x = tkaroid.x
        y = tkaroid.y
        params = tkaroid.params

        coords = []
        points = args.map {|arg| arg[params] rescue arg}
        points.each_slice(2) do |xv, yv|
           coords << x + xv * cos_r - yv * sin_r
           coords << y + xv * sin_r + yv * cos_r
        end
        
        config = {}
        handle_generic_config(config, params, key_args)

        [TkcOval, coords, config]
      end
    end
def oval args, key_args
      proc do |tkaroid, cos_r, sin_r|
        x = tkaroid.x
        y = tkaroid.y
        params = tkaroid.params

        coords = []
        points = args.map {|arg| arg[params] rescue arg}
        points.each_slice(2) do |xv, yv|
           coords << x + xv * cos_r - yv * sin_r
           coords << y + xv * sin_r + yv * cos_r
        end
        
        config = {}
        handle_generic_config(config, params, key_args)

        [TkcOval, coords, config]
      end
    end
ovalX1,Y1,X2,Y2,key:val...
 standard keys