1*11004Sshannon /* funny.c 4.1 83/02/11 */ 2*11004Sshannon 3*11004Sshannon # include "e.h" 4*11004Sshannon # include "e.def" 5*11004Sshannon 6*11004Sshannon funny(n) int n; { 7*11004Sshannon char *f; 8*11004Sshannon 9*11004Sshannon yyval = oalloc(); 10*11004Sshannon switch(n) { 11*11004Sshannon case SUM: 12*11004Sshannon f = "\\(*S"; break; 13*11004Sshannon case UNION: 14*11004Sshannon f = "\\(cu"; break; 15*11004Sshannon case INTER: /* intersection */ 16*11004Sshannon f = "\\(ca"; break; 17*11004Sshannon case PROD: 18*11004Sshannon f = "\\(*P"; break; 19*11004Sshannon default: 20*11004Sshannon error(FATAL, "funny type %d in funny", n); 21*11004Sshannon } 22*11004Sshannon printf(".ds %d \\s%d\\v'.3m'\\s+5%s\\s-5\\v'-.3m'\\s%d\n", yyval, ps, f, ps); 23*11004Sshannon eht[yyval] = VERT( (ps+5)*6 -(ps*6*2)/10 ); 24*11004Sshannon ebase[yyval] = VERT( (ps*6*3)/10 ); 25*11004Sshannon if(dbg)printf(".\tfunny: S%d <- %s; h=%d b=%d\n", 26*11004Sshannon yyval, f, eht[yyval], ebase[yyval]); 27*11004Sshannon lfont[yyval] = rfont[yyval] = ROM; 28*11004Sshannon } 29