% % descend.mp -- a MetaPost figure that descends far below the baseline % by pts@fazekas.hu at Wed Feb 5 00:28:41 CET 2003 % % input plain; % message jobname; extra_endfig := extra_endfig & "special (" & ditto & "%%HiResBoundingBox: " & ditto & "&decimal xpart llcorner currentpicture &" & ditto & " " & ditto & "&decimal ypart llcorner currentpicture &" & ditto & " " & ditto & "&decimal xpart urcorner currentpicture &" & ditto & " " & ditto & "&decimal ypart urcorner currentpicture );"; prologues:=2; % 2 == TeX %beginfig(-1) beginfig(1) %string extra_endfig; %boxit a (btex Essai etex); %fill bpath a witchcolor .5[red,white]; %drawboxed(a); pair A, B, C; A:=(-5bp,-28bp); B:=(1cm,-28bp); C:=(-5bp,28bp); draw A--B--C--cycle; draw 1/2[A,B] -- C; draw 1/2[B,C] -- A; draw 1/2[C,A] -- B; endfig; end;