Nupuram style ത but reverse contrast #metapost-sandbox

main.mp

                    input plain_ex;
input mpcolornames;

beginfig(0);

path paths[], strokes[];

thick:= 50;
thin:= 0.75;
vardef pennib = fix_nib(thick, thick*thin, 0) enddef;
vardef terminalnib= fix_nib(thick*xthick, 0, 0) enddef;
vardef thinterminalnib=  fix_nib(thick*thin, 0, 0) enddef;
 
w:=1;
m:=500;
mw:=m*w;
z0= (x1 + mw/3, 0);
z1= (0, y0 + mw/2);
z2 = (x1 + mw/2, y1 + m/2); % top 
z3 = (x2 + mw/2, y1);
z4 = (x3 - mw/3, 0.1m); % bottom middle
z5 = (x4 - mw/3, y3);
z6 = (x5 + mw/2, y2); % second top
z7 = (x6 + mw/2, y1);
z8 = (x7 - mw/3, y0); %
paths[0] = (z0  ..z1 ..z2{right}.. z3..{left}z4) slanted tand(-8);
paths[0] := paths[0] && (z4{left}.. z5 ..z6{right}..z7..z8) slanted tand(8);
 
pen_stroke(
	cut(pennib, rel 90)(0, infinity)
    nib(pennib)(1, 2, 3,4,5,6,7)
)(paths[0])(strokes[0]);


  
for i=0 upto 10:
	if known strokes[i]:
      fill strokes[i] withcolor Teal;
     
       
    fi;
    if known paths[i]:
      draw paths[i] withcolor Gold;
     
    fi;
endfor;
 
endfig;
end