/* funny.c 4.2 83/02/12 */
case INTER
: /* intersection */
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 );
printf(".ds %d %s\n", yyval
, f
);
if(dbg
)printf(".\tfunny: S%d <- %s; h=%d b=%d\n",
yyval
, f
, eht
[yyval
], ebase
[yyval
]);
lfont
[yyval
] = rfont
[yyval
] = ROM
;