const midx := maxx div 2
const midy := maxy div 2
for i : 0 .. 5
    Draw.Arc (midx, midy, midx + i, midy + i, 0, 90, 1)
end for

proc ThickArc (x, y : real, a, b, sa, ea, thickness : real4, c : int2) %x,y = position; a,b = x/y radius; sa,ea=start/end angle; c = color
    handler (e)
        for i : round (min (a, b)) .. round (max (a, b))
            drawarc (round (x), round (y), round (a) + i, round (b) + i, round (sa), round (ea), c)
        end for
    end handler
    if thickness > 1 then
        for i : round (min (sa, ea)) .. round (max (sa, ea))
            Draw.ThickLine (round (x + cosd (i) * a), round (y + sind (i) * b),
                round (x + cosd (i + 1) * a), round (y + sind (i + 1) * b), round (thickness), c)
        end for
    elsif thickness = 1 then
        drawarc (round (x), round (y), round (a), round (b), round (sa), round (ea), c)
    end if
end ThickArc