fancyqr (19aug22)

git-svn-id: svn://tug.org/texlive/trunk@64148 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 141 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-blobs.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-blobs.code
new file mode 100644
index 00000000000..9a6400da030
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-blobs.code
@@ -0,0 +1,23 @@
+\def\@tikz@fancy@qr@blobb{[rounded corners=.08*\qrm] (0,0) +(0:.3*\qrm+.515*\qrm*rnd) foreach \a in {30,60,...,360} {-- +(\a:.3*\qrm+.515*\qrm*rnd)} -- cycle}%
+% .
+\newpattern0000{\@tikz@fancy@qr@blobb}%
+% | | - -
+\newpattern1000{\@tikz@fancy@qr@blobb}%
+\newpattern0001{\@tikz@fancy@qr@blobb}%
+\newpattern0100{\@tikz@fancy@qr@blobb}%
+\newpattern0010{\@tikz@fancy@qr@blobb}%
+% corners
+\newpattern1100{\@tikz@fancy@qr@blobb}%
+\newpattern1010{\@tikz@fancy@qr@blobb}%
+\newpattern0101{\@tikz@fancy@qr@blobb}%
+\newpattern0011{\@tikz@fancy@qr@blobb}%
+% straights | --
+\newpattern1001{\@tikz@fancy@qr@blobb}%
+\newpattern0110{\@tikz@fancy@qr@blobb}%
+% enclosed
+\newpattern1111{\@tikz@fancy@qr@blobb}%
+% t's
+\newpattern0111{\@tikz@fancy@qr@blobb}%
+\newpattern1011{\@tikz@fancy@qr@blobb}%
+\newpattern1101{\@tikz@fancy@qr@blobb}%
+\newpattern1110{\@tikz@fancy@qr@blobb}%
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-dots.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-dots.code
new file mode 100644
index 00000000000..faeb92c1a30
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-dots.code
@@ -0,0 +1,22 @@
+% .
+\newpattern0000{(0,0)circle[radius=.475*\qrm]}%
+% | | - -
+\newpattern1000{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0001{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0100{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0010{(0,0)circle[radius=.475*\qrm]}%
+% corners
+\newpattern1100{(0,0)circle[radius=.475*\qrm]}%
+\newpattern1010{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0101{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0011{(0,0)circle[radius=.475*\qrm]}%
+% straights | --
+\newpattern1001{(0,0)circle[radius=.475*\qrm]}%
+\newpattern0110{(0,0)circle[radius=.475*\qrm]}%
+% enclosed
+\newpattern1111{(0,0)circle[radius=.475*\qrm]}%
+% t's
+\newpattern0111{(0,0)circle[radius=.475*\qrm]}%
+\newpattern1011{(0,0)circle[radius=.475*\qrm]}%
+\newpattern1101{(0,0)circle[radius=.475*\qrm]}%
+\newpattern1110{(0,0)circle[radius=.475*\qrm]}%
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-flat.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-flat.code
new file mode 100644
index 00000000000..e04f18f90ba
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-flat.code
@@ -0,0 +1,22 @@
+% .
+\newpattern0000{(0,0)rectangle(\qrm,\qrm)}%
+% | | - -
+\newpattern1000{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0001{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0100{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0010{(0,0)rectangle(\qrm,\qrm)}%
+% corners
+\newpattern1100{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1010{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0101{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0011{(0,0)rectangle(\qrm,\qrm)}%
+% straights | --
+\newpattern1001{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0110{(0,0)rectangle(\qrm,\qrm)}%
+% enclosed
+\newpattern1111{(0,0)rectangle(\qrm,\qrm)}%
+% t's
+\newpattern0111{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1011{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1101{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1110{(0,0)rectangle(\qrm,\qrm)}%
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-frame.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-frame.code
new file mode 100644
index 00000000000..a82c5296bfe
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-frame.code
@@ -0,0 +1,25 @@
+\tikzset{qrrd/.style={draw,line width=1.25pt}}
+\def\qrframesuffix{; \path[fill,qrrc,fill opacity=.995] (-.1pt,-.1pt) rectangle (\qrm+.1pt,\qrm+.1pt)}
+\def\qrfillring{circle[radius=.625pt]}
+% .
+\newpattern0000{[qrrc](0,0)rectangle(\qrm,\qrm); \path[fill,fill opacity=.965] (\qrm/2,\qrm/2) circle[radius=\qrm/3]}
+% | | - -
+\newpattern1000{(0,\qrm)[qrrc] -- (0,0) -- (\qrm,0) -- (\qrm,\qrm)\qrframesuffix}
+\newpattern0001{(0,0)[qrrc] -- (0,\qrm) -- (\qrm,\qrm) -- (\qrm,0)\qrframesuffix}
+\newpattern0100{(0,0)[qrrc] -- (\qrm,0) -- (\qrm,\qrm) -- (0,\qrm)\qrframesuffix}
+\newpattern0010{(\qrm,0)[qrrc] -- (0,0) -- (0,\qrm) -- (\qrm,\qrm)\qrframesuffix}
+% corners; the good injections to cover loose lines
+\newpattern1100{(\qrm,\qrm)[qrrc] -- (\qrm,0) -- (0,0); \path[fill] (0,\qrm) \qrfillring\qrframesuffix}% top left
+\newpattern1010{(0,\qrm)[qrrc] -- (0,0) -- (\qrm,0); \path[fill] (\qrm,\qrm) \qrfillring\qrframesuffix}% top right
+\newpattern0101{(0,\qrm)[qrrc] -- (\qrm,\qrm) -- (\qrm,0); \path[fill] (0,0) \qrfillring\qrframesuffix}% bottom left
+\newpattern0011{(\qrm,\qrm)[qrrc] -- (0,\qrm) -- (0,0) (\qrm,0); \path[fill] (\qrm,0) \qrfillring\qrframesuffix}% bottom right
+% straights | --
+\newpattern1001{(0,0)--(0,\qrm) (\qrm,0)--(\qrm,\qrm)\qrframesuffix}
+\newpattern0110{(0,0)--(\qrm,0) (0,\qrm)--(\qrm,\qrm)\qrframesuffix}
+% enclosed
+\newpattern1111{; \path[fill] (0,0) \qrfillring; \path[fill] (0,\qrm) \qrfillring; \path[fill] (\qrm,0) \qrfillring; \path[fill] (\qrm,\qrm) \qrfillring\qrframesuffix}
+% t's
+\newpattern0111{(0,\qrm)--(\qrm,\qrm); \path[fill] (0,0) \qrfillring; \path[fill] (\qrm,0) \qrfillring\qrframesuffix} % -,-
+\newpattern1011{(0,\qrm)--(0,0); \path[fill] (\qrm,0) \qrfillring; \path[fill] (\qrm,\qrm)\qrfillring\qrframesuffix}
+\newpattern1101{(\qrm,\qrm)--(\qrm,0); \path[fill] (0,0) \qrfillring; \path[fill] (0,\qrm)\qrfillring\qrframesuffix}
+\newpattern1110{(0,0)--(\qrm,0); \path[fill] (0,\qrm) \qrfillring; \path[fill] (\qrm,\qrm) \qrfillring\qrframesuffix} % -'-
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-glitch.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-glitch.code
new file mode 100644
index 00000000000..3d6418ec03d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-glitch.code
@@ -0,0 +1,23 @@
+\def\@tikz@fancy@qr@blobb{[qrrc] (0,0) +(0:.35*\qrm+.25*\qrm*rnd) foreach \a in {20,40,...,359} {-- +(\a:.35*\qrm+.2*\qrm*rnd)} -- cycle}%
+% .
+\newpattern0000{\@tikz@fancy@qr@blobb}%
+% | | - -
+\newpattern1000{\@tikz@fancy@qr@blobb}%
+\newpattern0001{\@tikz@fancy@qr@blobb}%
+\newpattern0100{\@tikz@fancy@qr@blobb}%
+\newpattern0010{\@tikz@fancy@qr@blobb}%
+% corners
+\newpattern1100{\@tikz@fancy@qr@blobb}%
+\newpattern1010{\@tikz@fancy@qr@blobb}%
+\newpattern0101{\@tikz@fancy@qr@blobb}%
+\newpattern0011{\@tikz@fancy@qr@blobb}%
+% straights | --
+\newpattern1001{\@tikz@fancy@qr@blobb}%
+\newpattern0110{\@tikz@fancy@qr@blobb}%
+% enclosed
+\newpattern1111{\@tikz@fancy@qr@blobb}%
+% t's
+\newpattern0111{\@tikz@fancy@qr@blobb}%
+\newpattern1011{\@tikz@fancy@qr@blobb}%
+\newpattern1101{\@tikz@fancy@qr@blobb}%
+\newpattern1110{\@tikz@fancy@qr@blobb}%
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-swift.code b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-swift.code
new file mode 100644
index 00000000000..acee6aee94c
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr-style-swift.code
@@ -0,0 +1,24 @@
+\def\fancy@qrbound{;\pgfresetboundingbox\path(0,0)rectangle(\qrm,\qrm)}%
+% note: the expansion with two seems to be problematic, therefore i use cordinate
+% .
+\newpattern0000{(.5*\qrm,1.1*\qrm)coordinate(@)(1.1*\qrm,.5*\qrm)coordinate(@b)(.5*\qrm,-.1*\qrm)coordinate(@c)(-.1*\qrm,.5*\qrm)coordinate(@d)to[bend right=15](@)to[bend right=15](@b)to[bend right=15](@c)to[bend right=15](@d)\fancy@qrbound}%
+% | | - -
+\newpattern1000{(.5*\qrm,-.1*\qrm)coordinate(@)(0,.2*\qrm)coordinate(@b)|-(\qrm,\qrm)--(\qrm,.2*\qrm)to[out=181,in=65](@)to[out=115,in=1](@b)}%
+\newpattern0001{(.5*\qrm,1.1*\qrm)coordinate(@)(0,.8*\qrm)coordinate(@b)|-(\qrm,0)--(\qrm,.8*\qrm)to[out=179,in=290](@)to[out=250,in=1](@b)}%
+\newpattern0100{(1.1*\qrm,.5*\qrm)coordinate(@)(.8*\qrm,\qrm)coordinate(@b)-|(0,0)--(.8*\qrm,0)to[out=89,in=205](@)to[out=155,in=271](@b)}%
+\newpattern0010{(-.1*\qrm,.5*\qrm)coordinate(@)(.2*\qrm,\qrm)coordinate(@b)-|(\qrm,0)--(.2*\qrm,0)to[out=91,in=335](@)to[out=25,in=269](@b)}%
+% corners
+\newpattern1100{(1.1*\qrm,-.1*\qrm)coordinate(@)(\qrm,\qrm)to[out=271,in=105](@)to[out=155,in=-1](0,0)--(0,\qrm)--(\qrm,\qrm)\fancy@qrbound}%
+\newpattern1010{(-.1*\qrm,-.1*\qrm)coordinate(@)(\qrm,0)coordinate(@b)(0,\qrm)to[out=269,in=75](@)to[out=25,in=181](@b)--(\qrm,\qrm)--(0,\qrm)\fancy@qrbound}%
+\newpattern0101{(\qrm+.1*\qrm,\qrm+.1*\qrm)coordinate(@)(0,\qrm)coordinate(@b)(@b) |- (\qrm,0) to[out=89,in=255](@)to[out=205,in=1](@b)\fancy@qrbound}%
+\newpattern0011{(-.1*\qrm,\qrm+.1*\qrm)coordinate(@)(0,0)coordinate(@b)(@b) -| (\qrm,\qrm) to[out=179,in=335](@)to[out=285,in=91](@b)\fancy@qrbound}%
+% straights | --
+\newpattern1001{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern0110{(0,0)rectangle(\qrm,\qrm)}%
+% enclosed
+\newpattern1111{(0,0)rectangle(\qrm,\qrm)}%
+% t's
+\newpattern0111{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1011{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1101{(0,0)rectangle(\qrm,\qrm)}%
+\newpattern1110{(0,0)rectangle(\qrm,\qrm)}%
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/fancyqr/fancyqr.sty b/Master/texmf-dist/tex/latex/fancyqr/fancyqr.sty
index e727b5e039b..5d199ecccae 100644
--- a/Master/texmf-dist/tex/latex/fancyqr/fancyqr.sty
+++ b/Master/texmf-dist/tex/latex/fancyqr/fancyqr.sty
@@ -2,7 +2,7 @@
 % Licensed under GNU General Public License version 3
 % https://opensource.org/licenses/gpl-3.0.html
 \def\filename{fancyqr}
-\ProvidesPackage{\filename}[2022/08/18 version v1.0 Fancy QR-Codes]
+\ProvidesPackage{\filename}[2022/08/19 version v1.1 Fancy QR-Codes]
 \RequirePackage{tikz, qrcode}
 
 % element
@@ -232,4 +232,4 @@
 \endinput
 
 % TODO: NEGATIVE PATTERNS IF MIDDLE IS 0
-% => make rounded negative corners
\ No newline at end of file
+% => make rounded negative corners