dev/latex/sources_MetaPost/spir.mp

   1 % Converted from PostScript(TM) to MetaPost by pstoedit
   2 % MetaPost backend contributed by Scott Pakin <scott+ps2ed_AT_pakin.org>
   3 % pstoedit is Copyright (C) 1993 - 2009 Wolfgang Glunz <wglunz35_AT_pstoedit.net>
   4
   5 % Generate structured PostScript
   6 prologues := 1;
   7
   8 % Display a given string with its *baseline* at a given location
   9 % and with a given rotation angle
  10 vardef showtext(expr origin)(expr angle)(expr string) =
  11   draw string infont defaultfont scaled defaultscale
  12     rotated angle shifted origin;
  13 enddef;
  14 outputtemplate:="%j.mps";
  15 beginfig(1);
  16 pickup pencircle scaled 0.648166bp;
  17 linecap := butt;
  18 linejoin := mitered;
  19 draw (4.605470,4.734380)..controls (4.746090,4.593750) and (4.488280,4.468750)..(4.375000,4.492190)
  20     ..controls (4.066410,4.558590) and (4.011720,4.960940)..(4.128910,5.203130)
  21     ..controls (4.347660,5.640630) and (4.917970,5.699220)..(5.296880,5.457030)
  22     ..controls (5.851560,5.101560) and (5.914060,4.316410)..(5.554690,3.796880)
  23     ..controls (5.074220,3.105470) and (4.093750,3.039060)..(3.449220,3.531250)
  24     ..controls (2.640630,4.148440) and (2.574220,5.355470)..(3.179690,6.140630)
  25     ..controls (3.917970,7.093750) and (5.316410,7.167970)..(6.222660,6.421880)
  26     ..controls (7.285160,5.546880) and (7.359380,3.910160)..(6.503910,2.859380)
  27     ..controls (5.511720,1.644530) and (3.691410,1.566410)..(2.527340,2.566410)
  28     ..controls (1.203130,3.699220) and (1.125000,5.765630)..(2.230470,7.078130)
  29     ..controls (3.476560,8.554690) and (5.722660,8.640630)..(7.144530,7.386720)
  30     ..controls (8.726560,5.996090) and (8.812500,3.496090)..(7.453130,1.921880);
  31 endfig;
  32 end