Finding units in front of a unit

GroupEnumUnitsInRange

library EnumInFront
    globals
        private real X1
        private real Y1
        private real AnglePlus
        private real AngleMinus
        private group Group
    endglobals

    private function Enum takes nothing returns nothing
        local unit U = GetEnumUnit()
        local real X2 = GetUnitX(U)
        local real Y2 = GetUnitY(U)
        local real Angle = Atan2(Y2-Y1, X2-X1)*57.2957

        if Angle < 0.00 then
            set Angle = Angle+360.00
        endif

        if (Angle>AnglePlus and Angle<AngleMinus) then
            call GroupRemoveUnit(Group, U)
        endif
    endfunction

    function GroupEnumInFrontOfUnit takes group G, unit U, real Radius, real Angle, boolexpr Filter returns nothing
        local real Facing = GetUnitFacing(U)

        set AnglePlus = Facing+Angle/2
        set AngleMinus = Facing-Angle/2
        if AngleMinus < 0.00 then
            set AngleMinus = AngleMinus+360.00
        endif
        set X1 = GetUnitX(U)
        set Y1 = GetUnitY(U)
        set Group = G

        call GroupEnumUnitsInRange(G, X1, Y1, Radius, Filter)
        call ForGroup(G, function Enum)
    endfunction
endlibrary