date and time created 83/02/11 18:28:04 by shannon

SCCS-vsn: old/eqn/common_source/funny.c 4.1

diff --git a/usr/src/old/eqn/common_source/funny.c b/usr/src/old/eqn/common_source/funny.c
new file mode 100644 (file)
index 0000000..a1c019f
--- /dev/null
+++ b/usr/src/old/eqn/common_source/funny.c
@@ -0,0 +1,28 @@
+/*     funny.c 4.1     83/02/11        */
+
+# include "e.h"
+# include "e.def"
+
+funny(n) int n; {
+       char *f;
+
+       yyval = oalloc();
+       switch(n) {
+       case SUM:
+               f = "\\(*S"; break;
+       case UNION:
+               f = "\\(cu"; break;
+       case INTER:     /* intersection */
+               f = "\\(ca"; break;
+       case PROD:
+               f = "\\(*P"; break;
+       default:
+               error(FATAL, "funny type %d in funny", n);
+       }
+       printf(".ds %d \\s%d\\v'.3m'\\s+5%s\\s-5\\v'-.3m'\\s%d\n", yyval, ps, f, ps);
+       eht[yyval] = VERT( (ps+5)*6 -(ps*6*2)/10 );
+       ebase[yyval] = VERT( (ps*6*3)/10 );
+       if(dbg)printf(".\tfunny: S%d <- %s; h=%d b=%d\n", 
+               yyval, f, eht[yyval], ebase[yyval]);
+       lfont[yyval] = rfont[yyval] = ROM;
+}