summaryrefslogtreecommitdiff
path: root/language/japanese/uptex-base/samples/area-euc.mp
blob: 4410e27369aa6bdecd2f68339088cf7cb7d785a1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
verbatimtex
%&platex-euc
\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 ¡ý£±¦Á¹âµÈ¡£ 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 ¡ý£±¦Á¹âµÈ¡£ 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 ÌÌÀÑ¤Ï $\pi r^2$ etex, (u,v));
endfig;
end.