Plan 9 from Bell Labs’s /usr/web/sources/contrib/steve/root/sys/src/cmd/tex/web2c/triptrap/trap.mpx

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


% Written by DVItoMP, C Version 0.60
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)=
  addto _p also _t infont _f scaled _m shifted (_x,_y); enddef;
_n0="trapf";
_s("Aqua",_n0,1.00000,0.0000,0.0000);
interim linecap:=0;
vardef _r(expr _a,_w) =
  addto _p doublepath _a withpen pencircle scaled _w enddef;
_r((8.1693,-3.9851)..(8.1693,15.9402), 0.3985);
_n1="trapf";
_s("Brass",_n1,2.00000,8.3686,0.0000);
setbounds _p to (0,-3.9851)--(18.3313,-3.9851)--
 (18.3313,15.9402)--(0,15.9402)--cycle;
_p endgroup
mpxbreak
begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
string _n[];
vardef _s(expr _t,_f,_m,_x,_y)=
  addto _p also _t infont _f scaled _m shifted (_x,_y); enddef;
_n0="trapf";
_s("ast",_n0,1.00000,0.0000,0.0000);
setbounds _p to (0,-0.9963)--(1.9925,-0.9963)--
 (1.9925,6.9738)--(0,6.9738)--cycle;
_p endgroup
mpxbreak

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].