File:Celtic-knot-square-3loops.png

From Knot Atlas
Jump to navigationJump to search

Celtic-knot-square-3loops.png(600 × 600 pixels, file size: 15 KB, MIME type: image/png)

Square quasi-Celtic link of three loops and 12 crossings. For another decorative elaboration, see Image:12-crossings-squares-16.png .

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

%!
306 396 translate /z{20000 sqrt}def 24 setlinewidth 1 setgray
/y{gsave 40 setlinewidth 0 setgray}def 1 setlinejoin
z -.5 mul z .5 mul neg 100 225 135 arcn 0 0 100 135 45 arcn
z .5 mul z .5 mul neg 100 45 -45 arcn 
0 z neg 100 315 225 arcn closepath y stroke grestore stroke y
/A{z neg 0 100 45 105 arc z -.5 mul z .5 mul 100 165 225 arc
z z neg 100 225 285 arc
z .5 mul z -1.5 mul 100 -15 45 arc closepath y stroke grestore
stroke y}def 24 setlinewidth 1 setgray A
gsave -1 1 scale 24 setlinewidth 1 setgray A grestore y
15 .5 z mul sub 15 z 2 div sub moveto -30 -30 rlineto stroke
15 .5 z mul add 15 z 2 div sub moveto -30 -30 rlineto stroke
0 z neg 100 271 315 arc 30 30 rlineto stroke
0 0 100 91 135 arc -30 -30 rlineto stroke
z .5 mul z -.5 mul 100 1 45 arc -30 30 rlineto stroke
z .5 mul neg z .5 mul neg 100 181 225 arc 30 -30 rlineto stroke
24 setlinewidth 1 setgray
16 .5 z mul sub 16 z 2 div sub moveto -32 -32 rlineto stroke
16 .5 z mul add 16 z 2 div sub moveto -32 -32 rlineto stroke
0 0 100 90 135 arc -31 -31 rlineto stroke
0 z neg 100 270 315 arc 31 31 rlineto stroke
z .5 mul z -.5 mul 100 0 45 arc -31 31 rlineto stroke
z .5 mul neg z .5 mul neg 100 180 225 arc 31 -31 rlineto stroke
%EOF

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current07:40, 16 January 2010Thumbnail for version as of 07:40, 16 January 2010600 × 600 (15 KB)AnonMoos (talk | contribs)Square quasi-Celtic link of three loops and 12 crossings. Self-made, declared to be public domain, generated from the following PostScript source: <pre>%! 306 396 translate /z{20000 sqrt}def 24 setlinewidth 1 setgray /y{gsave 40 setlinewidth 0 setgray}d