1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
\documentclass{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
input eggs-common
beginfig(1);
path egg;
%egg = for t=90,105,120,135,150,165,-180,-165,-150,-135,-120,-105,-90,-75,-60,-45,-30,-15,0,15,30,45,60,75:
%egg = for t=90, 135, 180, -135, -90, -45, 0, 45:
egg = for t=-180 step 15 until 180 - eps:
(0.78 cosd(1/4 t) * sind(t), -cosd(t)) ..
endfor cycle;
egg := egg scaled 128;
fill egg withpen pencircle scaled 2 withcolor eggshell;
picture P; P = currentpicture;
drawoptions(withpen pencircle scaled 1/4 withcolor 1/2);
draw egg;
drawoptions(withpen pencircle scaled 2 withcolor 7/16);
draw origin;
for i=1 upto length egg: draw point i of egg; endfor
drawoptions();
draw P shifted 240 right;
endfig;
\end{mplibcode}
\end{document}
|