path: root/fonts/bbold/bbgreekl.mf

% Blackboard bold lower case Greek, Alan Jeffrey, 15--18 Dec 1989.
%
% These characters occupy spaces oct "013" to oct "040", and oct "177".
% This is because ! occupies oct "041" and I have to stick omega 
% somewhere.

% -------------------------------------------------------------------

bbchar 
   (oct "013")
   (smallgap#, medlower#, smallgap# + jut#)
   (aTop#, aBottom#);
   
   "Lowercase Greek alpha";
   
   % The curve.
   var (path) alphapath;
   
   alphapath
      = Top~(Right + jut) {down}
           .. obelow Bottom~Middle {left}
           .. Horizon~Left {up}
           .. oabove Top~Middle {right}
           .. Bottom~(Right + jut){right};

   % The emphasis.
   draw
      fatcliptwice
         (rightof obelow Bottom~Left -- rightof oabove Top~Left)
         (alphapath);

   % The curve.
   draw alphapath

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "014")
   (medgap#, smalllower# + fatness#, smallgap#)
   (bTop#, gBottom#);

   "Lowercase Greek beta";

   % The top curve.
   var (path) betapath;

   betapath
      = aBottom~Left
           --- aTop~Left
           .. oabove rightof Top~Middle {right}
           .. (Top -+- aTop)~Right {down}
           .. rightof aTop~Middle {left};

   % The emphasis
   draw
      fatcliponce
         (rightof Bottom~Left -- rightof oabove Top~Left)
         (betapath);

   % The top curve.
   draw betapath;

   % The bottom curve.
   draw
      rightof aTop~Middle {right}
         .. aMiddle~Right {down}
         .. obelow rightof aBottom~Middle {left}
         .. farrightof (aBottom + cCurl)~Left

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "015")
   (smallgap#, medlower#, smallgap#)
   (aTop#, gBottom#);

   "Lowercase Greek gamma";

   % The curve.
   var (path) gammapath;
   
   gammapath 
      = Top~Left {right}
           .. aBottom~Right {down}
           .. obelow Bottom~Middle {left}
           .. aBottom~Left {up}
           .. Top~Right {right};

   % The emphasis.
   draw
      fatcliptwice
         (obelow rightof Bottom~Left -- rightof Top~Left)
         (subpath (1,infinity) of gammapath);

   % The curve.
   draw gammapath

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "016")
   (smallgap#, medlower#, smallgap#)
   (bTop#, aBottom#);

   "Lowercase Greek delta";

   % The path.
   var (path) deltapath;
   
   deltapath
      = aTop~Middle {left}
           .. aMiddle~Left {down}
           .. obelow Bottom~Middle {right}
           .. aMiddle~Right {up}
           .. aTop~Middle
           .. (aTop -+- Top)~Left {up}
           .. oabove Top~Middle {right}
           .. (Top - cCurl)~Right;

   % The emphasis, clipped by the first bit of the curve (ie the bowl).
   draw
      fatcliptwice
         (obelow rightof Bottom~Left -- rightof Top~Left)
         (subpath (0,4) of deltapath);

   % The curve.
   draw deltapath

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "017")
   (smallgap#, medlower#, smallgap#)
   (aTop#, aBottom#);

   "Lowercase Greek epsilon";

   % The curve.
   var (path) epsilonpath;
   
   epsilonpath
      = (Top - cCurl)~Right
           .. oabove Top~Middle {left}
           .. aMiddle~Left {down}
           .. obelow Bottom~Middle {right}
           .. (Bottom + cCurl)~Right;

   % The emphasis.
   draw
      fatcliptwice
         (obelow rightof Bottom~Left -- oabove rightof Top~Left)
         (epsilonpath);

   % The curve.
   draw epsilonpath;

   % The bar.
   draw
      farrightof eBar~Left
         -- farrightof eBar~(Left + jut)

endchar;
   
% -------------------------------------------------------------------

bbchar 
   (oct "020")
   (medgap#, smalllower#, smallgap#)
   (bTop#, gBottom#);

   "Lowercase Greek zeta";
   
   % The curl.
   var (path) zetapath;
   
   zetapath
      = Top~Right
           .. aMiddle~Left {down}
           .. aBottom~Middle
           .. (aBottom -+- Bottom)~Right {down}
           .. Bottom~(Right - jut) {left};

   % The emphasis.
   draw
      fatcliptwice
         (rightof Bottom~Left -- rightof Top~Left)
         (zetapath);

   % The curl.
   draw zetapath

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "021")
   (medgap#, smalllower# + fatness#, medgap#)
   (aTop#, gBottom#);

   "Lowercase Greek eta";
   
   % The emphasis.
   draw
      fatten
         rightof aBottom~Left
            -- rightof Top~Left;

   % The curl.
   draw
      farrightof (Top - cCurl)~Left
         .. oabove rightof Top~Middle {right}
         .. (Top - hCurl)~Right
         --- Bottom~Right

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "022")
   (smallgap#, medlower#, smallgap#)
   (bTop#, aBottom#);

   "Lowercase Greek theta";
   
   % The curve.
   var (path) thetapath;
   
   thetapath
      = Horizon~Right {up}
           .. oabove Top~Middle {left}
           .. Horizon~Left {down}
           .. obelow Bottom~Middle {right}
           .. cycle;

   % The emphasis.
   draw
      fatcliptwice
         (rightof obelow Bottom~Left -- oabove rightof Top~Left)
         (thetapath);

   % The curve.
   draw thetapath;

   % The bar.
   draw
      farrightof Horizon~Left 
         -- Horizon~Right

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "023")
   (medgap#, tiny#, medgap#)
   (aTop#, aBottom#);

   "Lowercase Greek iota";
   
   % The vertical, clipped by a curve.
   draw
      fatcliponce
         (Top~Middle -- Bottom~Middle)
         (leftof (Bottom + hCurl)~Middle {down} 
             .. rightof Bottom~Middle {right})

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "024")
   (medgap#, smalllower# + fatness#, smallgap#)
   (aTop#, aBottom#);

   "Lowercase Greek kappa";
   
   % The vertical.
   draw
      fatten
         rightof Bottom~Left
            -- rightof Top~Left;

   % The top stroke.
   draw
      farrightof eBar~Left
         -- Top~Right;

   % The bottom stroke.
   draw
      farrightof eBar~Left {right}
         .. Bottom~Right {right}

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "025")
   (smallgap#, medlower#, smallgap#)
   (bTop#, aBottom#);

   "Lowercase Greek lambda";
   
   % The SW diagonal.
   draw
      Horizon~Middle
         -- Bottom~Left;

   % The SE diagonal, fattened.
   outline
      fatten
         rightof Top~Left
            -- leftof Bottom~Right

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "026")
   (medgap#, smalllower# + fatness#, medgap#)
   (aTop#, gBottom#);

   "Lowercase Greek mu";
   
   % The left vertical, fattened.
   draw
      fatten
         rightof Bottom~Left 
            -- rightof Top~Left;

   % The curl.
   draw
      farrightof (aBottom + cCurl)~Left
        .. obelow rightof aBottom~Middle {right}
        .. (aBottom + hCurl)~Right
        --- Top~Right;

   % The right vertical.
   draw
      Top~Right
         -- aBottom~Right

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "027")
   (medgap#, medlower#, smallgap#)
   (aTop#, aBottom#);

   "Lowercase Greek nu";
   
   % The left vertical, clipped by the stroke.
   draw
      fatcliponce
         (rightof Top~Left -- rightof Bottom~Left)
         (Bottom~Left .. Top~Right {up});

   % The stroke.
   draw
      Bottom~Left 
         .. Top~Right {up}

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "030")
   (medgap#, smalllower#, smallgap#)
   (bTop#, gBottom#);

   "Lowercase Greek xi";

   % The curls.
   var (path) xitop, xibottom;
   
   xibottom
      = farrightof aTop~(Left + jut) {left}
           .. aMiddle~Left {down}
           .. aBottom~Middle
           .. (aBottom -+- Bottom)~Right {down}
           .. Bottom~(Right - jut) {left};

   xitop
      = Top~Right {left}
           .. (Top -+- aTop)~Left {down}
           .. farrightof aTop~(Left + jut) {right};

   % The top emphasis.
   draw
      fatcliptwice
         (rightof Bottom~Left -- rightof Top~Left)
         (xitop);

   % The top curl.
   draw xitop;

   % The bottom emphasis.
   draw
      fatcliptwice
         (rightof Bottom~Left -- rightof Top~Left)
         (xibottom);

   % The bottom curl.
   draw xibottom

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "031")
   (smallgap#, smalllower# + fatness#, smallgap#)
   (aTop#, aBottom#);

   "Lowercase Greek pi";
   
   % The top bar.
   draw
      Top~Left
         --- Top~Right;

   % The left vertical, fattened.
   draw
      fatten
         rightof Bottom~(Left + jut)
            -- rightof Top~(Left + jut);

   % The right vertical.
   draw
      Bottom~(Right - jut)
         -- Top~(Right - jut)

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "032")
   (medgap#, medlower#, smallgap#)
   (aTop#, gBottom#);

   "Lowercase Greek rho";
   
   % The bowl.
   var (path) rhopath;
   
   rhopath
      = aMiddle~Left {up}
           .. oabove aTop~Middle {right}
           .. aMiddle~Right {down}
           .. obelow aBottom~Middle {left}
           .. cycle;

   % The bowl.
   draw rhopath;
   
   % The emphasis, clipped by the beginning of the curve.
   outline
      fatcliponce
         (rightof Bottom~Left --  rightof bracketTop~Left)
         (subpath (0,2) of rhopath);

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "033")
   (smallgap#, medlower#, smallgap# + jut#)
   (aTop#, aBottom#);

   "Lowercase Greek sigma";
   
   % The bowl.
   var (path) sigmapath;
   
   sigmapath
      = Horizon~Right {up}
           .. Top~Middle {left}
           .. Horizon~Left {down}
           .. obelow Bottom~Middle {right}
           .. cycle;

   % The emphasis.
   draw
      fatcliptwice
         (rightof obelow Bottom~Left -- rightof Top~Left)
         (sigmapath);

   % The bowl.
   draw sigmapath;
   
   % The bar, jutting out to the right.
   draw
      Top~Middle 
         -- Top~(Right + jut)

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "034")
   (smallgap#, medlower#, smallgap#)
   (aTop#, aBottom#);
   
   fatsymmetric;

   "Lowercase Greek tau";
   
   % The top line.
   draw
      Top~Left
         -- Top~Right;

   % The vertical, clipped by a curve.
   draw
      fatcliponce
         (Top~Middle -- Bottom~Middle)
         (leftof (Bottom + hCurl)~Middle {down} 
             .. rightof Bottom~Middle {right})

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "035")
   (medgap#, medlower#, medgap#)
   (aTop#, aBottom#);

   "Lowercase Greek upsilon";
   
   % The curve.
   var (path) upsilonpath;
   
   upsilonpath
      = Top~Left
           --- (Bottom + hCurl)~Left
           .. obelow Bottom~Middle {right}
           .. (Bottom + hCurl)~Right
           --- Top~Right;

   % The emphasis.
   draw
      fatcliponce
         (rightof Top~Left -- rightof obelow Bottom~Left)
         (upsilonpath);

   % The curve.
   draw upsilonpath

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "036")
   (smallgap#, medlower#, smallgap#)
   (bTop#, gBottom#);
   
   fatsymmetric;

   "Lowercase Greek phi";
   
   % The bowl.
   draw
      Middle~Right {up}
        .. aTop~Middle {left}
        .. aMiddle~Left {down}
        .. aBottom~Middle {right}
        .. cycle;

   % The vertical, fattened.
   outline
      fatten
         Top~Middle
            -- Bottom~Middle

endchar;
   
% -------------------------------------------------------------------

bbchar
   (oct "037")
   (smallgap#, medlower#, smallgap#) 
   (aTop#, gBottom#);

   "Lowercase Greek chi";

   % The SE diagonal.
   draw
      Top~Left
         -- Bottom~Right;

   % The SW diagonal, fattened.
   outline
      fatten
         leftof Top~Right
            -- rightof Bottom~Left

endchar;

% -------------------------------------------------------------------

bbchar
   (oct "040")
   (medgap#, medlower#, medgap#)
   (bTop#, gBottom#);
   
   fatsymmetric;

   "Lowercase Greek psi";
   
   % The curve.
   draw
      aTop~Left
         --- (aBottom + hCurl)~Left
         .. aBottom~Middle {right}
         .. (aBottom + hCurl)~Right
         --- aTop~Right;

   % The vertical, fattened.
   outline
      fatten
         Top~Middle
            -- Bottom~Middle

endchar;

% -------------------------------------------------------------------

bbchar 
   (oct "177")
   (smallgap#, biglower#, smallgap#)
   (aTop#, aBottom#);
   
   symmetric;

   "Lowercase Greek omega";
   
   % The left curve.
   var (path) omegapath;
   
   omegapath
      = farrightof Top~Left
           .. Horizon~Left {down}
           .. obelow Bottom~(Left -+- Middle) {right}
           .. eBar~Middle {up};

   % The emphasis.
   draw
      fatcliptwice
         (rightof Top~Left -- obelow rightof Bottom~Left)
         (omegapath);

   % The left curve.
   draw omegapath;
   
   % The right curve.
   draw
      eBar~Middle {down}
         .. obelow Bottom~(Right -+- Middle) {right}
         .. Horizon~Right {up}
         .. farleftof Top~Right

endchar;

% -------------------------------------------------------------------