indexing
	description: "Ellipse"
	author: "pascalf"
	date: "$Date$"
	revision: "$Revision$"

class
	GD_ELLIPSE
	
inherit
	GD_ARC
		rename
			make as arc_make
		redefine
			draw_border
		end

	GD_FILLABLE
		rename
			fill_closed_figure as fill_ellipse
		end

create
	make

feature -- Initialization

	make(im: GD_IMAGE;x1,y1,a_width,a_height: INTEGER) is
			-- Initialization
		do
			arc_make(im,x1,y1,a_width,a_height,0,360)
		end

feature -- Drawing

	draw_border is
			-- Draw on image 'im' with color corresponding to 'color_index'.
		do
			gdImageArc(image.image,x,y,width,height,0,360,color_index)
		end

	draw_plain_ellipse(red,green,blue: INTEGER) is
			-- Draw the ellipse and fill it with color 'col'.
		do
			draw_border
			fill_ellipse(red,green,blue)			
		end

end -- class GD_ELLIPSE