The R Project SVN – R – Diff – /trunk/src/main/plotmath.c

 	code == 0241			||   /* Upsilon1 */
 	code == 0242			||   /* minute */
 	code == 0245			||   /* infinity */
 	code == 0260			||   /* degree */
 	code == 0262			||   /* second */
+	code == 0266                    ||   /* partialdiff */
 )
 	return code;
     else
 	return 0;
+}
+}
 AccentTable[] = {
     { "hat",		 94 },
     { "ring",		176 },
     { "tilde",		126 },
+    { "dot",            215 },
     { NULL,		  0 },
 };
 static int AccentCode(SEXP expr)
+{
     code = AccentCode(accent);
     if (code == 0)
 	InvalidAccent(expr);
     bodyBBox = RenderElement(body, 0);
     italic = bboxItalic(bodyBBox);
+    if (code == 215) /* dotmath */
+	accentBBox = RenderSymbolChar(code, 0);
+    else
-    accentBBox = RenderChar(code, 0);
+	accentBBox = RenderChar(code, 0);
     width = max(bboxWidth(bodyBBox) + bboxItalic(bodyBBox),
 		bboxWidth(accentBBox));
     xoffset = 0.5 *(width - bboxWidth(bodyBBox));
     bodyBBox = RenderGap(xoffset, draw);
     bodyBBox = CombineBBoxes(bodyBBox, RenderElement(body, draw));
     xoffset = 0.5 *(width - bboxWidth(accentBBox))
 	+ 0.9 * italic;
     yoffset = bboxHeight(bodyBBox) + bboxDepth(accentBBox) + 0.1 * XHeight();
     if (draw) {
 	PMoveTo(savedX + xoffset, savedY + yoffset);
+	if (code == 215) /* dotmath */
+	    RenderSymbolChar(code, draw);
+	else
-	RenderChar(code, draw);
+	    RenderChar(code, draw);
+    }
     bodyBBox = CombineOffsetBBoxes(bodyBBox, 0, accentBBox, 0,
 				   xoffset, yoffset);
     PMoveTo(savedX + width, savedY);
     return bodyBBox;

The R Project SVN R

(root)/trunk/src/main/plotmath.c @ 28362 – Rev 18202 → 19598