[NewAngle]=flpang(Angle,DegRad)

function [NewAngle]=flpang(Angle,DegRad)
%
% [NewAngle]=flpang(Angle,DegRad)
% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% This function transforms angle measures
% to always be in the 1st and 4th quadrants.
%
% Angle    - angle to transform
%            (positive measured CCW from 
%            positive x-axis)
% DegRad   - ~=0, Angle/NewAngle are in degrees
%             =1, Angle/NewAngle are in radians
%
% NewAngle - transformed angle
%
% User m functions called:  none
%----------------------------------------------

if DegRad == 1
  %...Angles in radians
  A1=pi/2; A2=pi; A3=3*pi/2; A4=2*pi;
else
  %...Angles in degrees
  A1=90; A2=180; A3=270; A4=360;
end
%...First, make between -360 and +360 degs
NewAngle=rem(Angle,A4);
%...Now, between +90 and -90
if abs(NewAngle)>A1 & abs(NewAngle)<A2
  NewAngle=rem(NewAngle,A1)-A1*sign(NewAngle);
elseif abs(NewAngle)==A2 
  NewAngle=0;
elseif abs(NewAngle)>A2 & abs(NewAngle)<A3
  NewAngle=rem(NewAngle,A1);
elseif abs(NewAngle)==A3 
  NewAngle=A1;
elseif abs(NewAngle)>A3 & abs(NewAngle)<A4
  NewAngle=rem(NewAngle,A1)-A1*sign(NewAngle);
end