MACRO APoly ECOFF SELSAVE GV varAPolyArea 20 GV varAPolyArea ^DEnter area of polygon: (20) GV varAPolyNumsides 4 GV varAPolyNumsides ^DEnter number of sides of Polygon: (4) GV varAPolyRot 0 GV varAPolyRot ^DEnter rotation of polygon: (0) GP varAPolyOrigin 0,0 GP varAPolyOrigin ^DCenter of polygon (0,0): APolyFixed SELREST ECON ENDM MACRO APolyFixed GSIN varAPolySin (180/varAPolyNumsides) GCOS varAPolyCos (180/varAPolyNumsides) GV varAPolyRadsq (varAPolyArea/(varAPolyNumsides*varAPolySin*varAPolyCos)) GV varSQRT varAPolyRadsq SQRT GV varAPolyRad varSQRT GP varAPoly2Point ref varAPolyOrigin