summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/curves-astroid.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/drawing-with-metapost/src/curves-astroid.mp')
-rw-r--r--info/drawing-with-metapost/src/curves-astroid.mp21
1 files changed, 21 insertions, 0 deletions
diff --git a/info/drawing-with-metapost/src/curves-astroid.mp b/info/drawing-with-metapost/src/curves-astroid.mp
new file mode 100644
index 0000000000..b572205217
--- /dev/null
+++ b/info/drawing-with-metapost/src/curves-astroid.mp
@@ -0,0 +1,21 @@
+\documentclass{standalone}
+\usepackage{luamplib}
+\begin{document}
+\mplibtextextlabel{enable}
+\begin{mplibcode}
+beginfig(1);
+ path base; base = fullcircle scaled 300;
+ path astroid; astroid =
+ for t=0 step 1/16 until 8:
+ hide(pair a, b, p;
+ a = (xpart point t of base, 0);
+ b = (0, ypart point t of base);
+ draw a -- b withpen pencircle scaled 1/4 withcolor 3/4;
+ p = whatever[a, b]; p - point t of base = whatever * (a - b) rotated 90;
+ ) p --
+ endfor cycle;
+ draw astroid withcolor 2/3 red;
+endfig;
+\end{mplibcode}
+\end{document}
+