dev/latex/sources_MetaPost/spir.mp

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