EGFX · FUNCTION 25ALPHA · USE AT YOUR OWN RISK
POLYGON
Draw a polygon.
Uses uploaded point data; supports concave outlines/fills within bounded work limits.
Parameters
| Name | Order | Description |
|---|---|---|
POINTS | 8–63 | Uploaded polygon points. |
COLOUR | 14 | Logical colour. |
FLAGS | 15 | Fill mode. |
BASIC example
Tested listing: shapes-demo.bas.
10 MODE 1:HIMEM=&2400:PROCeginit
20 REPEAT:PROCegbegin
30 PROCegcircle(48,64,24,3):PROCegcirclefill(112,64,24,2)
40 v$=FNegvertex(160,40)+FNegvertex(224,40)+FNegvertex(224,64)+FNegvertex(192,64)+FNegvertex(192,96)+FNegvertex(160,96)
50 PROCegpolygon(v$,1,1)
60 PROCegtext("CIRCLES AND CONCAVE POLYGON",8,8)
70 PROCegpresent:UNTIL INKEY(0)=81
80 END
Assembly example
JSR init_egfx
JSR begin_frame
LDA #25 : JSR eg_call
JSR present_frame
RTS