summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex')
-rw-r--r--macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex42
1 files changed, 42 insertions, 0 deletions
diff --git a/macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex b/macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex
new file mode 100644
index 0000000000..ee4fa06d32
--- /dev/null
+++ b/macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex
@@ -0,0 +1,42 @@
+% pgflibraryam.code.tex (utf8 encoding)
+% Copyright 2020 Alain Matthes
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status “maintained”.
+%
+% The Current Maintainer of this work is Alain Matthes.
+% Original idea of F Fradin and H Voss
+\typeout{2020/04/06 1.1 pgflibraryam.code.tex}
+\makeatletter
+
+% dimensions des motifs
+\def\@pgfornamentDim#1{% dim en bp
+\ifcase#1\relax%
+\or\def\@pgfornamentX{136}\def\@pgfornamentY{107}% 1
+\or\def\@pgfornamentX{133}\def\@pgfornamentY{48}% 2
+\or\def\@pgfornamentX{133}\def\@pgfornamentY{48}% 2
+\fi%
+}%
+% appels des motifs
+\def\pgf@@ornament#1{%
+\begingroup
+\def\i{\pgfusepath{clip}}
+\let\o\pgfpathclose
+\let\s\pgfusepathqfillstroke
+\def\p ##1##2{\pgfqpoint{##1bp}{##2bp}}
+\def\m ##1 ##2 {\pgfpathmoveto{\p{##1}{##2}}}
+\def\l ##1 ##2 {\pgfpathlineto{\p{##1}{##2}}}
+\def\r ##1 ##2 ##3 ##4 {\pgfpathrectangle{\p{##1}{##2}}{\p{##3}{##4}}}
+\def\c ##1 ##2 ##3 ##4 ##5 ##6 {%
+\pgfpathcurveto{\p{##1}{##2}}{\p{##3}{##4}}{\p{##5}{##6}}}%
+\@@input am#1.pgf
+%\@nameuse{pgf@@am@#1}%
+\endgroup}%
+\makeatother
+\endinput \ No newline at end of file