Полярное смещение (скорость тригонометрических операций)

global real OffsetX
global real OffsetY
 
function OffsetXY uses real x, real y, real a, real d return nothing
  set OffsetX =  (x + d * Cos(a * bj_DEGTORAD))
  set OffsetY  = (y + d * Sin (a * bj_DEGTORAD))
 endfunction

function OffsetXYAngle uses real x, real y, real a, real d return nothing
  if(a == 0) then
   set OffsetX  = x + d;
  elseif (a == 90) then
   set  OffsetY   = y + d;
  elseif (a == 180) then
    set OffsetX  = x - d;
  elseif (a == 270)then
   set  OffsetY   = y - d;
  endif
 endfunction