cmchar "crossed lambda";
beginchar(78,10.5u#,asc_height#,0);
adjust_fit(0,0); pickup fine.nib;
pos1(vair,90); lft x1=hround .1u; top y1r=h;
x2=x1+2u; y2=.7[x_height,h]; x3=w-2u; bot y4=-oo; y3=max(.07h,y4+eps);
z4-(.25u,0)=whatever[z2,z3]; numeric theta; theta=angle(z2-z3)-90;
pos2(stem,theta); pos3(stem,theta); pos4(stem,0);
filldraw circ_stroke z1e{right}...z2e---z3e
 ...{2(x4e-x3e),y4e-y3e}z4e;  % long diagonal
y5=.5[bar_height,x_height]; z5=whatever[z2,z3];
x6=1.5u; y6-.5stem=-oo; pos5(hair,theta-90); pos6(stem,angle(z5-z6)-90);
filldraw circ_stroke z6e--z5e; % short diagonal
z55=whatever[z2,z5]; y55=x_height;
halfbw=min(3u,3stem); y95=y96=y5; x5=x95+halfbw=x96-halfbw;
pos95(slab,90); pos96(slab,90); filldraw stroke z95e--z96e;
penlabels(1,2,3,4,5,6); endchar;

cmchar "crossed lambda";
beginchar(78,10.5u#,asc_height#,0);
adjust_fit(0,0); pickup fine.nib;
pos1(vair,90); lft x1=hround .1u; top y1r=h;
x2=x1+2u; y2=.7[x_height,h]; x3=w-2u; bot y4=-oo; y3=max(.07h,y4+eps);
z4-(.25u,0)=whatever[z2,z3]; numeric theta; theta=angle(z2-z3)-90;
pos2(stem,theta); pos3(stem,theta); pos4(stem,0);
filldraw circ_stroke z1e{right}...z2e---z3e
 ...{2(x4e-x3e),y4e-y3e}z4e;  % long diagonal
y5=x_height;
%x5=.5w;
z5=whatever[z2,z3];
x6=1.5u; y6-.5stem=-oo; pos5(hair,theta-90); pos6(stem,angle(z5-z6)-90);
filldraw circ_stroke z6e--z5e; % short diagonal
numeric halfbw; halfbw=min(2.5u,3stem); y95=y96=y5; x5=x95+halfbw=x96-halfbw;
pos95(slab,90); pos96(slab,90); pos55(slab,90); z55=z5;
filldraw circ_stroke z95e--z55e; filldraw circ_stroke z96e--z55e;
penlabels(1,2,3,4,5,6,95,96); endchar;

cmchar "crossed lambda";
beginchar(78,10.5u#,asc_height#,0);
adjust_fit(0,0); pickup fine.nib;
pos1(vair,90); %lft x1=hround .1u; 
top y1r=h;
% x1 will be determined later
x2=x1+2u; y2=.7[x_height,h]; 
x3=w-2u; bot y4=-oo; y3=max(.07h,eps);
y5=x_height; x5=.5w;
z2=whatever[z5,z3]; % z2 is colinaer with z5,z3
% x1 is also now determined from location of z2
z4-(.25u,0)=whatever[z2,z3]; numeric theta; theta=angle(z2-z3)-90;
pos2(stem,theta); pos3(stem,theta); pos4(stem,0);
filldraw circ_stroke z1e{right}...z2e---z3e
 ...{2(x4e-x3e),y4e-y3e}z4e;  % long diagonal
% now the short diagonal
x6=1.5u; y6-.5stem=-oo; pos5(hair,theta-90); pos6(stem,angle(z5-z6)-90);
filldraw circ_stroke z6e--z5e; % short diagonal
% now the crossbar
numeric halfbw; halfbw=min(2.5u,3stem); y95=y96=y5; x5=x95+halfbw=x96-halfbw;
pos95(slab,90); pos96(slab,90); pos55(slab,90); z55=z5;
filldraw circ_stroke z95e--z55e; filldraw circ_stroke z96e--z55e;
penlabels(1,2,3,4,5,6,95,96); endchar;


cmchar "Uppercase crossed Lambda";
beginchar(oct"003",12u#,cap_height#,0);
adjust_fit(cap_serif_fit#,cap_serif_fit#);
numeric left_stem,outer_jut,alpha;
left_stem=cap_hair if hefty: -3stem_corr fi;
outer_jut=.7cap_jut; x1l=w-x4r=l+letter_fit+outer_jut+.5u; y1=y4=0;
x2-x1=x4-x3; x3r=x2r+apex_corr; y2=y3=h+apex_o+apex_oo;
alpha=diag_ratio(2,left_stem,y2-y1,x4r-x1l-apex_corr);
penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0);
penpos3(alpha*cap_stem,0); penpos4(alpha*cap_stem,0);
z0=whatever[z1r,z2r]=whatever[z3l,z4l];
if y0<h-cap_notch_cut: y0:=h-cap_notch_cut;
  fill z0+.5right{down}...{z4-z3}diag_end(3l,4l,1,1,4r,3r)
    --diag_end(4r,3r,1,1,2l,1l)--diag_end(2l,1l,1,1,1r,2r){z2-z1}
    ...{up}z0+.5left--cycle; % left and right diagonals
else: fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l)
    --diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals
%
%  cross
%
pickup crisp.nib; pos98(slab,90); pos99(hair,0);
y98=y2; x98=x2; 
rt x99r=hround(w-.65u); y99=good.y(y98l-beak)-eps;
arm(98,99,g,beak_darkness,0.7beak_jut);  % right arm and beak
pos100(hair,180); x100=w-x99; y100=y99;
arm(98,100,h,beak_darkness,-.7beak_jut);  % left arm and beak
%
if serifs: numeric inner_jut; pickup tiny.nib;
 prime_points_inside(1,2); prime_points_inside(4,3);
 if rt x1'r+cap_jut+.5u+1<=lft x4'l-cap_jut: inner_jut=cap_jut;
 else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi
 dish_serif(1',2,a,1/2,outer_jut,b,.6,inner_jut)(dark);  % left serif
 dish_serif(4',3,c,1/2,inner_jut,d,1/3,outer_jut); fi  % right serif
penlabels(0,1,2,3,4,5,6,99,100); endchar;