%external %routine %spec POLYGON        %alias "EDWIN_POLYGON"    (%integer NP, %record (POINTFM) %array %name P)