class
	EL_MODEL_WORLD_CELL

inherit
	EV_MODEL_WORLD_CELL
		undefine
			Default_pixmaps
		redefine
			new_projector
		end

	EL_SHARED_DEFAULT_PIXMAPS

create
	make_with_world, default_create

feature -- Access

	screen_origin: EL_COORDINATE
		-- screen coordinates of world origin (top left)
		do
			create Result.make (screen_x - projector.area_x, screen_y - projector.area_y)
		end

	screen_position (model_point: EV_COORDINATE): EL_COORDINATE
		-- screen position of point on model
		do
			Result := screen_origin
			Result.set (Result.x + model_point.x, Result.y + model_point.y)
		end

feature {NONE} -- Implementation

	new_projector: EL_MODEL_BUFFER_PROJECTOR
		do
			create Result.make (world, drawing_area)
		end

end