EGFX · FUNCTION 24ALPHA · USE AT YOUR OWN RISK
CIRCLE_EX
Draw a filled or outline circle.
Uses the generic request payload for centre, radius, colour and fill mode.
Parameters
| Name | Order | Description |
|---|---|---|
X/Y | 8–11 | Circle centre. |
RADIUS | 12–13 | Radius. |
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 #24 : JSR eg_call
JSR present_frame
RTS