diff options
Diffstat (limited to 'obsolete/macros/latex/contrib/tkz/pgfornament/latex/pgfornament.sty')
-rw-r--r-- | obsolete/macros/latex/contrib/tkz/pgfornament/latex/pgfornament.sty | 171 |
1 files changed, 171 insertions, 0 deletions
diff --git a/obsolete/macros/latex/contrib/tkz/pgfornament/latex/pgfornament.sty b/obsolete/macros/latex/contrib/tkz/pgfornament/latex/pgfornament.sty new file mode 100644 index 0000000000..59702dc8df --- /dev/null +++ b/obsolete/macros/latex/contrib/tkz/pgfornament/latex/pgfornament.sty @@ -0,0 +1,171 @@ +% utf8 +% ------------------------------------------------ +% Created by Alain Matthes le 2012-02-22. +% Copyright (C) 2016 Alain Matthes +% This file may be distributed and/or modified +% +% 1. under the LaTeX Project Public License , either version 1.3 +% of this license or (at your option) any later version and/or +% 2. under the GNU Public License. +% ------------------------------------------------ +%% pgfornament.sty 0.2 du 05/03/2016 inspired from psvectorian P Fradin H Voss +%% ------------------------------------------------ +% Les options de \pgfornament sont: +% +% scale : nombre (échelle, 1 par défaut) +% width : nombre + unité (largeur, naturelle par défaut) +% height : nombre + unité (hauteur, naturelle par défaut) +% color : couleur ( par défaut couleur courante ) +% symmetry=h : true/false (symétrie horizontale, false par défaut) +% symmetry=v : true/false (symétrie verticale, false par défaut) +% symmetry=c : true/false (symétrie centrale h+v,false par défaut) +\NeedsTeXFormat{LaTeX2e}% +\RequirePackage{tikz,pgfopts}% +\ProvidesPackage{pgfornament}[2016/03/05 v0.21 vector ornaments]% +\gdef\pgfOrnamentsObject{pgflibraryvectorian.code.tex} +\gdef\OrnamentsFamily{vectorian} +\pgfkeys{ +/pgfOrnaments/object/.cd, +/pgfOrnaments/object/.code = \gdef\pgfOrnamentsObject{pgflibrary#1.code.tex} +\gdef\OrnamentsFamily{#1} +} +\ProcessPgfOptions{/pgfOrnaments} +\input{\pgfOrnamentsObject}% +\makeatletter + +% appels des motifs +\def\pgf@@ornament#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 \OrnamentsFamily#1.pgf% +\endgroup}% + +\tikzset{pgfornamentstyle/.style={}}% +\pgfkeys{% +/ornament/.cd, +scale/.code = {\def\pgfornamentscale{#1}}, +width/.code = {\def\pgfornamentwidth{#1}}, +height/.code = {\def\pgfornamentheight{#1}}, +color/.code = {\def\pgfornamentcolor{#1}}, +opacity/.code = {\def\pgfornamentopacity{#1}}, +anchor/.code = {\def\pgfornamentanchor{#1}}, +ydelta/.code = {\def\pgfornamentydelta{#1}}, +symmetry/.is choice, +symmetry/v/.code = {\tikzset{pgfornamentstyle/.append style={cm={-1,0,0,1,(0,0)}}}}, +symmetry/c/.code = {\tikzset{pgfornamentstyle/.append style={cm={-1,0,0,-1,(0,0)}}}}, +symmetry/h/.code = {\tikzset{pgfornamentstyle/.append style={cm={1,0,0,-1,(0,0)}}}}, +symmetry/none/.code = {\tikzset{pgfornamentstyle/.append style={cm={1,0,0,1,(0,0)}}}}}% +\def\pgfornament{\pgfutil@ifnextchar[{\pgf@ornament}{\pgf@ornament[]}}% +\def\pgf@ornament[#1]#2{% +\pgfkeys{/ornament/.cd, + scale = 1, + opacity = {}, + width = {}, + height = {}, + color = {}, + ydelta = 0 pt, + symmetry = none , + anchor = center}% +% +\pgfqkeys{/ornament}{#1}% +\ifx\pgfornamentcolor\empty + \tikzset{pgfornamentstyle/.append style={}}% +\else + \tikzset{pgfornamentstyle/.append style={color=\pgfornamentcolor}}% +\fi +\ifx\pgfornamentopacity\empty + \tikzset{pgfornamentstyle/.append style={}}% +\else + \tikzset{pgfornamentstyle/.append style={opacity=\pgfornamentopacity}}% +\fi +\ifx\pgfornamentwidth\empty + \else + \@pgfornamentDim{#2}% + \pgfmathsetmacro{\pgfornamentscale}{\pgfornamentwidth/\@pgfornamentX bp}% +\fi +\ifx\pgfornamentheight\empty + \else + \@pgfornamentDim{#2}% + \pgfmathsetmacro{\pgfornamentscale}{\pgfornamentheight/\@pgfornamentY bp}% +\fi +\begin{tikzpicture}[% + baseline={([yshift=\pgfornamentydelta]current bounding box.\pgfornamentanchor)},pgfornamentstyle] + \pgftransformscale{\pgfornamentscale}% + \pgf@@ornament{#2}% +\end{tikzpicture}% +\tikzset{pgfornamentstyle/.style={cm={1,0,0,1,(0,0)}}}% +}% +\gdef\ornamenttopos{.5} +\gdef\ornamenttoanchor{center} +\gdef\ornamenttosymmetry{none} +\tikzset{options default/.style={anchor=center,sloped,allow upside down,inner sep=0pt}} +\tikzset{% +ornament/at/.code={\def\ornamenttopos{#1}}, +options/.style={options default,#1}, +ornament symmetry/.code={\def\ornamenttosymmetry{#1}}, +node anchor/.code={\def\ornamenttoanchor{#1}}, +ornament/.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]{% + \pgfornament[width = \ornamentlen, + symmetry=\ornamenttosymmetry]{#1}} + (\tikztotarget)\tikztonodes %end pgfextra + }% end to path + }% end style +}% +\def\pgfornamenthline#1#2#3#4{% + \pgfextractx{\pgf@x}{\pgfpointanchor{#1}{#3 east}} + \pgf@xa=\pgf@x + \pgfextractx{\pgf@x}{\pgfpointanchor{#2}{#3 west}} + \pgf@xb=\pgf@x + \advance\pgf@xb by -\pgf@xa +\node[inner sep=0pt] at ($(#1.#3 east)!.5!(#2.#3 west)$) {\pgfornament[width=\pgf@xb]{#4}} ; +} +\def\pgfornamentvline#1#2#3#4{% + \pgfextracty{\pgf@y}{\pgfpointanchor{#1}{south #3}} + \pgf@ya=\pgf@y + \pgfextracty{\pgf@y}{\pgfpointanchor{#2}{north #3}} + \pgf@yb=\pgf@y + \advance\pgf@yb by -\pgf@ya +\node[inner sep=0pt,rotate=90] at ($(#1.south #3)!.5!(#2.north #3)$) {\pgfornament[width=\pgf@yb]{#4}} ; +}% +\def\getornamentlength#1#2#3#4{% + \pgfpointdiff{\pgfpointanchor{#1}{#2}}% + {\pgfpointanchor{#3}{#4}}% + \pgf@xa=\pgf@x + \pgf@ya=\pgf@y + \pgfmathveclen{\pgf@xa}{\pgf@ya}% + \global\let\ornamentlen\pgfmathresult +}% +\def\getornamentangle#1#2#3{% + \pgfpointdiff{\pgfpointanchor{#2}{center}}{\pgfpointanchor{#3}{center}}% + \pgfmathsetmacro{#1}{atan2(\pgf@x,\pgf@y)}% +}% +\makeatother + +\newcommand{\resetpgfornamentstyle}{\tikzset{pgfornamentstyle/.style={}}} + + +\endinput +% End |