The R Project SVN – R – Diff – /branches/R-ObjC/src/main/plotmath.c

     return bbox;
+}
 /*----------------------------------------------------------------------
+ *
+ *  Code for SymbolFace (i.e. font = 5) Expressions
+ *
+ *  This makes the default font an Adobe Symbol Encoded font
+ *  (provides access to any character in the Adobe Symbol Font
+ *   encoding via strings like "\042" for the universal ["for all"]
+ *   symbol, without the need for separate special names for each
+ *   of these symbols).
+ *
+ */
+static int SymbolFaceAtom(SEXP expr)
+{
+    return NameAtom(expr) &&
+	NameMatch(expr, "symbol");
+}
+static BBOX RenderSymbolFace(SEXP expr, int draw, mathContext *mc,
+                             R_GE_gcontext *gc, GEDevDesc *dd)
+{
+    BBOX bbox;
+    int prevfont = SetFont(SymbolFont, gc);
+    bbox = RenderElement(CADR(expr), draw, mc, gc, dd);
+    SetFont(prevfont, gc);
+    return bbox;
+}
+/*----------------------------------------------------------------------
+ *
  *  Code for Bold Italic Expressions
+ *
  */
 static int BoldItalicAtom(SEXP expr)
 	return RenderBold(expr, draw, mc, gc, dd);
     else if (ItalicAtom(head))
 	return RenderItalic(expr, draw, mc, gc, dd);
     else if (PlainAtom(head))
 	return RenderPlain(expr, draw, mc, gc, dd);
+    else if (SymbolFaceAtom(head))
+	return RenderSymbolFace(expr, draw, mc, gc, dd);
     else if (BoldItalicAtom(head))
 	return RenderBoldItalic(expr, draw, mc, gc, dd);
     else if (StyleAtom(head))
 	return RenderStyle(expr, draw, mc, gc, dd);
     else if (PhantomAtom(head))

The R Project SVN R

(root)/branches/R-ObjC/src/main/plotmath.c @ 77458 – Rev 42307 → 42633