EGFX · FUNCTION 22ALPHA · USE AT YOUR OWN RISK
CIRCLE
Draw a circle.
PX/PY is the centre; AMOUNT is radius. COLOUR and filled flag select appearance.
Parameters
| Name | Order | Description |
|---|---|---|
PX/PY | 8–11 | Circle centre. |
COLOUR | 13 | Logical colour. |
FLAGS | 14 | Bit 0 fills. |
RADIUS | 15 | Circle radius. |
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 #22 : JSR eg_call
JSR present_frame
RTS