File:Knotwork-lowercase-k.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file (SVG file, nominally 506 × 750 pixels, file size: 20 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

[edit]
Description A semi-basic knotwork version of a lower-case letter "k"
Date
Source

Converted from the following self-authored PostScript code:

%!
135 350 translate .42 dup scale 90 rotate 45 setlinewidth
0 setgray/z{20000 sqrt}def/y{gsave 69 setlinewidth 1 setgray
stroke grestore stroke}def
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 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.875 mul 75 add -75 z 4 div sub lineto
z 3.875 mul 75 add 75 z 4 div add lineto
z 4 mul z 4 div 75 90 135 arc
z 2 mul z -4 div 75 315 225 arcn closepath y
z -3 mul z neg moveto
z -5 mul z 4 div 75 45 90 arc
z -4.875 mul 75 sub 75 z 4 div add lineto
z -4.875 mul 75 sub -75 z 4 div sub lineto
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 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 -200 -200 rlineto y
gsave 69 setlinewidth 1 setgray
z -.375 mul z .625 mul moveto -47 -47 rlineto stroke
-17 17 moveto 34 -34 rlineto stroke
z -1.625 mul z -.625 mul moveto 47 47 rlineto stroke
-17 z sub 17 moveto 34 -34 rlineto stroke
-17 z add 17 moveto 34 -34 rlineto stroke
-17 z 2 mul sub 17 moveto 34 -34 rlineto stroke
-17 z -3 mul sub 17 moveto 34 -34 rlineto stroke
-17 z 3 mul sub 17 moveto 34 -34 rlineto stroke
-17 z 4 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 160 110 arcn 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 3.39 mul z .39 mul moveto
z 4 mul z 4 div 75 135 125 arcn 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 grestore
0 z 4 div 75 90 135 arc -48 -48 rlineto stroke
-18 18 moveto 36 -36 rlineto stroke
z -2 mul z -4 div 75 270 315 arc 48 48 rlineto stroke
-18 z sub 18 moveto 36 -36 rlineto stroke
-18 z add 18 moveto 36 -36 rlineto stroke
-18 z 2 mul sub 18 moveto 36 -36 rlineto stroke
-18 z -3 mul sub 18 moveto 36 -36 rlineto stroke
-18 z 3 mul sub 18 moveto 36 -36 rlineto stroke
-18 z 4 mul sub 18 moveto 36 -36 rlineto stroke
0 z -4 div 75 270 315 arc 48 48 rlineto stroke
z -4 mul 0 z 4 div 75 add 170 100 arcn 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
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
-18 z -2 mul sub 18 moveto 36 -36 rlineto stroke
z 2 mul z 4 div 75 90 135 arc -48 -48 rlineto stroke
gsave
z -1.4 mul 1.274 sub z -3 mul 1.776 add translate -45 rotate
/w{1250 sqrt}def
z -2 mul w neg 75 90 45 arcn 
100 -100 rlineto stroke
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 270 arc
z 3.255 mul 0 w 1.12133 mul -90 90 arc
-34 0 rlineto y
z -2 mul w 75 180 315 arc 
z neg w neg 75 135 45 arcn
0 w 75 225 315 arc
z w neg 75 135 45 arcn
z 2 mul w 75 225 315 arc
z 3 mul w neg 75 135 90 arcn y
gsave 69 setlinewidth 1 setgray
17 z -.5 mul add 17 moveto -34 -34 rlineto stroke
17 z 1.5 mul add 17 moveto -34 -34 rlineto stroke grestore
z -1 mul z -.5 mul moveto 94 94 rlineto
24 z 1.5 mul add 24 moveto -48 -48 rlineto stroke grestore
z -4.23 mul 1.051 sub z -4.4 mul 0.234 sub translate
-135 rotate
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 270 arc 
z 1.255 mul 0 w 1.12133 mul -90 90 arc -34 0 rlineto y
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 90 arcn y
gsave 69 setlinewidth 1 setgray
17 z -.5 mul add 17 moveto -34 -34 rlineto stroke grestore
24 z -.5 mul add 24 moveto -48 -48 rlineto stroke showpage
%EOF
Author AnonMoos
Permission
(Reusing this file)
Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.
Other versions

File history

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

Date/TimeThumbnailDimensionsUserComment
current22:33, 20 April 2022Thumbnail for version as of 22:33, 20 April 2022506 × 750 (20 KB)AnonMoos (talk | contribs){{Information |Description=A semi-basic knotwork version of a lower-case letter "k" |Source=Converted from the following self-authored PostScript code: <pre>%! 135 350 translate .42 dup scale 90 rotate 45 setlinewidth 0 setgray/z{20000 sqrt}def/y{gsave 69 setlinewidth 1 setgray stroke grestore stroke}def 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 270 arc z -4 mul z -4 div 75 270 315 arc z -2 mul z 4 div 75 135 45 arcn 0...

Metadata