summaryrefslogtreecommitdiff
path: root/language/japanese/uptex-base/samples/area-uptex.mp
diff options
context:
space:
mode:
Diffstat (limited to 'language/japanese/uptex-base/samples/area-uptex.mp')
-rw-r--r--language/japanese/uptex-base/samples/area-uptex.mp21
1 files changed, 21 insertions, 0 deletions
diff --git a/language/japanese/uptex-base/samples/area-uptex.mp b/language/japanese/uptex-base/samples/area-uptex.mp
new file mode 100644
index 0000000000..32244685a0
--- /dev/null
+++ b/language/japanese/uptex-base/samples/area-uptex.mp
@@ -0,0 +1,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.