subr drawellipse4vector,ixa,iya,w1
 drawellipseinview,ixa(0),ixa(1),ixa(2),ixa(3),iya(0),iya(1),iya(2),iya(3),w1
 endsubr
 ;=============================================================================