Code: Select all
REM Venezuelan flag by Richard Russell, BB4W or BBCSDL, 11-Jan-2026
MODE 9 : INSTALL @lib$ + "aagfxlib"
COLOUR 3,255,220,0
GCOL 1 : RECTANGLE FILL 10,100,1260,280
GCOL 4 : RECTANGLE FILL 10,380,1260,280
GCOL 3 : RECTANGLE FILL 10,660,1260,280
DIM x(9),y(9) : a = 0
FOR J% = 1 TO 8 : b = a + 18
ORIGIN 640+260*COSRAD(b), 364+240*SINRAD(b)
FOR I% = 0 TO 8 STEP 2
x(I%) = -35*SINRAD(a) : y(I%) = 35*COSRAD(a) : a += 36
x(I%+1) = -13*SINRAD(a) : y(I%+1) = 13*COSRAD(a) : a += 36
NEXT I% : a += 144/7
PROC_aapolygon(10, x(), y(), &FFFFFFFF)
NEXT J%