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

Re: How input stacked characters with vertical bar

• To: mathgroup at smc.vnet.net
• Subject: [mg53118] Re: How input stacked characters with vertical bar
• From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
• Date: Fri, 24 Dec 2004 05:59:05 -0500 (EST)
• References: <cqbh1k$4iv$1@smc.vnet.net> <cqeh6i$l3n$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

"Paul Abbott" <paul at physics.uwa.edu.au> wrote in message 
news:cqeh6i$l3n$1 at smc.vnet.net...
> In article <cqbh1k$4iv$1 at smc.vnet.net>,
> "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk> wrote:
>
>> Here is a Text cell expression that does what you want.
>>
>> Cell[TextData[Cell[BoxData[
>>     FormBox[
>>       SubsuperscriptBox[
>>         RowBox[{
>>           StyleBox["\[LeftBracketingBar]",
>>             FontColor->GrayLevel[1]],
>>           FractionBox["f",
>>             FractionBox["g", "h"]], "\[RightBracketingBar]"}], "a",
>>         "b"], TraditionalForm]]]], "Text"]
>>
>> The trick is to use the left and right bracketing bars (these are on the
>> BasicTypsetting palette just below the corresponding left and right angle
>> brackets). You then need to colour the left hand bracketing bar white (so 
>> it
>> disappears).
>
> Instead of
>
>   StyleBox["\[LeftBracketingBar]", FontColor->GrayLevel[1]]
>
> you can use \[AutoLeftMatch]. For example,
>
>  Cell[TextData[Cell[BoxData[
>    FormBox[
>      SubsuperscriptBox[
>        RowBox[{
>          "\[AutoLeftMatch]",
>          FractionBox["f",
>            FractionBox["g", "h"]], "\[RightBracketingBar]"}], "a",
>        "b"], TraditionalForm]]]], "Text"]
>
>> It is not OK to simply delete it, because the right hand
>> bracketing bar then appears purple (because it is lonely without its
>> partner!), and this colouration survives all the way to the final printed
>> form.
>
> You can work around this by modifying the "UnmatchedBracket" style in
> the Automatic Styles for the Notebook. However, using auto-matching is
> better.
>
> Cheers,
> Paul
>
> -- 
> Paul Abbott                                   Phone: +61 8 6488 2734
> School of Physics, M013                         Fax: +61 8 6488 1014
> The University of Western Australia      (CRICOS Provider No 00126G)
> 35 Stirling Highway
> Crawley WA 6009                      mailto:paul at physics.uwa.edu.au
> AUSTRALIA                            http://physics.uwa.edu.au/~paul
>

Excellent! I knew there had to be something like this somewhere but I never 
found it. Is it hidden away somewhere in the standard palettes?

Steve Luttrell