* Copyright (c) 1991 The Regents of the University of California.
* %sccs.include.proprietary.c%
static char sccsid
[] = "@(#)diacrit.c 4.4 (Berkeley) %G%";
diacrit(p1
, type
) int p1
, type
; {
printf(".nr 10 %du\n", max(eht
[p1
]-ebase
[p1
]-VERT(2),0));
printf(".nr 10 %du\n", VERT(max(eht
[p1
]-ebase
[p1
]-6*ps
,0))); /* vertical shift if high */
printf(".if \\n(ct>1 .nr 10 \\n(10+\\s%d.25m\\s0\n", effps
);
printf(".nr %d \\s%d.1m\\s0\n", t
, effps
); /* horiz shift if high */
printf(".if \\n(ct>1 .nr %d \\s%d.15m\\s0\n", t
, effps
);
printf(".ds %d \\v'-.4m'\\s%d\\(->\\s0\\v'.4m'\n",
printf(".ds %d \\v'-1'_\\v'1'\n", c
);
printf(".ds %d \\v'-.4m'\\s%d\\z\\(<-\\(->\\s0\\v'.4m'\n",
printf(".ds %d \\s%d\\v'-.67m'.\\v'.67m'\\s0\n", c
, effps
);
printf(".ds %d \\v'-1'.\\v'1'\n", c
);
printf(".ds %d \\s%d\\v'-.67m'..\\v'.67m\\s0'\n", c
, effps
);
printf(".ds %d \\v'-1'..\\v'1'\n", c
);
printf(".ds %d \\s%d\\v'.18m'\\h'.05m'\\l'\\n(%du-.1m\\(rn'\\h'.05m'\\v'-.18m'\\s0\n",
printf(".ds %d \\v'-1'\\l'\\n(%du'\\v'1'\n",
printf(".ds %d \\l'\\n(%du\\(ul'\n", c
, p1
);
printf(".nr 10 0-%d\n", ebase
[p1
]);
printf(".ds %d \\l'\\n(%du'\n", c
, p1
);
printf(".as %d \\h'-\\n(%du-\\n(%du/2u+\\n(%du'\\v'0-\\n(10u'\\*(%d",
printf("\\v'\\n(10u'\\h'-\\n(%du+\\n(%du/2u-\\n(%du'\n", c
, p1
, t
);
/* BUG - should go to right end of widest */
printf(".as %d \\h'-\\n(%du-\\n(%du/2u'\\v'0-\\n(10u'\\*(%d",
printf("\\v'\\n(10u'\\h'-\\n(%du+\\n(%du/2u'\n", c
, p1
);
eht
[p1
] += VERT( (6*ps
*15) / 100); /* 0.15m */
if(dbg
)printf(".\tdiacrit: %c over S%d, lf=%c, rf=%c, h=%d,b=%d\n",
type
, p1
, lfont
[p1
], rfont
[p1
], eht
[p1
], ebase
[p1
]);
if (dbg
) printf(".\tdiacrit: %c over S%d, h=%d, b=%d\n", type
, p1
, eht
[p1
], ebase
[p1
]);