summaryrefslogtreecommitdiff
path: root/macros/jptex/generic/uptex-base/samples/area-euc.mp
diff options
context:
space:
mode:
Diffstat (limited to 'macros/jptex/generic/uptex-base/samples/area-euc.mp')
-rw-r--r--macros/jptex/generic/uptex-base/samples/area-euc.mp20
1 files changed, 20 insertions, 0 deletions
diff --git a/macros/jptex/generic/uptex-base/samples/area-euc.mp b/macros/jptex/generic/uptex-base/samples/area-euc.mp
new file mode 100644
index 0000000000..4410e27369
--- /dev/null
+++ b/macros/jptex/generic/uptex-base/samples/area-euc.mp
@@ -0,0 +1,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.