source/texk/web2c/triptrap/trap.mpx

   1 % Written by DVItoMP, C Version 0.60
   2 begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
   3 string _n[];
   4 vardef _s(expr _t,_f,_m,_x,_y)=
   5   addto _p also _t infont _f scaled _m shifted (_x,_y); enddef;
   6 _n0="trapf";
   7 _s("Aqua",_n0,1.00000,0.0000,0.0000);
   8 interim linecap:=0;
   9 vardef _r(expr _a,_w) =
  10   addto _p doublepath _a withpen pencircle scaled _w enddef;
  11 _r((8.1693,-3.9851)..(8.1693,15.9402), 0.3985);
  12 _n1="trapf";
  13 _s("Brass",_n1,2.00000,8.3686,0.0000);
  14 setbounds _p to (0,-3.9851)--(18.3313,-3.9851)--
  15  (18.3313,15.9402)--(0,15.9402)--cycle;
  16 _p endgroup
  17 mpxbreak
  18 begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
  19 string _n[];
  20 vardef _s(expr _t,_f,_m,_x,_y)=
  21   addto _p also _t infont _f scaled _m shifted (_x,_y); enddef;
  22 _n0="trapf";
  23 _s("ast",_n0,1.00000,0.0000,0.0000);
  24 setbounds _p to (0,-0.9963)--(1.9925,-0.9963)--
  25  (1.9925,6.9738)--(0,6.9738)--cycle;
  26 _p endgroup
  27 mpxbreak