% 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; % -------------------------------------------------------------------