option explicit
Option angle degrees
Dim integer x = MM.HRES / 2
Dim integer y = MM.VRES / 2

Dim integer arcs_x(3)
Dim integer arcs_y(3)
Dim integer arcR1(3)
Dim integer arcR2(3)
Dim integer arcA1(3)
Dim integer arcA2(3)
Dim integer arct_x(3)
Dim integer arct_y(3)
Dim integer polyt_x(6)
Dim integer polyt_y(6)
Dim integer arc_R1t(3)
Dim integer arc_R2t(3)

Dim integer count,count1,count2
Dim float scale = 1
Dim float angle = 30

arcs_x(0) = 0
arcs_y(0) = -29.5
arcR1(0) = 11
arcR2(0) = 26
arcA1(0) = 302
arcA2(0) = 126

arcs_x(1) = -15.4
arcs_y(1) = -40.4  'upper left
arcR1(1) = 0
arcR2(1) = 7.5
arcA1(1) = 125
arcA2(1) = 304

arcs_x(2) = -7.9 'bottom left
arcs_y(2) = 28.4
arcR1(2) = 0
arcR2(2) = 15
arcA1(2) = 180
arcA2(2) = 314.18

arcs_x(3) = 18.6 'bootom right
arcs_y(3) = 35.8
arcR1(3) = 0
arcR2(3) = 7.5
arcA1(3) = 0
arcA2(3) = 180

Dim float poly_x(6) = (  9.2, 21.6,-7.9,18.6,18.6,-7.9,-20.3) 'from upper left
Dim float poly_y(6) = (-23.3,-14.5,28.3,28.3,43.3,43.3,19.9)'to bottom left clockwise
Timer =0

For x = 100 To 700 Step 100
Inc angle,20

'MATH SCALE in(), scale, out()
Math scale arcR1(), scale, arc_R1t()
Math scale arcR2(), scale, arc_R2t()
Math scale arcs_x(), scale, arct_x()
Math scale arcs_y(), scale, arct_y()
Math scale poly_x(), scale, polyt_x()
Math scale poly_y(), scale, polyt_y()
'MATH ADD in(), num ,out()
Math ADD arct_x(), x, arct_x()
Math ADD arct_y(), y, arct_y()
Math ADD polyt_x(), x ,polyt_x()
Math ADD polyt_y(), y ,polyt_y()
'Math V_ROTATE x, y, a,xin(), yin(), xout(), yout()
Math V_ROTATE x, y, angle, arct_x(), arct_y(), arct_x() , arct_y()
Math V_rotate x, y, angle, polyt_x(), polyt_y(), polyt_x(), polyt_y()
'ARC x,y,r1,[r2],a1,a2[, c]
For count = 0 To 3
 Arc arct_x(count),arct_y(count),arc_R1t(count),arc_R2t(count),arcA1(count)+angle,arcA2(count)+angle
Next count
'POLYGON n, xarray%(),yarray%() [, bordercolour] [,fillcolour]
Polygon 7, polyt_x(), polyt_y(), RGB(white), RGB(white)

Next x
Print Timer