Re: [NTG-context] Metapost label alignment etc.

On Fri, 30 Jun 2006, Idris Samawi Hamid wrote:

Hi, Mojca, Aditya, Hans, and all the MP gurus,

Thank you for all the help and advice.

On Fri, 30 Jun 2006 18:17:23 -0600, Mojca Miklavec wrote:

Wow... Ok, following is my present, still naive code. What I would like to be able to do is

1) In the first figure [square], control the relation of the front and back face of the cube by a single parameter. So if I use z for the front face coordinates, I can use z' for the rear face and define z' as a function of z. Then the angle of the z111--z'111 diagonal wrt the x-axis will change, and the label for that axis will have to change as well. I've been manually calculating inverse tangents to do this but can it be done automatically?

angle(...).

2. In the second figure, to in addition control the distance between the 2 cubes by a single parameter without recalculating the dashed lines mapping the two.

See code below.

I only started yesterday but i can see that MetaPost is going to turn me into a junkie if I'm not careful :-)

Any other suggestions for improving/streamlining this is greatly appreciated: I think it will make a nice example case for beginners/on the wiki when done!

I do not have an ingeneous solution like Mojca. I will do this in a brute force way like you, but using loops for repetitive tasks and allowing metapost to do all the calculations for me. \setuppapersize[letter][letter] \setupcolors[state=start] \setuppagenumbering[state=stop] \def\AXIS#1#2#3{(#1) Axis #2: {\bf #3}} \forceMPTEXcheck{LABELL} \forceMPTEXcheck{LABELR} \forceMPTEXcheck{LABELM} \startMPenvironment \ssxx\setupinterlinespace \stopMPenvironment \startMPinclusions vardef LABELL@\#(expr s, p)= label@\#(textext("% \framed[width=1.5cm,align=left,frame=off,autowidth=force,strut=on]{" & s & "}"),p) enddef ; vardef LABELR@\#(expr s, p)= label@\#(textext("% \framed[width=1.5cm,align=right,frame=off,autowidth=force,strut=on]{" & s & "}"),p) enddef ; vardef LABELM@\#(expr s, p)= label@\#(textext("% \framed[align=middle,frame=off,autowidth=force,strut=on]{" & s & "}"),p) enddef ; picture my_dash ; my_dash := dashpattern(on 1mm off 1mm) ; % my_dash is more verbose than p. \stopMPinclusions \startstaticMPfigure{square} numeric u ; u := 1.4cm; % Always declare the type of a variable. Helps in debugging. path p; p := unitsquare scaled 5u ; % Identify the corners z[1] = llcorner p ; z[2] = ulcorner p ; z[3] = urcorner p ; z[4] = lrcorner p ; % Identify the corners of the shifted rectangle for i = 5 upto 8: z[i] = z[i-4] shifted (2u, 1.25u) ; endfor ; % Find the intersection points z[9] = whatever[z[5],z[6]] = whatever[z[2],z[3]] ; z[10] = whatever[z[5],z[8]] = whatever[z[3],z[4]] ; % Axis location % No need to calculate these explicitly, you can as well use % label(p, 0.5[...]) ; z[11] = 0.5[z[1],z[4]] ; z[12] = 0.5[z[1],z[2]] ; z[13] = 0.5[z[1],z[5]] ; % z[13] = (1u,0.15u) ; Not sure which point you had calculated. drawoptions(withcolor .625red withpen pencircle scaled 0.4pt) ; draw p ; draw (z[6] -- z[7]) ; draw (z[7] -- z[8]) ; draw (z[6] -- z[9]) ; draw (z[10] -- z[8]) ; % draw (z[2] -- z[6]) ; % draw (z[3] -- z[7]) ; % draw (z[4] -- z[8]) ; for i = 2 upto 4 : draw(z[i] -- z[i+4]) ; endfor ; drawoptions(withcolor .625red dashed my_dash withpen pencircle scaled 0.4pt) ; % draw (z[1] -- z[5]) ; % draw (z[9] -- z[5]) ; % draw (z[5] -- z[10]) ; for i = 1,9,10 : draw(z[5] -- z[i] ) ; endfor ; drawoptions(withcolor black) ; LABELL.llft("(0,0,0,0) Light Condensed Small Sans~Serif", z[1]) ; LABELL.llft("(0,1,0,0) Light Extended Small Sans~Serif", z[2]) ; LABELR.lrt ("(1,1,0,0) Bold Extended Small Sans~Serif", z[3]) ; LABELR.lrt ("(1,0,0,0) Bold Condensed Small Sans~Serif", z[4]) ; LABELR.urt("(0,0,1,0) Light Condensed Large Sans~Serif", z[5]) ; LABELR.urt("(0,1,1,0) Light Extended Large Sans~Serif", z[6]) ; LABELR.urt("(1,1,1,0) Bold Extended Large Sans~Serif", z[7]) ; LABELR.urt("(1,0,1,0) Bold Condensed Large Sans~Serif", z[8]) ; LABELM.bot ("\AXIS{x}{1}{Weight}", z[11]); picture p; p := textext("\framed[align=middle,frame=off,autowidth=force,strut=on]% {\AXIS{y}{2}{Width}}"); p := p rotatedaround (z[12], 90) ; label.lft(p,z[12]); p := textext("\AXIS{z}{3}{Optical Size}"); p := p rotatedaround (z[13], angle(z[5]-z[1])) ; % inv tan(1.5/2) % Let metapost calculate it for you % Ugly kludge label(p,z[13]+(0,2labeloffset)); % currentpicture := currentpicture scaled 0.9 ; % Why? Either change u, or use scaled= option in \usestaticMPfigure \stopstaticMPfigure \startstaticMPfigure{2squares} numeric u ; u := 0.7cm; path p; p := unitsquare scaled 5u ; % Identify the corners z[1] = llcorner p ; z[2] = ulcorner p ; z[3] = urcorner p ; z[4] = lrcorner p ; % Identify the corners of the shifted rectangle for i = 5 upto 8: z[i] = z[i-4] shifted (2u, 1.25u) ; endfor ; for i = 11 upto 18: z[i] = z[i-10] shifted (10u,-2.5u) ; endfor ; z[19] = (3.125u,3.125u) ; z[20] = (13.125u,0.625u) ; z[21] = (5u,-1.25u) ; drawoptions(withcolor .625red withpen pencircle scaled 0.4pt) ; for i = 0,10: draw (z[i+1] -- z[i+2] -- z[i+3] -- z[i+4] -- cycle) ; draw (z[i+5] -- z[i+6] -- z[i+7] -- z[i+8] -- cycle) ; draw (z[i+1] -- z[i+5]) ; draw (z[i+2] -- z[i+6]) ; draw (z[i+3] -- z[i+7]) ; draw (z[i+4] -- z[i+8]) ; endfor ; % Remove repetitions % draw (z[11] -- z[12] -- z[13] -- z[14] -- cycle) ; % draw (z[15] -- z[16] -- z[17] -- z[18] -- cycle) ; % draw (z[11] -- z[15]) ; % draw (z[12] -- z[16]) ; % draw (z[13] -- z[17]) ; % draw (z[14] -- z[18]) ; % map square to square drawoptions(withcolor .625red dashed my_dash withpen pencircle scaled 0.4pt) ; for i = 1 upto 8 : draw z[i] -- z[i+10] ; endfor ; % draw (z[1] -- z[11]) ; % draw (z[2] -- z[12]) ; % draw (z[3] -- z[13]) ; % draw (z[4] -- z[14]) ; % draw (z[5] -- z[15]) ; % draw (z[6] -- z[16]) ; % draw (z[7] -- z[17]) ; % draw (z[8] -- z[18]) ; % labels drawoptions(withcolor black) ; label (textext("Sans Serif"),z[19]) ; label (textext("Serif"),z[20]) ; picture p; p := textext("\AXIS{a}{4}{Serif}"); % p := p rotatedaround (z[21], -14.036) ; p := p rotatedaround (z[21], angle(z[11]-z[1])) ; label.bot(p,z[21]); % currentpicture := currentpicture scaled 0.9 ; \stopstaticMPfigure \starttext \midaligned{\usestaticMPfigure[square]} \blank[2*big] \midaligned{\usestaticMPfigure[2squares]} \stoptext Aditya