Initialisation du projet bclogo
[bclogo.git] / dev / latex / sources_MetaPost / brace.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 linecap := butt;\r
17 fill (10.371100,82.296898)..controls (2.140630,82.296898) and (10.371100,41.148399)..(2.140630,41.148399)\r
18     ..controls (10.371100,41.148399) and (2.140630,0.000000)..(10.371100,0.000000)\r
19     ..controls (2.140630,0.000000) and (16.042999,41.148399)..(2.140630,41.148399)\r
20     ..controls (16.042999,41.148399) and (2.140630,82.296898)..(10.371100,82.296898)\r
21     --cycle;\r
22 pickup pencircle scaled 0.100000bp;\r
23 draw (10.371100,82.296898)..controls (2.140630,82.296898) and (10.371100,41.148399)..(2.140630,41.148399)\r
24     ..controls (10.371100,41.148399) and (2.140630,0.000000)..(10.371100,0.000000)\r
25     ..controls (2.140630,0.000000) and (16.042999,41.148399)..(2.140630,41.148399)\r
26     ..controls (16.042999,41.148399) and (2.140630,82.296898)..(10.371100,82.296898);\r
27 endfig;\r
28 end\r

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.