52 lines
1.3 KiB
Plaintext
52 lines
1.3 KiB
Plaintext
input fks
|
|
verbatimtex
|
|
%&latex
|
|
\documentclass[9pt]{extarticle}
|
|
\usepackage[utf8]{inputenc}
|
|
\usepackage{fkssugar}
|
|
\begin{document}
|
|
etex
|
|
|
|
prologues:=3;
|
|
u:=1cm;
|
|
|
|
beginfig(1);
|
|
u:=.3cm;
|
|
|
|
def spojka(expr A,B)=
|
|
alphamo := 30;
|
|
delkasipky := .07;
|
|
path delka;
|
|
delka := A--B;
|
|
sipka := sqrt((ypart(A-B)**2)+(xpart(A-B)**2))*delkasipky; %vzdalenost bodu A a B
|
|
draw delka;
|
|
draw A--A+sipka*dir (angle(A-B)+180-alphamo);
|
|
draw A--A+sipka*dir (angle(A-B)+180+alphamo);
|
|
draw B--B+sipka*dir (angle(B-A)+180-alphamo);
|
|
draw B--B+sipka*dir (angle(B-A)+180+alphamo);
|
|
enddef;
|
|
|
|
spojka((0,8u),(0,-8u));
|
|
|
|
fill (20u,8u)--(12u,4u)--(12u,-4u)--(20u,-8u)--cycle withcolor .95white;
|
|
fill (-10u,7u)--(-4u,4u)--(-4u,-4u)--(-10u,-7u)--cycle withcolor .95white;
|
|
|
|
draw (-2u,2u)--(-6u,2u)--(-6u,-2u)--(-2u,-2u)--cycle;
|
|
draw (-10u, 0)--(20u,0) withpen pencircle scaled .1bp;
|
|
|
|
carka:=.2u;
|
|
draw (-4u,carka)--(-4u,-carka);
|
|
draw (4u,carka)--(4u,-carka);
|
|
draw (-4u,0)--(0,4u)--(12u,4u)--(20u,8u);
|
|
draw (-6u,2u)--(0,-4u)--(12u,-4u)--(0u,2u)--(-2u,2u);
|
|
draw (12u,4u)--(12u,-4u)--(20u,-4u);
|
|
draw (12u,-4u)--(20u,-8u);
|
|
draw (0,4u)--(-10u,4u) dashed dashpattern (on .3u off .3u);
|
|
draw (0,2u)--(-4u,4u) dashed dashpattern (on .3u off .3u);
|
|
draw (-10u,7u)--(-4u,4u)--(-4u,-4u)--(-10u,-7u);
|
|
endfig;
|
|
verbatimtex
|
|
\end{document}
|
|
etex
|
|
|
|
end; |