git.oblomov.eu Git - mplib/blob - src/texk/web2c/mpdir/tests/testfile.mp

   1
   2 prologues:=3;
   3
   4 path p;
   5 p = (0,0){right}..(20,100)..(50,60)--(75,50)...(25,25)..cycle;
   6
   7 beginfig(1);
   8 fill p withcolor (1,0,0);
   9 pickup pencircle scaled 2;
  10 draw p dashed (evenly scaled 4);
  11 endfig;
  12
  13
  14 beginfig(2);
  15 label ("whatever",(0,0)) scaled 10 rotated 24 ;
  16 endfig;
  17
  18
  19 beginfig(3);
  20 fill p withcolor (1,0,0);
  21 setbounds currentpicture to unitsquare scaled 20;
  22 endfig;
  23
  24 end.