function IsRectInRect takes rect r1, rect r2 returns integer
    local real ax1 = GetRectMinX(r1)
    local real ax2 = GetRectMaxX(r1)
    local real bx1 = GetRectMinX(r2)
    local real bx2 = GetRectMaxX(r2)
    if     ax1 >= bx1 and ax2 <= bx2 then    // r2 полностью пересекает r1
        return 1
    elseif ax1 <  bx1 and ax2 >  bx2 then    // r2 полностью в r1
        return 2
    elseif ax1 <  bx1 and ax2 <  bx2 then    // r2 правее r1
        return 3
    elseif ax1 >  bx1 and ax2 >  bx2 then    // r2 левее r1
        return 4
    endif
    return 0
endfunction

function RectSplit takes rect r1, rect r2 returns rect
    local real ax1 = GetRectMinX(r1)
    local real ay1 = GetRectMinY(r1)
    local real ax2 = GetRectMaxX(r1)
    local real ay2 = GetRectMaxY(r1)
    local real bx1 = GetRectMinX(r2)
    local real by1 = GetRectMinY(r2)
    local real bx2 = GetRectMaxX(r2)
    local real by2 = GetRectMaxY(r2)
    local integer i = IsRectInRect(r1, r2)
    if i > 0 then
        set udg_W[udg_I] = Rect(ax1, ay1, bx1, ay2)
        set udg_I = udg_I + 1
        if i == 2 or i == 3 then
            set udg_W[udg_I] = Rect(bx1, ay1, bx2, by1)
            set udg_I = udg_I + 1
        endif
        if i == 2 or i == 4 then
            set udg_W[udg_I] = Rect(bx1, by2, bx2, ay2)
            set udg_I = udg_I + 1
        endif
        return Rect(bx2, ay1, ax2, ay2)
    else
        set udg_W[udg_I] = Rect(ax1, ay1, ax2, ay2)
        set udg_I = udg_I + 1
    endif
    return null
endfunction

function ShapeSplitv2 takes rect r, real width returns nothing
    local rect    H = null
    local integer i = 0
    local real minx = GetRectMinX(r)
    local real miny = GetRectMinY(r)
    local real maxx = GetRectMaxX(r)
    local real maxy = GetRectMaxY(r)
    local real    x = minx
    loop
        exitwhen x >= maxx
        set H = Rect(x, miny, x + width, maxy)
        set i = 0
        loop
            exitwhen udg_R[i] == null or i > 8190
            set H = RectSplit(H, udg_R[i])
            set udg_B[udg_I] = true
            set udg_I = udg_I + 1
            set i = i + 1
        endloop
        set x = x + width
    endloop
endfunction