summaryrefslogtreecommitdiff
path: root/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-04-14 03:00:50 +0000
committerNorbert Preining <norbert@preining.info>2024-04-14 03:00:50 +0000
commitad42b96b7e6aa836e884a18da3f45d53dc779145 (patch)
treeeed2ae1a2aca7542edc24a57fcbc7402307c72ba /graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
parent8c3c68877a46b9b70b5d02c8582595e90be9737a (diff)
CTAN sync 202404140300
Diffstat (limited to 'graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code')
-rw-r--r--graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code46
1 files changed, 29 insertions, 17 deletions
diff --git a/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code b/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
index 3d6418ec03..937b694044 100644
--- a/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
+++ b/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
@@ -1,23 +1,35 @@
-\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}%
+\def\@fancy@qr@blobb{%
+\@tempcnta=\z@
+\roundjoin
+\roundcap
+\moveto(0,0)
+\loop
+\advance\@tempcnta by 40
+\def\rad{\fpeval{.2*\qr@modulesize+.115*\qr@modulesize*rand()}}% allow to 'glitch'
+\lineto(\fpeval{cos(\@tempcnta)*\rad},\fpeval{sin(\@tempcnta)*\rad})
+\ifnum\@tempcnta<360\relax
+\repeat
+\fillpath
+}%
% .
-\newpattern0000{\@tikz@fancy@qr@blobb}%
+\newpattern0000{\@fancy@qr@blobb}%
% | | - -
-\newpattern1000{\@tikz@fancy@qr@blobb}%
-\newpattern0001{\@tikz@fancy@qr@blobb}%
-\newpattern0100{\@tikz@fancy@qr@blobb}%
-\newpattern0010{\@tikz@fancy@qr@blobb}%
+\newpattern1000{\@fancy@qr@blobb}%
+\newpattern0001{\@fancy@qr@blobb}%
+\newpattern0100{\@fancy@qr@blobb}%
+\newpattern0010{\@fancy@qr@blobb}%
% corners
-\newpattern1100{\@tikz@fancy@qr@blobb}%
-\newpattern1010{\@tikz@fancy@qr@blobb}%
-\newpattern0101{\@tikz@fancy@qr@blobb}%
-\newpattern0011{\@tikz@fancy@qr@blobb}%
+\newpattern1100{\@fancy@qr@blobb}%
+\newpattern1010{\@fancy@qr@blobb}%
+\newpattern0101{\@fancy@qr@blobb}%
+\newpattern0011{\@fancy@qr@blobb}%
% straights | --
-\newpattern1001{\@tikz@fancy@qr@blobb}%
-\newpattern0110{\@tikz@fancy@qr@blobb}%
+\newpattern1001{\@fancy@qr@blobb}%
+\newpattern0110{\@fancy@qr@blobb}%
% enclosed
-\newpattern1111{\@tikz@fancy@qr@blobb}%
+\newpattern1111{\@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
+\newpattern0111{\@fancy@qr@blobb}%
+\newpattern1011{\@fancy@qr@blobb}%
+\newpattern1101{\@fancy@qr@blobb}%
+\newpattern1110{\@fancy@qr@blobb}% \ No newline at end of file