Prapodivny vysledek METAPOSTu
Matej Cepl
ceplma00 at yahoo.com
Sat Jan 5 05:04:57 CET 2002
Dobrý den,
snažím se vytvořit svůj první obrázek v METAPOSTu a nějak jsem se
do toho zamotal. Vytvořil jsem si hezky polovinu kříže, který má
být ve štítě, a pak jsem chtěl vytvořit jeho zrcadlovou podobu
pomocí reflectedabout (z14,z15), ale nějak se mi nepovedlo ty
body najít. Tak jsem zkusil rotated a shifted, ale tam jsem došel
k velice prapodivné konstantě 19.17, kterou jsem si našel metodou
zkoušky a omylu, aby poloviny spolu alespoň přibližně pasovaly.
Nenapadá Vás někoho, kde se tahle podivnost objevila (myslel jsem
si, že texmf používají jenom celočíselnou aritmetiku, takže by
neměly snad zaokrouhlovat, ne)? Případně jste někdo schopen mi
říci, jaké jsou souřadnice bodů z14 a z15?
Mimochodem, trochu se motám v orientaci a znaménkách. Bylo by
daleko pohodlnější, kdybych šoupnul bod [0,0] někam do rohu
obrázku, ale nevím jak na to. Poradíte mi někdo?
Děkuji mockrát
Matěj
--
Matej Cepl, ceplma00 at yahoo.com
138 Highland Ave. #10, Somerville, Ma 02143, (617) 623-1488
We are told that [St. Anthony] once fell into dejection, finding
uninterrupted contemplation above his strength; but was taught to
apply himself at intervals to manual labour by a vision of an
angel who appeared platting mats of palm-tree leaves, then rising
to pray, and after some time sitting down again to work; and who
at length said to him, "Do thus, and thou shalt be saved."
-- Life of St. Anthony
-------------- next part --------------
prologues := 1;
sirka_erbu := 5 cm;
oblouk := sirka_erbu / 5;
sirka_krize := 0.75sirka_erbu;
posun_krize := oblouk / 2;
r_obloucku := sirka_krize / 18;
beginfig(1);
path p[]; picture obrazek[];
pickup pensquare scaled 0.25pt;
x1 = y1 = y2 = x4 = 0;
x2 = x3 = -y3 = -y4 = sirka_erbu;
x5 = ((x2-x1) / 2);
y5 = y4 - oblouk;
p1 := z1--z2--z3..z5..z4--cycle;
x6 = x7 = (x2-x1) / 2; % stred krize
y6 = y1+((y4-y1) / 2) - posun_krize ; % kriz je o neco pod stredem ctverce
y7 = y8 = y9 = y6 + sirka_krize / 2;
x8 = x10 = x11 = x6 + sirka_krize / 6;
y10 = y8 - r_obloucku;
x9 = x8 + r_obloucku;
y11 = y6 + sirka_krize / 6;
p2 := z6--z7--z9..z10--z11--cycle; % nahore vpravo
p3 := p2 reflectedabout (z6,z7); % nahore vlevo
x12 = x6 + (x11-x6);
p4 = p2 reflectedabout ((x12,y11),z6);
x13 = x6 - (sirka_krize / 2);
p5 = p4 reflectedabout (z6,(x13,y6));
% great transformation of half of the cross
x14 = x6 + (sirka_krize / 6); y14 = y11 ; % levy horni transformacni bod
x15 = x11; y15 = y6 + (sirka_krize / 6) ; % pravy dolni transformacni bod
obrazek1 = image(
fill p2 withcolor red; draw p2;
fill p3 withcolor blue; draw p3;
fill p4 withcolor red; draw p4;
fill p5 withcolor blue; draw p5;
);
%obrazek2 = obrazek1 reflectedabout (z14,z15);
obrazek2=obrazek1 rotated 180 shifted (4(sirka_krize/3),-19.17(sirka_krize/12));
fill p1 withcolor (255,215,0); % to ma byt zlata
draw p1 ;
draw obrazek1;
draw obrazek2;
endfig;
end
-------------- next part --------------
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: -1 -171 142 1
%%Creator: MetaPost
%%CreationDate: 2000.12.03:0450
%%Pages: 1
%%EndProlog
%%Page: 1 1
1 1 0 setrgbcolor
newpath 0 0 moveto
141.73225 0 lineto
141.73225 -141.73225 lineto
122.62566 -159.92902 97.25143 -170.0787 70.86613 -170.0787 curveto
44.48083 -170.0787 19.1066 -159.92902 0 -141.73225 curveto
closepath fill
0 setgray
newpath -0.12454 0.12454 moveto
-0.12454 -0.12454 lineto
0.12454 -0.12454 lineto
141.8568 -0.12454 lineto
141.60771 -0.12454 lineto
141.60771 -141.8568 lineto
141.60771 -141.60771 lineto
122.50111 -159.80447 97.12689 -169.95416 70.7416 -169.95416 curveto
70.99068 -169.95416 lineto
44.60538 -169.95416 19.23114 -159.80447 0.12454 -141.60771 curveto
0.12454 0.12454 lineto
-0.12454 0.12454 lineto
-0.12454 -0.12454 lineto
-0.12454 -141.8568 lineto
18.98206 -160.05356 44.3563 -170.20325 70.7416 -170.20325 curveto
70.99068 -170.20325 lineto
97.37598 -170.20325 122.7502 -160.05356 141.8568 -141.8568 curveto
141.8568 -141.60771 lineto
141.8568 0.12454 lineto
141.60771 0.12454 lineto
closepath fill
1 0 0 setrgbcolor
newpath 70.86613 -85.03937 moveto
70.86613 -31.88977 lineto
94.48819 -31.88977 lineto
88.58267 -37.79529 lineto
88.58267 -67.32283 lineto
closepath fill
0 setgray
newpath 70.7416 -85.16391 moveto
70.99068 -85.16391 lineto
70.99068 -84.91483 lineto
70.99068 -31.76523 lineto
70.99068 -32.01431 lineto
94.61273 -32.01431 lineto
94.36365 -31.76523 lineto
88.45813 -37.67075 lineto
88.45813 -37.91983 lineto
88.45813 -67.44737 lineto
88.45813 -67.19829 lineto
70.7416 -84.91483 lineto
70.7416 -85.16391 lineto
70.99068 -85.16391 lineto
88.70721 -67.44737 lineto
88.70721 -67.19829 lineto
88.70721 -37.67075 lineto
88.70721 -37.91983 lineto
94.61273 -32.01431 lineto
94.61273 -31.76523 lineto
94.36365 -31.76523 lineto
70.7416 -31.76523 lineto
70.7416 -32.01431 lineto
closepath fill
0 0 1 setrgbcolor
newpath 70.86609 -85.03937 moveto
70.86609 -31.88977 lineto
47.24403 -31.88977 lineto
53.14955 -37.79529 lineto
53.14955 -67.32283 lineto
closepath fill
0 setgray
newpath 70.74155 -85.16391 moveto
70.99063 -85.16391 lineto
70.99063 -84.91483 lineto
70.99063 -31.76523 lineto
70.74155 -31.76523 lineto
47.11949 -31.76523 lineto
47.11949 -32.01431 lineto
53.02501 -37.91983 lineto
53.02501 -67.44737 lineto
70.74155 -85.16391 lineto
70.99063 -85.16391 lineto
70.99063 -84.91483 lineto
53.2741 -67.19829 lineto
53.2741 -37.67075 lineto
47.36858 -31.76523 lineto
47.36858 -32.01431 lineto
70.99063 -32.01431 lineto
70.74155 -32.01431 lineto
closepath fill
1 0 0 setrgbcolor
newpath 70.86691 -85.03987 moveto
124.01732 -85.03745 lineto
124.01625 -61.41504 lineto
118.1109 -67.32089 lineto
88.58292 -67.32225 lineto
closepath fill
0 setgray
newpath 70.74237 -84.91533 moveto
70.74237 -85.16441 lineto
70.99146 -85.16441 lineto
124.14186 -85.16199 lineto
124.14186 -84.9129 lineto
124.1408 -61.2905 lineto
123.89171 -61.2905 lineto
117.98636 -67.19635 lineto
88.45837 -67.19771 lineto
70.74237 -84.91533 lineto
70.74237 -85.16441 lineto
70.99146 -85.16441 lineto
88.70746 -67.4468 lineto
118.23544 -67.44543 lineto
124.1408 -61.53958 lineto
123.89171 -61.53958 lineto
123.89278 -85.16199 lineto
123.89278 -84.9129 lineto
closepath fill
0 0 1 setrgbcolor
newpath 70.86713 -85.03888 moveto
124.01672 -85.0413 lineto
124.01566 -108.66335 lineto
118.1104 -102.75758 lineto
88.58286 -102.75623 lineto
closepath fill
0 setgray
newpath 70.99167 -84.91434 moveto
70.74258 -84.91434 lineto
70.74258 -85.16342 lineto
123.89218 -85.16585 lineto
123.89218 -84.91676 lineto
123.89111 -108.5388 lineto
124.1402 -108.5388 lineto
118.23494 -102.63304 lineto
88.7074 -102.63168 lineto
70.99167 -84.91434 lineto
70.74258 -84.91434 lineto
70.74258 -85.16342 lineto
88.45831 -102.88077 lineto
117.98586 -102.88213 lineto
123.89111 -108.78789 lineto
124.1402 -108.78789 lineto
124.14127 -85.16585 lineto
124.14127 -84.91676 lineto
closepath fill
1 0 0 setrgbcolor
newpath 70.8661 -84.77348 moveto
70.8661 -137.92308 lineto
47.24405 -137.92308 lineto
53.14957 -132.01756 lineto
53.14957 -102.49002 lineto
closepath fill
0 setgray
newpath 70.99065 -84.64894 moveto
70.74156 -84.64894 lineto
70.74156 -84.89803 lineto
70.74156 -138.04762 lineto
70.74156 -137.79854 lineto
47.1195 -137.79854 lineto
47.36859 -138.04762 lineto
53.27411 -132.1421 lineto
53.27411 -131.89302 lineto
53.27411 -102.36548 lineto
53.27411 -102.61456 lineto
70.99065 -84.89803 lineto
70.99065 -84.64894 lineto
70.74156 -84.64894 lineto
53.02502 -102.36548 lineto
53.02502 -102.61456 lineto
53.02502 -132.1421 lineto
53.02502 -131.89302 lineto
47.1195 -137.79854 lineto
47.1195 -138.04762 lineto
47.36859 -138.04762 lineto
70.99065 -138.04762 lineto
70.99065 -137.79854 lineto
closepath fill
0 0 1 setrgbcolor
newpath 70.86615 -84.77348 moveto
70.86615 -137.92308 lineto
94.4882 -137.92308 lineto
88.58269 -132.01756 lineto
88.58269 -102.49002 lineto
closepath fill
0 setgray
newpath 70.99069 -84.64894 moveto
70.74161 -84.64894 lineto
70.74161 -84.89803 lineto
70.74161 -138.04762 lineto
70.99069 -138.04762 lineto
94.61275 -138.04762 lineto
94.61275 -137.79854 lineto
88.70723 -131.89302 lineto
88.70723 -102.36548 lineto
70.99069 -84.64894 lineto
70.74161 -84.64894 lineto
70.74161 -84.89803 lineto
88.45815 -102.61456 lineto
88.45815 -132.1421 lineto
94.36366 -138.04762 lineto
94.36366 -137.79854 lineto
70.74161 -137.79854 lineto
70.99069 -137.79854 lineto
closepath fill
1 0 0 setrgbcolor
newpath 70.86533 -84.77298 moveto
17.71492 -84.7754 lineto
17.71599 -108.39781 lineto
23.62134 -102.49196 lineto
53.14932 -102.4906 lineto
closepath fill
0 setgray
newpath 70.98987 -84.89752 moveto
70.98987 -84.64844 lineto
70.74078 -84.64844 lineto
17.59038 -84.65086 lineto
17.59038 -84.89995 lineto
17.59145 -108.52235 lineto
17.84053 -108.52235 lineto
23.74588 -102.6165 lineto
53.27386 -102.61514 lineto
70.98987 -84.89752 lineto
70.98987 -84.64844 lineto
70.74078 -84.64844 lineto
53.02478 -102.36606 lineto
23.4968 -102.36742 lineto
17.59145 -108.27327 lineto
17.84053 -108.27327 lineto
17.83946 -84.65086 lineto
17.83946 -84.89995 lineto
closepath fill
0 0 1 setrgbcolor
newpath 70.86511 -84.77397 moveto
17.71552 -84.77155 lineto
17.71658 -61.1495 lineto
23.62184 -67.05527 lineto
53.14938 -67.05663 lineto
closepath fill
0 setgray
newpath 70.74057 -84.89851 moveto
70.98965 -84.89851 lineto
70.98965 -84.64943 lineto
17.84006 -84.647 lineto
17.84006 -84.89609 lineto
17.84113 -61.27405 lineto
17.59204 -61.27405 lineto
23.4973 -67.17981 lineto
53.02484 -67.18117 lineto
70.74057 -84.89851 lineto
70.98965 -84.89851 lineto
70.98965 -84.64943 lineto
53.27393 -66.93208 lineto
23.74638 -66.93073 lineto
17.84113 -61.02496 lineto
17.59204 -61.02496 lineto
17.59097 -84.647 lineto
17.59097 -84.89609 lineto
closepath fill
showpage
%%EOF
More information about the csTeX
mailing list