PRO AFF_DIST,di,xm,ym, COLOR=color 
	
	x=FLTARR(2)
	y=FLTARR(2)
	x(0)=xm
	y(0)=ym
	
	x(1)=xm+di(0)
	y(1)=ym
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm+di(1)/SQRT(2)
	y(1)=ym+di(1)/SQRT(2)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm
	y(1)=ym+di(2)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm-di(3)/SQRT(2)
	y(1)=ym+di(3)/SQRT(2)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
	
	x(1)=xm-di(4)
	y(1)=ym
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm-di(5)/SQRT(2)
	y(1)=ym-di(5)/SQRT(2)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm
	y(1)=ym-di(6)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
		
	x(1)=xm+di(7)/SQRT(2)
	y(1)=ym-di(7)/SQRT(2)
	PLOTS,x,y,/DEVICE,COLOR=color
;	PRINT,x(1),y(1)
	
END