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