xsegments

     NAME
	  xsegments - part of Simula to	Xlib interface

     DESCRIPTION
	     class XSegments(maxSize);
	     integer maxSize; !	The maximum number of arcs which can
	     be	stored ;
	  Data structure for storing multiple line segements.  Used as
	  a parameter to X_Drawable operations (Draw/Fill)Segments

	  SUPERS: no super ;
	  KIND:	Instantiable ;

     OPERATIONS
     Set
	     procedure Set(index,x1,y1,x2,y2);
	     integer index,x1,y1,x2,y2;
	  Set the data for the index'th	segment

     Get
	     procedure Get(index,x1,y1,x2,y2);
	     name x1,y1,x2,y2;
	     integer index,x1,y1,x2,y2;
	  Get the data for the index'th	segment

     SetSize
	     procedure SetSize(n);
	     integer n;	! Must not be larger than maxSize ;
	  Set the number of segments to	be stored in this object

     GetSize
	     integer procedure GetSize;
	  Returns the current number of	segments stored	in this	object