santhoshtr

                    
beginfig(0);
z0 = origin;
z1 = right rotated 50 scaled 6cm;
path p[];
p1 = fullcircle scaled 10cm shifted z1;
p2 = z0--z1;
xpart z3 = xpart z1;
ypart z3 = ypart z0;
p3 = z0--z3;

santhoshtr

beginfig(0);
width:=40;
rotation:=40;

color glyphcolor; glyphcolor := (1, 1,1);

pen calligraphicpen ;
calligraphicpen := makepen ((0, 0)--(width,0 ) rotated rotation) ;

z0 = (-50, 0);

santhoshtr

                    
beginfig(0);
path p;
pair A,B,C; 
transform T;

u:=10cm;

A=u*dir(-30); 
B=u*dir(90); 

santhoshtr

beginfig(0)
for i=0 upto 100:
	fill unitsquare 
    scaled ((100-i)*0.1mm) 
    rotated 31i 
    withcolor (0.01i)[green,blue];
endfor;
endfig;

santhoshtr

                    input plain_ex;
input mpcolornames;

beginfig(0);

path paths[], strokes[];

thick:= 50;
thin:= 0.75;
vardef pennib = fix_nib(thick, thick*thin, 0) enddef;

santhoshtr

                                        input plain_ex;
input mpcolornames;

beginfig(0);

path paths[], strokes[];

thick:= 60;
thin:= 0.75;
xthick:=1.5;

santhoshtr

                    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;

santhoshtr

input plain_ex;
input mpcolornames;

beginfig(0);
p:=0;
thick:= 20;
thin:= thick*0.5;
vardef thick_nib = fix_nib(thick, thin, 0) enddef;

path paths[], strokes[];

santhoshtr

input plain_ex;
input mpcolornames;

beginfig(0);
p:=0;
thick:= 20;
thin:= thick*0.5;
vardef thick_nib = fix_nib(thick, 0, 0) enddef;
vardef thin_nib = fix_nib(0, thin, 0) enddef;
path paths[], strokes[];

santhoshtr

                    input plain_ex;
input mpcolornames;

beginfig(0);
p:=0;
thick:= 20;
thin:= thick*0.5;
vardef thick_nib = fix_nib(thick, 0, 0) enddef;
vardef thin_nib = fix_nib(0, thin, 0) enddef;
path paths[], strokes[];