Added aten2 function pre Nick Rees.

src/libCom/calc/calcPerform.c

@@ -439,6 +439,11 @@ printf ("*FINISHED*\n");
 			*pstacktop = atan(*pstacktop);
 			break;
 
+		case ATAN2:
+			--pstacktop;
+			*pstacktop = atan2(*(pstacktop+1), *pstacktop);
+			break;
+
 		case COS:
 			*pstacktop = cos(*pstacktop);
 			break;

src/libCom/calc/postfix.c

@@ -163,6 +163,7 @@ static struct expression_element	elements[] = {
 "LOG",		7,	8,	UNARY_OPERATOR,	LOG_10,    /* log 10 */
 "ACOS",		7,	8,	UNARY_OPERATOR,	ACOS,      /* arc cosine */
 "ASIN",		7,	8,	UNARY_OPERATOR,	ASIN,      /* arc sine */
+"ATAN2",	7,	8,	UNARY_OPERATOR,	ATAN2,     /* arc tangent */
 "ATAN",		7,	8,	UNARY_OPERATOR,	ATAN,      /* arc tangent */
 "MAX",		7,	8,	UNARY_OPERATOR,	MAX,       /* maximum of 2 args */
 "MIN",		7,	8,	UNARY_OPERATOR,	MIN,       /* minimum of 2 args */

src/libCom/calc/postfix.h

@@ -115,6 +115,7 @@
 #define		CONST_D2R	74
 #define		CONST_R2D	75
 #define		NINT		76
+#define		ATAN2		77
 #define		END_STACK	127
 
 #endif /* INCpostfixh */

src/libCom/calcPerform.c

@@ -439,6 +439,11 @@ printf ("*FINISHED*\n");
 			*pstacktop = atan(*pstacktop);
 			break;
 
+		case ATAN2:
+			--pstacktop;
+			*pstacktop = atan2(*(pstacktop+1), *pstacktop);
+			break;
+
 		case COS:
 			*pstacktop = cos(*pstacktop);
 			break;

src/libCom/postfix.c

@@ -163,6 +163,7 @@ static struct expression_element	elements[] = {
 "LOG",		7,	8,	UNARY_OPERATOR,	LOG_10,    /* log 10 */
 "ACOS",		7,	8,	UNARY_OPERATOR,	ACOS,      /* arc cosine */
 "ASIN",		7,	8,	UNARY_OPERATOR,	ASIN,      /* arc sine */
+"ATAN2",	7,	8,	UNARY_OPERATOR,	ATAN2,     /* arc tangent */
 "ATAN",		7,	8,	UNARY_OPERATOR,	ATAN,      /* arc tangent */
 "MAX",		7,	8,	UNARY_OPERATOR,	MAX,       /* maximum of 2 args */
 "MIN",		7,	8,	UNARY_OPERATOR,	MIN,       /* minimum of 2 args */

src/libCom/postfix.h

@@ -115,6 +115,7 @@
 #define		CONST_D2R	74
 #define		CONST_R2D	75
 #define		NINT		76
+#define		ATAN2		77
 #define		END_STACK	127
 
 #endif /* INCpostfixh */