sub SetSector
	dim x0,y0 as float ' 
	dim dm as float  '
'	    ,
'	      
'	  Create Arc: 
'	0 -   ;    
	dim R as float  ' (      )
	dim L as float  '
'	     
'	    (WGS84)
	Set CoordSys table ss  
	Set Distance Units "m"
	Set Resolution 100 '   
'	 
	x0=55.2
	y0=33.4
	dm=34
	R=0.1
	L=22
'	  Create Arc   
	dim x1,y1,x2,y2,dd as float
	dim st,en as float
	dim idMap,n as integer
	idMap=frontWindow()
'	dd=R*sqr(2)
	x1=x0-R
	y1=y0+R
	x2=x0+R
	y2=y0-R
	st=dm-L/2
	en=dm+L/2
'	     (ss)
	Create Arc Into Window idMap (x1,y1) (x2,y2) st en
	Create Point Into Window idMap (x0,y0)
	n=TableInfo(ss,TAB_INFO_NROWS)
	Select * From ss Where rowid>n-2
	Run Menu Command M_OBJECTS_CONVEX_HULL
End Sub
