summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/pgfornament/latex/pgflibraryam.code.tex
blob: ee4fa06d32c76e713f59b0f548ebeb2e8b23892d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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