summaryrefslogtreecommitdiff
path: root/graphics/pgf/contrib/fancyqr/fancyqr-style-glitch.code
blob: 937b694044f910bdde5fefde4137c3d2fe731c06 (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
\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{\@fancy@qr@blobb}%
% | | - -
\newpattern1000{\@fancy@qr@blobb}%
\newpattern0001{\@fancy@qr@blobb}%
\newpattern0100{\@fancy@qr@blobb}%
\newpattern0010{\@fancy@qr@blobb}%
% corners
\newpattern1100{\@fancy@qr@blobb}%
\newpattern1010{\@fancy@qr@blobb}%
\newpattern0101{\@fancy@qr@blobb}%
\newpattern0011{\@fancy@qr@blobb}%
% straights | --
\newpattern1001{\@fancy@qr@blobb}%
\newpattern0110{\@fancy@qr@blobb}%
% enclosed
\newpattern1111{\@fancy@qr@blobb}%
% t's
\newpattern0111{\@fancy@qr@blobb}%
\newpattern1011{\@fancy@qr@blobb}%
\newpattern1101{\@fancy@qr@blobb}%
\newpattern1110{\@fancy@qr@blobb}%