input ezramacs;

mode_setup;
if unknown FontSize: FontSize := 10pt#; fi
FX# := FontSize *   0.075 / 2.4; % normalize to 10pt---AH
FY# := FontSize *   0.075 / 2.4;

def nonzerowinding =
    cull currentpicture dropping (0,0);
enddef;
extra_endchar := extra_endchar & "nonzerowinding;";
let savenonzero = nonzerowinding;
%
smoothing := 0; autorounding := 0; turningcheck := 0;
define_pixels (FX, FY);
%
lamedoutline; path lamedhead;
lamedhead=subpath (16,32.5) of p;

beginchar(25, 19.078FX#, 22.563FY#, 0.516FY#); ""; % aleflamed
  alefoutline;
  pickup pencircle scaled .3pt;
  path a,b;
  a= subpath (0,22.3) of p;
  b=subpath (29,49) of p;
  fill a..{up}lamedhead..b..cycle;
endchar;

beginchar(26, 19.078FX#, 22.563FY#, 0.516FY#); ""; % aleflamedvar
  alefoutline;
  pickup pencircle scaled .3pt;
  path a[],b;
  a1= subpath (0,8) of p;
  a2=subpath (20,22.3) of p;
  b=subpath (29,49) of p;
  fill a1--a2..{up}lamedhead..b..cycle;
endchar;

beginchar(27, 20.984FX#, 33.953FY#, 0.313FY#); ""; % bent lamed
  lamedoutline;
  path head; head=(subpath (16,32.5) of p);
  path one,two; one=subpath (0,16) of p;
  two=subpath(32.5,40) of p;
  z0=.5[point 0 of head, point 99 of head];
  head:=head rotatedaround (z0,-90);
  head:=head shifted (2pt,.85pt);
  path bent; bent=one{up}..{right}head{left}..{down}two..cycle;
  fill bent;

endchar;

beginchar(28, 19.484FX#, 22.563FY#, 12.422FY#); ""; % closed qof
fill((18.5,11.844)  %% top part
..controls(18.5,9.135)and(18.052,7.224)
..(17.156,6.109)
..controls(16.427,5.193)and(14.849,4.307)
..(12.422,3.453)
..controls(10.849,2.901)and(9.635,2.318)
..(8.781,1.703)
..controls(8.354,1.391)and(7.927,0.974)
..(7.5,0.453)
..controls(7.24,0.13)and(6.958,-0.031)
..(6.656,-0.031)
..controls(6.208,-0.031)and(5.984,0.286)
..(5.984,0.922)
..controls(5.984,2.036)and(6.286,2.958)
..(6.891,3.688)
..controls(7.891,4.875)and(9.766,5.865)
..(12.516,6.656)
..controls(14.547,7.24)and(15.771,7.693)
..(16.188,8.016)
..controls(17.042,8.661)and(17.469,9.87)
..(17.469,11.641)
..controls(17.469,12.995)and(17.12,14.052)
..(16.422,14.813)
..controls(15.766,15.542)and(14.901,15.906)
..(13.828,15.906)
--(4,15.906)
..controls(3.177,15.906)and(2.609,16.188)
..(2.297,16.75)
..controls(2.005,17.271)and(1.859,18.161)
..(1.859,19.422)
..controls(1.859,21.516)and(2.156,22.563)
..(2.75,22.563)
..controls(2.875,22.563)and(3.029,22.339)
..(3.211,21.891)
..controls(3.393,21.443)and(3.76,21.219)
..(4.313,21.219)
--(13.281,21.219)
..controls(15,21.219)and(16.234,20.693)
..(16.984,19.641)
..controls(17.995,18.234)and(18.5,15.635)
..(18.5,11.844)
--cycle) xscaled FX yscaled FY;
numeric yy; yy=16;
path p; p:=((2.844,yy)--(2.844,-12.422)--(5.5,-10)--
  (4,yy)--cycle) xscaled FX yscaled FY;
p:=p shifted (-.1pt,0);
fill p;
endchar;  % end of closed qof

turningcheck:=2;
beginchar(29, 10.781FX#, 27.016FY#, 0FY#); ""; % broken holam
  numeric vavht; vavht:=(h/FY) * (22.563/27.016);
  numeric ww; ww:=w/FX;
  let nonzerowinding=relax;
%% First, the dot of the holam...
fill((8.863,25.594)
..controls(8.863,25.198)and(8.72,24.859)
..(8.434,24.578)
..controls(8.147,24.297)and(7.801,24.156)
..(7.395,24.156)
..controls(7.009,24.156)and(6.678,24.297)
..(6.402,24.578)
..controls(6.126,24.859)and(5.988,25.198)
..(5.988,25.594)
..controls(5.988,25.979)and(6.126,26.313)
..(6.402,26.594)
..controls(6.678,26.875)and(7.009,27.016)
..(7.395,27.016)
..controls(7.801,27.016)and(8.147,26.875)
..(8.434,26.594)
..controls(8.72,26.313)and(8.863,25.979)
..(8.863,25.594)
--cycle) xscaled FX yscaled FY;
%% Now, the vav.
fill((8.863,2.563)
..controls(8.863,2.323)and(8.569,1.836)
..(7.98,1.102)
..controls(7.392,0.367)and(7.014,0)
..(6.848,0)
..controls(6.598,0)and(6.473,0.224)
..(6.473,0.672)
..controls(6.473,0.953)and(6.652,3.008)
..(7.012,6.836)
..controls(7.371,10.664)and(7.551,13.078)
..(7.551,14.078)
..controls(7.551,15.297)and(6.889,15.906)
..(5.566,15.906)
--(3.426,15.906)
..controls(2.603,15.906)and(2.035,16.188)
..(1.723,16.75)
..controls(1.431,17.271)and(1.285,18.161)
..(1.285,19.422)
..controls(1.285,21.516)and(1.572,22.563)
..(2.145,22.563)
..controls(2.27,22.563)and(2.426,22.339)
..(2.613,21.891)
..controls(2.801,21.443)and(3.171,21.219)
..(3.723,21.219)
--(5.707,21.219)
..controls(7.79,21.219)and(8.832,19.672)
..(8.832,16.578)
--cycle) xscaled FX yscaled FY;
pickup pencircle scaled 1.1pt;
path break;
break:=((0,.5 vavht)--(ww,.5 vavht)) xscaled FX yscaled FY;
erase draw break;
endchar; % end of broken holam
let nonzerowinding=savenonzero;

turningcheck:=0;
beginchar(30, 11.203FX#, 22.563FY#, 0FY#); ""; % reversed nun
  path p; numeric ww; ww=w/FX;
  p=((ww-10.344,4.25)
..controls(ww-10.344,2.958)and(ww-10.13,1.542)
..(ww-9.703,0)
--(ww-0.859,0)
--(ww-1.828,5.313)
--(ww-8.188,5.313)
..controls(ww-8.125,7.375)and(ww-8.094,8.901)
..(ww-8.094,9.891)
..controls(ww-8.094,10.547)and(ww-8.154,11.365)
..(ww-8.273,12.344)
..controls(ww-8.393,13.323)and(ww-8.453,13.932)
..(ww-8.453,14.172)
..controls(ww-8.453,15.328)and(ww-7.49,15.906)
..(ww-5.563,15.906)
--(ww-4,15.906)
..controls(ww-3.177,15.906)and(ww-2.609,16.188)
..(ww-2.297,16.75)
..controls(ww-2.005,17.271)and(ww-1.859,18.161)
..(ww-1.859,19.422)
..controls(ww-1.859,21.516)and(ww-2.156,22.563)
..(ww-2.75,22.563)
..controls(ww-2.875,22.563)and(ww-3.029,22.339)
..(ww-3.211,21.891)
..controls(ww-3.393,21.443)and(ww-3.76,21.219)
..(ww-4.313,21.219)
--(ww-5.281,21.219)
..controls(ww-8.177,21.219)and(ww-9.625,19.672)
..(ww-9.625,16.578)
..controls(ww-9.625,16.047)and(ww-9.563,15.44)
..(ww-9.438,14.758)
..controls(ww-9.313,14.076)and(ww-9.25,13.307)
..(ww-9.25,12.453)
..controls(ww-9.25,11.797)and(ww-9.432,10.482)
..(ww-9.797,8.508)
..controls(ww-10.161,6.534)and(ww-10.344,5.115)
..(ww-10.344,4.25)
--cycle);
fill p xscaled FX yscaled FY;
endchar; %% end of reversed nun


font_slant := 0;
font_normal_space := 7.262 * FX#;
font_normal_stretch := 3.631 * FX#;
font_normal_shrink := 2.421 * FX#;
font_quad := 21.787 * FX#;
designsize := FontSize;

end.