File:8-16 knot theory square.png

Self-made graphic, declared to be in public domain, generated from the following PostScript source code:

%!
1 setgray 18 setlinewidth/X{.5 add 72 mul exch .5 add 72 mul
exch}def/l{X lineto}def 0 2 X moveto 5 2 l 5 3 l 2 3 l 2 0 l
4 0 l 4 4 l 1 4 l 1 1 l 3 1 l 3 5 l 0 5 l closepath gsave
0 setgray 36 setlinewidth stroke grestore stroke/r{72 mul exch
72 mul exch rlineto}def 36 setlinewidth 0 setgray
1.5 1 X moveto 1 0 r stroke 3.5 3 X moveto 1 0 r stroke
2 2 4{/z exch def 0.5 2 2.5{dup 0.5 eq z 4 eq and{}{z X moveto
1 0 r stroke}ifelse}for}for
2 1.5 X moveto 0 1 r stroke 3 2.5 X moveto 0 1 r stroke
4 1.5 X moveto 0 1 r stroke 1 setgray 18 setlinewidth
1.48 1 X moveto 1.04 0 r stroke 3.48 3 X moveto 1.04 0 r stroke
2 2 4{/z exch def 0.48 2 2.48{dup 0.48 eq z 4 eq
and{}{z X moveto 1.04 0 r stroke}ifelse}for}for
2 1.48 X moveto 0 1.04 r stroke 3 2.48 X moveto 0 1.04 r stroke
4 1.48 X moveto 0 1.04 r stroke showpage
%EOF