summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/pgfornament-han/pgfornament-han.sty
blob: 824fb153898e03370920d55568e54f3762210e38 (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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
% pgfornamenthan.sty v0.33 2019/08/10
% Authors: pgf and LaTeX code by LIM LianTze
%          based on CAD drawing by ZHANG Chennan

\ProvidesPackage{pgfornament-han}
\RequirePackage{xpatch}
\RequirePackage{pgfornament}

\def\pgfornamenthan{\pgfutil@ifnextchar[{\pgf@ornamenthan}{\pgf@ornamenthan[]}}%
\let\pgf@ornamenthan\pgf@ornament
\xpatchcmd{\pgf@ornamenthan}{\@pgfornamentDim}{\@pgfornamenthanDim}{}{}
\xpatchcmd{\pgf@ornamenthan}{\@pgfornamentDim}{\@pgfornamenthanDim}{}{}
\xpatchcmd{\pgf@ornamenthan}{\pgf@@ornament}{\pgf@@ornamenthan}{}{}

\def\pgfOrnamentsHanObject{pgflibraryhan.code.tex}
\input{\pgfOrnamentsHanObject}%

\let\pgf@@ornamenthan\pgf@@ornament
% \patchcmd{\pgf@@ornamenthan}{\OrnamentsFamily}{han}{}{}
\pretocmd{\pgf@@ornamenthan}{%
  \def\OrnamentsFamily{han}
}{}{}

\patchcmd{\pgf@@ornamenthan}
  {\OrnamentsFamily#1.pgf}
  {\OrnamentsFamily/\OrnamentsFamily#1.pgf}{}{}

\tikzset{
  ornamenthan/.style={%
    to path={%
      \pgfextra{%
      \tikz@scan@one@point\pgfutil@firstofone(\tikztostart)\relax
         \pgf@xa=\pgf@x
         \pgf@ya=\pgf@y
      \tikz@scan@one@point\pgfutil@firstofone(\tikztotarget)\relax
         \pgf@xb=\pgf@x
         \pgf@yb=\pgf@y
         \advance\pgf@xa by-\pgf@xb
         \advance\pgf@ya by-\pgf@yb
      \pgfmathveclen{\pgf@xa}{\pgf@ya}%
      \global\let\ornamentlen\pgfmathresult}
	     --  node [pos=\ornamenttopos,options,
		          anchor=\ornamenttoanchor]{%
        \pgfornamenthan[width = \ornamentlen,
		             symmetry=\ornamenttosymmetry]{#1}}
            (\tikztotarget)\tikztonodes %end pgfextra
    }% end to path
  }% end style
}

\patchcmd{\pgf@@ornamenthan}
  {\begingroup}
  {\begingroup\def\ubb{\pgfusepath{use as bounding box}}}
  {}{}

% \def\pgf@@ornamenthan#1{%
% \begingroup
% \def\i{\pgfusepath{clip}}%
% \def\k{\pgfusepath{stroke}}%
% \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 han#1.pgf
% %\@nameuse{pgf@@am@#1}%
% \endgroup}%
\endinput