function PolarOffset takes location loc, real dist, real angle returns location
    local real x = GetLocationX(loc) + dist * Cos(angle * bj_DEGTORAD)
    local real y = GetLocationY(loc) + dist * Sin(angle * bj_DEGTORAD)
    call MoveLocation(loc, x, y)
    return loc
endfunction

function Trig_Test_Actions takes nothing returns nothing
local integer n=1
local location L = GetUnitLoc(gg_unit_Hblm_0000)
local location array L2
loop
exitwhen n > 4
set L2[n] = PolarOffset(L,300,GetUnitFacing(gg_unit_Hblm_0000) + 90*n -45)
call CreateNUnitsAtLoc( 1, 'hfoo', Player(0), L2[n], bj_UNIT_FACING )
set n = n + 1
endloop
set n = 1
loop
exitwhen n > 4
call RemoveLocation (L2[n])
set L2[n] = null
set n = n + 1
endloop
set n = 0
set L = 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

function PolarOffset takes location loc, real dist, real angle returns location
    local real x = GetLocationX(loc) + dist * Cos(angle * bj_DEGTORAD)
    local real y = GetLocationY(loc) + dist * Sin(angle * bj_DEGTORAD)
    call MoveLocation(loc, x, y)
    return loc
endfunction

function Trig_Test_Actions takes nothing returns nothing
local integer n=1
local location L = GetUnitLoc(gg_unit_Hblm_0000)
loop
exitwhen n > 4
set L = GetUnitLoc(gg_unit_Hblm_0000)
call PolarOffset(L,300,GetUnitFacing(gg_unit_Hblm_0000) + 90*n -45)
call CreateNUnitsAtLoc( 1, 'hfoo', Player(0), L, bj_UNIT_FACING )
set n = n + 1
endloop
call RemoveLocation (L)
set n = 0
set L = 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