Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Mixing graphics and text

• To: mathgroup at smc.vnet.net
• Subject: [mg86817] Re: [mg86802] Mixing graphics and text
• From: Curtis Osterhoudt <cfo at lanl.gov>
• Date: Sat, 22 Mar 2008 00:52:27 -0500 (EST)
• Organization: LANL
• References: <200803210655.BAA18440@smc.vnet.net>
• Reply-to: cfo at lanl.gov

graphs = GraphData[]; 
n = 3; Row[Join[Riffle[GraphData /@ graphs[[2 ;; 1 + n]], 
        Table[
    "\!\(\*\nStyleBox[\"+\",\nFontSize->72,\nFontColor->RGBColor[0\
    , 0, 1]]\)", {n - 
      1}]], {"\!\(\*\nStyleBox[\"=\",\nFontSize->72]\)", 
        GraphData[First[graphs]]}]]

  I did this by highlighting the symbols I wanted changed, then going to the 
Format -> Size menu and choosing 72 point font. 

        Hope that helps!
                  

On Friday 21 March 2008 00:55:06 Yaroslav Bulatov wrote:
> What is the easiest way to get an "equation" like the one below, but
> with "+" and "=" symbols being about 6 times larger?
>
> graphs = GraphData[];
> n = 3; Riffle[GraphData /@ graphs[[2 ;; 1 + n]], Table["+", {n - 1}]]~
>   Join~{"=", GraphData[graphs // First]} // Row



-- 
==========================================================
Curtis Osterhoudt
cfo at remove_this.lanl.and_this.gov
PGP Key ID: 0x4DCA2A10
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================

• References:
  • Mixing graphics and text
    • From: Yaroslav Bulatov <yaroslavvb@gmail.com>