Sstrhsrtj

I am trying to create an electrical phase symbol in ConTeXt like that produced by the phase{} command from LaTeX's steinmetz package.

Here is what the symbol looks like:

_{(source: robinbye.com)}

Is there something out there already or do I need to brew my own? If I do, suggestions would be appreciated. I'm relatively new to ConTeXt and MetaPost.

Here is the meat from the steinmetz package, for reference.

RequirePackage{pict2e}[2004/07/06]

newsavebox{stm@phasebox}

newlength{stm@phasedp}

newlength{stm@phaseht}

newlength{stm@phasetot}

newlength{stm@phasewd}

newcommandphase[2][1]{%

 sboxstm@phasebox{$ifcase#1relaxdisplaystyleortextstyleorscriptstyleorscriptscriptstylefi#2$}

stm@phaseht=htstm@phasebox

stm@phasedp=dpstm@phasebox

stm@phasetot=stm@phasedp advancestm@phasetot .35ex advancestm@phasetotstm@phaseht

stm@phasewd=wdstm@phasebox advancestm@phasewd .5stm@phasetot

setboxstm@phasebox=vbox tostm@phaseht{

  hbox{setlength{unitlength}{1pt}linethickness{.6pt}%

        edefph@x{strip@ptstm@phasewd}edefph@y{strip@ptstm@phasetot}%

        dimen@ .5stm@phasetot edefph@dx{strip@ptdimen@}%

begin{picture}(ph@x,ph@y)

 put(0,0){circle*{.4}}

 put(0,0){line(1,0){ph@x}}put(0,0){line(1,2){ph@dx}}

 put(ph@dx,1.5){raisestm@phasedpvbox{boxstm@phasebox}}

end{picture}%

}vss}%

advancestm@phasedp .35ex advancestm@phasedp .6pt

dpz@=stm@phasedp boxstm@phasebox}

The following gives something like usable results:

startuseMPgraphic{formula}

  picture p;

  pair zu, zl;

  numeric delta, width;

  path roof;

  width = 2.5 pt;

  p := MPbetex{txt};

  zl := llcorner (p); zu := ulcorner (p);

  delta := ypart(zu) - ypart(zl);

  roof := zu -- zl + (-delta - width, -width) -- lrcorner (p) + (0, -width);

  pickup pencircle scaled 0.7pt;

  draw roof withcolor black;

  draw p withcolor black;

stopuseMPgraphic





defputfm#1{

  setMPtext{txt}{$ #1 $}

  hbox{lower 4pt hbox{useMPgraphic{formula}}}

}



starttext



section{Vertical}

putfm {1+2+3+4}



section{Inline}

Lorem ipsum dolor sit amet, consectetuer putfm {1-2-3-4-5} adipiscing

elit. Ut purus elit, vestibulum ut, placerat ac, adipiscing vitae,

felis. Curabitur dictum gravida mauris. Nam arcu libero, nonummy eget,

consectetuer id, vulputate a, magna. Donec vehicula augue eu

neque. Pellentesque habitant morbi tristique putfm {{a,b}} senectus

et netus et malesuada fames ac turpis egestas. Mauris ut leo. Cras

viverra metus rhoncus sem. Nulla et lectus vestibulum urna fringilla

ultrices.  Phasellus eu tellus sit amet tortor gravida

placerat. Integer sapien est, iaculis in, pretium quis, viverra ac,

putfm {1+2+3+4+5} nunc. Praesent eget sem vel leo ultrices

bibendum. Aenean faucibus.  Morbi dolor nulla, malesuada eu, pulvinar

at, mollis ac, nulla.  Curabitur auctor semper nulla. Donec varius

orci eget risus. Duis nibh mi, congue eu, accumsan eleifend, sagittis

quis, diam. Duis putfm {Sigma x_i} eget orci sit amet orci dignissim

rutrum.



stoptext

giving

Issues:

1. I'm not really familiar with setting Metapost graphics inline, and there is clearly too much horizontal space in the above when the formula is set inline. Using setbounds in Metapost will give control over the resulting bounding box. I didn't fiddle with this, because what you want will depend on how you are putting these formula inline, and perhaps you don't want to do that at all;


2. The last formula, with the Sigma, has the Steinmetz line too close to the formula inside.


3. The last and third-from-last formulae have the wrong baseline, because their formulae inside have a different depth which the code doesn't handle. To handle this requires more complex code, such as setting inside a box register, looking at the depth, and doing a raise dependent on this value. I can try to fix this if it is important. The Latex steinmetz code you posted seems to do this and this is worth fixing.