Initialisation du projet bclogo

[bclogo.git] / dev / latex / sources_MetaPost / brace.mp

diff --git a/dev/latex/sources_MetaPost/brace.mp b/dev/latex/sources_MetaPost/brace.mp
new file mode 100644 (file)
index 0000000..a0bfcd6
--- /dev/null
+++ b/dev/latex/sources_MetaPost/brace.mp
@@ -0,0 +1,28 @@
+% Converted from PostScript(TM) to MetaPost by pstoedit\r
+% MetaPost backend contributed by Scott Pakin <scott+ps2ed_AT_pakin.org>\r
+% pstoedit is Copyright (C) 1993 - 2009 Wolfgang Glunz <wglunz35_AT_pstoedit.net>\r
+\r
+% Generate structured PostScript\r
+prologues := 1;\r
+\r
+% Display a given string with its *baseline* at a given location\r
+% and with a given rotation angle\r
+vardef showtext(expr origin)(expr angle)(expr string) =\r
+  draw string infont defaultfont scaled defaultscale\r
+    rotated angle shifted origin;\r
+enddef;\r
+outputtemplate:="%j.mps";\r
+beginfig(1);\r
+linecap := butt;\r
+fill (10.371100,82.296898)..controls (2.140630,82.296898) and (10.371100,41.148399)..(2.140630,41.148399)\r
+    ..controls (10.371100,41.148399) and (2.140630,0.000000)..(10.371100,0.000000)\r
+    ..controls (2.140630,0.000000) and (16.042999,41.148399)..(2.140630,41.148399)\r
+    ..controls (16.042999,41.148399) and (2.140630,82.296898)..(10.371100,82.296898)\r
+    --cycle;\r
+pickup pencircle scaled 0.100000bp;\r
+draw (10.371100,82.296898)..controls (2.140630,82.296898) and (10.371100,41.148399)..(2.140630,41.148399)\r
+    ..controls (10.371100,41.148399) and (2.140630,0.000000)..(10.371100,0.000000)\r
+    ..controls (2.140630,0.000000) and (16.042999,41.148399)..(2.140630,41.148399)\r
+    ..controls (16.042999,41.148399) and (2.140630,82.296898)..(10.371100,82.296898);\r
+endfig;\r
+end\r