function XPolarOffset takes location loc, real dist, real angle returns real
    local real x = GetLocationX(loc) + dist * Cos(angle * bj_DEGTORAD)
    return x
endfunction

function YPolarOffset takes location loc, real dist, real angle returns real
    local real y = GetLocationY(loc) + dist * Sin(angle * bj_DEGTORAD)
    return y
endfunction

function Trig_Test_Actions takes nothing returns nothing
local integer n=1
local location UnitLoc = GetUnitLoc(gg_unit_Hblm_0000)
local real UnitFasing = GetUnitFacing(gg_unit_Hblm_0000)
loop
exitwhen n > 4
call CreateNUnitsAtLoc( 1, 'hfoo', Player(0), Location(XPolarOffset(UnitLoc,300,UnitFasing  + 90*n - 45), YPolarOffset(UnitLoc,300,UnitFasing + 90*n - 45)), bj_UNIT_FACING )
set n = n + 1
endloop
set n = 0
set UnitLoc = null
endfunction

function InitTrig_Test takes nothing returns nothing
    set gg_trg_Test = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_Test, 5 )
    call TriggerAddAction( gg_trg_Test, function Trig_Test_Actions )
endfunction