diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bbold/bbgreekl.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bbold/bbgreekl.mf | 684 |
1 files changed, 684 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bbold/bbgreekl.mf b/Master/texmf-dist/fonts/source/public/bbold/bbgreekl.mf new file mode 100644 index 00000000000..a6b70be9e6a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bbold/bbgreekl.mf @@ -0,0 +1,684 @@ +% 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; + +% ------------------------------------------------------------------- |