summaryrefslogtreecommitdiff
path: root/language/japanese/uptex-base/samples/area-sjis.mp
blob: 9bdf9bdc810bfcbda3558427fcdc19e99c009e99 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
verbatimtex
%&platex-sjis
\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 PgB 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 PgB 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.