summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/uptex/base/samples/area-jis.mp
blob: b058f02ffa75e7a73a3be2e9452eba6198102f86 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
verbatimtex
%&platex-jis
\documentclass{jarticle}
\begin{document}
etex;
beginfig(1);
u=40;
v=40;
r=30;
draw (u+r,v)..(u,v+r)..(u-r,v)..(u,v-r)..cycle withcolor red;
label(btex $B!}#1&A9b5H!#(B etex, (u,v));
u:=u+46;
draw (u+r,v)..(u,v+r)..(u-r,v)..(u,v-r)..cycle withcolor blue;
label(btex \tate $B!}#1&A9b5H!#(B etex, (u,v));
u:=u-23;
v:=v+40;
draw (u+r,v)..(u,v+r)..(u-r,v)..(u,v-r)..cycle withcolor green;
label(btex $BLL@Q$O(B $\pi r^2$ etex, (u,v));
endfig;
end.