File:12crossing-link-inrectangle.png: Difference between revisions

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

%!
306 396 translate/x 31250 sqrt def
/A{x 100 add -150 moveto x 100 add 150 lineto
x 0 150 90 135 arc x neg 0 100 315 270 arcn
x neg 50 sub -100 lineto x neg 50 sub 100 lineto x
100 sub 50 50 90 0 arcn x 50 sub 0 lineto
1250 sqrt 10.355339 add 25 25 270 225 arcn
1250 sqrt neg 10.355339 add 25 25 45 90 arc
x neg 50 lineto x neg -50 lineto
x 100 sub neg -50 100 180 270 arc closepath
gsave 0 setgray 100 3 div setlinewidth stroke
grestore 100 6 div setlinewidth stroke}def gsave .16
.82 .16 setrgbcolor A 180 rotate 0 .5 1 setrgbcolor
A grestore 0 setgray 100 3 div setlinewidth
x 0 150 100 124.7 arc stroke
x neg 0 100 297 315 arc 6 6 rlineto stroke
73 0 moveto 1250 sqrt 10.355339 add 25 25 270 225
arcn -5 5 rlineto stroke
/B{x 100 sub 50 50 72 90 arc -45 0 rlineto stroke
212.132 3 div 318.198 3 div moveto
-60 -60 rmoveto -22 -22 rlineto stroke
x 100 sub neg -50 100 198 222 arc stroke}def
gsave B 180 rotate B grestore
.16 .82 .16 setrgbcolor 100 6 div setlinewidth
x 0 150 98.5 125.8 arc stroke
x neg 0 100 295 317 arc 6 6 rlineto stroke
76 0 moveto 1250 sqrt 10.355339 add 25 25 270 225
arcn -7 7 rlineto stroke
/C{x 100 sub 50 50 69 90 arc -48 0 rlineto stroke
212.132 3 div 318.198 3 div moveto
-58 -58 rmoveto -26 -26 rlineto stroke
x 100 sub neg -50 100 195 225 arc stroke}def
gsave .16 .82 .16 setrgbcolor C 180 rotate 0 .5 1
setrgbcolor C grestore showpage
%EOF