5 #include "Dimensions.h"
12 static void KeyEntry PROTO((floatish, char *, floatish));
20 for (i = 0; i < nidents; i++) /* count identifiers */
24 dc = graphheight / (floatish) (i + 1);
26 for (i = 0; i < nidents; i++) {
28 KeyEntry(c, identtable[i]->name, ShadeOf(identtable[i]->name));
35 KeyEntry(centreline, name, colour)
36 floatish centreline; char* name; floatish colour;
42 namebase = centreline - (floatish) (NORMAL_FONT / 2);
43 keyboxbase = centreline - ((floatish) KEY_BOX_WIDTH / 2.0);
45 kstart = graphx0 + graphwidth;
47 fprintf(psfp, "%f %f moveto\n", kstart + borderspace, keyboxbase);
48 fprintf(psfp, "0 %d rlineto\n", KEY_BOX_WIDTH);
49 fprintf(psfp, "%d 0 rlineto\n", KEY_BOX_WIDTH);
50 fprintf(psfp, "0 %d rlineto\n", -KEY_BOX_WIDTH);
51 fprintf(psfp, "closepath\n");
53 fprintf(psfp, "gsave\n");
55 fprintf(psfp, "fill\n");
56 fprintf(psfp, "grestore\n");
57 fprintf(psfp, "stroke\n");
59 fprintf(psfp, "HE%d setfont\n", NORMAL_FONT);
60 fprintf(psfp, "%f %f moveto\n", kstart + (floatish) KEY_BOX_WIDTH + 2 * borderspace, namebase);
62 fprintf(psfp, "(%s) show\n", name);