File:Simplest-linear-interlacing-knotwork.svg
Summary
Description |
Simplest linear interlacing patterns (knotwork), with 2 strands, 3 strands, and 4 strands. Note that the colorings in this image ignore the possibility that some of the strands might be connected together at the ends (or as part of a larger pattern). |
||
Date | |||
Source |
Own work |
||
Author | AnonMoos | ||
Permission (Reusing this file) |
|
||
Other versions |
![]() |
||
Source code | PostScript%!
% simplest linear knotwork interlacings: 2, 3, 4
gsave .4 dup scale 840 200 translate 45 setlinewidth
0 setgray/z{20000 sqrt}def/y{gsave 69 setlinewidth .75
setgray stroke grestore stroke}def
1 0 0 setrgbcolor
z 3.75 mul 75 add 75 z 4 div add moveto
z 4 mul z 4 div 75 90 135 arc
z 2 mul z -4 div 75 315 225 arcn
0 z 4 div 75 45 135 arc
z -2 mul z -4 div 75 315 225 arcn
z -4 mul z 4 div 75 45 90 arc
z -4 mul 0 z 4 div 75 add 90 135 arc -55 -55 rlineto y
0 .6 0 setrgbcolor
z -4 mul 24357 sqrt sub 0 moveto
z -4 mul 0 z 4 div 75 add 225 270 arc
z -4 mul z -4 div 75 270 315 arc
z -2 mul z 4 div 75 135 45 arcn
0 z -4 div 75 225 315 arc
z 2 mul z 4 div 75 135 45 arcn
z 4 mul z -4 div 75 225 270 arc
z 3.75 mul 75 add -75 z 4 div sub lineto y
0 0 .8 setrgbcolor
z -4.75 mul 75 sub -75 z 4 div sub moveto
z -5 mul z -4 div 75 270 315 arc
z -3 mul z 4 div 75 135 45 arcn
z neg z -4 div 75 225 315 arc
z z 4 div 75 135 45 arcn
z 3 mul z -4 div 75 225 270 arc
z 3 mul 0 z 4 div 75 add 270 315 arc 55 55 rlineto y
.9 .9 0 setrgbcolor
z 3 mul 24357 sqrt add 0 moveto
z 3 mul 0 z 4 div 75 add 45 90 arc
z 3 mul z 4 div 75 90 135 arc
z z -4 div 75 315 225 arcn
z neg z 4 div 75 45 135 arc
z -3 mul z -4 div 75 315 225 arcn
z -5 mul z 4 div 75 45 90 arc
z -4.75 mul 75 sub 75 z 4 div add lineto y
gsave 69 setlinewidth .75 setgray
z -.375 mul z .625 mul moveto -47 -47 rlineto stroke
z -1.625 mul z -.625 mul moveto 47 47 rlineto stroke
-17 z add 17 moveto 34 -34 rlineto stroke
-17 z 2 mul sub 17 moveto 34 -34 rlineto stroke
z .375 mul z -.625 mul moveto 47 47 rlineto stroke
z -4 mul 0 z 4 div 75 add 110 135 arc -50 -50 rlineto
stroke
z -3.625 mul z -.625 mul moveto 47 47 rlineto stroke
z -2.375 mul z .625 mul moveto -47 -47 rlineto stroke
z 2.375 mul z -.625 mul moveto 47 47 rlineto stroke
-17 z -2 mul sub 17 moveto 34 -34 rlineto stroke
z 1.625 mul z .625 mul moveto -47 -47 rlineto stroke
z 3.39 mul z .39 mul moveto
z 4 mul z 4 div 75 135 125 arcn stroke
-17 z 3 mul sub 17 moveto 34 -34 rlineto stroke
grestore
1 0 0 setrgbcolor
0 z 4 div 75 90 135 arc -48 -48 rlineto stroke
z -2 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
z -4 mul 0 z 4 div 75 add 110 135 arc -50 -50 rlineto
stroke
z 3.34 mul z .34 mul moveto
z 4 mul z 4 div 75 135 110 arcn stroke
z 2 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
-25 z 3 mul sub 25 moveto 50 -50 rlineto stroke
-25 z add 25 moveto 50 -50 rlineto stroke
0 .6 0 setrgbcolor
z -2 mul z 4 div 75 90 135 arc -48 -48 rlineto stroke
z -4 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
z 2 mul z 4 div 75 90 135 arc -48 -48 rlineto stroke
0 z -4 div 75 270 315 arc 48 48 rlineto stroke
0 0 .8 setrgbcolor
-25 z 2 mul sub 25 moveto 50 -50 rlineto stroke
-25 z -2 mul sub 25 moveto 50 -50 rlineto stroke
0 setgray 0 348 translate /x{45000 sqrt}def
gsave 0 .6 0 setrgbcolor
36 x 1.5 div add 0 translate
x -4 mul -0.0 75 225 315 arc
x -3 mul 0.0 75 135 45 arcn
x -2 mul -0.0 75 225 315 arc
x neg 0.0 75 135 45 arcn
0 0.0 75 225 315 arc
x 0.0 75 135 45 arcn
x 2 mul -0.0 75 225 270 arc y grestore
gsave 0 0 .8 setrgbcolor
36 x 1.5 div sub 0 translate
x -3 mul 0.0 75 90 45 arcn
x -2 mul -0.0 75 225 315 arc
x neg 0.0 75 135 45 arcn
0 0.0 75 225 315 arc
x 0.0 75 135 45 arcn
x 2 mul -0.0 75 225 315 arc
x 3 mul 0.0 75 135 45 arcn y grestore
gsave 1 0 0 setrgbcolor 36 0 translate
x -4 mul -0.0 75 270 315 arc
x -3 mul 0.0 75 135 45 arcn
x -2 mul -0.0 75 225 315 arc
x neg 0.0 75 135 45 arcn
0 0.0 75 225 315 arc
x 0.0 75 135 45 arcn
x 2 mul -0.0 75 225 315 arc
x 3 mul 0.0 75 135 90 arcn y grestore
gsave 36 x 1.5 div add 0 translate
gsave 69 setlinewidth .75 setgray
x -3 mul 0.0 75 120 135 arc -43 -43 rlineto stroke
x -2 mul -0.0 75 240 225 arcn -43 43 rlineto stroke
x neg 0.0 75 120 135 arc -43 -43 rlineto stroke
0 -0.0 75 240 225 arcn -43 43 rlineto stroke
x 0.0 75 120 135 arc -43 -43 rlineto stroke
x 2 mul -0.0 75 240 225 arcn -43 43 rlineto stroke
grestore 0 .6 0 setrgbcolor
x -3 mul 0.0 75 115 135 arc -47 -47 rlineto stroke
x -2 mul -0.0 75 245 225 arcn -47 47 rlineto stroke
x neg 0.0 75 115 135 arc -47 -47 rlineto stroke
0 -0.0 75 245 225 arcn -47 47 rlineto stroke
x 0.0 75 115 135 arc -47 -47 rlineto stroke
x 2 mul -0.0 75 245 225 arcn -47 47 rlineto stroke
grestore
0 setgray 0 282 translate 36 setlinewidth/y{gsave 60
setlinewidth .75 setgray stroke grestore stroke}def
/w{1250 sqrt}def 1 0 0 setrgbcolor
z -5 mul w 75 270 315 arc
z -4 mul w neg 75 135 45 arcn
z -3 mul w 75 225 315 arc
z -2 mul w neg 75 135 45 arcn
z neg w 75 225 315 arc
0 w neg 75 135 45 arcn
z w 75 225 315 arc
z 2 mul w neg 75 135 45 arcn
z 3 mul w 75 225 315 arc
z 4 mul w neg 75 135 90 arcn y
0 0 .8 setrgbcolor
z -5 mul w neg 75 90 45 arcn
z -4 mul w 75 225 315 arc
z -3 mul w neg 75 135 45 arcn
z -2 mul w 75 225 315 arc
z neg w neg 75 135 45 arcn
0 w 75 225 315 arc
z w neg 75 135 40 arcn
z 2 mul w 75 225 315 arc
z 3 mul w neg 75 135 40 arcn
z 4 mul w 75 225 270 arc y
gsave 60 setlinewidth .75 setgray
17 z -4.5 mul add 17 moveto -34 -34 rlineto stroke
17 z -2.5 mul add 17 moveto -34 -34 rlineto stroke
17 z -.5 mul add 17 moveto -34 -34 rlineto stroke
17 z 1.5 mul add 17 moveto -34 -34 rlineto stroke
17 z 3.5 mul add 17 moveto -34 -34 rlineto stroke
grestore 1 0 0 setrgbcolor
22 z -4.5 mul add 22 moveto -44 -44 rlineto stroke
22 z -2.5 mul add 22 moveto -44 -44 rlineto stroke
22 z -.5 mul add 22 moveto -44 -44 rlineto stroke
22 z 1.5 mul add 22 moveto -44 -44 rlineto stroke
22 z 3.5 mul add 22 moveto -44 -44 rlineto stroke
grestore 64.5 10 moveto 64.5 373 lineto
551.2 373 lineto 551.2 10 lineto closepath stroke
showpage
%EOF
|