അപാരത - IV Sasi #metapost-sandbox

main.mp

                                        input plain_ex;
input mpcolornames;

beginfig(0);
p:=0;
thick:= 100;
thin:= thick*0.5;
rotation:=-30;
vardef elliptical_nib = fix_nib(thick, thin, rotation) enddef;

path paths[], strokes[];

m:=500;
 
z0 = (0 + 100, m/2);
z1 = (x0, (y0+y2)/2);
z2 = ((x1+x3)/2.15, m);
z3 = (x1+0.7m, (y2+y4)/3);
z4 = (x0, m/6);

paths[p] = z0{dir 90}..z1..{dir 0}z2{dir 0} ..z3..z4;
pen_stroke(
    nib(elliptical_nib)(0)
    nib(elliptical_nib)(1)
    nib(elliptical_nib)(2)
    nib(elliptical_nib)(3)
    nib(elliptical_nib rotated -20)(4)
)(paths[p])(strokes[p]);

fill strokes[p] withcolor Teal;
draw paths[p] withcolor Gold;

 
endfig;
end