procedure POLYGON4( a,b,c,d,e,f,g,h : integer ); extern;