PIO poly point debugging

[Kool Aid]

Got into trouble with my geometry again, but remembered an old debugging device:

n := GETVERTNUM(polyH); 
FOR i := 1 TO n DO BEGIN 
 	GETPOLYPT(polyH, i, x, y);
 	TEXTORIGIN(x, y);
	CREATETEXT(NUM2STR(0, i));
END;

Don't know much about geometry

Don't know much trigonometry

Don't know much about algebra

Don't know what a slide rule is for

but at least I can see clearly now where my calculations go wrong.