package body GrapAKD is
	----------------------------------------------------------------------
	-- Copyright (C) 1994 David Wallace Croft.  All rights reserved.
	----------------------------------------------------------------------

	procedure Demo is
	----------------------------------------------------------------------
	begin
	  Initiate_Graph ( EVGA_High_C16 );
	  Background_Color ( Light_Blue );
	  Foreground_Color ( Yellow );
	  Circle_Segment ( 320, 175, 180, 360, 100 );
	  Close_Graph;
	end Demo;

	----------------------------------------------------------------------
	----------------------------------------------------------------------
	end GrapAKD;