/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* trigkeys.h APL2 V1.0.0 **********************************************
* Trigonometric keys supplied as left to circular, circulax, powerx.   *
***********************************************************************/
#if !defined(TRIGKEYS_INCL)
#define TRIGKEYS_INCL
#define ATANH -7
#define ACOSH -6
#define ASINH -5
#define ATAN  -3
#define ACOS  -2
#define ASIN  -1
#define  TANH  7
#define  COSH  6
#define  SINH  5
#define  TAN   3
#define  COS   2
#define  SIN   1
#define IXR {*ixr = -*(rrr+1); *(ixr+1) = *rrr;}
#define GETXY {x = *rrr; y = *(rrr+1);}
#define PREFIX_MINUS(v) {*v = -*v; *(v+1) = -*(v+1);}
#define XFR(to,from) {*to = *from; *(to+1) = *(from+1);}
#define ASGX(to,re,im) {*(to) = (re); *((to)+1) = (im);}
#endif