summaryrefslogtreecommitdiff
path: root/language/japanese/uptex-base/samples/area-uptex.mp
blob: 32244685a039b7303385c4f92be6b16b825839ac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
verbatimtex
%&uplatex-utf8
\documentclass{ujarticle}
\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;
% set3対応フォント+dviware なら「𠮷」もUTF-8で直接書ける。
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.