From 25a22e2f31a52677528aa5abf8ce4b574aa49942 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 7 Sep 2014 21:03:30 +0000 Subject: drm git-svn-id: svn://tug.org/texlive/trunk@35125 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/fonts/drm/README | 32 +- Master/texmf-dist/doc/fonts/drm/drm.pdf | Bin 886639 -> 886531 bytes Master/texmf-dist/doc/fonts/drm/small_specimen.pdf | Bin 157983 -> 157998 bytes Master/texmf-dist/doc/fonts/drm/specimen.pdf | Bin 1120399 -> 1121103 bytes Master/texmf-dist/fonts/source/public/drm/drm10.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm11.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm12.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm14.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm17.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm24.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm6.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm7.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm8.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drm9.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb11.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb12.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb14.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb17.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmb24.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drmb6.mf | 4 +- Master/texmf-dist/fonts/source/public/drm/drmb7.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drmb8.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drmb9.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbl10.mf | 71 - .../texmf-dist/fonts/source/public/drm/drmbs10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx11.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx12.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx14.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx17.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx24.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx6.mf | 4 +- .../texmf-dist/fonts/source/public/drm/drmbx7.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx8.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmbx9.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmcap.mf | 11 +- .../texmf-dist/fonts/source/public/drm/drmit10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmit11.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit12.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit14.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit17.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit24.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit6.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit7.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit8.mf | 1 + .../texmf-dist/fonts/source/public/drm/drmit9.mf | 1 + .../fonts/source/public/drm/drmitoldstydigs.mf | 298 ++ .../texmf-dist/fonts/source/public/drm/drml10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drml11.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drml12.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drml14.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drml17.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drml24.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drml6.mf | 4 +- Master/texmf-dist/fonts/source/public/drm/drml7.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drml8.mf | 2 +- Master/texmf-dist/fonts/source/public/drm/drml9.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmlow.mf | 8 +- .../fonts/source/public/drm/drmmatharrows.mf | 46 + .../fonts/source/public/drm/drmmathcursell.mf | 27 + .../fonts/source/public/drm/drmmathgrklow.mf | 728 ++++ .../fonts/source/public/drm/drmmathgrkup.mf | 230 ++ .../fonts/source/public/drm/drmmathoms.mf | 1385 ++++++++ .../fonts/source/public/drm/drmmathomx.mf | 1463 ++++++++ .../fonts/source/public/drm/drmmathsym.mf | 284 ++ .../texmf-dist/fonts/source/public/drm/drmmi10.mf | 10 +- Master/texmf-dist/fonts/source/public/drm/drmoe.mf | 34 + .../fonts/source/public/drm/drmoldstyfracs.mf | 73 + .../fonts/source/public/drm/drmoldstynums.mf | 261 ++ .../texmf-dist/fonts/source/public/drm/drmomx10.mf | 2 +- .../fonts/source/public/drm/drmornaments.mf | 1018 ++++++ .../fonts/source/public/drm/drmornbars.mf | 152 + .../fonts/source/public/drm/drmornfont.mf | 154 + .../texmf-dist/fonts/source/public/drm/drmorns.mf | 4 +- .../texmf-dist/fonts/source/public/drm/drmsl10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl11.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl12.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl14.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl17.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl24.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl6.mf | 4 +- .../texmf-dist/fonts/source/public/drm/drmsl7.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl8.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsl9.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsy10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmsym10.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym11.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym12.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym14.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym17.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym24.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym6.mf | 74 - .../texmf-dist/fonts/source/public/drm/drmsym7.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym8.mf | 8 +- .../texmf-dist/fonts/source/public/drm/drmsym9.mf | 8 +- .../fonts/source/public/drm/drmsymbols.mf | 3555 ++++++++++++++++++++ .../texmf-dist/fonts/source/public/drm/drmtt10.mf | 71 - .../texmf-dist/fonts/source/public/drm/drmui10.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui11.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui12.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui14.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui17.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui24.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui6.mf | 4 +- .../texmf-dist/fonts/source/public/drm/drmui7.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui8.mf | 2 +- .../texmf-dist/fonts/source/public/drm/drmui9.mf | 2 +- .../fonts/source/public/drm/itoldstydigs.mf | 298 -- .../fonts/source/public/drm/matharrows.mf | 46 - .../fonts/source/public/drm/mathcursell.mf | 27 - .../fonts/source/public/drm/mathgrklow.mf | 728 ---- .../fonts/source/public/drm/mathgrkup.mf | 230 -- .../texmf-dist/fonts/source/public/drm/mathoms.mf | 1385 -------- .../texmf-dist/fonts/source/public/drm/mathomx.mf | 1463 -------- .../texmf-dist/fonts/source/public/drm/mathsym.mf | 284 -- Master/texmf-dist/fonts/source/public/drm/oe.mf | 34 - .../fonts/source/public/drm/oldstyfracs.mf | 73 - .../fonts/source/public/drm/oldstynums.mf | 261 -- .../fonts/source/public/drm/ornaments.mf | 1018 ------ .../texmf-dist/fonts/source/public/drm/ornbars.mf | 152 - .../texmf-dist/fonts/source/public/drm/ornfont.mf | 154 - .../texmf-dist/fonts/source/public/drm/symbols.mf | 3555 -------------------- Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm | Bin 3580 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm | Bin 3580 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm | Bin 3580 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm | Bin 3580 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm | Bin 3568 -> 3572 bytes Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm | Bin 3576 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm | Bin 3576 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm | Bin 3580 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm | Bin 3448 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm | Bin 3436 -> 3572 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm | Bin 3440 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm | Bin 3440 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm | Bin 3576 -> 0 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm | Bin 3576 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm | Bin 3600 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm | Bin 3576 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx17.tfm | Bin 0 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm | Bin 3596 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx6.tfm | Bin 0 -> 3592 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm | Bin 3564 -> 3592 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm | Bin 3568 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm | Bin 3444 -> 3600 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm | Bin 1528 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm | Bin 3400 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm | Bin 3300 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm | Bin 3304 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm | Bin 3384 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm | Bin 3292 -> 3700 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm | Bin 3300 -> 3708 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm | Bin 3300 -> 3708 bytes Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm | Bin 3384 -> 3712 bytes Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm | Bin 3576 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm | Bin 2340 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm | Bin 3436 -> 3572 bytes Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm | Bin 3572 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm | Bin 3440 -> 3576 bytes Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm | Bin 3444 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc11.tfm | Bin 0 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm | Bin 2124 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm | Bin 2124 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm | Bin 2228 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm | Bin 2324 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm | Bin 2324 -> 2312 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm | Bin 2108 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm | Bin 2104 -> 2320 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm | Bin 2324 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm | Bin 3180 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl11.tfm | Bin 0 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm | Bin 3152 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm | Bin 3144 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm | Bin 3156 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl24.tfm | Bin 0 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm | Bin 3184 -> 3568 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm | Bin 3200 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm | Bin 3196 -> 3580 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm | Bin 3200 -> 3584 bytes Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm | Bin 756 -> 0 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc11.tfm | Bin 0 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc12.tfm | Bin 0 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm | Bin 2332 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm | Bin 2332 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc6.tfm | Bin 0 -> 2320 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm | Bin 2124 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc8.tfm | Bin 0 -> 2324 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm | Bin 2328 -> 2328 bytes Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm | Bin 2900 -> 0 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui11.tfm | Bin 0 -> 3892 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm | Bin 3304 -> 3892 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm | Bin 3304 -> 3892 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm | Bin 3304 -> 3892 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm | Bin 3304 -> 3892 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm | Bin 3288 -> 3872 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm | Bin 3296 -> 3884 bytes Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm | Bin 3296 -> 3884 bytes Master/texmf-dist/source/fonts/drm/drm.dtx | 4 +- Master/texmf-dist/tex/latex/drm/drm.sty | 2 +- 210 files changed, 9866 insertions(+), 10056 deletions(-) delete mode 100644 Master/texmf-dist/fonts/source/public/drm/drmbl10.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmitoldstydigs.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmatharrows.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathcursell.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathgrklow.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathgrkup.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathoms.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathomx.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmmathsym.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmoe.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmoldstyfracs.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmoldstynums.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmornaments.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmornbars.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmornfont.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/drmsym6.mf create mode 100644 Master/texmf-dist/fonts/source/public/drm/drmsymbols.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/drmtt10.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/matharrows.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathcursell.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathoms.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathomx.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/mathsym.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/oe.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/oldstynums.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/ornaments.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/ornbars.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/ornfont.mf delete mode 100644 Master/texmf-dist/fonts/source/public/drm/symbols.mf delete mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmbx17.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmbx6.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmsc11.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmsl11.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmsl24.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmtc11.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmtc12.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmtc6.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmtc8.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/drm/drmui11.tfm (limited to 'Master') diff --git a/Master/texmf-dist/doc/fonts/drm/README b/Master/texmf-dist/doc/fonts/drm/README index 021bc00d6ef..e1b3f5da6b2 100644 --- a/Master/texmf-dist/doc/fonts/drm/README +++ b/Master/texmf-dist/doc/fonts/drm/README @@ -19,16 +19,17 @@ This work consists of the files listed in drmfilelist.txt. The drm package provides access to the DRM (Don's Revised Modern) family of fonts, which includes a variety of optical -sizes in Roman, italic, and small caps, along with a set of -symbols and ornaments. It is intended to be a full-body -text font, but its larger sizes can also be used for simple -display purposes, and its significant body of symbols can -stand on its own. It comes complete with textual -(``old-style'') and lining figures, and even has small-caps -figures. It also comes with extensible decorative rules to -be used with ornaments from itself or other fonts, along -with an extremely flexible ellipsis package. A set of -decorative initials is planned. +sizes in Roman (in four weights), italic, and small caps, +among other shapes, along with a set of symbols and +ornaments. It is intended to be a full-body text font, but +its larger sizes can also be used for simple display +purposes, and its significant body of symbols can stand on +its own. It comes complete with textual (``old-style'') and +lining figures, and even has small-caps figures. It also +comes with extensible decorative rules to be used with +ornaments from itself or other fonts, along with an +extremely flexible ellipsis package. A set of decorative +initials is planned. This package should run properly on any properly running LaTeX system. It's been tested specifically with TeXLive on Linux (3.2.0 @@ -36,3 +37,14 @@ kernel). This is version 1.0 of drm, submitted to CTAN on 1 Sept 2014. + +Version 1.1 of drm, submitted to CTAN on Friday, 4 Sept +2014, was a bugfix release. Primarily, it corrected very +minor errors in the roman W and V, and some slightly larger +unsightliness in the roman OE ligature and in the roman r, +which got seriously distorted in bold and at larger sizes. +Also put the old-style numerals into the italic fonts, where +for some reason it was forgotten except for size 10. +Finally, there were some potential namespace issues with the +more generically named files (e.g., oe.mf), kindly pointed +out to me by Karl Berry, which should now be resolved. diff --git a/Master/texmf-dist/doc/fonts/drm/drm.pdf b/Master/texmf-dist/doc/fonts/drm/drm.pdf index 4f3038c3db1..d87fce259d4 100644 Binary files a/Master/texmf-dist/doc/fonts/drm/drm.pdf and b/Master/texmf-dist/doc/fonts/drm/drm.pdf differ diff --git a/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf b/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf index 4ebdfb7800a..4362d623939 100644 Binary files a/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf and b/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf differ diff --git a/Master/texmf-dist/doc/fonts/drm/specimen.pdf b/Master/texmf-dist/doc/fonts/drm/specimen.pdf index 097e02e506c..985c8a1e595 100644 Binary files a/Master/texmf-dist/doc/fonts/drm/specimen.pdf and b/Master/texmf-dist/doc/fonts/drm/specimen.pdf differ diff --git a/Master/texmf-dist/fonts/source/public/drm/drm10.mf b/Master/texmf-dist/fonts/source/public/drm/drm10.mf index 1862ea21628..6e1310491fb 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm10.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm11.mf b/Master/texmf-dist/fonts/source/public/drm/drm11.mf index faba93fde20..a776fde2da3 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm11.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm12.mf b/Master/texmf-dist/fonts/source/public/drm/drm12.mf index c4d669aab74..a33b0bc09ff 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm12.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm14.mf b/Master/texmf-dist/fonts/source/public/drm/drm14.mf index a70293002e7..6ad191df010 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm14.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm17.mf b/Master/texmf-dist/fonts/source/public/drm/drm17.mf index c7b42368537..6b60c5eefb2 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm17.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm24.mf b/Master/texmf-dist/fonts/source/public/drm/drm24.mf index 5c81e3d1f3f..972fdd5482e 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm24.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm6.mf b/Master/texmf-dist/fonts/source/public/drm/drm6.mf index 3455f6b18e4..8f244f7d9e9 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm6.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm7.mf b/Master/texmf-dist/fonts/source/public/drm/drm7.mf index 998bce3edc2..1429767b28d 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm7.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm8.mf b/Master/texmf-dist/fonts/source/public/drm/drm8.mf index b0715556b45..cf1cd060fd2 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm8.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm9.mf b/Master/texmf-dist/fonts/source/public/drm/drm9.mf index 1f75cd94464..0a1f7c9d590 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drm9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drm9.mf @@ -67,6 +67,6 @@ input drmlow.mf input drmpunct.mf input drmacc.mf input drmacclet.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb10.mf b/Master/texmf-dist/fonts/source/public/drm/drmb10.mf index 8caff6d3688..5292b174e59 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb10.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb11.mf b/Master/texmf-dist/fonts/source/public/drm/drmb11.mf index e2aab6dbd3c..c8850f43c71 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb11.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb12.mf b/Master/texmf-dist/fonts/source/public/drm/drmb12.mf index 164cd1b6698..0493e56e833 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb12.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb14.mf b/Master/texmf-dist/fonts/source/public/drm/drmb14.mf index 3b35129890d..b154446c9a4 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb14.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb17.mf b/Master/texmf-dist/fonts/source/public/drm/drmb17.mf index c8a5fb22bb0..686a9c43632 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb17.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb24.mf b/Master/texmf-dist/fonts/source/public/drm/drmb24.mf index 6e3f311e35f..479a39b69d4 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb24.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb6.mf b/Master/texmf-dist/fonts/source/public/drm/drmb6.mf index 0599c0921d0..979c79d7ad9 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb6.mf @@ -10,7 +10,7 @@ phi=(1+sqrt5)/2; cap#=4pt#; u#=2cap#/3; em#=1.4cap#; -ex#=0.8cap#; +ex#=0.7cap#; exw# = ex#; define_pixels(exw); dep#=cap#/3; ss#=0.2pt#; @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb7.mf b/Master/texmf-dist/fonts/source/public/drm/drmb7.mf index a6746ad2103..d2fa7795b73 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb7.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb8.mf b/Master/texmf-dist/fonts/source/public/drm/drmb8.mf index 408d43d75f2..0f40d021cba 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb8.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb9.mf b/Master/texmf-dist/fonts/source/public/drm/drmb9.mf index a74df8a88a9..21b308194be 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmb9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmb9.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf deleted file mode 100644 index 259dcf47a28..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf +++ /dev/null @@ -1,71 +0,0 @@ -% +AMDG - -font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; -pixels_per_inch:=1200; -mode_setup; - -%%%% Define Dimensions for Whole Boxes %%%% - -phi=(1+sqrt5)/2; -cap#=8pt#; -u#=2.5cap#/3; -em#=1.2cap#; -ex#=0.6cap#; -dep#=cap#/3; -ss#=0.3pt#; -asch#=12cap#/12; -digwid#=1ex#; -slant = 0; -font_slant 0u#; -font_normal_space 0.5u#; -font_normal_stretch 0.2u#; -font_normal_shrink 0.2u#; -font_x_height cap#/phi; -font_quad em#; -font_extra_space 0.5u#; - -penwidth#=0.01pt#; - -%%%% Define Dimensions for Letters %%%% - -lserc#=0.08u#; -lserh#=lserc#+lserstep#; -lhigh#=0.3u#; -lserstep#=0.05u#; -userc#=0.08u#; -userh#=userc#+userstep#; -lserw#=0.2u#; -userw#=0.2u#; -userstep#=0.05u#; -bulbsh#=0.10u#; -curvwid#=1.6pt#; -slantwid#=1.6pt#; -thickstroke#=1.4pt#; -thinstroke#=0.8pt#; -loopgap#=1.0pt#; -hair#=0.2pt#; -o#=0.1pt#; -ssslant#=0.1u#; -dotwidth#=userw#-o#; -pwid#=2userw#; -accwid# = pwid#/8; -theight#=7asch#/8; -define_pixels(theight); - -define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); -define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); -define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); - -pickup pencircle scaled penwidth; cappen:=savepen; -equalize=thickstroke/2-thinstroke/2; - -input drmligs -input drmcap.mf -input drmlowmac.mf -input drmlow.mf -input drmpunct.mf -input drmacc.mf -input drmacclet.mf -input drmdigs.mf - -end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf index 6d73c68bdfc..07c8253d8e1 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf index 75e396f0574..4eb9e3892b7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf index 47c374e624b..21f059f776b 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf index dc13d79c034..507977ff41a 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf index f1e4b1c31c1..b5efd2e7e63 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf index ba73fd56d57..2b6fb10aaa1 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf index 11685d5773b..71e3e023d41 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf index 333becd5083..a117e7c4905 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf @@ -10,7 +10,7 @@ phi=(1+sqrt5)/2; cap#=4pt#; u#=2.5cap#/3; em#=1.4cap#; -ex#=0.9cap#; +ex#=0.7cap#; exw# = 1.1ex#; define_pixels(exw); dep#=cap#/3; ss#=0.25pt#; @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf index b71e05954fe..88c6c78a0b8 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf index 5fcdcea7370..a2aa6808ca7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf index 7ad7aceb908..126e0467436 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmcap.mf index c34580964a7..4f90cc9998a 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmcap.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmcap.mf @@ -527,7 +527,7 @@ z5=(w-ss-userw,h-userh); z6=z5-(thinstroke,0); z7=z5-(0,2h/3); z8=z7-(thinstroke,0); -z9=(w/2,0); +z9=(w/2,-o); z30=0.25[z9,z5]; z40 = z9 shifted (-thinstroke,0); z41 = z9 shifted (thickstroke,0); @@ -587,8 +587,8 @@ z3 = z2 shifted (userw+hair+userw,0); z4 = z3 shifted (thickstroke,0); z5 = z4 shifted (userw+hair+userw+thinstroke,0); z6 = z5 shifted (-thinstroke,0); -z7 = (w/3+thinstroke/2,0); -z8 = (2w/3+thinstroke/2,0); +z7 = (w/3+thinstroke/2,-o); +z8 = (2w/3+thinstroke/2,-o); z33=(w/2,3h/4); z34=z8+(.4thinstroke,2.2thickstroke); z35=z7+(0.4thinstroke,2.2thickstroke); @@ -1007,9 +1007,12 @@ beginchar(oct"327",em#+ss#,cap#,0); "The ligature OE"; italcorr(ex#*slant); z1=((w/2-(thickstroke/2)),lserh); +%z1=((w/2),lserh); z2=((ss_userw+(thickstroke/2)),lserh); z3=((w/2-(thickstroke/2)),(h-userh)); z4=((w/2+(thickstroke/2)),(h-thinstroke)); +%z3=((w/2),(h-userh)); +%z4=((w/2),(h-thinstroke)); z5=(x4,thinstroke); z6=(w-o-ssslant,0); z30=z6+(-thickstroke,thinstroke); @@ -1035,7 +1038,7 @@ z42 = (o,h/2); z43 = z42 shifted (curvwid,0); z44 = 0.5[z40,z41] shifted (curvwid/2,h/2+o/2); z45 = 0.5[z40,z41] shifted (curvwid/2,-(h/2+o/2)); -z46 = z15 shifted (-curvwid,0); +z46 = z15 shifted (-thickstroke,0); z47 = z44 shifted (0,-thinstroke); z48 = z45 shifted (0,thinstroke); diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit10.mf b/Master/texmf-dist/fonts/source/public/drm/drmit10.mf index f3da4f717ef..6f42156dc0f 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit10.mf @@ -72,7 +72,7 @@ input drmpunct.mf; input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit11.mf b/Master/texmf-dist/fonts/source/public/drm/drmit11.mf index 44a3359c4ed..2c034d55386 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit11.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit12.mf b/Master/texmf-dist/fonts/source/public/drm/drmit12.mf index ae7e9727006..31f730bd2a2 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit12.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit14.mf b/Master/texmf-dist/fonts/source/public/drm/drmit14.mf index f26fc82b416..d08904c834a 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit14.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit17.mf b/Master/texmf-dist/fonts/source/public/drm/drmit17.mf index 750878f7f82..8c70936e69c 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit17.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit24.mf b/Master/texmf-dist/fonts/source/public/drm/drmit24.mf index 90310b57e78..d1a431063fd 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit24.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit6.mf b/Master/texmf-dist/fonts/source/public/drm/drmit6.mf index 7f0e50e12e9..5d808a30872 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit6.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit7.mf b/Master/texmf-dist/fonts/source/public/drm/drmit7.mf index d35b24d80c6..64ef23f3107 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit7.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit8.mf b/Master/texmf-dist/fonts/source/public/drm/drmit8.mf index 0156db5a707..24f4d7f4fae 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit8.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit9.mf b/Master/texmf-dist/fonts/source/public/drm/drmit9.mf index 1f3f2bda0f8..352d47fe548 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmit9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmit9.mf @@ -73,6 +73,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; +input drmitoldstydigs.mf; input drmitligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitoldstydigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmitoldstydigs.mf new file mode 100644 index 00000000000..5fe086cf2cf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitoldstydigs.mf @@ -0,0 +1,298 @@ +% +AMDG This document was begun on 9 June 11EX, the +% commemoration of Ss. Primus and Felicianus, M, and it is +% humbly dedicated to them and to the Immaculate Heart of +% Mary for their prayers, and to the Sacred Heart of Jesus +% for His mercy. + + +beginchar("1",0.6ex#+2ss#,ex#,0); "The digit 1"; +italcorr(ex#*slant); + +pickup pencircle scaled thinl; +penpos0(thickl,0); +z0 = (w/2,h); +penpos1(thinl,-90); +z1 = (w/2-2curlw,h-2curlh); +penpos2(thickl,0); +z2 = (w/2,0); + +penstroke z1e{right}..{up}z0e; +penstroke z0e--z2e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w/2,5h/6); +penpos1(thinl,0); +z1 = (3w/5,3h/4); +penpos2(thinl,-90); +z2 = (w/2,3h/5); +penpos3(thinl,180); +z3 = (2w/5,(y0l+y2l)/2); +penpos4(thickl,180); +z4r = (ss,3h/4); +penpos5(thinl,90); +z5r = (w/2,h+o); +penpos6(thickl,0); +z6r = (w-ss,y4); +penpos8(0.7thickl,-45); +z8 = (w/2,2h/5); +penpos7(thinl,-90); +z7r = (ss,0-o); +penpos9(1.75thinl,-90); +z9r = (w/3,y7l); +penpos10(2thinl,-90); +z10r = (2w/3,0-o); +penpos11(thickl,-90); +z11r = (w-ss,y10); + +penstroke z3e..z0e..z1e..z2e..z4e..z5e..z6e..z8e..z7e; +penstroke z7e..z9e..z10e..z11e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",digwid#+2ss#,cap#,dep#); "The digit 3"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,3h/4); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(thickl,180); +z2l = (w-ss,3h/4); +penpos3(thinl,90); +z3 = (w/2,h/2); +penpos4(thickl,0); +z4r = (w-ss,h/4); +penpos5(thinl,-90); +z5r = (w/2,0-o); +penpos6(thickl,180); +z6r = (ss,h/4); +penpos7(1.5thinl,90); +z7 = z0 shifted (curlw,-curlh); +penpos8(thinl,180); +z8 = z7 shifted (curlw,curlh); +penpos9(thinl,-90); +z9 = z8 shifted (-curlw/2,curlh/2); +penpos10(1.5thinl,90); +z10 = z6 shifted (curlw,curlh); +penpos11(thinl,0); +z11 = z10 shifted (curlw,-curlh); +penpos12(thinl,-90); +z12 = z11 shifted (-curlw/2,-curlh/2); + +penstroke z9e..z8e..z7e..z0e{up}..z1e..z2e..z3e; +penstroke z3e..z4e..z5e..{up}z6e..z10e..z11e..z12e; + +picture three; three := currentpicture; +currentpicture := three shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (5w/6,h+o); +penpos1(thickl,0); +z1r = (5w/6,0); +penpos2(thickl,0); +z2r = (0.6w,h+o); +penpos3(thickl,0); +z3l = (ss,h/3); +penpos4(thinl,-45); +z4l = z3l; +penpos5(thinl,-45); +z5 = (w-ss,y4); +penpos6(thickl,0); +z6 = 0.25[z3,z2]; +z8 = (x1,y3); +penpos7(thickl,0); +z7 = 0.15[z8,z0]; +penpos9(0.75thickl,0); +z9 = 0.65[z3,z2]; +penpos10(0.75thickl,0); +z10 = 0.5[z8,z0]; +penpos11(0.5thickl,0); +z11 = 0.9[z3,z2]; +penpos12(0.5thickl,0); +z12 = 0.8[z8,z0]; +penpos13(thinl,0); +z13 = z2; +penpos14(thinl,0); +z14 = z0; + +penstroke z3e--z6e--z9e--z11e--z13e; +penstroke z1e--z7e--z10e--z12e--z14e; +penstroke z4e--z5e; + +picture four; four := currentpicture; +currentpicture := four shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (w-ss-thickl/2,h+o); +penpos1(thickl,90); +z1r = (ss+thickl/2,h+o); +penpos2(thickl,90); +z2 = (ss+thickl/3,h/2); +penpos3(thickl,0); +z3r = (w-ss,h/3); +penpos4(thinl,-90); +z4r = (w/2,0-o); +penpos5(thickl,180); +z5r = (ss,h/5); +penpos6(thinl,0); +z6l = z1l; +penpos7(thinl,0); +z7l = z2r; +penpos8(1.5thinl,90); +z8 = z5 shifted (curlw,curlh); +penpos9(thinl,0); +z9 = z8 shifted (curlw,-curlh); + +penstroke z0e--z1e--z2e; +penstroke z6e--z7e; +penstroke z2e..z3e..z4e..z5e..z8e..z9e; + +picture five; five := currentpicture; +currentpicture := five shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.9ex#+2ss#,cap#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +picture nine; nine := currentpicture; +currentpicture := nine shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (ss,h+o); +penpos1(thickl,90); +z1r = (w-ss,h+o); +penpos2(1.5thinl,180); +z2 = (w/3,h/2); +penpos3(thickl,180); +z3r = (w/3,0); +penpos4(thinl,45); +z4 = (ss,h/2); +penpos5(thinl,45); +z5 = 2[z4,z2] shifted (thickl,thickl); +penpos6(thinl,45); +z6 = z4 shifted (0,thickl); + +penstroke z0e--z1e; +penstroke z1e..z2e..z3e; +penstroke z6e--z5e; + +picture seven; seven := currentpicture; +currentpicture := seven shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(1.75thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.75thinl,0); +z2l = (ss,h/4); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,h/4); +penpos5(thinl,90); +z5l = (w/2,0-o); +penpos6(thinl,-45); +z6 = (w/2,h/2); +penpos7(thickl/2,-135); +z7 = z6; + +penstroke +z0e{right}..{down}z1e{down}..z6e..{down}z2e{down}..{right}z5e{right}..{up}z4e{up}..z7e..{up}z3e{up}..{right}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("0",0.9ex#+2ss#,ex#,0); "The digit 0"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(thickl,0); +z1r = (w-ss,h/2); +penpos2(thinl,-90); +z2r = (w/2,0-o); +penpos3(thickl,180); +z3r = (ss,h/2); + +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml10.mf b/Master/texmf-dist/fonts/source/public/drm/drml10.mf index 32b9ea5995c..503987cd63f 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml10.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml11.mf b/Master/texmf-dist/fonts/source/public/drm/drml11.mf index 77e73fd1129..4009ddf34e3 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml11.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml12.mf b/Master/texmf-dist/fonts/source/public/drm/drml12.mf index bf5c281f264..280daa3f4a8 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml12.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml14.mf b/Master/texmf-dist/fonts/source/public/drm/drml14.mf index 994361b6354..812a00608e7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml14.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml17.mf b/Master/texmf-dist/fonts/source/public/drm/drml17.mf index 30d70c6a6a5..c948827ec39 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml17.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml24.mf b/Master/texmf-dist/fonts/source/public/drm/drml24.mf index 582bda57177..a0f038fda66 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml24.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml6.mf b/Master/texmf-dist/fonts/source/public/drm/drml6.mf index 6727e90c906..a45ea0692ae 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml6.mf @@ -10,7 +10,7 @@ phi=(1+sqrt5)/2; cap#=4pt#; u#=2cap#/3; em#=1.4cap#; -ex#=0.8cap#; +ex#=0.7cap#; exw# = ex#; define_pixels(exw); dep#=cap#/3; ss#=0.2pt#; @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml7.mf b/Master/texmf-dist/fonts/source/public/drm/drml7.mf index 329a5368b2b..0fe0e945e9c 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml7.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml8.mf b/Master/texmf-dist/fonts/source/public/drm/drml8.mf index 1b9b4a98384..a8001e530fe 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml8.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml9.mf b/Master/texmf-dist/fonts/source/public/drm/drml9.mf index efe51ea1567..902b3d7f226 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drml9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drml9.mf @@ -68,6 +68,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmlow.mf b/Master/texmf-dist/fonts/source/public/drm/drmlow.mf index ed5713c75a7..7fbdc156e0b 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmlow.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmlow.mf @@ -666,14 +666,16 @@ ulserif(10,12,13,14,15)(1); %z17 = z15 shifted (lserwl+o+lserwl+o,-userhl+2o); hookw = w-x15-ss-bulbsh; z17 = z16 shifted (hookw,userh/2); +rbulb(17,19,20,21,22); z18 = 0.5[z16,z17]; y18 := h+o; z23 = z18 shifted (0,-thinl); -z24 = z17 shifted (0,-2hair); +%z24 = z17 shifted (0,-2hair); +z24 = 0.5[z17,z20]; z25 = z16 shifted (thickl/2,-thinl); -rbulb(17,19,20,21,22); +z26 = (z11..z23..z24) intersectionpoint (z21..z17..z19..z20); fill -z1..z6..z7--z8--z4--z3..z2..z0--z10..z12..z13--z14--z15--z16--z10..{right}z18{right}..z17..z19..z20..z21{up}..{down}z24{dir +z1..z6..z7--z8--z4--z3..z2..z0--z10..z12..z13--z14--z15--z16--z10..{right}z18{right}..z17..z19..z20..z21{up}..z26..{down}z24{dir 160}..z23..z11--cycle; lowr := currentpicture; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmatharrows.mf b/Master/texmf-dist/fonts/source/public/drm/drmmatharrows.mf new file mode 100644 index 00000000000..66eeef38f11 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmatharrows.mf @@ -0,0 +1,46 @@ +% +AMDG This document was begun on 2 July 11EX, the feast +% of the Visitation of the Blessed Virgin Mary and the +% Commemoration of Sts. Processus and Martinian, MM, and it +% is humbly dedicated to them and to the Immaculate Heart of +% Mary for their prayers, and to the Sacred Heart of Jesus +% for His mercy. + +beginchar(oct"050",1.5em#,asch#,0); "Leftward upper arrow"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h/2); +top z1 = (0.4w,h); +rt z2 = (w-ss,y0); +z3 = z1 shifted (0,-3h/8); + +path shaft; shaft = z2--z0; +path head; head = z0{z3-z0}..{up}z1; +draw shaft; draw head; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"051",1.5em#,asch#,0); "Leftward lower arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((0,h/2),(w,h/2)); + +endchar; + +beginchar(oct"052",1.5em#,asch#,0); "Rightward upper arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"053",1.5em#,asch#,0); "Rightward lower arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathcursell.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathcursell.mf new file mode 100644 index 00000000000..12e91e232a6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathcursell.mf @@ -0,0 +1,27 @@ +% +AMDG This document was begun on 3 July 11EX, the feast +% of St. Irenaeus, EM, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"140",0.6ex#+2ss#,asch#,0); "Cursive l"; +italcorr(asch#*slant); + +penpos0(thinl,0); +z0l = (ss,0); +penpos1(thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.5thinl,90); +z2r = (w/2,h+o); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,0); +penpos5(thickl,180); +z5 = (w/2,h/4); +penpos6(thinl,0); +z6 = z5; + +penstroke z0e..z6e..z1e..z2e..z3e..z5e..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathgrklow.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathgrklow.mf new file mode 100644 index 00000000000..50bfd0fec54 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathgrklow.mf @@ -0,0 +1,728 @@ +% +AMDG This document was begun on 26 June 11EX, the +% Commemoration of St. Paul and St. Peter, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"013",ex#+2ss#,ex#,0); "The letter alpha"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +bot z0 = (w-ss,0-o); +penpos1(thinl,90); +bot z1 = (w-ss-w/12,0-o); +penpos2(thickl,45); +z2r = z1r; +penpos3(thickl,0); +z3r = (x1r,h/2); +penpos4(thinl,90); +z4r = (w/2,h+o); +penpos5(thickl,180); +z5r = (ss,h/2); +penpos6(thinl,270); +z6r = (w/2,0-o); +penpos7(thinl,270); +z7l = (w-ss,h); +penpos8(thickl,0); +z8 = z3; + +penstroke z0e..z1e..z2e---z3e..z4e..z5e..z6e..{up}z8e{up}..{right}z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"014",ex#+2ss#,asch#,dep#); "The letter beta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss+hair,0); +penpos2(thickl,0); +z2l = (ss+hair,3h/4); +penpos3(thinl,-90); +z3l = (w/2,h+o); +penpos4(curvl,180); +z4l = (w-ss-hair,y2); +penpos5(thinl,90); +z5 = (x2r,h/2); +penpos6(curvl,0); +z6r = (w-ss,h/4); +penpos7(thinl,-90); +z7r = z1r; + +penstroke z0e..z1e..z2e..z3e..z4e..{left}z5e;% +penstroke z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"015",1.2ex#+2ss#,ex#,dep#); "The letter gamma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,3h/4); +penpos1(thinl,-135); +z1l = (w/4,h+o); +penpos2(thickl,200); +z2 = (w/2,0); +penpos3(thickl,180); +z3 = (w/3,-dep); +penpos4(thinl,135); +z4l = (w-ss,h); +penpos5(thickl,135); +z5 = z2; + +penstroke z0e..z1e{dir 0}..z2e..z3e;% +penstroke z5e{dir 45}..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"016",ex#+2ss#,asch#,0); "The letter delta"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (w-ss,4h/5); +penpos1(thinl,90); +z1r = (w/2,h+o); +penpos2(thickl,180); +z2r = (w/4,4h/5); +penpos3(curvl,180); +z3l = (w-ss,h/4); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(curvl,0); +z5l = (ss,h/4); +penpos6(thinl,-90); +z6 = (w/2,h/2); + +penstroke z0e..z1e..z2e..{down}z3e..z4e..z5e..z6e..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"017",0.8ex#+2ss#,ex#,0); "The letter epsilon"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w-ss,h+o); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w-ss,0-o); +penpos4(1.5thinl,45); +z4 = z1; +penpos3(1.5thinl,45); +x3r = w-ss; y3r = y4r; + +penstroke z0e{left}..{down}z1e{down}..{right}z2e; +penstroke z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"020",ex#+2ss#,asch#,dep#); "The letter zeta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,h/2); +penpos5(curvl,90); +z5l = (w/2,0-o); +penpos6(1.5thinl,0); +z6r = (w-ss,-dep/3); +penpos7(thickl,-90); +z7r = (w/2,-dep); + +penstroke z0e..z1e..z2e..z3e{left}..z4e..{right}z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"021",ex#+2ss#,ex#,dep#); "The letter eta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,4h/5); +penpos1(thinl,-90); +z1l = (x0r+hair,h+o); +penpos3(thickl,180); +z3r = (x1r+hair,3h/4); +penpos2(thickl,180); +z2r = (x3r,0); +penpos5(thickl,0); +z5r = (w-ss,3h/4); +penpos4(thinl,90); +z4r = ((x3+x5)/2,h+o); +penpos6(thickl,0); +z6 = (x5,-dep); + +penstroke z0e..z1e..z3e---z2e; +penstroke z2e---z3e..z4e..z5e---z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"022",ex#+2ss#,asch#,0); "The letter theta"; +italcorr(ex#*slant); + +penpos0(curvl,0); +z0l = (ss,h/2); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(curvl,180); +z2l = (w-ss,h/2); +penpos3(thinl,90); +z3l = (w/2,0-o); +penpos4(1.5thinl,90); +z4 = z0; +penpos5(1.5thinl,90); +z5 = z2; + +penstroke z0e..z1e..z2e..z3e..cycle; +penstroke z4e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"023",0.4ex#+2ss#,ex#,0); "The letter iota"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,h/5); +penpos2(thinl,90); +z2l = (x1r+hair,0-o); +penpos3(1.5thinl,180); +z3r = (x2r+hair,y1); + +penstroke z0e---z1e..z2e..{up}z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"024",ex#+2ss#,ex#,0); "The letter kappa"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,0); +penpos3(1.5thinl,0); +z3r = (w-ss-1.5thinl,h+o); +penpos4(1.5thinl,-90); +z4 = (x0r,h/2); +penpos5(thickl,0); +z5r = (3w/4,h/5); +penpos6(1.5thinl,45); +z6 = (w/2,h/2); +penpos7(thinl,90); +z7 = z4; +penpos8(1.5thinl,90); +z8l = (x5r+hair,0-o); +penpos9(1.5thinl,180); +z9l = (w-ss,h/5); + +penstroke z0e--z1e; +penstroke z3e--z4e; +penstroke z7e..z6e..z5e..z8e..z9e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"025",ex#+2ss#,asch#,0); "The letter lambda"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0l = (ss,0); +penpos1(1.5thinl,-45); +z1 = (w/2,h/2); +penpos2(thickl,0); +z2l = (ss,h); +penpos3(thickl,45); +z3 = z1; +penpos4(thickl,0); +z4r = (w-ss,0); + +penstroke z2e{down}..z3e..z4e; +penstroke z0e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",ex#+2ss#,ex#,dep#); "The letter mu"; +italcorr(ex#*slant); + +penpos0(thickl,180); +z0r = (ss,-dep); +penpos1(thickl,180); +z1r = (ss,h); +penpos2(thickl,180); +z2r = (ss,curlh); +penpos4(thickl,0); +z4l = (w-ss-2curlw,y2); +penpos5(thickl,0); +z5l = (w-ss-2curlw,h); +penpos3(thinl,-90); +z3r = ((x2+x4)/2,0-o); +botcurl(4,6,7); + +penstroke z0e--z1e; +penstroke z1e---z2e..z3e..z4e---z5e; +penstroke z5e--z4e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"027",1.2ex#+2ss#,ex#,0); "The letter nu"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,45); +x3r = x0r; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,45); +z8r = z3r; + +penstroke z2e..z1e..z0e---z8e; +penstroke z8e..z3e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"030",ex#+2ss#,asch#,dep#); "The letter xi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,3h/4); +penpos5(thinl,90); +z5 = (w/2,h/2-thinl); +penpos6(thinl,180); +z6 = (w/2+thickl,h/2); +penpos7(thinl,-90); +z7 = (w/2,h/2+thinl); +penpos8(curvl,0); +z8l = (ss,h/4); +penpos12(curvl,90); +z12l = (w/2,0-o); +penpos13(1.5thinl,0); +z13r = (w-ss,-dep/3); +penpos14(thickl,-90); +z14r = (w/2,-dep); + +penstroke +z0e..z1e..z2e..z3e{left}..z4e..z5e..z6e..z7e..z8e..{right}z12e{right}..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"031",ex#+2ss#,ex#,0); "The letter pi"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (2w/3,h); +penpos1(1.5thinl,0); +z1 = (w/3,h); +penpos2(thickl,0); +z2 = (w/4,0); +penpos3(thickl,0); +z3 = (3w/4,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z1e{down}..z2e; +penstroke z0e{down}..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"032",ex#+2ss#,ex#,dep#); "The letter rho"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z0e---z1e..z2e..z3e..z4e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"033",ex#+2ss#,ex#,0); "The letter sigma"; +italcorr(ex#*slant); + +penpos0(1.5thinl,-90); +z0l = (w,h+o); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(1.5thinl,-90); +z5l = z2l; + +penstroke z1e..z2e..z3e..z4e..cycle; +penstroke z1e..z5e---z0e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"034",ex#+2ss#,ex#,0); "The letter tau"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (w/2,h); +penpos1(1.5thinl,0); +z1 = (w/2,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z0e{down}..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"035",1.2ex#+2ss#,ex#,0); "The letter upsilon"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"036",1.2ex#+2ss#,asch#,dep#); "The letter phi"; +italcorr(ex#*slant); + +penpos1(thickl,0); +z1l = (ss,ex/2); +penpos2(thinl,-90); +z2l = (w/2,ex+o); +penpos3(curvl,180); +z3l = (w-ss,ex/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z1e..z2e..z3e..z4e..cycle; +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z5 = (ss,-dep); +draw z0--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"037",1.4ex#+2ss#,ex#,dep#); "The letter chi"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (ss,h-curlh); +penpos1(thickl,90); +z1r = (ss+curlw,h); +penpos2(thickl,0); +z2 = (w/2,(h+dep)/2-dep); +penpos3(thickl,90); +z3l = (w-ss-curlw,-dep); +penpos4(thinl,90); +z4l = (w-ss,-dep+curlh); +penpos5(thinl,-135); +z5l = (w-ss,h-curlh/2); +penpos6(thinl,-90); +z6l = (w-ss-0.7curlw,h+o); +penpos7(1.5thinl,0); +z7 = z2; +penpos8(thinl,-90); +z8r = (ss+0.7curlw,-dep); +penpos9(thinl,-135); +z9r = (ss,-dep+curlh/2); + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z5e..z6e..tension 2.5..z7e; +penstroke z9e..z8e..tension 2.5..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"040",1.2ex#+2ss#,asch#,dep#); "The letter psi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,ex-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,ex-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; +pickup pencircle scaled 1.5thinl; +top z10 = (w/2+1.5thinl,h+o); +bot z11 = (w/2+1.5thinl,-dep); +draw z10--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"041",1.5ex#+2ss#,ex#,0); "The letter omega"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+w/5,h); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss,h/2); +penpos6(thinl,0); +z6r = (w-ss-w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"042",0.8ex#+2ss#,ex#,0); "The letter varepsilon"; +italcorr(ex#*slant); + +penpos0(1.5thinl,225); +z0l = (w-ss,h-curlh); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thinl,135); +z2l = (w-ss,curlh); +penpos3(thickl,0); +z3l = (ss,h/4); +penpos4(thinl,90); +z4 = (w/2-thinl,h/2-thinl); +penpos5(thinl,-90); +z5 = (w/2-thinl,h/2+thinl); +penpos6(thinl,180); +z6 = (w/2+thinl,h/2); +penpos7(thinl,-90); +z7l = (w/2,h+o); +penpos8(thinl,90); +z8l = (w/2,0-o); + +penstroke z0e..z7e..z1e..z4e..z6e..z5e..z3e..z8e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"043",1.2ex#+2ss#,asch#,0); "The letter vartheta"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w-ss,ex); +penpos1(thinl,0); +z1 = (w/4,ex+((h-ex)/2)); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(2thinl,180); +z3 = (3w/4,y1); +penpos4(thickl,180); +z4 = (x3,2curlh); +penpos6(thickl,0); +z6l = (ss+1.5curlw,y4); +penpos5(thinl,90); +z5l = ((x6+x4)/2,0-o); +penpos7(thickl,0); +z7 = (x6,ex-1.5curlh); +topcurl(7,8,9); + +penstroke +z0e{left}..z1e..z2e..z3e---z4e..z5e..z6e---z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"044",1.5ex#+2ss#,ex#,0); "The letter varpi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+2w/5,h); +penpos1(curvl,0); +z1l = (ss+hair,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss-hair,h/2); +penpos6(thinl,0); +z6r = (w-ss-2w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; +penpos7(thinl,90); +z7 = (ss,h-curlh); +penpos8(thickl,90); +z8r = (ss+curlw,h+o); +penpos9(thickl,90); +z9r = (w-ss,h+o); +penstroke z7e..z8e---z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"045",ex#+2ss#,ex#,dep#); "The letter varrho"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,-dep/2); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(thinl,90); +z5l = (w/2,-dep); +penpos6(thickl,180); +z6l = (w-ss-hair,-dep/2); + +penstroke z6e{down}..z5e..z0e---z1e..z2e..z3e..z4e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"046",ex#+2ss#,ex#,dep#); "The letter varsigma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0r = (w-ss,h-curlh); +penpos1(thinl,90); +z1r = (w-ss-curlw,h+o); +penpos2(1.5thinl,90); +z2r = (ss+1.5curlw,h+o); +penpos3(curvl,180); +z3r = (ss,h/2); +penpos4(1.5thinl,-90); +z4r = (w/2,0-o); +penpos5(1.5thinl,180); +z5l = (w-ss,0-curlh); +penpos6(thinl,90); +z6l = (w/2,-dep); + +penstroke +z0e{up}..z1e..z2e..{down}z3e{down}..z4e{right}..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"047",1.2ex#+2ss#,ex#,dep#); "The letter varphi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos2(thickl,0); +z2 = (ss+1.5curlw,h-curlh); +topcurl(2,1,0); +penpos3(thickl,180); +z3l = (w-ss,3h/4); +penpos4(thinl,90); +z4l = ((x2+x3)/2,0-o); +penpos5(thinl,-60); +z5l = ((x4+x3)/2,h+o); +penpos6(thickl,0); +z6 = (x4,h/2); +penpos7(thickl,0); +z7 = (x6,-dep); +penpos8(thickl,0); +z8 = (x2,h/2); +penpos9(thickl,180); +z9 = (x3,h/2); + +penstroke z0e..z1e..z2e---z8e..z4e..z9e---z3e..z5e{left}..z6e---z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathgrkup.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathgrkup.mf new file mode 100644 index 00000000000..2f4e8e55d08 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathgrkup.mf @@ -0,0 +1,230 @@ +% +AMDG This document was begun on 24 June 11EX, the Eve of +% the feast of Sts. Peter and Paul, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for his +% mercy. + +beginchar(oct"000",5em#/6+2ss#,cap#,0); "The letter Gamma"; +italcorr(ex#*slant); + +fill capell reflectedabout ((0,h/2),(w,h/2)); + +endchar; + +beginchar(oct"001",5em#/6+2ss#,cap#,0); "The letter Delta"; +italcorr(ex#*slant); + +z0 = (ss,0-o); +z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); +z2 = (w/2,h); +z3 = z2 shifted (0,-2thinstroke); +z4 = (w-ss-1.5thinstroke,0-o); +z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); +z6 = z2 shifted (thinstroke,0); +z7 = z4 shifted (thinstroke,0); + +fill z0--z2--z4--cycle; +unfill z1--z3--z5--cycle; +fill z2--z6--z7--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"002",5em#/6+2ss#,cap#,0); "The letter Theta"; +italcorr(ex#*slant); + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"003",6em#/6+2ss#,cap#,0); "The letter Lambda"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thinstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (w/2,h+o); +z24 = z20 shifted (thinstroke,0); +z25 = z20 shifted (-thickstroke,0); +z21 = (z1--z24) intersectionpoint (z3--z25); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z3..z12..z13--z14--z18--z17..z16..z2--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + + +beginchar(oct"004",5em#/6+2ss#,cap#,0); "The letter Xi"; +italcorr(ex#*slant); + +z0 = (ss,h-thickstroke-thinstroke); +z1 = z0 shifted (thinstroke,0); +z2 = z1 shifted (0,thinstroke); +z3 = (w-ss,h-thickstroke-thinstroke); +z4 = z3 shifted (-thinstroke,0); +z5 = z4 shifted (0,thinstroke); +z6 = (ss,h); +z7 = (w-ss,h); + +path xitop; xitop = z0--z6--z7--z3--z4--z5--z2--z1--cycle; +fill xitop; +fill xitop reflectedabout ((0,h/2),(w,h/2)); + +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"005",6em#/6+2ss#,cap#,0); "The letter Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"006",5em#/6+2ss#,cap#,0); "The letter Sigma"; +italcorr(ex#*slant); + +z0 = (w-ss,h); +z1 = (w-ss,h-thickstroke-thinstroke); +z2 = z1 shifted (-thinstroke,0); +z3 = z2 shifted (0,thinstroke); +z4 = (ss,h); +z5 = (ss,h-thickstroke); +z6 = (w/2-1.5thinstroke/2,h/2); +z7 = z6 shifted (1.5thinstroke,0); +z8 = (ss,0); +z9 = z8 shifted (0,thickstroke); +z10 = (w-ss,0); +z11 = z10 shifted (0,thickstroke+thinstroke); +z12 = z11 shifted (-thinstroke,0); +z13 = z12 shifted (0,-thinstroke); +z14 = z5 shifted (1.5thinstroke,0); +z15 = z9 shifted (1.5thinstroke,0); + +fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- + z7--z15--z13--z12--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"007",5em#/6+2ss#,cap#,0); "The letter Upsilon"; +italcorr(ex#*slant); + +fill capwhy; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"010",5em#/6+2ss#,cap#,0); "The letter Phi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +fill fillo yscaled 0.6 shifted (0,0.2h); +unfill unfillo yscaled 0.6 shifted (0,0.2h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"011",5em#/6+2ss#,cap#,0); "The letter Psi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +pickup pencircle scaled thickstroke; +penpos0(0.8thickstroke,0); +z0 = (w/4,3h/5); +penpos1(0.8thickstroke,180); +z1 = (3w/4,3h/5); +penpos2(0.8thickstroke,0); +z2 = (w/4,2h/5); +penpos3(0.8thickstroke,180); +z3 = (3w/4,2h/5); +penpos4(thinstroke,90); +z4 = (w/2,h/5); +penpos5(thinstroke,90); +z5 = (ss,4h/5); +penpos6(thinstroke,90); +z6 = (w-ss,4h/5); + +penstroke z5e..z0e..z2e..z4e..z3e..z1e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"012",5em#/6+2ss#,cap#,0); "The letter Omega"; +italcorr(ex#*slant); + +z0 = (ss,0); +z1 = (w-ss,0); +z2 = z0 shifted (thickstroke,0); +z3 = z1 shifted (-thickstroke,0); +z4 = z0 shifted (0,2lserh); +z5 = z1 shifted (0,2lserh); +z6 = z5 shifted (-lserstep,0); +z7 = z4 shifted (lserstep,0); +z8 = z2 shifted (thickstroke,0); +z9 = z3 shifted (-thickstroke,0); +z10 = (ss,h/2+2lserh); +z11 = (w-ss,h/2+2lserh); +z12 = z10 shifted (curvwid,0); +z13 = z11 shifted (-curvwid,0); +z14 = (w/2,h+o); +z15 = z14 shifted (0,-thinstroke); +z16 = z8 shifted (0,thinstroke); +z17 = z9 shifted (0,thinstroke); +z18 = z9 shifted (-thickstroke,0); +z19 = z8 shifted (thickstroke,0); + +path omega; omega = + z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. + {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. + {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. + {down}z12{down}..{dir -60}z19--cycle; +fill omega; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathoms.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathoms.mf new file mode 100644 index 00000000000..5ccbebddd7e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathoms.mf @@ -0,0 +1,1385 @@ +% +AMDG This document was begun on 3 July 11EX, the feast +% of St. Irenaeus, EM, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"000",3pwid#,ex#,0); "Minus sign"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"001",pwid#,ex#,0); "Dot product"; + +z0 = (w/2,3h/4); +z1 = z0 shifted (dotwidth,0); +z2 = z0 shifted (0,dotwidth); +z3 = z0 shifted (-dotwidth,0); +z4 = z0 shifted (0,-dotwidth); + +path dotprod; +dotprod = z1..z2..z3..z4..cycle; +fill dotprod; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"002",ex#,ex#,0); "Cross product"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot rt z1 = (w-ss,0); +top rt z2 = (w-ss,h); +bot lft z3 = (ss,0); +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"003",ex#,ex#,0); "Asterisk"; + +pickup pencircle scaled 1.5thinl; +z12 = (w/2,h/2); +top z0 = (w/2,h); +bot z1 = (w/2,0); +z2 = z0 rotatedaround (z12,60); +z3 = z2 rotatedaround (z12,60); +z4 = z3 rotatedaround (z12,60); +z5 = z4 rotatedaround (z12,60); +z6 = z5 rotatedaround (z12,60); +draw z0--z1; draw z2--z5; draw z3--z6; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"004",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; + +pickup pencircle scaled thinl; +lft z0 = (ss,(h+d)/2-d); +rt z1 = (w-ss,(h+d)/2-d); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); +fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"005",ex#,ex#,0); "Diamond, lozenge"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0-o); +lft z3 = (ss,h/2); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"006",em#,cap#,0); "The plus minus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z3 = (ss,h/2); +rt z4 = (w-ss,h/2); +bot lft z5 = (ss,0); +bot rt z6 = (w-ss,0); + +draw z0--z1; draw z3--z4; draw z5--z6; +picture plusminus; plusminus := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"007",em#,cap#,0); "Inverse plus minus"; + +currentpicture := plusminus reflectedabout + ((0,h/2),(w,h/2)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"010",em#,cap#,0); "oplus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; +draw z0--z2; +draw z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"011",em#,cap#,0); "ominus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; +draw z1--z3; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"012",em#,cap#,0); "otimes"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +z5 = z0 rotatedaround ((w/2,h/2),45); +z6 = z1 rotatedaround ((w/2,h/2),45); +z7 = z2 rotatedaround ((w/2,h/2),45); +z8 = z3 rotatedaround ((w/2,h/2),45); +draw z0..z1..z2..z3..cycle; +draw z5--z7; draw z8--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"013",em#,cap#,0); "oslash"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +z5 = z0 rotatedaround ((w/2,h/2),45); +z6 = z1 rotatedaround ((w/2,h/2),45); +z7 = z2 rotatedaround ((w/2,h/2),45); +z8 = z3 rotatedaround ((w/2,h/2),45); +draw z0..z1..z2..z3..cycle; +draw z8--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"014",em#,cap#,0); "odot"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +fill fullcircle scaled 2dotwidth shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"015",1.1em#,1.1cap#,0); "bigcirc"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"016",ex#,ex#,0); "circ"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"017",ex#,ex#,0); "bullet"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +filldraw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"020",em#,cap#,0); "asymp"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +bot z2 = (w/2,h/2+thickstroke/2); +path halfwavy; halfwavy = z0..z2..z1; +draw halfwavy; +draw halfwavy reflectedabout ((0,h/2),(w,h/2)); + +penlabels(0,1,2,3); +endchar; + +beginchar(oct"021",em#,cap#,0); "three horizontal lines"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +path hozline; hozline = z0--z1; +draw hozline; +draw hozline shifted (0,-w/3); +draw hozline shifted (0,-2w/3); + + +penlabels(0,1,2,3); +endchar; + +beginchar(oct"022",em#,cap#,0); "subseteq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0---z5..{down}z1{down}..z6---z2; +draw z3--z4; + +picture subseteq; +subseteq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"023",em#,cap#,0); "supseteq"; + +currentpicture := subseteq reflectedabout ((w/2,h),(w/2,0)); +picture supseteq; supseteq := currentpicture; + +endchar; + +beginchar(oct"024",em#,cap#,0); "leq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0--z1--z2; +draw z3--z4; + +picture leq; +leq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"025",em#,cap#,0); "geq"; + +currentpicture := leq reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"026",em#,cap#,0); "preceq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0..{left}z1; draw z2..{left}z1; +draw z3--z4; + +picture preceq; +preceq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"027",em#,cap#,0); "succeq"; + +currentpicture := preceq reflectedabout ((w/2,h),(w/2,0)); +picture succeq; succeq := currentpicture; + +endchar; + +beginchar(oct"030",em#,cap#,0); "sim"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); + +penstroke z0e..z1e..z2e..z3e; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"031",em#,cap#,0); "approx"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); + +penstroke (z0e..z1e..z2e..z3e) shifted (0,thickl); +penstroke (z0e..z1e..z2e..z3e) shifted (0,-thickl); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"032",em#,cap#,0); "subset"; + +currentpicture := subseteq; +pickup pencircle scaled 1.5thinl; +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +undraw z3--z4; + +endchar; + +beginchar(oct"033",em#,cap#,0); "supset"; + +currentpicture := supseteq; +pickup pencircle scaled 1.5thinl; +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +undraw z3--z4; + +picture supset; supset := currentpicture; + +endchar; + +beginchar(oct"034",em#,cap#,0); "ll"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss-w/4,h); +lft z1 = (ss+w/4,2h/3); +rt z2 = (w-ss-w/4,h/3); +path lesser; lesser = z0--z1--z2; +draw lesser shifted (-thickl,0); +draw lesser shifted (thickl,0); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"035",em#,cap#,0); "gg"; + +pickup pencircle scaled 1.5thinl; +draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (-thickl,0); +draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (thickl,0); + +endchar; + +beginchar(oct"036",em#,cap#,0); "prec"; + +pickup pencircle scaled 1.5thinl; +currentpicture := preceq; +bot z0 = (ss,0); bot z1 = (w-ss,0); +undraw z0--z1; +picture prec; prec := currentpicture; + +endchar; + +beginchar(oct"037",em#,cap#,0); "succ"; + +currentpicture := prec reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"040",1em#,cap#,0); "left arrow"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h/2); +top z1 = (0.3w,13h/16); +rt z2 = (w-ss,y0); +z3 = z1 shifted (0,-3h/16); +bot z4 = (0.3w,3h/16); +z5 = (x3,y4+3h/16); + +path shaft; shaft = z2--z0; +path head; head = z4{up}..{z0-z5}z0{z3-z0}..{up}z1; +draw shaft; draw head; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"041",em#,cap#,0); "right arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"042",em#,cap#,0); "up arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),-90); + +endchar; + +beginchar(oct"043",em#,cap#,0); "down arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),90); +draw head rotatedaround ((w/2,h/2),90); + +endchar; + +beginchar(oct"044",em#,cap#,0); "left-right arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; draw head; +draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"045",em#,cap#,0); "northeast arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-135); +draw head rotatedaround ((w/2,h/2),-135); + +endchar; + +beginchar(oct"046",em#,cap#,0); "southeast arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-225); +draw head rotatedaround ((w/2,h/2),-225); + +endchar; + +beginchar(oct"055",em#,cap#,0); "northwest arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-45); +draw head rotatedaround ((w/2,h/2),-45); + +endchar; + +beginchar(oct"056",em#,cap#,0); "southwest arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),45); +draw head rotatedaround ((w/2,h/2),45); + +endchar; + +beginchar(oct"047",em#,cap#,0); "simeq"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); +bot lft z4 = (ss,0); +bot rt z5 = (w-ss,0); + +penstroke z0e..z1e..z2e..z3e; +draw z4--z5; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"050",em#,cap#,0); "double-width left arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w-ss,h/2+thickl); +rt z1 = (w-ss,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +draw head; +draw z0--z4; draw z5--z1; + +picture doubleftarrow; doubleftarrow := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"051",em#,cap#,0); "double-width right arrow"; + +currentpicture := doubleftarrow reflectedabout + ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"052",em#,cap#,0); "double-width up arrow"; + +currentpicture := doubleftarrow rotatedaround + ((w/2,h/2),-90); + +endchar; + +beginchar(oct"053",em#,cap#,0); "double-width down arrow"; + +currentpicture := doubleftarrow rotatedaround + ((w/2,h/2),90); + +endchar; + +beginchar(oct"054",em#,cap#,0); "double-width left-right arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w/2,h/2+thickl); +rt z1 = (w/2,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +draw head; draw head reflectedabout ((w/2,h),(w/2,0)); +draw z0--z4; draw z5--z1; +draw z0--z4 reflectedabout ((w/2,h),(w/2,0)); +draw z1--z5 reflectedabout ((w/2,h),(w/2,0)); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"057",em#,ex#,0); "propto"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,-90); +z0l = (w-ss,h); +penpos1(thinl,-90); +z1l = (5w/6,h); +penpos2(thickl,0); +z2 = (0.55w,h/2); +penpos3(thinl,-90); +z3r = (0.3w,0-o); +penpos4(curvl,180); +z4r = (ss,h/2); +penpos5(thinl,90); +z5r = (x3,h+o); +penpos6(thickl,0); +z6 = (0.55w,h/2); +penpos7(thinl,90); +z7l = (x1,0); +penpos8(thinl,90); +z8l = (x0,0); + +penstroke z0e---z1e..z2e..z3e..z4e..z5e..z6e..z7e---z8e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"060",1.4pwid#+2ss#,cap#,0); "large prime"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h+o); +z1 = z0 shifted (-pwid/3,-pwid/3); +z2 = z0 shifted (pwid/3,-pwid/3); +z3 = (x0,h/4); +z4 = z3 shifted (-pwid/6,pwid/6); +z5 = z3 shifted (pwid/6,pwid/6); +fill z0..z2---z5..z3..z4---z1..cycle + rotatedaround ((w/2,(y0+y3)/2),-15); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"061",em#,ex#,0); "infty"; + +pickup pencircle scaled 1.5thinl; +penpos0(thickl,180); +z0l = (w-ss,h/2); +penpos2(thickl,0); +z2 = (0.5w,h/2); +penpos4(thickl,180); +z4r = (ss,h/2); +penpos6(thickl,0); +z6 = (0.5w,h/2); +penpos7(thinl,90); +z7l = (x1,0-o); +penpos8(thinl,90); +z8l = (x0,0); +penpos1(thinl,-90); +z1l = ((x0+x2)/2,h+o); +penpos5(thinl,90); +z5r = (x3,h+o); +penpos3(thinl,-90); +z3r = ((x6+x4)/2,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e..z7e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"062",1.5ex#,cap#,0); "in"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +top z1 = (w/2,h); +lft z2 = (ss,h/2); +bot z3 = (w/2,0); +bot rt z4 = (w-ss,0); +rt z5 = (w-ss,h/2); +draw z0{left}..z2..{right}z4; +draw z2--z5; + +picture inset; inset := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"063",1.5ex#,cap#,0); "ni"; +currentpicture := inset reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"064",em#,cap#,0); "upward triangle"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +bot lft z1 = (ss,0-o); +bot rt z2 = (w-ss,0-o); + +draw z0--z1--z2--cycle; +picture triangle; triangle := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"065",em#,cap#,0); "downward triangle"; +currentpicture := triangle reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"066",2pwid#,cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"067",pwid#,ex#,0); "straight prime"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +z1 = (w/2,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"070",1.2ex#,cap#,0); "inverse A"; + +pickup pencircle scaled 1.5thinl; +bot z0 = (w/2,0-o); +top lft z1 = (ss,h+o); +top rt z2 = (w-ss,h+o); +draw z0--z1; draw z0--z2; +z3 = 0.618[z0,z1]; z4 = 0.618[z0,z2]; +draw z3--z4; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"071",1.2ex#,cap#,0); "inverse E"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot rt z2 = (w-ss,0-o); +bot lft z3 = (ss,0-o); +draw z0--z1--z2--z3; +lft z4 = (ss,h/2); +rt z5 = (w-ss,h/2); +draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"072",1.6ex#,ex#,0); "neg"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,y0); +bot rt z2 = (w-ss,0); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"073",digwid#+2ss#,cap#,0); "null set"; + +pickup pencircle scaled 1.5thinl; +penpos0(thickl,0); +z0r = (w-ss,h/2); +penpos1(thinl,-90); +z1r = (w/2,0-o); +penpos2(thickl,180); +z2r = (ss,h/2); +penpos3(thinl,90); +z3r = (w/2,h+o); +top rt z4 = (w-ss,h+o); +bot lft z5 = (ss,0-o); +draw z4--z5; +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"076",1.4ex#,cap#,0); "top"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot z2 = (w/2,0-o); +top z3 = (w/2,h+o); +draw z0--z1; draw z2--z3; +picture toppic; toppic := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"077",1.4ex#,cap#,0); "perp"; +currentpicture := toppic reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"133",0.75em#+2ss#,cap#,0); "union"; +currentpicture := supset rotatedaround ((em/2,cap/2),-90) + shifted (-1/3cap+1.5thinl,0); +endchar; + +beginchar(oct"134",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := supset rotatedaround ((em/2,cap/2),90) + shifted (1.5thinl/2,0); +endchar; + +beginchar(oct"135",0.75em#+2ss#,cap#,0); "union"; +currentpicture := supset rotatedaround ((em/2,cap/2),-90) + shifted (-1/3cap+1.5thinl,0); +pickup pencircle scaled 1.5thinl; +z0 = (-w/2,h-w/2-thinl/2); +z1 = (w/2,h-w/2-thinl/2); +z2 = (0,h); +z3 = (0,h-w-2ss); +draw (z0--z1) scaled 0.5 shifted (w/2,w/4); +draw (z2--z3) scaled 0.5 shifted (w/2,w/4); +penlabels (0,1,2,3,4); +endchar; + +beginchar(oct"136",0.75em#+2ss#,cap#,0); "upward pointing"; +pickup pencircle scaled 1.5thinl; +draw lesser rotatedaround ((w/2,h/2),-90) + shifted (-w/4+2ss,h/8); +endchar; + +beginchar(oct"137",0.75em#+2ss#,cap#,0); "downward pointing"; +pickup pencircle scaled 1.5thinl; +draw lesser rotatedaround ((w/2,h/2),90) + shifted (w/4-2ss,-h/8); +endchar; + +beginchar(oct"140",0.75em#+2ss#,cap#,0); "leftward T"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +lft z2 = (ss,h/2); +rt z3 = (w-ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"141",0.75em#+2ss#,cap#,0); "rightward T"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,0-o); +rt z2 = (w-ss,h/2); +lft z3 = (ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"142",0.25em#+2ss#,cap#,dep#); "left floor"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-dep); +bot rt z2 = (w-ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"143",0.25em#+2ss#,cap#,dep#); "right floor"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-dep); +bot lft z2 = (ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"144",0.25em#+2ss#,cap#,dep#); "left ceil"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-dep); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"145",0.25em#+2ss#,cap#,dep#); "right ceil"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-dep); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"146",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; + +brackwid = 2thinl; +toth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-dep); +lft z2 = (ss,h-toth/2); +z3 = (3(x0-x2)/4,h-toth/4); +z4 = (3(x0-x2)/4,h-3toth/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"147",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"150",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-dep); +bot rt z2 = (w-ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"151",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-dep); +bot lft z2 = (ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"152",0.9pwid#,cap#+ss#,dep#); "Pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,-d); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"153",1.5pwid#,cap#+ss#,dep#); "Double pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2-thickstroke,h); +bot z1 = (w/2-thickstroke,-d); +top z2 = (w/2+thickstroke,h); +bot z3 = (w/2+thickstroke,-d); +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"154",em#,cap#,0); "up-down arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),90); + +endchar; + +beginchar(oct"155",em#,cap#,0); "double-width up-down arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w/2,h/2+thickl); +rt z1 = (w/2,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +z6 = (w-x4,y4); +z7 = (w-x5,y5); +draw head rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),90); +draw (z4--z6) rotatedaround ((w/2,h/2),-90); +draw (z5--z7) rotatedaround ((w/2,h/2),-90); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"156",2pwid#,cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"157",2pwid#,cap#,0); "Vertical tilde"; + +penpos0(thinstroke,90); +z0r = (ss,h+o); +penpos1(curvwid,0); +z1r = (w-ss,2h/3); +penpos2(curvwid,0); +z2l = (ss,h/3); +penpos3(thinstroke,90); +z3l = (w-ss,0-o); + +penstroke z0e{right}..z1e..z2e..{right}z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"160",em#+2ss#,cap#,0); "Square root sign"; + +pickup pencircle scaled 1.5thinl; + +penpos0(thinl,-45); +lft z0 = (ss,h/4); +penpos1(thinl,-45); +z1 = (w/6,h/3); +penpos3(1.5thinl,-90); +bot z3 = (3w/4,h+o+thinl); +penpos4(1.5thinl,-90); +z4 = (w-ss,y3); +penpos5(thickl,45); +z5l = z1l; +penpos6(thickl,45); +z6l = (w/3,0-o); +penpos2(1.5thinl,-45); +z2r = z6r; +penpos7(1.5thinl,-45); +z7r = z3r; + +penstroke z0e--z1e; +penstroke z5e--z6e; +penstroke z2e--z7e..z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"161",6em#/6+2ss#,cap#,0); "Inverted Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); +y26 := y27 := y31 := y30 := h; +y6 := y10 := y14 := y18 := 0; + +fill +(z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle) + rotatedaround ((w/2,h/2),180); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +penlabels(35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50); +endchar; + +beginchar(oct"162",5em#/6+2ss#,cap#,0); "Inverted Delta"; +italcorr(ex#*slant); + +z0 = (ss,0-o); +z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); +z2 = (w/2,h); +z3 = z2 shifted (0,-2thinstroke); +z4 = (w-ss-1.5thinstroke,0-o); +z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); +z6 = z2 shifted (thinstroke,0); +z7 = z4 shifted (thinstroke,0); + +fill (z0--z2--z4--cycle) rotatedaround ((w/2,h/2),180); +unfill (z1--z3--z5--cycle)rotatedaround ((w/2,h/2),180); +fill (z2--z6--z7--z4--cycle)rotatedaround ((w/2,h/2),180); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"163",ex#+2ss#,asch#,dep#); "Integral"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke +z12e..z11e..z5e..{right}z3e{right}..z1e---z0e..{right}z2e{right}..z4e..z9e..z10e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"164",1.5ex#,cap#,0); "upward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +draw z0--z2--z3--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"165",1.5ex#,cap#,0); "downward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +draw z2--z0--z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"166",1.5ex#,cap#,0); "rightward square cup, line"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,2thickstroke); +rt z3 = (w-ss,y2); +bot lft z4 = (ss,0-o); +bot rt z5 = (w-ss,0-o); + +draw z1--z0--z2--z3; draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"167",1.5ex#,cap#,0); "leftward square cup, line"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,2thickstroke); +rt z3 = (w-ss,y2); +bot lft z4 = (ss,0-o); +bot rt z5 = (w-ss,0-o); + +draw z0--z1--z3--z2; draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"170",4ex#/5,cap#,dep#); "The section symbol"; + +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = +z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"171",ex#+2ss#,cap#,dep#); "dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,-dep); +z2 = (ss,2h/3); +z3 = (w-ss,2h/3); +z4 = (w/2,2h/3); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (hair,hair); +z31 = z1 shifted (-hair,hair); + +fill +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"172",ex#+2ss#,cap#,dep#); "double dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,(h-dep)/2); +z2 = (ss,(3h-dep)/4); +z3 = (w-ss,(3h-dep)/4); +z4 = (w/2,(3h-dep)/4); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (thickl/2,hair); +z31 = z1 shifted (-thickl/2,hair); + +path halfdag; +halfdag = +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +fill halfdag; +fill halfdag shifted (0,-(h-dep)-o); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"173",4em#/5+2ss#,cap#,0); "double-line pilcrow"; + +pickup pencircle scaled thinl; +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-1.5thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-1.5thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +lft z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (1.5thickstroke,0); +z20 = (x3,h); + +filldraw z20{left}..{down}z16{down}..{right}z18--cycle; +draw +z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"174",em#+2ss#,cap#,0); "Clubs"; + +z0 = (w/2-thinstroke,0); +z1 = z0 shifted (2thinstroke,0); +z2 = z0 shifted (0,2thickstroke); +z3 = z1 shifted (0,2thickstroke); +z4 = (w/4,thickstroke/2); +z5 = (ss,h/3); +z6 = (x4,2h/3); +z7 = (x2,y5); +z8 = (x6,3h/4); +z9 = (w/2,h); +z10 = (3w/4,y8); +z11 = (x3,y7); +z12 = (x10,y6); +z13 = (w-ss,y5); +z14 = (x10,y4); + +path leftleaf; +leftleaf = z0--z2..z4..z5..z6..z7; +path topleaf; +topleaf = z7..z8..z9..z10..z11; +path rightleaf; +rightleaf = z11..z12..z13..z14..z3--z1--z0; + +fill leftleaf & topleaf & rightleaf & cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"175",em#+2ss#,cap#,0); "Diamonds"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h+o); +z1 = (w-ss,h/2); +z2 = (w/2,0-o); +z3 = (ss,h/2); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"176",em#+2ss#,cap#,0); "Hearts"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,3h/4); +z1 = (w/4,h+o); +z2 = (3w/4,h+o); +z3 = (ss,3h/4); +z4 = (w-ss,3h/4); +z5 = (w/2,0); + +draw z5---z4..z2..z0; +draw z5---z3..z1..z0; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"177",em#+2ss#,cap#,0); "Spades"; + +z0 = (w/2-thinstroke,0); +z1 = z0 shifted (2thinstroke,0); +z2 = z0 shifted (0,2thickstroke); +z3 = z1 shifted (0,2thickstroke); +z4 = (w/4,thickstroke/2); +z5 = (ss,h/3); +z6 = (w/4,2h/3); +z7 = (w/2,h+o); +z8 = (3w/4,2h/3); +z9 = (w-ss,h/3); +z10 = (3w/4,thickstroke/2); + +fill z0--z2..z4..z5..z6..{dir 70}z7{dir -70}..z8..z9..z10..z3--z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathomx.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathomx.mf new file mode 100644 index 00000000000..efd130ddd5b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathomx.mf @@ -0,0 +1,1463 @@ +% +AMDG This document was begun on 10 July 11EX, the feast +% of St. John Gualbert, A, and it is humbly dedicated to him +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +picture paren; +picture squarebrack; + +beginchar(oct"000",1.5pwid#,cap#,dep#); "The open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +paren := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"001",1.5pwid#,cap#,dep#); "The close parenthesis, )"; + +currentpicture := paren rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"002",2pwid#,cap#+ss#,dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"003",2pwid#,cap#+ss#,dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"004",2pwid#,cap#,dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"005",2pwid#,cap#,dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"006",2pwid#,cap#,dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"007",2pwid#,cap#,dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"010",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; + +brackwid = thickl; +toth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-toth/2); +z3 = (3(x0-x2)/4,h-toth/4); +z4 = (3(x0-x2)/4,h-3toth/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"011",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"012",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"013",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"014",0.9pwid#,ex#,0); "pipe extender"; + +pickup pencircle scaled thickl; +z0 = (w/2,h); +z1 = (w/2,0); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"015",0.9pwid#,ex#,0); "pipe extender"; + +pickup pencircle scaled thickl; +z0 = (w/2-thickstroke,h); +z1 = (w/2-thickstroke,0); +z2 = (w/2+thickstroke,h); +z3 = (w/2+thickstroke,0); +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"016",2pwid#,cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"017",2pwid#,cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"020",2.5pwid#,2cap#,2dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggerparen; +biggerparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"021",2.5pwid#,2cap#,2dep#); "Bigger close parenthesis, )"; + +currentpicture := biggerparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"022",3pwid#,3cap#,3dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggererparen; +biggererparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"023",3pwid#,3cap#,3dep#); "Bigger close parenthesis, )"; + +currentpicture := biggererparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"040",4pwid#,4cap#,4dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggestparen; +biggestparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"041",4pwid#,4cap#,4dep#); "Bigger close parenthesis, )"; + +currentpicture := biggestparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"024",3pwid#,3cap#+ss#,3dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path biggersquarebrack; +biggersquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill biggersquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"025",3pwid#,3cap#+ss#,3dep#); "The close square bracket, ]"; +fill biggersquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"042",4pwid#,4cap#+ss#,4dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path biggestsquarebrack; +biggestsquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill biggestsquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"043",4pwid#,4cap#+ss#,4dep#); "The close square bracket, ]"; +fill biggestsquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"026",3pwid#,3cap#,3dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"027",3pwid#,3cap#,3dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"044",4pwid#,4cap#,4dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"045",4pwid#,4cap#,4dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"030",3pwid#,3cap#,3dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"031",3pwid#,3cap#,3dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"046",4pwid#,4cap#,4dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"047",4pwid#,4cap#,4dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"032",3pwid#,3cap#+ss#,3dep#); "The open curly bracket, {"; + +biggertoth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-biggertoth/2); +z3 = (3(x0-x2)/4,h-biggertoth/4); +z4 = (3(x0-x2)/4,h-3biggertoth/4); + +path biggercurlybrack; +biggercurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw biggercurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"033",3pwid#,3cap#+ss#,3dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw biggercurlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"050",4pwid#,4cap#+ss#,4dep#); "The open curly bracket, {"; + +biggesttoth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-biggesttoth/2); +z3 = (3(x0-x2)/4,h-biggesttoth/4); +z4 = (3(x0-x2)/4,h-3biggesttoth/4); + +path biggestcurlybrack; +biggestcurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw biggestcurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"051",4pwid#,4cap#+ss#,4dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw biggestcurlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"150",2.5pwid#,2cap#+ss#,2dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"151",2.5pwid#,2cap#+ss#,2dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"152",2.5pwid#,2cap#,2dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"153",2.5pwid#,2cap#,2dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"154",2.5pwid#,2cap#,2dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"155",2.5pwid#,2cap#,2dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"156",2.5pwid#,2cap#+ss#,2dep#); "The open curly bracket, {"; + +brackwid := 2thinl; +tothtwo = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-tothtwo/2); +z3 = (3(x0-x2)/4,h-tothtwo/4); +z4 = (3(x0-x2)/4,h-3tothtwo/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"157",2.5pwid#,2cap#+ss#,2dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"104",2.5pwid#,2cap#+ss#,3dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"034",3pwid#,3cap#+ss#,3dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"105",2.5pwid#,2cap#+ss#,3dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"035",3pwid#,3cap#+ss#,3dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"036",3pwid#,3cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"037",3pwid#,3cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"052",4pwid#,4cap#+ss#,4dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"053",4pwid#,4cap#+ss#,4dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"054",4pwid#,4cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"055",4pwid#,4cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"056",2.5pwid#,2cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"057",2.5pwid#,2cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"060",3pwid#,3cap#,3dep#); "The open paren top exten"; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,-d); +z3 = z2 shifted (thickl,0); + +fill z3{up}...{dir 30}z0{dir 200}...{down}z2--cycle; + +picture openparentop; +openparentop := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"061",3pwid#,3cap#,3dep#); "The close paren top exten"; + +currentpicture := openparentop reflectedabout + ((w/2,h),(w/2,(h-d)/2)); + +endchar; + +beginchar(oct"062",3pwid#,3cap#+ss#,3dep#); +"The top open square bracket exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,0); + +path topsquarebrack; +topsquarebrack = z0--z2--z4--z5--z3--z1--cycle; +fill topsquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"063",3pwid#,3cap#+ss#,3dep#); +"The top close square bracket exten"; +fill topsquarebrack reflectedabout ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"064",3pwid#,3cap#+ss#,3dep#); +"The bottom open square bracket exten"; +fill topsquarebrack reflectedabout ((0,(h-d)/2),(w,(h-d)/2)); +endchar; + +beginchar(oct"065",3pwid#,3cap#+ss#,3dep#); +"The bottom open square bracket exten"; +fill topsquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"066",3pwid#,ex#,dep#); +"left square bracket extension piece"; +z0 = (ss,h); +z1 = z0 shifted (thickl,0); +z2 = (ss,-d); +z3 = z2 shifted (thickl,0); +fill z0--z1--z3--z2--cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"067",3pwid#,ex#,dep#); +"right square bracket extension piece"; +z0 = (w-ss,h); +z1 = z0 shifted (-thickl,0); +z2 = (w-ss,-d); +z3 = z2 shifted (-thickl,0); +fill z0--z1--z3--z2--cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"102",3pwid#,ex#,dep#); "Left paren exten"; + +z0 = (ss,h); +z1 = (ss,-d); +z2 = z1 shifted (thickl,0); +z3 = z0 shifted (thickl,0); +fill z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"103",3pwid#,ex#,dep#); "Right paren exten"; + +z0 = (w-ss,h); +z1 = (w-ss,-d); +z2 = z1 shifted (-thickl,0); +z3 = z0 shifted (-thickl,0); +fill z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"100",3pwid#,3cap#,3dep#); "The open paren bot exten"; +currentpicture := openparentop reflectedabout + ((0,(h-d)/2),(w,(h-d)/2)); +endchar; + +beginchar(oct"101",3pwid#,3cap#,3dep#); "The close paren bot exten"; +currentpicture := openparentop reflectedabout + ((0,(h-d)/2),(w,(h-d)/2)) reflectedabout + ((w/2,h),(w/2,(h-d)/2)); +endchar; + +beginchar(oct"070",3pwid#,cap#,0); "The open curly top exten"; + +brackwid := thickl; +toth := h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +z1 = (w/2,0); +draw z0{left}..{down}z1; + +picture curlyopentop; curlyopentop := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"071",3pwid#,cap#,0); "The close curly top exten"; +currentpicture := curlyopentop reflectedabout + ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"072",3pwid#,cap#,0); "The open curly bot exten"; +currentpicture := curlyopentop reflectedabout + ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"073",3pwid#,cap#,0); "The close curly bot exten"; +currentpicture := curlyopentop reflectedabout + ((0,h/2),(w,h/2)) reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"076",3pwid#,ex#,0); "The open curly brack exten"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw (w/2,h)--(w/2,0); +endchar; + +beginchar(oct"074",3pwid#,3cap#,0); "The open middle curly brack"; +pickup pencircle xscaled brackwid yscaled (thinl); +z0 = (w/2,h); +z1 = (2w/3,0.6h); +z2 = (ss,h/2); +z3 = (2w/3,0.4h); +z4 = (w/2,0); +draw z0{down}..{dir -165}z2; +draw z4{up}..{dir -195}z2; +picture midcurly; midcurly := currentpicture; +endchar; + +beginchar(oct"075",3pwid#,3cap#,0); "The close middle curly brack"; +currentpicture := midcurly reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"077",ex#,ex#,0); "Vertical arrow extension"; +pickup pencircle scaled 1.5thinl; +draw (w/2,h)--(w/2,0); +endchar; + +beginchar(oct"170",ex#,cap#,0); "Upward arrow head"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z2 = (0,2h/3); +rt z3 = (w,2h/3); +draw z0--z1; +draw z2--z0--z3; +picture uparrow; uparrow := currentpicture; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"171",ex#,cap#,0); "Downward arrow head"; +currentpicture := uparrow reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"176",em#,cap#,0); "Double up arrow with head"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +lft z1 = (0,2h/3); +rt z2 = (w,2h/3); +path head; head = z1--z0--z2; draw head; +z3 = (w/3,0); +z4 = (2w/3,0); +z5 = (z3--(x3,h)) intersectionpoint head; +z6 = (z4--(x4,h)) intersectionpoint head; +draw z3--z5; draw z4--z6; +picture doublehead; doublehead := currentpicture; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"177",em#,cap#,0); "Double down arrow with head"; +currentpicture := doublehead reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"167",em#,cap#,0); "Double arrow exten"; +pickup pencircle scaled 1.5thinl; +draw (w/3,0)--(w/3,h); +draw (2w/3,0)--(2w/3,h); +endchar; + +beginchar(oct"106",1.5ex#,cap#,0); "small upward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +path upsquarecup; upsquarecup = z0--z2--z3--z1; +draw upsquarecup; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"107",3ex#,2cap#,ex#); "large upward square cup"; + +pickup pencircle scaled thickl; +draw upsquarecup scaled 2 shifted (0,-ex); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"142",ex#,cap#,0); "narrow hat"; + +z0 = (ss,h-pwid); +z1 = (w/2,h+o); +z2 = (w-ss,y0); +z3 = z1 shifted (0,-thickl); +z4 = z0 shifted (0,thinl); +z5 = z2 shifted (0,thinl); +path hat; hat = z1--z5{dir -45}..z2--z3--z0{dir -225}..z4--cycle; +fill hat; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"143",2ex#,cap#,0); "middle hat"; +fill hat xscaled 2; +endchar; + +beginchar(oct"144",3ex#,cap#,0); "wide hat"; +fill hat xscaled 3; +endchar; + +beginchar(oct"145",ex#,cap#,0); "narrow tilde"; + +z0 = (ss,h-pwid-o); +z1 = (w/3,h-ss); +z2 = (2w/3,h-pwid); +z3 = (w-ss,h); +z4 = z1 shifted (0,-1.5thinl); +z5 = z2 shifted (0,1.5thinl); + +path tildpath; +tildpath = z0..{right}z1{right}..{right}z5{right}.. + {dir 60}z3{dir -95}..{left}z2{left}..{left}z4{left}.. + z0..cycle; +fill tildpath; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"146",2ex#,cap#,0); "middle tilde"; +fill tildpath xscaled 2; +endchar; + +beginchar(oct"147",3ex#,cap#,0); "wide tilde"; +fill tildpath xscaled 3; +endchar; + +beginchar(oct"122",ex#+2ss#,asch#,dep#); "Integral; moustache"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- + z0e..{right}z2e{right}..z4e..z9e..z10e) + slanted (1/6); + +picture smallint; smallint := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"132",2ex#+2ss#,2asch#,2dep#); "Large integral; moustache"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- + z0e..{right}z2e{right}..z4e..z9e..z10e) + slanted (1/6); + +picture largeint; largeint := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"110",ex#+2ss#,asch#,dep#); +"Integral, circled; moustache, circled"; +italcorr(ex#*slant); + +currentpicture := smallint; +pickup pencircle scaled 1.5thinl; +draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) + slanted (1/6); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"111",2ex#+2ss#,2asch#,2dep#); +"Large Integral, circled; Large moustache, circled"; +italcorr(ex#*slant); + +currentpicture := largeint; +pickup pencircle scaled 1.5thinl; +draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) + slanted (1/6); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"160",3em#/4+2ss#,thickstroke#,cap#); "square root"; + +z0 = (ss,cap/3); +z1 = (w/8,cap/3+thickl); +z2 = (w/3,0-o); +z3 = (w-ss,cap+thickl); +z4 = z0 shifted (0,-thinl/2); +z5 = z1 shifted (0,-1.5thickl); +z6 = z2 shifted (0,1.5thickl); +z7 = z3 shifted (0,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl/2); +z9 = z3 shifted (thickl,0); +z10 = z7 shifted (thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-cap); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"161",3em#/4+2ss#,thickstroke#,2cap#); "second square root"; + +z0 = (ss,2cap/3); +z1 = (w/8,2cap/3+2thickl); +z2 = (w/3,0-o); +z3 = (w-ss-thinl,2cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-3thickl); +z6 = z2 shifted (0,3thickl); +z7 = z3 shifted (thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/4,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-2cap); +endchar; + +beginchar(oct"162",em#+2ss#,thickstroke#,3cap#); "third square root"; +z0 = (ss,3cap/3); +z1 = (w/8,3cap/3+3thickl); +z2 = (w/3,0-o); +z3 = (w-ss-2thinl,3cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-3thickl); +z6 = z2 shifted (0,5thickl); +z7 = z3 shifted (2thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-3cap); +endchar; + +beginchar(oct"163",em#+2ss#,thickstroke#,4cap#); "fourth square root"; +z0 = (ss,4cap/3); +z1 = (w/8,4cap/3+4thickl); +z2 = (w/3,0-o); +z3 = (w-ss-2thinl,4cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-4thickl); +z6 = z2 shifted (0,7thickl); +z7 = z3 shifted (2thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-4cap); +endchar; + +beginchar(oct"164",3em#/4+2ss#,2cap#,0); "radical bot exten"; + +z0 = (ss,3h/4-2thickl); +z1 = (w/8,3h/4+thickl); +z2 = (w-ss,0-o); +z3 = (w-ss,h+o); +z4 = z0 shifted (0,-thinl/2); +z5 = z1 shifted (0,-2thickl); +z6 = z2 shifted (0,2thickl); +z7 = z3 shifted (-thickl,0); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl/2); +z9 = 0.19[z6,z1]; +z10 = z4 rotatedaround (z0,45); + +fill z0--z10--z5--z2--z3--z7--z9--z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"165",3em#/4+2ss#,ex#,0); "radical exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (-thickl,0); +z2 = (w-ss,0); +z3 = z2 shifted (-thickl,0); + +fill z0--z1--z3--z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"166",3em#/4+2ss#,thickstroke#,ex#); "radical top exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (-thickstroke,0); +z2 = (w-ss,-d); +z3 = z2 shifted (-thickstroke,0); +z4 = z0 shifted (0,-thickstroke); +z5 = z4 shifted (thickl,0); +z6 = z0 shifted (thickl,0); + +fill (z3--z1--z6--z5--z4--z2--cycle); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"112",em#+2ss#,asch#,0); "circle dot"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +fill fullcircle scaled (1.5thickl) shifted (w/2,h/2); +endchar; + +beginchar(oct"113",2em#+2ss#,2asch#,0); "large circle dot"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +fill fullcircle scaled (2thickl) shifted (w/2,h/2); +endchar; + +beginchar(oct"114",em#+2ss#,asch#,0); "circle plus"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"115",2em#+2ss#,2asch#,0); "large circle plus"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"116",em#+2ss#,asch#,0); "circle x"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw (z0--z1) rotatedaround ((w/2,h/2),45); +draw (z2--z3) rotatedaround ((w/2,h/2),45); +endchar; + +beginchar(oct"117",2em#+2ss#,2asch#,0); "large circle x"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw (z0--z1) rotatedaround ((w/2,h/2),45); +draw (z2--z3) rotatedaround ((w/2,h/2),45); +endchar; + +beginchar(oct"120",5em#/6+2ss#,cap#,0); "The letter Sigma"; +italcorr(ex#*slant); + +z0 = (w-ss,h); +z1 = (w-ss,h-thickstroke-thinstroke); +z2 = z1 shifted (-thinstroke,0); +z3 = z2 shifted (0,thinstroke); +z4 = (ss,h); +z5 = (ss,h-thickstroke); +z6 = (w/2-1.5thinstroke/2,h/2); +z7 = z6 shifted (1.5thinstroke,0); +z8 = (ss,0); +z9 = z8 shifted (0,thickstroke); +z10 = (w-ss,0); +z11 = z10 shifted (0,thickstroke+thinstroke); +z12 = z11 shifted (-thinstroke,0); +z13 = z12 shifted (0,-thinstroke); +z14 = z5 shifted (1.5thinstroke,0); +z15 = z9 shifted (1.5thinstroke,0); + +fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- + z7--z15--z13--z12--cycle; + +picture Sigma; Sigma := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"130",10em#/6+2ss#,2cap#,0); "Large Sigma"; +italcorr(ex#*slant); +currentpicture := Sigma scaled 2 shifted (-ss,0); +endchar; + +beginchar(oct"121",6em#/6+2ss#,cap#,0); "The letter Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); +y26 := y30 := h; +y6 := y10 := y14 := y18 := 0; + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; + +picture pipic; pipic := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"131",2em#+2ss#,2cap#,0); "Large Pi"; +italcorr(ex#*slant); +currentpicture := pipic scaled 2 shifted (-ss,0); +endchar; + +beginchar(oct"140",em#+2ss#,cap#,0); "Inverse Pi"; +italcorr(ex#*slant); +currentpicture := pipic shifted (-ss,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"141",2em#+2ss#,2cap#,0); "Large Inverse Pi"; +italcorr(ex#*slant); +currentpicture := pipic scaled 2 shifted (-ss,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"123",0.75em#+2ss#,cap#,0); "union"; +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot z1 = (w/2,0); +top rt z2 = (w-ss,h); +lft z5 = (ss,w/3); +rt z6 = (w-ss,y5); + +draw z0---z5..{right}z1{right}..z6---z2; +picture union; union := currentpicture; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"133",1.25em#+2ss#,2cap#,0); "big union"; +pickup pencircle scaled thickl; +top lft z0 = (ss,h); +bot z1 = (w/2,0); +top rt z2 = (w-ss,h); +lft z5 = (ss,w/3); +rt z6 = (w-ss,y5); +draw z0---z5..{right}z1{right}..z6---z2; +picture bigunion; bigunion := currentpicture; +endchar; + +beginchar(oct"124",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := union reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"134",1.25em#+2ss#,2cap#,0); "big intersection"; +currentpicture := bigunion reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"125",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := union; +pickup pencircle scaled 1.5thinl; +z0 = (w/4,h/2); +z1 = (3w/4,h/2); +z2 = z0 rotatedaround ((w/2,h/2),90); +z3 = z0 rotatedaround ((w/2,h/2),-90); +draw z0--z1; draw z2--z3; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"135",1.25em#+2ss#,2cap#,0); "big intersection"; +currentpicture := bigunion; +pickup pencircle scaled thickl; +z0 = (w/4,h/2); +z1 = (3w/4,h/2); +z2 = z0 rotatedaround ((w/2,h/2),90); +z3 = z0 rotatedaround ((w/2,h/2),-90); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"126",0.75em#+2ss#,cap#,0); "upward triangle"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot lft z1 = (ss,0); +bot rt z2 = (w-ss,0); +draw z0--z1; draw z0--z2; +picture uptri; uptri := currentpicture; +endchar; + +beginchar(oct"136",1.25em#+2ss#,2cap#,0); "big upward triangle"; +pickup pencircle scaled thickl; +top z0 = (w/2,h); +bot lft z1 = (ss,0); +bot rt z2 = (w-ss,0); +draw z0--z1; draw z0--z2; +picture biguptri; biguptri := currentpicture; +endchar; + +beginchar(oct"127",0.75em#+2ss#,cap#,0); "upward triangle"; +currentpicture := uptri reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"137",1.25em#+2ss#,2cap#,0); "big upward triangle"; +currentpicture := biguptri reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"172",cap#,3pwid#,0); "downbrace left"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),-90) shifted (pwid/2,0); +endchar; + +beginchar(oct"173",cap#,3pwid#,0); "downbrace right"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"174",cap#,3pwid#,0); "upbrace left"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) + reflectedabout ((w/2,0),(w/2,h)); +endchar; + +beginchar(oct"175",cap#,3pwid#,0); "upbrace right"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0); +endchar; + +% open parens +charlist oct"000" : oct"020" : oct"022" : oct"040" : oct"060"; +extensible oct"060": oct"060",0,oct"100",oct"102"; +% close parens +charlist oct"001" : oct"021" : oct"023" : oct"041" : oct"061"; +extensible oct"061": oct"061",0,oct"101",oct"103"; +% open square brackets +charlist oct"002" : oct"150" : oct"024" : oct"042" : oct"062"; +extensible oct"062" : oct"062",0,oct"064",oct"066"; +% close square brackets +charlist oct"003" : oct"151" : oct"025" : oct"043" : oct"063"; +extensible oct"063" : oct"063",0,oct"065",oct"067"; +% open floor +charlist oct"004" : oct"152" : oct"026" : oct"044" : oct"064"; +extensible oct"064" : 0,0,oct"064",oct"066"; +% close floor +charlist oct"005" : oct"153" : oct"027" : oct"045" : oct"065"; +extensible oct"065" : 0,0,oct"065",oct"067"; +% open ceiling +charlist oct"006": oct"154": oct"030": oct"046": oct"066"; +extensible oct"066": oct"062",0,0,oct"066"; +% close ceiling +charlist oct"007": oct"155": oct"031": oct"047": oct"067"; +extensible oct"067": oct"063",0,0,oct"067"; +% open curly +charlist oct"010": oct"156": oct"032": oct"050": oct"070"; +extensible oct"070": oct"070",oct"074",oct"072",oct"076"; +% close curly +charlist oct"011": oct"157": oct"033": oct"051": oct"071"; +extensible oct"071": oct"071",oct"075",oct"073",oct"076"; +% left angle brackets +charlist oct"012": oct"104": oct"034": oct"052"; +% right angle brackets +charlist oct"013": oct"105": oct"035": oct"053"; +charlist oct"016": oct"056": oct"036": oct"054"; % slashes +charlist oct"017": oct"057": oct"037": oct"055"; % backslashes +% single arrow extensions +extensible oct"074": 0,0,0,oct"077"; % arrow extension modules only +extensible oct"077": oct"170",0,oct"171",oct"077"; % updownarrow +extensible oct"170": oct"170",0,0,oct"077"; % uparrow +extensible oct"171": 0,0,oct"171",oct"077"; % downarrow +% double arrow extensions +extensible oct"075": 0,0,0,oct"167"; % double arrow extension modules only +extensible oct"167": oct"176",0,oct"177",oct"167"; % double updownarrow +extensible oct"176": oct"176",0,0,oct"167"; % double uparrow +extensible oct"177": 0,0,oct"177",oct"167"; % double downarrow +% radical extensions +charlist oct"160": oct"161": oct"162": oct"163": oct"164"; % radical signs +extensible oct"164": oct"166",0,oct"164",oct"165"; % radical sign +% vertical line +extensible oct"014": 0,0,0,oct"014"; +% double vertical line +extensible oct"015": 0,0,0,oct"015"; +% sharp parentheses +extensible oct"072": oct"070",0,oct"072",oct"076"; +extensible oct"073": oct"071",0,oct"073",oct"076"; +% parentheses extension modules only +extensible oct"102": 0,0,0,oct"102"; +extensible oct"103": 0,0,0,oct"103"; +% brace exension modules only +extensible oct"076": 0,0,0,oct"076"; +% large inegral signs ("moustaches") +extensible oct"100": oct"070",0,oct"073",oct"076"; +extensible oct"101": oct"071",0,oct"072",oct"076"; +% summation signs +charlist oct"120" : oct"130"; +% product signs +charlist oct"121" : oct"131"; +% integral signs; moustaches +charlist oct"122" : oct"132"; +% cups +charlist oct"123" : oct"133"; +% caps +charlist oct"124" : oct"134"; +% capplus +charlist oct"125" : oct"135"; +% wedges +charlist oct"126" : oct"136"; +% vees +charlist oct"127" : oct"137"; +% coprods +charlist oct"140" : oct"141"; +% circle times +charlist oct"116" : oct"117"; +% circle plus +charlist oct"114" : oct"115"; +% circle dot +charlist oct"112" : oct"113"; +% circle integrals +charlist oct"110" : oct"111"; +% squarecups +charlist oct"106" : oct"107"; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathsym.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathsym.mf new file mode 100644 index 00000000000..91155c685cf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathsym.mf @@ -0,0 +1,284 @@ +% +AMDG This document was begun on 23 June 11EX, the feast +% of the Sacred Heart, and it is humbly dedicated to the +% Sacred Heart of Jesus, for His mercy. + +beginchar(oct"173",0.6ex#+2ss#,ex#,0); "dotless i"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +currentpicture := dotlessi; + +endchar; + +beginchar(oct"174",0.6ex#+2ss#,ex#,dep#); "dotless j"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +currentpicture := dotlessj; + +endchar; + +beginchar(oct"054",0.3ex#+2ss#,ex#,0); "open c"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,4h/5); +rt z2 = (w-ss,3h/5); +path mathc; mathc = z0{left}..z1..{right}z2; +draw mathc; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"055",0.3ex#+2ss#,ex#,0); "close c"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +draw mathc reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"056",ex#+2ss#,ex#,0); "right-pointing triangle"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; + +rt z0 = (w-ss,h/2); +top lft z1 = (ss,h); +bot lft z2 = (ss,0); +path mathtri; mathtri = z0--z1--z2--cycle; +draw mathtri; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"057",ex#+2ss#,ex#,0); "left-pointing triangle"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +draw mathtri reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"072",pwid#,pwid#,0); "The decimal point, ."; +fill period; +endchar; + +beginchar(oct"073",pwid#,pwid#,0); "The comma, ,"; +fill commapost; +endchar; + +beginchar(oct"075",ex#/2+2ss#,cap#,0); "The forward slash, /"; + +currentpicture := slash; + +endchar; + +beginchar(oct"077",theight#+2ss#,theight#,0); "solid five-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; +fill fivestar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"100",ex#+2ss#,cap#,0); "partial differential"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h-1.5curlh); +penpos1(thinl,90); +z1r = z0r; +penpos2(thinl,180); +z2r = z1r; +penpos3(thinl,-90); +z3r = z2r; +penpos4(thinl,-90); +z4l = (w/2,h+o); +penpos5(thickl,180); +z5l = (w-ss,3h/4); +penpos6(thickl,180); +z6l = (w-ss,h/4); +penpos7(thinl,90); +z7l = (w/2,0-o); +penpos8(curvl,0); +z8l = (ss,h/4); +penpos9(thinl,-90); +z9l = (w/2,ex+o); + +penstroke z3e..z2e..z1e..z0e; +penstroke z0e{up}..z4e..z5e---z6e..z7e..z8e..z9e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"133",0.6ex#+2ss#,asch#,0); "musical flat"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h); +penpos1(thinl,0); +z1l = (ss,0); +penpos2(thinl,90); +z2l = z1; +penpos3(curvl,180); +z3l = (w-ss,0.4h); +penpos5(thinl,-90); +z5 = (x1,0.4h); + +penstroke z0e--z1e; +penstroke z2e{right}..z3e..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",0.6ex#+2ss#,asch#,dep#); "musical natural"; +italcorr(ex#*slant); + +penpos0(thinl,30); +z0l = (ss,h); +penpos1(thinl,30); +z1l = (ss,-dep/2); +penpos2(thinl,30); +z2r = (w-ss,h-dep/2); +penpos3(thinl,30); +z3r = (w-ss,-dep); +penpos4(thickl,-90); +z4r = z1r; +penpos5(thickl,-90); +z5l = z2l; +z6 = (w,y4); +penpos7(thickl,-90); +z7 = z6 rotatedaround(z4,30); +z8 = (0,y5); +z9 = z8 rotatedaround(z5,30); +penpos9(thickl,-90); + +penstroke z0e--z1e; +penstroke z2e--z3e; +penstroke z4e--z7e; +penstroke z9e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"135",ex#+2ss#,asch#,dep#); "musical sharp"; +italcorr(ex#*slant); + +penpos0(thinl,30); +z0l = (w/4,h); +penpos1(thinl,30); +z1l = (w/4,-dep/2); +penpos2(thinl,30); +z2r = (3w/4,h-dep/2); +penpos3(thinl,30); +z3r = (3w/4,-dep); +penpos4(thickl,120); +x4r = (ss); y4r = 0; +penpos5(thickl,120); +x5l = w-ss; y5l = h-dep; +z6 = (ss,y5); +z7 = (w-ss,y4); +penpos8(thickl,120); +z8 = z6 rotatedaround (z5,15); +penpos9(thickl,120); +z9 = z7 rotatedaround (z4,15); +penpos10(thinl,30); +z10 = (x1,-dep); +penpos11(thinl,30); +z11 = (x2,h+o); + +penstroke z0e--z10e; +penstroke z11e--z3e; +penstroke z8e--z5e; +penstroke z4e--z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"136",cap#+dep#+2ss#,asch#,dep#); "curve open up"; +italcorr(ex#*slant); + +currentpicture := paren rotated (90) shifted + (w/2+dep,h/2-pwid); + +endchar; + +beginchar(oct"137",cap#+dep#+2ss#,asch#,dep#); "curve open down"; +italcorr(ex#*slant); + +currentpicture := paren rotated (-90) shifted + (w/2-dep,h/2+pwid/2); + +endchar; + +beginchar(oct"176",ex#+2ss#,cap#,0); "vector arrow"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h-curlh); +rt z1 = (w-ss,h-curlh); +z2 = (2w/3,h+o); +z3 = (2w/3,h-2curlh); + +draw z0--z1; +filldraw z2--z1--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"177",ex#+2ss#,cap#,0); "tie"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +top z0 = (w-ss,h-curlh); +top z1 = (w+w/2,h+o); +top z2 = (2w,h-curlh); + +draw z0..z1..z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"175",1.2ex#+2ss#,ex#,dep#); "wp"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0 = (w/4,h); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thickl,0); +z2l = (w/4,0); +penpos3(thinl,-90); +z3r = (w/8+hair,-dep); +penpos4(thinl,180); +z4r = (ss,-dep/2); +penpos5(thinl,90); +z5r = (0.6w,h+o); +penpos6(thickl,0); +z6r = (w-ss,h/2); +penpos7(thinl,-90); +z7r = (0.6w,0-o); +penpos8(thinl,0); +z8 = (x1r,h/4); +penpos9(thinl,180); +z9r = (x2r,y8); + +penstroke z0e{left}..z1e..z8e..z2e..z3e..z4e..{right}z5e.. + z6e..z7e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf b/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf index 739fca97f04..6fc63a21572 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf @@ -68,16 +68,16 @@ input drmcap.mf input drmlowmac.mf currenttransform:=identity slanted 0 yscaled aspect_ratio scaled granularity; -input mathgrkup.mf +input drmmathgrkup.mf input drmpunct.mf currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; input drmitlow.mf -input mathgrklow.mf -input mathcursell.mf +input drmmathgrklow.mf +input drmmathcursell.mf currenttransform:=identity slanted 0 yscaled 1 scaled 1; input drmdigs.mf -input matharrows.mf -input mathsym.mf +input drmmatharrows.mf +input drmmathsym.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmoe.mf b/Master/texmf-dist/fonts/source/public/drm/drmoe.mf new file mode 100644 index 00000000000..792d276a1c3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmoe.mf @@ -0,0 +1,34 @@ +beginchar(oct"327",em#+2ss#,cap#,0); "The ligature OE"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (o+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); + +fill +z1--z3--z31--z8--z10..z11..z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30..z29..z7--z6--z28--z1..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + diff --git a/Master/texmf-dist/fonts/source/public/drm/drmoldstyfracs.mf b/Master/texmf-dist/fonts/source/public/drm/drmoldstyfracs.mf new file mode 100644 index 00000000000..b08bb87ba12 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmoldstyfracs.mf @@ -0,0 +1,73 @@ +% +AMDG This document was begun on 6 Aug 11EX, the Feast of +% the Transfiguration of Our Lord Jesus Christ, and the +% commemorations of St Xystus, PM, and Felicissimus and +% Agapitus, MM, and it is humbly dedicated to them and to +% the Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. + +beginchar(oct"275",em#+2ss#,cap#,0); "old-style fraction 1/2"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill two scaled 0.85 shifted (w/2-pwid/2,0); + +penlabels(0,1); +endchar; + +beginchar(oct"274",em#+2ss#,cap#,dep#); "old-style fraction 1/4"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill fourfill scaled 0.85 shifted (w/2-pwid/2,dep/2); +unfill fourun scaled 0.85 shifted (w/2-pwid/2,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"276",em#+2ss#,cap#,dep#); "old-style fraction 3/4"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss,h); +bot lft z1 = (ss+pwid,0); +draw z0--z1; + +fill three scaled 0.85 shifted (0,h/2+pwid/2); +fill fourfill scaled 0.85 shifted (w/2,dep/2); +unfill fourun scaled 0.85 shifted (w/2,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"304",em#+2ss#,cap#,dep#); "old-style fraction 1/3"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill three scaled 0.85 shifted (w/2-ss,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"305",7em#/6+2ss#,cap#,dep#); "old-style fraction 2/3"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss+pwid,0); +draw z0--z1; + +fill two scaled 0.85 shifted (0,h/2); +fill three scaled 0.85 shifted (w/2,0); + +penlabels(0,1); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmoldstynums.mf b/Master/texmf-dist/fonts/source/public/drm/drmoldstynums.mf new file mode 100644 index 00000000000..fd6cbc1e3e7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmoldstynums.mf @@ -0,0 +1,261 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar("0",0.9exw#+2ss#,ex#,0); "old-style digit 0"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w/2,0-o); +z3 = z2 shifted (0,thinl); +z4 = (ss,h/2); +z5 = z4 shifted (thickl,0); +z6 = (w-ss,h/2); +z7 = z6 shifted (-thickl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("1",2ss#+2lserw#+thickstroke#,ex#,0); "old-style digit 1"; + +z0 = (ss+lserw,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userw,h-userhl); +z3 = z2 shifted (thickl,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(2,12,13,14,15)(1); +urserif(3,16,17,18,19)(1); + +path one; one = +z2--z0..z4..z5--z6--z10--z9..z8..z1--z3..z16..z17--z18--z14--z13..z12..cycle; +fill one; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",0.8exw#+2ss#,ex#,0); "old-style digit 2"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss+o,2h/3); +z3 = z2 shifted (bulbsh,bulbsh); +z4 = z3 shifted (bulbsh,-bulbsh); +z5 = z4 shifted (-bulbsh,-bulbsh); +z6 = (w-ss-o,2h/3); +z7 = z6 shifted (-thickl,0); +z8 = (ss,1.5thinl); +z9 = (x8,0); +z10 = (w-ss,0); +z11 = (w-ss,1.5thinl+thinl); +z12 = z11 shifted (-thinl/2,0); +z13 = z12 shifted (0,-thinl); +z14 = z8 shifted (thickl,0); + +path two; two = +z14--z13--z12--z11--z10--z9--z8{dir +30}..{up}z7..{left}z1{left}..{dir +230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir +-160}cycle; +fill two; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",0.9exw#+2ss#,ex#,dep#); "old-style digit 3"; + +threeh = (ex+dep); +z0 = (w/2,h+o); +z1 = (w/2,0-dep); +z2 = (ss,.75threeh-dep); +z3 = (ss,.25threeh-dep); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3threeh/4-dep); +z9 = (w-ss,threeh/4-dep); +z10 = (w/2-2thinstroke,threeh/2+thinstroke-dep); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (2thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (2thickl,0); +z23 = z11 shifted (2thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +path three; three = +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +fill three; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("4",digwid#+2ss#,ex#,dep#); "old-style digit 4"; + +z0 = (w-ss-lserwl,h+o); +z1 = (x0,2threeh/5-dep); +y2 = y1; x2 = ss; +z3 = z0 shifted (0,-thinstroke); +z4 = z2 shifted (thinstroke,0); +z6 = z1 shifted (-thickstroke,0); +z7 = z0 shifted (-thickstroke,0); +z5 = bca[z3,z4]; +z5 = bcb[z6,z7]; +z8 = z2 shifted (0,-thinstroke); +z9 = z4 shifted (0,-thinstroke); +z10 = z6 shifted (0,-thinstroke); +z11 = z1 shifted (0,-thinstroke); +z12 = z1 shifted (lserwl,0); +z13 = z11 shifted (lserwl,0); +x14 = x10; y14 = -dep+lserhl; +z15 = z14 shifted (thickstroke,0); + +llserif(14,16,17,18,19)(1); +lrserif(15,20,21,22,23)(1); + +path fourfill; fourfill = +z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; +path fourun; fourun = z4--z6--z5--z4--cycle; +fill fourfill; unfill fourun; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("5",0.9exw#+2ss#,ex#,dep#); "old-style digit 5"; + +z0 = (w-ss-bulbsh,h+o); +z1 = (ss+bulbsh,h+o); +z2 = z0 shifted (0,-thickstroke); +z3 = z1 shifted (0,-thickstroke); +z4 = (w/2,-dep); +z5 = z4 shifted (0,thickstroke); +z6 = z3 shifted (thinstroke,0); +z7 = (ss+0.6bulbsh,0.55threeh-dep); +z19 = z7 shifted (thinstroke,0); +z8 = (w-ss,2threeh/3-dep); +z9 = z7 shifted (thinstroke,thinstroke); +z10 = (w-ss-thickstroke,threeh/3-dep); +z11 = (ss,threeh/3-dep); +z16 = z10 shifted (thickstroke,0); +z17 = (w/2,2threeh/3-dep); +z18 = z17 shifted (0,-thinstroke); +z29 = z2 shifted (0,-thinl); +z20 = z29 shifted (-thinl/2,0); +z21 = z20 shifted (0,thinl); + +ulftbulb(11,12,13,14,15); + +path five; five = +z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; + +fill five; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("7",0.8exw#+2ss#,ex#,dep#); "old-style digit 7"; + +z0 = (ss,h+o); +z1 = z0 shifted (0,-thickstroke); +z2 = (w-ss,h+o); +z3 = z2 shifted (0,-thickstroke); +z4 = (w/4,-dep); +z5 = z4 shifted (thickstroke,0); +z6 = z3 shifted (-1.8thinstroke,0); +z7 = (w/2,0.6h); +z8 = z7 shifted (1.2thinstroke,0); +z9 = z1 shifted (0,-0.7userh); +z10 = z9 shifted (0.5thinstroke,0); +z11 = z10 shifted (0,0.7userh); + +fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("8",digwid#+2ss#,asch#,0); "old-style digit 8"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss+bulbsh/2,3h/4); +z3 = (ss,h/4); +z4 = (w-ss-bulbsh/2,3h/4); +z5 = (w-ss,h/4); +z6 = z0 shifted (0,-thinstroke); +z7 = z1 shifted (0,thinstroke); +z8 = z2 shifted (0.8curvwid,0); +z9 = z3 shifted (curvwid,0); +z10 = z5 shifted (-curvwid,0); +z11 = z4 shifted (-0.8curvwid,0); +z12 = (w/2,h/2+thinstroke); +z13 = z12 shifted (0,-thinstroke); + +pickup pencircle scaled 1; + +fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; +unfill z8..z6..z11..z12..cycle; +unfill z7..z10..z13..z9..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + + +beginchar("6",0.9exw#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +picture oldsix; oldsix := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.9exw#+2ss#,ex#,dep#); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,-d-o); +penpos1(2thinl,180); +z1l = (w-ss-thickl,h/3-dep); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf b/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf index 5637bb90ba7..fe67512d057 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf @@ -63,6 +63,6 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input mathomx.mf +input drmmathomx.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmornaments.mf b/Master/texmf-dist/fonts/source/public/drm/drmornaments.mf new file mode 100644 index 00000000000..82a13829ce7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmornaments.mf @@ -0,0 +1,1018 @@ +% +AMDG This document was begun on 16 July 11EX, the +% Commemorations of St. Comillus de Lellis, C, and St. +% Symphorosa and her seven Sons, MM, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"016",9.8em#/5,cap#,dep#); "Right-facing simple fleuron"; + +% draw the basal ornament +curveornw = 9.8em/6; +penpos0(thickl,90); +z0r = (curveornw/6,h); +penpos1(1.5thinl,180); +z1r = (ss,3h/4); +penpos2(thinl,225); +z2 = ((x1l+x0)/2,h/2); +penpos3(1.5thinl,180); +z3r = (x0+o,h/4); +penpos4(thickl,90); +z4l = (ss+1.5thinl,0); +penpos5(1.5thinl,0); +z5l = z0l; +penpos6(thinl,-90); +z6l = z5l; +penpos7(thinl,180); +z7l = z6l; +penpos8(1.5thinl,0); +z8r = z4r; +penpos9(thinl,-90); +z9r = z8r; +penpos10(thinl,180); +z10r = z9r; +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z0e..z5e..z6e..z7e; +penstroke z4e..z8e..z9e..z10e; + +% construct the vaguely heart-shaped leaf bit +z11 = (0.6w,-dep/3); +z12 = (w-ss,0.4h); +z13 = (7w/8,h/4); +z14 = (3w/4,h/2); +z15 = (x11-thickstroke,h); +z16 = (0.4w,3h/4); +z17 = (w/2,h/2); +z18 = (w/3,h/4); +z19 = z12 shifted (-thinl,thinl); +z20 = z19 shifted (-thinl,-thinl); +z21 = z20 shifted (thinl,-thinl); +z22 = (x16,(y15+y16)/2-thinl); +fill +z11{right}..{up}z12..z19..z20..{right}z21{down}..z13.. + z14..{left}z15{left}..z22..{down}z16{down}.. + {dir -45}z17{dir -160}..{down}z18{down}..{right}cycle; + +% draw the stem +penpos23(thinl,90); +z23 = z17; +penpos24(1.5thinl,90); +z24 = ((x16+x0)/2,y16); +penpos25(1.5thinl,135); +z25 = z2; +penpos26(1.5thinl,225); +z26 = z3; + +penstroke z23e{left}..z24e..z25e..z26e; + +picture simpfleuron; simpfleuron := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"017",9.8em#/5,cap#,dep#); +"Right-facing simple fleuron, upsidedown"; +currentpicture := simpfleuron reflectedabout + ((0,h/2),(w,h/2)) shifted (0,-dep/3); +endchar; + +beginchar(oct"020",9.8em#/5,cap#,dep#); +"Left-facing simple fleuron"; +currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"021",9.8em#/5,cap#,dep#); +"Left-facing simple fleuron, upsidedown"; +currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)) + reflectedabout ((0,h/2),(w,h/2)) shifted (0,-dep/3); +endchar; + +beginchar(oct"050",cap#+dep#/3,9.8em#/5,0); +"Up-facing simple fleuron"; +currentpicture := simpfleuron rotated (90) shifted (cap,0); +endchar; + +beginchar(oct"051",cap#+dep#/3,9.8em#/5,0); +"Up-facing simple fleuron, backwards"; +currentpicture := simpfleuron rotated (90) shifted (cap,0) + reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"077",cap#+dep#/3,9.8em#/5,0); +"Down-facing simple fleuron"; +currentpicture := simpfleuron rotated (-90) + shifted (dep/3,9.8em/5); +endchar; + +beginchar(oct"107",cap#+dep#/3,9.8em#/5,0); +"Down-facing simple fleuron, backwards"; +currentpicture := simpfleuron rotated (-90) shifted (dep/3,9.8em/5) + reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"041",9.8em#/36+1.5thinstroke#+ss#,cap#,0); +"Simple curve ornament, vertical"; + +penpos0(thickl,90); +z0r = (curveornw/6,h); +penpos1(1.5thinl,180); +z1r = (ss,3h/4); +penpos2(thinl,225); +z2 = ((x1l+x0)/2,h/2); +penpos3(1.5thinl,180); +z3r = (x0+o,h/4); +penpos4(thickl,90); +z4l = (ss+1.5thinl,0); +penpos5(1.5thinl,0); +z5l = z0l; +penpos6(thinl,-90); +z6l = z5l; +penpos7(thinl,180); +z7l = z6l; +penpos8(1.5thinl,0); +z8r = z4r; +penpos9(thinl,-90); +z9r = z8r; +penpos10(thinl,180); +z10r = z9r; + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z0e..z5e..z6e..z7e; +penstroke z4e..z8e..z9e..z10e; + +picture curveorn; curveorn := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"042",9.8em#/36+1.5thinstroke#+ss#,cap#,0); +"Simple curve ornament, backwards"; +currentpicture := curveorn reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"043",cap#,9.8em#/36+1.5thinstroke#+ss#,0); +"Simple curve ornament, horizontal"; +currentpicture := curveorn rotated (-90) + shifted (0,9.8em/36+1.5thinstroke+ss); +endchar; + +beginchar(oct"045",cap#,9.8em#/36+1.5thinstroke#+ss#,0); +"Simple curve ornament, horizontal, backwards"; +currentpicture := curveorn rotated (90) shifted (cap,0); +endchar; + +beginchar(oct"023",9.8em#/5,cap#,cap#); "Double tulip fleuron"; + +% set the points for the tulip +tulw = (6cap/8); +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +z5 = (tulw,15h/16); +z6 = (x5-thinl,y5-thinl); +z7 = (tulw/2,2h/3); +z8 = (x3,y5); +z9 = z8 shifted (-0.5thinl,-0.5thinl); +z10 = ((x7+x9)/2,13h/16); +z11 = (x2-thinstroke/2,h); +z12 = ((x10+x11)/2,13h/16); +z13 = z1 shifted (-thinstroke/2,0); +z14 = z10 reflectedabout (z11,z13); +z15 = z1 reflectedabout (z11,z13); + +% define the paths for the tulip +path rightbase; +rightbase = z1{right}..{up}z0{dir 260}..{left}z2--cycle; +path leftbase; leftbase = rightbase reflectedabout (z11,z13); +path rightpetal; rightpetal = z2{right}..z3..z4.. + {dir 45}z6..{dir 45}z5{left}..{dir 205}z9.. + {dir -135}z7{up}--z15--cycle; +path leftpetal; leftpetal = rightpetal reflectedabout (z11,z13); +path centpetal; centpetal = z10..{dir 135}z11{dir 225}.. + z14{down}..{right}z7{right}..{up}cycle; +% unit all the paths into a macro, allowing for shifting +% and rotating around its own center +def drawtulip(expr rot)(expr shift) = + pickup pencircle scaled thinl; + erase draw centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); +enddef; + +% define the points for the stems + +penpos20(thinl,45); +z20l = z4; +penpos21(1.5thinl,90); +z21 = (w/2,h/4); +penpos22(thinl,135); +z22r = z21r shifted (thinl,thinl); +penpos23(1.5thinl,-90); +z23l = (w/2,h); +penpos24(thinl,45); +z24 = z22 reflectedabout (z23,z21); +penpos25(thinl,135); +z25 = z20 reflectedabout (z23,z21); + +% define the points for the flourishes + +penpos30(thinl,90); +z30 = 0.5[z23,z21]; +penpos31(thinl,90); +z31 = (x25r,5h/6); +penpos32(thinl,90); +z32 = z31 reflectedabout (z23,z21); +penpos33(thinl,180); +z33r = (ss,h/2); +penpos34(1.5thinl,-90); +z34r = (w/4,0); +penpos35(1.5thinl,-90); +z35 = (w/2,h/8); +penpos36(1.5thinl,-90); +z36 = z34 reflectedabout ((w/2,0),(w/2,h)); +penpos37(thinl,0); +z37 = z33 reflectedabout ((w/2,0),(w/2,h)); + +% draw the flourishes + +penstroke z30e..z32e..z33e..z34e..z35e..z36e..z37e..z31e..z30e; + +% draw the two tulips +drawtulip(45,(0,0)); +drawtulip(-45,(w-tulw,0)); + +% draw the stems, erasing first so we have the right +% overlaps +pickup pencircle scaled 1.5thinl; +erase draw z21..z22..z23..z24..z21; +penstroke z20e..z21e..z22e..z23e..z24e..z21e..z25e; + +picture doubletulip; doubletulip := currentpicture; + +currentpicture := doubletulip + + doubletulip reflectedabout ((0,0),(w,0)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"024",9.8em#/5,cap#,0); +"Double tulip fleuron, half, upward"; +currentpicture := doubletulip; +endchar; + +beginchar(oct"027",9.8em#/5,cap#,cap#); +"Double tulip fleuron, half, downward"; +currentpicture := doubletulip reflectedabout ((0,h/2),(w,h/2)) + shifted (0,-cap); +endchar; + +beginchar(oct"036",cap#,9.8em#/5,0); +"Double tulip fleuron, half, rightward"; +currentpicture := doubletulip rotated (-90) + shifted (0,9.8em/5); +endchar; + +beginchar(oct"037",cap#,9.8em#/5,0); +"Double tulip fleuron, half, leftward"; +currentpicture := doubletulip rotated (90) + shifted (cap,0); +endchar; + +beginchar(oct"046",2cap#,9.8em#/5,0); +"Double tulip fleuron, half, leftward"; +currentpicture := doubletulip rotated (90) + shifted (cap,0) + doubletulip rotated (-90) + shifted (cap,9.8em/5); +endchar; + +beginchar(oct"053",9.8em#/5,cap#,9.8em#/5-cap#); +"Upper left corner tulip fleuron"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +penpos20(thinl,45); +z20l = z4; +penpos21(thinl,0); +%z21r = (0.4w,0); +z21r = (cap,0); +z22 = (w,h) rotatedaround ((0,h),-45); +penpos23(1.5thinl,-90); +z23 = (w/4,-d/3); +penpos24(thinl,0); +z24l = (ss,-2d/3); +penpos25(thinl,90); +z25l = (w/4,-d); +penpos26(0.5thinl,180); +%z26 = (w/3,-2d/3); +z26 = (0.41w,-2d/3); +penpos27(thinl,90); +z27l = (x26l,-d); +penpos28(thinl,45); +z28r = ((x26+x24)/2,y24-thinl); +penpos29(thinl,0); +z29l = (ss,-d/3); +penpos30(thinl,-135); +%z30 = (x26,(y23+y26)/2); +z30 = (x26,(y33+y23)/2); +penpos31(thinl,0); +z31l = (ss,-d/6); +penpos32(thinl,-90); +z32r = (w/3,0); +penpos33(0.5thinl,180); +z33 = (x21,y23); +penpos34(thinl,180); +z34r = (ss,h/8); +penpos35(thinl,90); +z35 = (w/8,2h/3); + +penstroke z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e; +penstroke (z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e) + reflectedabout (z20,z22); +pickup pencircle scaled 1.5thinl; +erase undraw z20..z21..z23..z24..z25..z26; +erase undraw (z20..z21..z23..z24..z25..z26) + reflectedabout (z20,z22); +drawtulip(45,(0,0)); +penstroke z20e..z21e..z23e..z24e..z25e..z26e; +penstroke (z20e..z21e..z23e..z24e..z25e..z26e) + reflectedabout (z20,z22); + +picture cornertulip; cornertulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"072",9.8em#/5,cap#,9.8em#/5-cap#); +"Upper right corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"073",9.8em#/5,cap#,9.8em#/5-cap#); +"Lower left corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((0,0),(w,0)); +endchar; + +beginchar(oct"110",9.8em#/5,cap#,9.8em#/5-cap#); +"Lower right corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((0,0),(w,0)) reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"111",2(9.8em#/5),cap#,0); +"Upward single tulip fleuron"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); + +penpos19(thinl,0); +z19 = (w/2,h/2); +penpos20(thinl,0); +z20 = (w/2,h/6); +penpos21(thinl,-90); +z21r = (0.45w,0); +penpos22(thinl,180); +z22 = (0.4w,h/2); +penpos23(thinl,-90); +z23l = (0.3w,h); +penpos24(thinl,-90); +z24r = (0.15w,0); +penpos25(thinl,180); +z25r = (ss,h/2); +penpos26(thinl,0); +z26 = (0.225w,h/2); +penpos27(thinl,90); +z27r = (0.1w,h); +penpos28(0.5thinl,-45); +z28 = (x27,y25); +penpos29(thinl,0); +z29 = (x24,3h/4); +penpos30(thinl,0); +z30 = (w/2,h/2); +penpos31(thinl,90); +z31 = (x22,5h/6); +penpos32(thinl,180); +z32 = ((x23+x26)/2,h/2); +penpos33(thinl,270); +z33r = (x23,0); +penpos34(thinl,0); +z34 = (x23+(x23-x32),y26); +penpos36(thinl,180); +z36 = ((x27+x25)/2,y29); +penpos35(thinl,90); +z35r = ((x36+x23)/2,h); +penpos37(thinl,180); +z37 = ((x25+x28)/2,h/2); +penpos38(thinl,-90); +z38 = (x28,h/4); +penpos39(0.5thinl,0); +z39 = ((x28+x26)/2,h/2); + +penstroke z30e..z31e..z32e..z33e..z34e..z35e..z36e.. + z38e..z39e; +penstroke (z30e..z31e..z32e..z33e..z34e..z35e..z36e.. + z38e..z39e) reflectedabout ((w/2,h),(w/2,0)); +pickup pencircle scaled 1.5thinl; +erase draw z19---z20..z21..z22..z23..z26..z24..z25.. + z27..z29..z28; +erase draw (z19---z20..z21..z22..z23..z26..z24..z25.. + z27..z29..z28) reflectedabout ((w/2,h),(w/2,0)); +drawtulip(0,(w/2-tulw/2,0)); +penstroke z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. + z27e..z29e..z28e; +penstroke (z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. + z27e..z29e..z28e) reflectedabout ((w/2,h),(w/2,0)); + +picture singletulip; singletulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"112",2(9.8em#/5),cap#,cap#); +"Downward single tulip fleuron"; +currentpicture := singletulip reflectedabout + ((0,h/2),(w,h/2)) shifted (0,-cap); +endchar; + +beginchar(oct"113",cap#,2(9.8em#/5),0); +"Leftward single tulip fleuron"; +currentpicture := singletulip rotated (90) shifted (cap,0); +picture lefttulip; lefttulip := currentpicture; +endchar; + +beginchar(oct"114",cap#,(9.8em#/5),(9.8em#/5)); +"Rightward single tulip fleuron"; +currentpicture := lefttulip reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"116",cap#,cap#,0); +"Upward single narrow tulip"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +penpos20(thinl,0); +z20 = (w/2,h/2); +penpos21(thinl,0); +z21 = (w/2,h/6); +penpos22(1.2thinl,90); +z22l = (3w/4,0); +penpos23(thinl,180); +z23l = (w-ss,h/2); +penpos24(1.2thinl,-90); +z24l = (3w/4,h); +penpos25(thinl,0); +z25 = (w/2,5h/6); + +penstroke z20e---z21e..z22e..z23e..z24e..z25e; +penstroke (z20e---z21e..z22e..z23e..z24e..z25e) + reflectedabout ((w/2,h),(w/2,0)); +drawtulip(0,(w/2-tulw/2,0)); +pickup pencircle scaled thinl; +draw z20--z21; + +picture singlenarrowtulip; singlenarrowtulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"121",cap#,cap#,cap#); +"Downward single narrow tulip"; +currentpicture := singlenarrowtulip reflectedabout + ((0,0),(w,0)); +endchar; + +beginchar(oct"122",cap#,cap#,cap#); +"Leftward single narrow tulip"; +currentpicture := singlenarrowtulip rotatedabout + ((w/2,h/2),90); +endchar; + +beginchar(oct"123",cap#,cap#,cap#); +"Leftward single narrow tulip"; +currentpicture := singlenarrowtulip rotatedabout + ((w/2,h/2),-90); +endchar; + +beginchar(oct"124",3cap#,cap#,0); "Right-pointing spearhead"; + +z0 = (0,h); +z1 = (0,0); +z2 = (ex/3,h/4); +z3 = (ex/3,3h/4); +z4 = (-ex/3,h/4); +z5 = (-ex/3,3h/4); +path solidellipse; +solidellipse = z0{right}..z3---z2..{left}z1{left}..z4---z5..{right}cycle; + +fill solidellipse scaled 0.8 shifted (w/8,0.1h); +pickup pencircle scaled 1.5thinl; +z6 = (0,h/2+thickl); +z7 = z6 shifted (0,-2thickl); +z8 = (w/4,y6); +z9 = (w/4,y7); +top z10 = (w/3,h); +bot z11 = (w/3,0); +z12 = (w/2,3h/4); +z13 = (w/2,h/4); +z14 = (3w/4,2h/3); +z15 = (3w/4,h/3); +rt z16 = (w,h/2); + +draw +z6--z8..z10..z12..z14..{dir -15}z16{dir -165}..z15..z13..z11..z9--z7; + +pickup pencircle scaled thinl; +z17 = 0.5[z10,z11]; +z18 = 0.5[z14,z15]; +draw z17--z18; + +picture spearhead; spearhead := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"125",3cap#,cap#,0); "Left-pointing spearhead"; +currentpicture := spearhead rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"126",pwid#,cap#,0); "Horizontal spear shaft piece"; + +pickup pencircle scaled 1.5thinl; +z0 = (0,h/2+thickl); +z1 = z0 shifted (0,-2thickl); +z2 = (w,y0); +z3 = (w,y1); +draw z0--z2; draw z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"132",cap#,3cap#,0); "Up-pointing spearhead"; +currentpicture := spearhead rotatedaround ((1.5cap,cap/2),90) + shifted (-cap,cap); +endchar; + +beginchar(oct"146",cap#,3cap#,0); "Down-pointing spearhead"; +currentpicture := spearhead rotatedaround ((1.5cap,cap/2),-90) + shifted (-cap,cap); +endchar; + +beginchar(oct"147",cap#,pwid#,0); "Vertical spear shaft"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2-thickl,0); +z1 = z0 shifted (2thickl,0); +z2 = (w/2-thickl,h); +z3 = z2 shifted (2thickl,0); +draw z0--z2; draw z1--z3; +penlabels(0,1,2,3); +endchar; + +beginchar(oct"157",cap#+2ss#,cap#,0); "upright fleur-de-lis"; + +z0 = (w/2,h+o); +z1 = (ss,h/2); +z2 = (w-ss,2h/3); +z3 = (w/2,0); +z4 = (0.36w,2h/3); +z5 = (0.64w,2h/3); +z6 = (0.45w,h/3); +z7 = (0.55w,h/3); +z8 = (x4,0); +z9 = (x5,0); +z10 = (z8 shifted (thinstroke,0)) rotatedaround (z8,-45); +z11 = (z9 shifted (thinstroke,0)) rotatedaround (z9,225); +z12 = 0.5[z10,z3]; y12 := 0; +z13 = 0.5[z11,z3]; y13 := 0; +z14 = (x3,y11); +z15 = 0.5[z1,z4]; y15 := 2h/3; +z16 = 0.5[z2,z5]; y16 := 2h/3; +z17 = (x4,h/2); +z18 = z5 shifted (thinstroke,0); +z19 = z6 shifted (-thinstroke,0); +z20 = z7 shifted (thinstroke,0); +z21 = z8 shifted (0,thinstroke); +z22 = z9 shifted (0,thinstroke); +z23 = (2x8/3,0); +z24 = (x8/3,h/4); +z25 = z23 shifted (0,thickstroke); +z26 = z21 shifted (-thinstroke,thinstroke); +z27 = z19 shifted (-thinstroke,0); +z28 = 0.5[z17,z27] shifted (-0.5thinstroke,0); +z29 = z15 shifted (0,-1.5thickstroke); +z30 = (x1,h/3); +z31 = z1 shifted (thinstroke,0); +z32 = z27 shifted (-thickstroke,0); +z33 = z32 reflectedabout ((w/2,h),(w/2,0)); +z34 = z32 shifted (thinstroke,thinstroke); +z35 = z34 reflectedabout ((w/2,h),(w/2,0)); +z36 = z32 shifted (thinstroke,-thinstroke); +z37 = z36 reflectedabout ((w/2,h),(w/2,0)); + +pickup pencircle scaled 2; +path middle; +middle = z0{dir 225}..z4..z6..z8--z10--z12--z14--z13-- + z11--z9..z7..z5..{dir 135}cycle; +fill middle; + +path side; side = z30..z1..z15..z17..z19..z21..z23.. + {up}z24{dir -65}..z25..z27..z28..z29..{down}z30..cycle; +fill side; +fill side reflectedabout ((w/2,h),(w/2,0)); +path binder; binder = z32..z34---z35..z33..z37---z36..cycle; +fill binder; + +picture fleurdelis; fleurdelis := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); +endchar; + +beginchar(oct"167",cap#+2ss#,cap#,0); "downward fleur-de-lis"; +currentpicture := fleurdelis reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"177",cap#,cap#+2ss#,0); "leftward fleur-de-lis"; +currentpicture := fleurdelis rotatedaround ((w/2+ss,h/2),-90); +endchar; + +beginchar(oct"316",cap#,cap#+2ss#,0); "rightward fleur-de-lis"; +currentpicture := fleurdelis rotatedaround ((w/2,h/2-ss),90); +endchar; + +beginchar(oct"317",ex#,ex#,0); "extension winding cord"; + +cordwid = thickstroke; +pickup pensquare scaled 1.5thinl; +top z0 = (0,h); +top z1 = (w,h); +bot lft z2 = (0,0); +bot z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup pencircle scaled 0.5thinl; +z4 = (w,-cordwid/2); +z5 = z4 shifted (-cordwid/2,cordwid/2); +z6 = (w/2+cordwid/2,h); +z7 = z6 shifted (-cordwid,0); +z8 = 0.5[z6,z7] shifted (0,cordwid/2); +z9 = (0,-cordwid/2); +z10 = z9 shifted (cordwid/2,cordwid/2); +z11 = z5 shifted (cordwid,0); +z12 = (z6--z11) intersectionpoint ((w,h)--(w,0)); + +erase filldraw z4..z5---z7..z8..z6---z11..cycle; +draw z4..z5---z7..z8..z6---z11; +draw z10{down}..z9; + +pickup pencircle scaled 0.25thinl; +z13 = 0.14285[z5,z7]; +z14 = 0.28571[z5,z7]; +z15 = 0.42857[z5,z7]; +z16 = 0.57142[z5,z7]; +z17 = 0.71428[z5,z7]; +z18 = 0.85714[z5,z7]; +z23 = 0.14285[z11,z6]; +z24 = 0.28571[z11,z6]; +z25 = 0.42857[z11,z6]; +z26 = 0.57142[z11,z6]; +z27 = 0.71428[z11,z6]; +z28 = 0.85714[z11,z6]; + +draw z13{dir -45}..z23; +draw z14{dir -45}..z24; +draw z15{dir -45}..z25; +draw z16{dir -45}..z26; +draw z17{dir -45}..z27; +draw z18{dir -45}..z28; +draw z7{dir -45}..z6; + +unfill z10--(-cordwid,h/2)--z9--cycle; + +picture cordext; cordext := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"320",ex#,ex#,0); "left end of winding cord"; + +pickup pensquare scaled 1.5thinl; +top rt z0 = (w,h); +top lft z1 = (w-cordwid,h); +draw z0--z1; +z2 = (w,-cordwid/2); +z3 = (w-cordwid/2,0); +z4 = (w-cordwid/2,h); +z5 = z4 shifted (-cordwid,0); +z6 = 0.5[z4,z5] shifted (0,cordwid/2); +z7 = z3 shifted (cordwid,0); +z8 = z3 shifted (-cordwid,0); +z9 = 0.5[z3,z8] shifted (0,-cordwid/2); +z10 = z5 shifted (-cordwid,0); +z11 = z6 shifted (-cordwid,0); +z12 = z10 shifted (-cordwid,0); +z13 = z11 shifted (-cordwid,0); +z14 = z8 shifted (-cordwid,0); +z15 = z9 shifted (-cordwid,0); +z16 = z14 shifted (-cordwid,0); +z17 = z15 shifted (-cordwid,0); + +pickup pencircle scaled 0.5thinl; +erase filldraw z7---z4..z6..z5---z3..z2..cycle; +draw z7---z4..z6..z5---z3..z2; +% draw the rope lines on the underlying frap +pickup pencircle scaled 0.25thinl; +z23 = 0.14285[z4,z7]; +z24 = 0.28571[z4,z7]; +z25 = 0.42857[z4,z7]; +z26 = 0.57142[z4,z7]; +z27 = 0.71428[z4,z7]; +z28 = 0.85714[z4,z7]; +z33 = 0.14285[z5,z3]; +z34 = 0.28571[z5,z3]; +z35 = 0.42857[z5,z3]; +z36 = 0.57142[z5,z3]; +z37 = 0.71428[z5,z3]; +z38 = 0.85714[z5,z3]; +draw z33{dir -45}..z23; +draw z34{dir -45}..z24; +draw z35{dir -45}..z25; +draw z36{dir -45}..z26; +draw z37{dir -45}..z27; +draw z38{dir -45}..z28; + +% first overlapping frap +pickup pencircle scaled 0.5thinl; +erase filldraw z5---z8..z9..z3---z4..z6..cycle; +draw z5---z8..z9..z3---z4..z6..cycle; +% next overlapping fraps +pickup pencircle scaled 0.5thinl; +draw z8---z5..z11..z10---z14..z15..cycle; +draw z10---z14..z17..z16---z12..z13..cycle; +% draw the rope marks on the straight fraps +pickup pencircle scaled 0.25thinl; +z42 = 0.00000[z4,z3]; +z43 = 0.14285[z4,z3]; +z44 = 0.28571[z4,z3]; +z45 = 0.42857[z4,z3]; +z46 = 0.57142[z4,z3]; +z47 = 0.71428[z4,z3]; +z48 = 0.85714[z4,z3]; +z49 = 1.00000[z4,z3]; +z52 = 0.00000[z5,z8]; +z53 = 0.14285[z5,z8]; +z54 = 0.28571[z5,z8]; +z55 = 0.42857[z5,z8]; +z56 = 0.57142[z5,z8]; +z57 = 0.71428[z5,z8]; +z58 = 0.85714[z5,z8]; +z59 = 1.00000[z5,z8]; +draw z52{dir -45}..z42; +draw z53{dir -45}..z43; +draw z54{dir -45}..z44; +draw z55{dir -45}..z45; +draw z56{dir -45}..z46; +draw z57{dir -45}..z47; +draw z58{dir -45}..z48; +draw z59{dir -45}..z49; +z62 = 0.00000[z5,z8]; +z63 = 0.14285[z5,z8]; +z64 = 0.28571[z5,z8]; +z65 = 0.42857[z5,z8]; +z66 = 0.57142[z5,z8]; +z67 = 0.71428[z5,z8]; +z68 = 0.85714[z5,z8]; +z69 = 1.00000[z5,z8]; +z72 = 0.00000[z10,z14]; +z73 = 0.14285[z10,z14]; +z74 = 0.28571[z10,z14]; +z75 = 0.42857[z10,z14]; +z76 = 0.57142[z10,z14]; +z77 = 0.71428[z10,z14]; +z78 = 0.85714[z10,z14]; +z79 = 1.00000[z10,z14]; +draw z72{dir -45}..z62; +draw z73{dir -45}..z63; +draw z74{dir -45}..z64; +draw z75{dir -45}..z65; +draw z76{dir -45}..z66; +draw z77{dir -45}..z67; +draw z78{dir -45}..z68; +draw z79{dir -45}..z69; +z82 = 0.00000[z10,z14]; +z83 = 0.14285[z10,z14]; +z84 = 0.28571[z10,z14]; +z85 = 0.42857[z10,z14]; +z86 = 0.57142[z10,z14]; +z87 = 0.71428[z10,z14]; +z88 = 0.85714[z10,z14]; +z89 = 1.00000[z10,z14]; +z92 = 0.00000[z12,z16]; +z93 = 0.14285[z12,z16]; +z94 = 0.28571[z12,z16]; +z95 = 0.42857[z12,z16]; +z96 = 0.57142[z12,z16]; +z97 = 0.71428[z12,z16]; +z98 = 0.85714[z12,z16]; +z99 = 1.00000[z12,z16]; +draw z92{dir -45}..z82; +draw z93{dir -45}..z83; +draw z94{dir -45}..z84; +draw z95{dir -45}..z85; +draw z96{dir -45}..z86; +draw z97{dir -45}..z87; +draw z98{dir -45}..z88; +draw z99{dir -45}..z89; + +picture leftcordend; leftcordend := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"321",ex#,ex#,0); "right end of winding cord"; + +pickup pensquare scaled 1.5thinl; +top lft z0 = (0,h); +top rt z1 = (0+cordwid,h); +draw z0--z1; +z2 = (4cordwid,-cordwid/2); +z3 = (x2-cordwid/2,0); +z4 = (x2-cordwid/2,h); +z5 = z4 shifted (-cordwid,0); +z6 = 0.5[z4,z5] shifted (0,cordwid/2); +z7 = z3 shifted (cordwid,0); +z8 = z3 shifted (-cordwid,0); +z9 = 0.5[z3,z8] shifted (0,-cordwid/2); +z10 = z5 shifted (-cordwid,0); +z11 = z6 shifted (-cordwid,0); +z12 = z10 shifted (-cordwid,0); +z13 = z11 shifted (-cordwid,0); +z14 = z8 shifted (-cordwid,0); +z15 = z9 shifted (-cordwid,0); +z16 = z14 shifted (-cordwid,0); +z17 = z15 shifted (-cordwid,0); +z18 = z16 shifted (-cordwid/2,-cordwid/2); + +pickup pencircle scaled 0.5thinl; +erase filldraw z5---z8..z9..z3---z4..z6..cycle; +draw z5---z8..z9..z3---z4..z6..cycle; +draw z12---z16..z18; +% next overlapping fraps +pickup pencircle scaled 0.5thinl; +erase filldraw z8---z5..z11..z10---z14..z15..cycle; +draw z8---z5..z11..z10---z14..z15..cycle; +erase filldraw z10---z14..z17..z16---z12..z13..cycle; +draw z10---z14..z17..z16---z12..z13..cycle; +% draw the rope marks on the straight fraps +pickup pencircle scaled 0.25thinl; +z42 = 0.00000[z4,z3]; +z43 = 0.14285[z4,z3]; +z44 = 0.28571[z4,z3]; +z45 = 0.42857[z4,z3]; +z46 = 0.57142[z4,z3]; +z47 = 0.71428[z4,z3]; +z48 = 0.85714[z4,z3]; +z49 = 1.00000[z4,z3]; +z52 = 0.00000[z5,z8]; +z53 = 0.14285[z5,z8]; +z54 = 0.28571[z5,z8]; +z55 = 0.42857[z5,z8]; +z56 = 0.57142[z5,z8]; +z57 = 0.71428[z5,z8]; +z58 = 0.85714[z5,z8]; +z59 = 1.00000[z5,z8]; +draw z52{dir -45}..z42; +draw z53{dir -45}..z43; +draw z54{dir -45}..z44; +draw z55{dir -45}..z45; +draw z56{dir -45}..z46; +draw z57{dir -45}..z47; +draw z58{dir -45}..z48; +draw z59{dir -45}..z49; +z62 = 0.00000[z5,z8]; +z63 = 0.14285[z5,z8]; +z64 = 0.28571[z5,z8]; +z65 = 0.42857[z5,z8]; +z66 = 0.57142[z5,z8]; +z67 = 0.71428[z5,z8]; +z68 = 0.85714[z5,z8]; +z69 = 1.00000[z5,z8]; +z72 = 0.00000[z10,z14]; +z73 = 0.14285[z10,z14]; +z74 = 0.28571[z10,z14]; +z75 = 0.42857[z10,z14]; +z76 = 0.57142[z10,z14]; +z77 = 0.71428[z10,z14]; +z78 = 0.85714[z10,z14]; +z79 = 1.00000[z10,z14]; +draw z72{dir -45}..z62; +draw z73{dir -45}..z63; +draw z74{dir -45}..z64; +draw z75{dir -45}..z65; +draw z76{dir -45}..z66; +draw z77{dir -45}..z67; +draw z78{dir -45}..z68; +draw z79{dir -45}..z69; +z82 = 0.00000[z10,z14]; +z83 = 0.14285[z10,z14]; +z84 = 0.28571[z10,z14]; +z85 = 0.42857[z10,z14]; +z86 = 0.57142[z10,z14]; +z87 = 0.71428[z10,z14]; +z88 = 0.85714[z10,z14]; +z89 = 1.00000[z10,z14]; +z92 = 0.00000[z12,z16]; +z93 = 0.14285[z12,z16]; +z94 = 0.28571[z12,z16]; +z95 = 0.42857[z12,z16]; +z96 = 0.57142[z12,z16]; +z97 = 0.71428[z12,z16]; +z98 = 0.85714[z12,z16]; +z99 = 1.00000[z12,z16]; +draw z92{dir -45}..z82; +draw z93{dir -45}..z83; +draw z94{dir -45}..z84; +draw z95{dir -45}..z85; +draw z96{dir -45}..z86; +draw z97{dir -45}..z87; +draw z98{dir -45}..z88; +draw z99{dir -45}..z89; + +picture rightcordend; rightcordend := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"322",ex#,ex#,0); "inverted left end of winding cord"; +currentpicture := leftcordend reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"323",ex#,ex#,0); "inverted right end of winding cord"; +currentpicture := rightcordend reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"324",ex#,ex#,0); "inverted extension winding cord"; +currentpicture := cordext reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"325",ex#/2,3ex#/4,0); "horizontal triple rule"; + +pickup pensquare scaled thinl; +top lft z0 = (0,h); +top rt z1 = (w,h); +bot lft z2 = (0,0); +bot rt z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup pensquare scaled 2thinl; +lft z4 = (0,h/2); +rt z5 = (w,h/2); +draw z4--z5; + +picture triplerule; triplerule := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"327",3ex#/4,ex#/2,0); "vertical triple rule"; +currentpicture := triplerule rotatedaround ((w/2,h/2),90) + shifted (ex/8,ex/8); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmornbars.mf b/Master/texmf-dist/fonts/source/public/drm/drmornbars.mf new file mode 100644 index 00000000000..eac6eb7f492 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmornbars.mf @@ -0,0 +1,152 @@ +% +AMDG This document was begun on 21 June 11EX, the feast +% of St. William the Abbot, and it is humbly dedicated to +% him and to the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +beginchar("a",ornshort#+2ss#,ornheight#+2ss#,0); + +% draw the border of the ornament +pickup borderpen; +top lft z20 = (ss,h-ss); top rt z21 = (w-ss,h-ss); +bot rt z22 = (w-ss,ss); bot lft z23 = (ss,ss); +draw z20--z21--z22--z23--cycle; + +% path for the ellipse in the center construct +z0 = (-centerwid/2,0); +z1 = (centerwid/2,0); +z2 = z0 shifted (0,centerht/2); +z3 = z0 shifted (0,-centerht/2); +z4 = z1 shifted (0,centerht/2); +z5 = z1 shifted (0,-centerht/2); +z6 = z0 shifted (-ccurvrad,0); +z7 = z1 shifted (ccurvrad,0); +path centell; centell = z2..z6..z3--z5..z7..z4--cycle; + +% points for placement of center construct +z8 = (w/2,h/2); +z9 = (w/2,h/2+centerht); +z10 = (w/2,h/2-centerht); +z11 = (w/2,h/2+1.75centerht); +z12 = (w/2,h/2-1.75centerht); + +% draw the main cardinal loops +z13 = (w/2,h-ss-borderwid-smallspace); +z14 = 0.75[z11,z13] shifted (-centerwid/2,0); +z15 = 0.75[z11,z13] shifted (centerwid/2,0); +z16 = 0.5[z11,z13] shifted (-centerwid/4,0); +z17 = 0.5[z11,z13] shifted (centerwid/4,0); +pickup thinpen; +path lftshortloop; lftshortloop = z11{up}..z16..z14..{up}z13; +path rtshortloop; rtshortloop = z11{up}..z17..z15..{up}z13; +draw lftshortloop; draw rtshortloop; +draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); +draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); +z18 = (ss+borderwid+smallspace,h/2); +z19 = z8 shifted (-centerwid/2,0); +z24 = 0.75[z19,z18] shifted (0,centerwid/1); +z25 = 0.75[z19,z18] shifted (0,-centerwid/1); +z26 = 0.5[z19,z18] shifted (0,centerwid/2); +z27 = 0.5[z19,z18] shifted (0,-centerwid/2); +path uplongloop; uplongloop = z19{left}..z26..z24..{left}z18; +path downlongloop; downlongloop = z19{left}..z27..z25..{left}z18; +draw uplongloop; draw downlongloop; +draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +% draw the large side loops +z28 = z16 shifted (-smallspace-thinline-centerwid/2,0); +z29 = z26 shifted (smallspace+thinline,smallspace+thinline); +z30 = (x29,y13); +z31 = z8 shifted (-centerwid-smallspace-thinline, + centerht+smallspace+thinline); +z32 = (x18+smallspace+thinline,3h/4); +z33 = (x18+smallspace+thinline,h/4); +z34 = (x30,ss+borderwid+smallspace); +path sideloops; +sideloops = z29{z8-z29}..z31..z28..{left}z30{left}..z32..z24..z25; +% continue on with the side loops; +z80 = (w/4,h/2); +z81 = (x32+bigspace,h-y32); +z82 = (x30,h-y30+bigspace); +z83 = (x31-bigspace,h-y31); +z84 = 0.25[z19,z18]; +path downloops; +downloops := z84{down}..z83..z82..tension 1.5..z81{dir 45}..z80..z29; +% do the internal ornaments +z88 = z29 shifted (0,smallspace); +z85 = (z88--(w/4,h)) intersectionpoint sideloops; +z86 = (z88--(0,h)) intersectionpoint sideloops; +z87 = (z88--(3w/4,h)) intersectionpoint sideloops; +z89 = 0.5[z86,z85] shifted (0,-3bigspace); +z90 = 0.5[z85,z87] shifted (0,-3bigspace); +z91 = 0.5[z86,z85]; +z92 = 0.5[z85,z87]; +z93 = (x29,y29+2bigspace); +z94 = (x25,y93); +z95 = (x84,y93); +z96 = (x86,(y89+y94)/2); +z97 = (x89,y93+2bigspace); +pickup extthinpen; +path curveone; path curvetwo; path curvethree; +curveone = z91..z86..z89..{dir 30}z85{dir -45}..z90..z87..z92; +curvetwo = z89..z93..z94..z96..z97; +curvethree = z90..z93..z95; + +% draw the inner curves +pickup extthinpen; +draw curveone; +draw curveone reflectedabout ((0,h/2),(w,h/2)); +draw curveone reflectedabout ((w/2,h),(w/2,0)); +draw curveone reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +draw curvetwo; +draw curvetwo reflectedabout ((0,h/2),(w,h/2)); +draw curvetwo reflectedabout ((w/2,h),(w/2,0)); +draw curvetwo reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +draw curvethree; +draw curvethree reflectedabout ((0,h/2),(w,h/2)); +draw curvethree reflectedabout ((w/2,h),(w/2,0)); +draw curvethree reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +% erase sideloop paths +pickup thinerasepen; +erase draw sideloops; +erase draw sideloops reflectedabout ((0,h/2),(w,h/2)); +erase draw sideloops reflectedabout ((w/2,h),(w/2,0)); +erase draw sideloops reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +pickup thinpen; +draw sideloops; +draw sideloops reflectedabout ((0,h/2),(w,h/2)); +draw sideloops reflectedabout ((w/2,h),(w/2,0)); +draw sideloops reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +% erase the lines that will be the cardinal loops +pickup thinerasepen; +erase draw uplongloop; erase draw downlongloop; +erase draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +erase draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +% now draw in the cardinal loops +pickup thinpen; +draw uplongloop; draw downlongloop; +draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +draw lftshortloop; draw rtshortloop; +draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); +draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); +% draw the center construct +fill centell shifted z8; +fill centell xscaled 0.75 yscaled 0.75 shifted z9; +fill centell xscaled 0.75 yscaled 0.75 shifted z10; +fill centell xscaled 0.25 yscaled 0.5 shifted z11; +fill centell xscaled 0.25 yscaled 0.5 shifted z12; +% add in the binders +fill centell scaled 0.75 rotated (90) shifted z84; +fill centell scaled 0.75 rotated (90) shifted z84 + reflectedabout ((w/2,h),(w/2,0)); +pickup extthinpen; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf b/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf new file mode 100644 index 00000000000..5bcbf432562 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf @@ -0,0 +1,154 @@ +% +AMDG This document was begun on 4 August 11EX, the feast +% of St. Dominic, C, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"000",cap#,cap#,0); "Six-petaled flower"; + +fill fullcircle scaled 2dotwid shifted (w/2,h/2); +z0 = (w/2,h/2) shifted (0,1.5dotwid); +z1 = (w/2,h); +z2 = z1 shifted (dotwid,-dotwid); +z3 = z1 shifted (-dotwid,-dotwid); +z4 = z0 shifted (dotwid/2,dotwid/2); +z5 = z0 shifted (-dotwid/2,dotwid/2); +path petal; petal = z0..z4---z2..z1..z3---z5..cycle; +fill petal; +fill petal rotatedaround ((w/2,h/2),60); +fill petal rotatedaround ((w/2,h/2),120); +fill petal rotatedaround ((w/2,h/2),180); +fill petal rotatedaround ((w/2,h/2),240); +fill petal rotatedaround ((w/2,h/2),300); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"001",ex#,ex#,0); "Checkerboard"; + +z0 = (0,h); +z1 = (w/3,h); +z2 = (w/3,2h/3); +z3 = (0,2h/3); +path square; square = z0--z1--z2--z3--cycle; +fill square; +fill square shifted (w/3,-h/3); +fill square shifted (0,-2h/3); +fill square shifted (2w/3,0); +fill square shifted (2w/3,-2h/3); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"002",ex#,ex#,0); "Inverse Checkerboard"; +fill square shifted (w/3,0); +fill square shifted (0,-h/3); +fill square shifted (2w/3,-h/3); +fill square shifted (w/3,-2h/3); +endchar; + +beginchar(oct"003",doubex#,doubex#,0); "Triple bar"; + +pickup semiextextthickpen; +top z0 = (0,h); +top z1 = (w,h); +bot z2 = (0,0); +bot z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = (0,h/2); +z5 = (w,h/2); +draw z4--z5; + +picture triplebarext; triplebarext := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"004",doubex#+ex#,doubex#,ex#); +"Triple bar, upper left corner"; + +pickup semiextextthickpen; +top lft z0 = (0,h); +top rt z1 = (w,h); +bot rt z2 = (doubex,0); +bot rt z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = ((x0+x2)/2,h/2); +rt z5 = (w,h/2); +draw z4--z5; +pickup semiextextthickpen; +z6 = (x0,-d); +draw z0--z6; +pickup extextthickpen; +z7 = (x4,-d); +draw z4--z7; +pickup semiextextthickpen; +z8 = (x2,-d); +draw z2--z8; + +picture triplecorner; triplecorner := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"005",doubex#+ex#,doubex#,ex#); +"Triple bar, upper right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"006",doubex#+ex#,doubex#,ex#); +"Triple bar, lower right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)) reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"007",doubex#+ex#,doubex#,ex#); +"Triple bar, lower left corner"; +currentpicture := triplecorner reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"010",doubex#,doubex#,ex#); "Triple bar, lowered"; +currentpicture := triplebarext shifted (0,-d); +endchar; + +beginchar(oct"011",doubex#,doubex#,0); "Triple bar, vertical, left"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90); +endchar; + +beginchar(oct"012",2doubex#,doubex#,0); "Triple bar, vertical, right"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90) + shifted (doubex,0); +endchar; + +beginchar(oct"013",0.75doubex#,0.75doubex#,0); "Clam shell, upright"; + +z0 = (0,h/4); +z1 = (0,3h/4); +z2 = (w/2,h); +z3 = 0.5[z1,z2]; +z4 = (w/4,0); +z5 = (w/3,h/8); +z6 = 0.5[z4,z5]; +z10 = z0 reflectedabout ((w/2,h),(w/2,0)); +z11 = z1 reflectedabout ((w/2,h),(w/2,0)); +z13 = z3 reflectedabout ((w/2,h),(w/2,0)); +z14 = z4 reflectedabout ((w/2,h),(w/2,0)); +z15 = z5 reflectedabout ((w/2,h),(w/2,0)); +z16 = z6 reflectedabout ((w/2,h),(w/2,0)); +z7 = (z3--(w/2,0)) intersectionpoint (z5--z15); +z17 = z7 reflectedabout ((w/2,h),(w/2,0)); + +pickup extthickpen; +draw z4--z5--z15--z14--cycle; +draw z16---z11..{dir 210}z13{dir 150}..{left}z2{left}.. + {dir 210}z3{dir 150}..z1---z6; +pickup thickpen scaled 2; +draw z3--z7; +draw z13--z17; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmorns.mf b/Master/texmf-dist/fonts/source/public/drm/drmorns.mf index 48292df8066..1c582139f77 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmorns.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmorns.mf @@ -45,7 +45,7 @@ pen semiextextthickpen; semiextextthickpen = pensquare scaled 3thickline; pen extextthickpen; extextthickpen = pensquare scaled 4thickline; pen medpen; medpen = pensquare scaled 1.5thinline; -%input ornbars.mf; -input ornfont.mf; +%input drmornbars.mf; +input drmornfont.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf index 14f94a04995..65ddc2e9ce2 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf index 527ca972141..ea3cc7c2719 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf index f36d8767443..c5e2aeb1171 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf index ade02c586c3..1bca6ba507a 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf index 7c5503e4d0f..a179743af15 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf index da8c8250592..3840eddee96 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf index ba4de40bc31..c2a6d269b6f 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf @@ -10,7 +10,7 @@ phi=(1+sqrt5)/2; cap#=4pt#; u#=2cap#/3; em#=1.2cap#; -ex#=0.8cap#; +ex#=0.7cap#; exw# = ex#; define_pixels(exw); dep#=cap#/3; ss#=0.2pt#; @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf index 0a0a24ebf9d..735f043a3d7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf index cbb6e2c1f50..d651a039102 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf index e717c6f630e..3b0a686fcdf 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf @@ -70,6 +70,6 @@ input drmpunct.mf input drmacc.mf input drmacclet.mf input drmdigs.mf -input oldstynums.mf +input drmoldstynums.mf end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf index 8510c178c43..3c59a13438c 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf @@ -63,7 +63,7 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input mathoms.mf +input drmmathoms.mf input drmmathfrac.mf input drmmathheb.mf currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf index f50bfd30586..661d2e627f7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf index d522bd90870..62032e9a74f 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf index c90912da586..61cfa2b6cfd 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf index 20c1d10df5b..aeb2f2b9438 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf index d64076a5043..5c0eb1793cc 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf index d26f25c5a22..1f8f3fe1b41 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf deleted file mode 100644 index e9276d01075..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf +++ /dev/null @@ -1,74 +0,0 @@ -% +AMDG - -font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "TS1"; -pixels_per_inch:=1200; -mode_setup; - -%%%% Define Dimensions for Whole Boxes %%%% - -phi=(1+sqrt5)/2; -cap#=4pt#; -u#=2cap#/3; -em#=1.4cap#; -ex#=0.8cap#; -exw# = ex#; define_pixels(exw); -dep#=cap#/3; -ss#=0.2pt#; -asch#=12cap#/12; -digwid#=1ex#; -slant = 0; -font_slant slant; -font_normal_space 0.7u#; -font_normal_stretch 0.2u#; -font_normal_shrink 0.1u#; -font_x_height cap#/phi; -font_quad em#; -font_extra_space 0.5u#; - -penwidth#=0.01pt#; - -%%%% Define Dimensions for Letters %%%% - -lserc#=0.09u#; -lserh#=lserc#+lserstep#; -lhigh#=0.3u#; -lserstep#=0.05u#; -userc#=0.08u#; -userh#=userc#+userstep#; -lserw#=0.2u#; -userw#=0.2u#; -userstep#=0.05u#; -bulbsh#=0.10u#; -curvwid#=0.6pt#; -slantwid#=0.6pt#; -thickstroke#=0.6pt#; -loopgap#=0.6pt#; -thinstroke#=0.3pt#; -o#=0.1thinstroke#; -hair#=0.2pt#; -ssslant#=0.1u#; -dotwidth#=userw#-o#; -pwid#=3userw#; -accwid# = pwid#/16; -theight#=8asch#/8; -define_pixels(theight); -thinwid# = 0.4pt#; -define_pixels(thinwid); - -define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); -define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); -define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); - -pickup pencircle scaled penwidth; cappen:=savepen; -equalize=thickstroke/2-thinstroke/2; - -input drmlowmac.mf -input symbols.mf -input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf -input drmdigs.mf -input drmromannums.mf; -input ornaments.mf; - -end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf index 814af98e7eb..efbbdf672f4 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf index 1735510b800..9991247e176 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf index 73175bf1f83..96c9346a939 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf @@ -63,12 +63,12 @@ pickup pencircle scaled penwidth; cappen:=savepen; equalize=thickstroke/2-thinstroke/2; input drmlowmac.mf -input symbols.mf +input drmsymbols.mf input drmacc.mf -input oldstynums.mf -input oldstyfracs.mf +input drmoldstynums.mf +input drmoldstyfracs.mf input drmdigs.mf input drmromannums.mf; -input ornaments.mf; +input drmornaments.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsymbols.mf b/Master/texmf-dist/fonts/source/public/drm/drmsymbols.mf new file mode 100644 index 00000000000..0df981ac4ea --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsymbols.mf @@ -0,0 +1,3555 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/2); +z.k=z.j+(userh,0); +z.l=z.k-(0,2userw); +z.m=z.l-(userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +beginchar(oct"054",pwid#,pwid#,0); "The comma ,"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid/2); +z5 = z3 shifted (-dotwid/2,-2.5dotwid); +z6 = z1 shifted (-o,-1.5dotwid); + +path commapost; +commapost = z4..{dir -165}z5{right}..z6..z1..z2..z3..z4--cycle; +fill commapost; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"212",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, double lined"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2-thinl,h+o); +z21 = (w/2-thinl,-o); +z22 = (w/2+thinl,h+o); +z23 = (w/2+thinl,-o); + +draw z20--z21; draw z22--z23; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"044",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, single-lined"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2,h+o); +z21 = (w/2,-o); + +draw z20--z21; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"052",ex#,ex#,0); "Asterisk, *"; + +z0 = (w/2,h/2); +z1 = (w/2,o); +z2 = (w/2,h-o); +z3 = z1 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,120); +z6 = z5 rotatedaround (z0,60); +z7 = z6 rotatedaround (z0,60); + +pickup pencircle scaled thinl; + +draw z2--z1; +draw z4--z6; +draw z5--z3; + +picture asterisk; asterisk := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; + +z0 = (o,o); +z1 = (w-o,h-o); + +pickup pencircle scaled thinl; + +draw z0--z1; + +penlabels(0,1); +endchar; + +beginchar(oct"055",ex#,ex#,0); "The equals sign, ="; + +pickup pencircle scaled thickl; +lft z0 = (ss,ex-thinl); +rt z1 = (w-ss,y0); +lft z2 = (ss,ex/2); +rt z3 = (w-ss,y2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8); +endchar; + +beginchar(".",pwid#,pwid#,0); "The period ."; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"030",2ex#,theight#,0); "left-pointing arrow"; + +pickup pencircle scaled thickl; +lft z0 = (ss,h/2); +rt z1 = (w-ss,h/2); +top z2 = (x0 + 2thickl,h); +bot z3 = (x0 + 2thickl,0); +z4 = (x0 + thickl,3h/4); +z5 = (x0 + thickl,h/3); + +path arrowpoint; path arrowshaft; +arrowpoint = z2--z0--z3; arrowshaft = z0--z1; +draw arrowpoint; draw arrowshaft; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"031",2ex#,theight#,0); "right-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotatedaround ((w/2,h/2),180); +draw arrowshaft rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"040",1.2ex#+2ss#,asch#,0); "The Letter b"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,lserhl); +z3 = z2 shifted (thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; +z20 = (w-ss,(ex+o)/2); +z21 = (x2,y19); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (thickl,0); +z23 = z20 shifted (-curvl,0); + +ulserif(0,4,5,6,7)(1); +llserif(2,8,9,10,11)(1); + +fill z0..z4..z5--z6--z12--z13--z10--z9..z8..z2--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; +pickup pencircle scaled thinl; +lft z30 = (ss,0.6h); +top z31 = (3w/4,h-o); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"136",theight#+2ss#,cap#,dep#); "up-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotated -90 shifted (ss,h); +draw arrowshaft rotated -90 shifted (ss,h); +endchar; + +beginchar(oct"137",theight#+2ss#,cap#,dep#); "down-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotated 90 shifted (w-ss,-dep/2-ss); +draw arrowshaft rotated 90 shifted (w-ss,-dep/2-ss); +endchar; + +beginchar(oct"130",em#+2ss#,cap#,0); "Crusader cross"; + +z0 = (w/2-2thickl,h); +z1 = z0 shifted (4thickl,0); +z2 = z0 shifted (0,-1.5thinl); +z3 = z1 shifted (0,-1.5thinl); +z4 = z2 shifted (thickl,0); +z5 = z3 shifted (-thickl,0); +z6 = (x4,h/2-thickl); +z7 = (x5,h/2-thickl); + +path crosspart; +crosspart = z0--z1--z3--z5--z7--z6--z4--z2--cycle; +fill crosspart; +fill crosspart rotatedaround ((w/2,h/2),90); +fill crosspart rotatedaround ((w/2,h/2),180); +fill crosspart rotatedaround ((w/2,h/2),270); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"131",em#+2ss#,cap#,0); "Crusader cross, outline"; + +pickup pencircle scaled thinl; +top z0 = (w/2-2thickl,h); +z1 = z0 shifted (4thickl,0); +z2 = z0 shifted (0,-1.5thinl); +z3 = z1 shifted (0,-1.5thinl); +z4 = z2 shifted (thickl,0); +z5 = z3 shifted (-thickl,0); +z6 = (x4,h/2+thickl); +z7 = (x5,h/2+thickl); + +path crosspart; +crosspart = z7--z5--z3--z1--z0--z2--z4--z6; +draw crosspart; +draw crosspart rotatedaround ((w/2,h/2),90); +draw crosspart rotatedaround ((w/2,h/2),180); +draw crosspart rotatedaround ((w/2,h/2),270); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"120",1.2ex#+2ss#,cap#,0); "Communion Chalice with Host"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +z2 = (w/2-thickl/2,h/2); +z3 = (w/2+thickl/2,h/2); +z4 = (x2,0+thickl); +z5 = (x3,0+thickl); +bot z6 = (w/4,0-o); +bot z7 = (3w/4,0-o); +z8 = (1/4)[z0,z1]; +z9 = (3/4)[z0,z1]; +z10 = (w/2,9h/10); +z11 = z10 shifted (0,thickl); +z12 = z11 shifted (0,1.5thickl); +z13 = 0.5[z8,z9]; +path Hostray; Hostray = z11--z12; +draw Hostray rotatedaround (z13,22.5); +draw Hostray rotatedaround (z13,67.5); +draw Hostray rotatedaround (z13,-22.5); +draw Hostray rotatedaround (z13,-67.5); +draw z2{left}..z0--z1..{left}z3; +draw z2--z4; draw z3--z5; +draw z6{up}..{right}z4; draw z7{up}..{left}z5; draw z6--z7; +draw z8{up}..{right}z10{right}..{down}z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"144",1.2ex#+2ss#,cap#,0); "simple Latin cross"; + +pickup pensquare scaled thinl; +top z0 = (w/2-thickstroke/2,h); +z1 = z0 shifted (thickstroke,0); +lft z2 = (ss,2h/3+thickstroke/2); +z3 = z2 shifted (0,-thickstroke); +bot z4 = (w/2-thickstroke/2,0); +z5 = z4 shifted (thickstroke,0); +rt z6 = (w-ss,2h/3+thickstroke/2); +z7 = z6 shifted (0,-thickstroke); +z8 = (z0--z4) intersectionpoint (z2--z6); +z9 = (z1--z5) intersectionpoint (z2--z6); +z10 = (z0--z4) intersectionpoint (z3--z7); +z11 = (z1--z5) intersectionpoint (z3--z7); + +path latincross; +latincross = z0--z1--z9--z6--z7--z11--z5--z4--z10--z3--z2--z8--cycle; +filldraw latincross; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",1.2ex#+2ss#,cap#,0); "outline simple Latin cross"; +pickup pensquare scaled thinl; +draw latincross; +endchar; + +beginchar(oct"117",em#+2ss#,cap#,0); "empty circle"; + +pickup pencircle scaled 0.5thickl; +path empcirc; +empcirc = fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +draw empcirc; + +endchar; + +beginchar(oct"155",0.9em#+2ss#,cap#,0); "intertwined rings"; + +pickup pencircle scaled (3thickl/4); +draw fullcircle scaled (em/2) shifted (w/3,h/2); +draw fullcircle scaled (em/2) shifted (2w/3,h/2); + +endchar; + +beginchar(oct"143",1.5em#+2ss#,cap#,0); "split rings"; + +pickup pencircle scaled (3thickl/4); +draw fullcircle scaled (em/2) shifted (w/4,h/2); +draw fullcircle scaled (em/2) shifted (3w/4,h/2); +draw (w/2,h-o)--(w/2,0+o); + +endchar; + +beginchar(oct"142",theight#+2ss#,theight#,0); "solid five-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; +fill fivestar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"152",theight#+2ss#,theight#,0); "empty five-pointed star"; +pickup pencircle scaled thinl; +draw fivestar; +endchar; + +beginchar(oct"141",theight#+2ss#,theight#,0); "solid six-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,60); +z3 = z2 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,60); +z6 = z5 rotatedaround (z0,60); +z7 = (z1--z3) intersectionpoint (z2--z6); +z8 = (z1--z5) intersectionpoint (z2--z6); +z9 = (z6--z4) intersectionpoint (z1--z5); +z10 = (z6--z4) intersectionpoint (z3--z5); +z11 = (z2--z4) intersectionpoint (z3--z5); +z12 = (z2--z4) intersectionpoint (z3--z1); + +path davstar; +davstar = z1--z7--z2--z12--z3--z11--z4--z10--z5--z9--z6--z8--cycle; +fill davstar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"151",theight#+2ss#,theight#,0); "empty six-pointed star"; + +pickup pencircle scaled thinl; +draw davstar; + +endchar; + +beginchar(oct"251",em#+2ss#,cap#,0); "copyright symbol"; + +scalefactor = 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-(1/scalefactor)*thinl); +z2 = (w/2,0-o); +z3 = z2 shifted (0,(1/scalefactor)*thinl); +z4 = (ss,h/2); +z5 = z4 shifted ((1/scalefactor)*thickl,0); +z6 = (w-ss-hair,3h/4); +z7 = (w-ss,h/4); +z8 = z6 shifted (0,1.5thickl); +z9 = z8 shifted (-thickl,0); +z10 = z9 shifted (0,-0.5thickl); +z11 = z12 shifted (-(1/scalefactor)*thinl,0); +z12 = z6 shifted (0,-(1/scalefactor)*thinl); +z13 = z7 shifted (-(1/scalefactor)*thinl,0); + +path csymb; +csymb = z6--z8--z9--z10..z0{left}..{down}z4{down}..{right}z2{right}..z7--z13 +..{left}z3{left}..{up}z5{up}..{right}z1{right}..z11--z12--cycle; + +fill csymb scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"253",em#+2ss#,cap#,0); "copyleft symbol"; + +pickup pencircle scaled 0.5thickl; +draw empcirc; +fill csymb scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h) reflectedabout + ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"204",ex#+2ss#,cap#,dep#); "dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,-dep); +z2 = (ss,2h/3); +z3 = (w-ss,2h/3); +z4 = (w/2,2h/3); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (hair,hair); +z31 = z1 shifted (-hair,hair); + +fill +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"205",ex#+2ss#,cap#,dep#); "double dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,(h-dep)/2); +z2 = (ss,(3h-dep)/4); +z3 = (w-ss,(3h-dep)/4); +z4 = (w/2,(3h-dep)/4); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (thickl/2,hair); +z31 = z1 shifted (-thickl/2,hair); + +path halfdag; +halfdag = +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +fill halfdag; +fill halfdag shifted (0,-(h-dep)-o); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"247",4ex#/5,cap#,dep#); "The section symbol"; + +toth = h+dep; +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = +z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"210",ex#+2ss#,ex#,0); "solid bullet"; + +fill fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); + +endchar; + +beginchar(oct"260",2pwid#+2ss#,cap#,0); "degree symbol"; + +pickup pencircle scaled thinl; +path degree; degree = fullcircle scaled 4dotwid shifted (w/2,h-2dotwid); +draw degree; + +endchar; + +beginchar(oct"154",1.2em#+2ss#,cap#,0); "simple leaf"; + +pickup pencircle scaled thinl; +leafwid = ex; +leaflen = 2.5leafwid; +bot lft z0 = (ss,0); +z1 = (leaflen,0); +z2 = z1 rotatedaround (z0,40); +z3 = 0.25[z0,z2]; +z4 = (2/3)[z0,z2]; +z5 = 0.5[z4,z2]; +z13 = 0.6[z0,z2]; +z6 = z5 rotatedaround (z4,45); +z7 = z4 rotatedaround (z0,20); +z8 = z4 rotatedaround (z0,-20); +z9 = (z3--(x3,h)) intersectionpoint (z0..z7..z2); +z10 = (z13--(x13,h)) intersectionpoint (z0..z7..z2); +z11 = (z3--(w,y3)) intersectionpoint (z0..z8..z2); +z12 = (z13--(w,y13)) intersectionpoint (z0..z8..z2); + +draw z0..z7..z2; draw z0..z8..z2; +draw z0--z2; +draw z3--z9; draw z13--z10; +draw z3--z11; draw z13--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"236",ex#+2ss#,ex#,0); "empty bullet"; + +pickup pencircle scaled thinl; +draw fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#+pwid#,cap#,0); "degree Celsius symbol"; + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2+pwid/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2+pwid/2,0); +z8=z7+(0,thinstroke); +z9=(ss+pwid,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; +pickup pencircle scaled thinl; +draw degree shifted (-2pwid/3,0); + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"022",1.75pwid#,1.75pwid#,0); "straight baseline double quote"; + +z0 = (w/2-thickl,h-o); +z1 = z0 shifted (2accwid,-2accwid); +z2 = z0 shifted (-2accwid,-2accwid); +z3 = z0 shifted (0,-1.5pwid); +z4 = z3 shifted (-accwid,o); +z5 = z3 shifted (accwid,o); + +path singquote; singquote = z2..z0..z1--z5..z3..z4--cycle; + +fill singquote; +fill singquote shifted (2thickl,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"047",3.5pwid#/4,cap#,0); "straight single quote"; +fill singquote shifted (0,h-1.75pwid); +endchar; + +beginchar(oct"256",em#+2ss#,cap#,0); "registered symbol"; + +scalefactor := 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z1 = (ss+lserwl,lserhl); +z2 = z1 shifted (2thickstroke,0); +z3 = (ss+userwl,h-userhl); +z4 = (x3+2thickstroke,h-2thinstroke); +z17 = ((ss+(2thickstroke/2)+lserwl),h); +z19 = z4 shifted (1loopgap,0); +z18 = z19 shifted (0,2thinstroke); +z20 = (w-ss-thickstroke,3h/4); +z21 = z20-(1.5curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,2thinstroke); +z30 = (x4,0); +z24 = 0.5[z30,z17]; x24 := x4; +z25 = z24+(0,2thinstroke); +z26 = (w-2thickstroke-lserwl/2,0); +z27 = z26 shifted (2thickstroke,0); +z28 = z27+(0,lserstep); +z29 = z28-(lserstep,0); +z32 = z22+(2thickstroke,0); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +path rpath; rpath = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +path runpath; runpath = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +fill rpath scaled scalefactor shifted + ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); +unfill runpath scaled scalefactor shifted + ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",em#+2ss#,cap#,0); "circled P"; + +scalefactor := 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z1 = (ss+lserwl,lserhl); +z2 = z1 shifted (2thickstroke,0); +z3 = (ss+userwl,h-userhl); +z4 = (x3 + 2thickstroke,h-2thinstroke); +z17=((ss+(2thickstroke/2)+lserwl),h); +z18=(w/2,h); +z19=(w/2,h-2thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-2curvwid,0); +z22=(x18,h/2); +z23=z22+(0,2thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserhl); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; y24 := y22; +z25 = z24 shifted (0,2thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +path pfill; pfill = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +path punfill; +punfill = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +fill pfill scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); +unfill punfill scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; +beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; + +z0 = (o,o); +z1 = (w-o,h-o); + +pickup pencircle scaled thinl; + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"133",2pwid#,cap#+ss#,dep#); "The open square double bracket"; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thinl); +z2 = (ss,h); +z3 = z2 shifted (thinl,-thinl); +z4 = (ss,-dep); +z5 = z4 shifted (thinl,thinl); +z6 = (w-ss,-dep); +z7 = z6 shifted (0,thinl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); +z10 = z3 shifted (thickl,0); +z11 = z5 shifted (thickl,0); + +path secline; secline = z10--z11; +pickup pencircle scaled thinl; +draw secline; + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"135",2pwid#,cap#+ss#,dep#); "The close square double bracket"; +fill squarebrack rotatedaround ((w/2,(h-dep)/2),180); +pickup pencircle scaled thinl; +draw secline rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"231",3em#/5+2ss#,cap#,0); "single-line pilcrow"; + +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (thickstroke,0); + +fill +z0..z12..z13--z14--z10--z9..z8..z1--z18{left}..{up}z16{up}..{right}z7--z6--z5..z4..z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"266",4em#/5+2ss#,cap#,0); "double-line pilcrow"; + +pickup pencircle scaled thinl; +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-1.5thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-1.5thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +lft z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (1.5thickstroke,0); +z20 = (x3,h); + +filldraw z20{left}..{down}z16{down}..{right}z18--cycle; +draw +z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"300",ex#+2ss#,ex#,0); "solid triangle bullet"; + +pickup pencircle scaled thinstroke; +z0 = (w/2-thinstroke-ss,h/2); +z1 = (x0+w/2,y0); +z2 = z1 rotatedaround (z0,120); +z3 = z2 rotatedaround (z0,120); + +path tribull; tribull = z1--z2--z3--cycle; +fill tribull; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"301",ex#+2ss#,ex#,0); "empty triangle bullet"; + +pickup pencircle scaled thinstroke; + +draw tribull; + +endchar; + +beginchar(oct"224",digwid#+2ss#,cap#,0); "The interrobang"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss,3h/4); +z3 = z2 shifted (-1.5thinl,0); +z4 = (ss,3h/4); +z5 = (w/2-thickl/2,3dotwid); +z6 = z5 shifted (thickl,0); +z7 = (w/2-thickl/2,h/2); +z8 = z7 shifted (thickl,0); +z9 = z7 shifted (0,thinl); +z10 = z9 shifted (thickl,0); +z15 = z1 shifted (-thickl/2,-1.5thickl); +z17 = z15 shifted (thickl,0); +z16 = 0.5[z5,z6]; y16 := dotwid; +z19 = 0.5[z15,z17] shifted (0,hair); + +drtbulb(4,11,12,13,14); + +fill +z4{up}..{right}z0{right}..{down}z2{down}..{left}z8--z6--z5--z7{up}..{right}z10..{up}z3{up}..{left}z1{left}..{dir +-115}z13{right}..z12..z11..cycle; +fill z7--z15..z19..z17--z8--cycle; +fill fullcircle scaled 2dotwid shifted z16; + +picture interrobang; +interrobang := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"225",digwid#+2ss#,cap#,dep#); "The inverted interrobang"; + +currentpicture := interrobang rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"302",1.2em#+2ss#,cap#,0); "The asterism"; + +currentpicture := asterisk shifted (w/2-ex/2-ss,h/2) + + asterisk + asterisk shifted (w/2-ss,0); + +endchar; + +beginchar(oct"306",ex#+2ss#,ex#,0); "solid lozenge"; + +pickup pencircle scaled thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); + +path lozenge; lozenge = z0--z1--z2--z3--cycle; +fill lozenge; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"307",ex#+2ss#,ex#,0); "empty lozenge"; + +pickup pencircle scaled thinl; +draw lozenge; + +endchar; + +beginchar(oct"170",ex#+2ss#,ex#,0); "simple Greek cross"; + +pickup pensquare scaled thinl; +top z0 = (w/2-thickstroke/2,h); +z1 = z0 shifted (thickstroke,0); +rt z2 = (w-ss,h/2+thickstroke/2); +z3 = z2 shifted (0,-thickstroke); +bot z4 = (w/2-thickstroke/2,0); +z5 = z4 shifted (thickstroke,0); +lft z6 = (ss,h/2+thickstroke/2); +z7 = z6 shifted (0,-thickstroke); +z8 = (z0--z4) intersectionpoint (z6--z2); +z9 = (z1--z5) intersectionpoint (z6--z2); +z10 = (z7--z3) intersectionpoint (z0--z4); +z11 = (z7--z3) intersectionpoint (z1--z5); + +path greekcross; +greekcross = z0--z8--z6--z7--z10--z4--z5--z11--z3-- + z2--z9--z1--cycle; +filldraw greekcross; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"171",ex#+2ss#,ex#,0); "outline simple Greek cross"; +pickup pensquare scaled thinl; +draw greekcross; +endchar; + +beginchar(oct"172",ex#+2ss#,ex#,0); "simple saltire cross"; + +pickup pencircle scaled thinl; +lft z0 = (ss,h-thickl); +z1 = z0 shifted (thickl,0) rotatedaround (z0,45); +rt z2 = (w-ss,h-thickl); +z3 = z2 shifted (-thickl,0) rotatedaround (z2,-45); +lft z4 = (ss,thickl); +z5 = z4 shifted (thickl,0) rotatedaround (z4,-45); +rt z6 = (w-ss,thickl); +z7 = z6 shifted (thickl,0) rotatedaround (z6,225); +z8 = (z1--z6) intersectionpoint (z4--z3); +z9 = (z0--z7) intersectionpoint (z4--z3); +z10 = (z2--z5) intersectionpoint (z1--z6); +z11 = (z0--z7) intersectionpoint (z5--z2); + +path saltire; +saltire = z1--z8--z3--z2--z10--z6--z7--z11--z5--z4--z9--z0--cycle; +filldraw saltire; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"173",ex#+2ss#,ex#,0); "outline simple saltire cross"; +pickup pencircle scaled thinl; +draw saltire; +endchar; + +beginchar(oct"074",1.8pwid#,cap#+ss#,dep#); "open wide angle bracket"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h-dep)/2); +bot rt z2 = (w-ss,-dep); + +path wideanglebrack; wideanglebrack = z0--z1--z2; +draw wideanglebrack; + +endchar; + +beginchar(oct"076",1.8pwid#,cap#+ss#,dep#); "close wide angle bracket"; + +pickup pencircle scaled thinl; +draw wideanglebrack rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"025",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",em#+2ss#,ex#,0); "The em-dash, ---"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"075",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"227",1.3em#,cap#,0); "trademark symbol, TM"; + +z0 = (ss,h-2thinstroke); +z1 = (ss,h); +z2 = (ss+8thickstroke,h); +z3 = (x2,y0); +z4 = 0.5[z0,z3] shifted (-2thickstroke/2,0); +z5 = z4 shifted (2thickstroke,0); +z6 = z4 shifted (0,-8thickstroke); +z7 = z6 shifted (2thickstroke,0); +z8 = z0 shifted (0,-2hair); +z9 = z8 shifted (2hair,0); +z10 = z9 shifted (0,2hair); +z11 = z6 shifted (-2hair,0); +z12 = z11 shifted (0,2hair); +z13 = z12 shifted (2hair,0); +z14 = z7 shifted (2hair,0); +z15 = z14 shifted (0,2hair); +z16 = z15 shifted (-2hair,0); +z17 = z3 shifted (0,-2hair); +z18 = z17 shifted (-2hair,0); +z19 = z18 shifted (0,2hair); + +path tradet; +tradet = z4--z10--z9--z8--z1--z2--z17--z18--z19--z5-- + z16--z15--z14--z11--z12--z13--cycle; + +z20 = z2 shifted (2hair,0); +z21 = z20 shifted (2hair,0); +z22 = z20 shifted (0,-2hair); +z23 = z22 shifted (2hair,0); +z24 = (x23,y15); +z25 = z24 shifted (-2hair,0); +z26 = z25 shifted (0,-2hair); +z27 = z26 shifted (2hair,0); +z28 = z27 shifted (2thickstroke,0); +z29 = (x28,y23-2hair); +z30 = z28 shifted (3thickstroke,0); +z31 = z30 shifted (3thickstroke,0); +z32 = (x31,y29-2hair); +z33 = z31 shifted (2thickstroke,0); +z34 = z33 shifted (2hair,0); +z35 = z34 shifted (0,2hair); +z36 = z35 shifted (-2hair,0); +z37 = (x36,y21); +z38 = z37 shifted (2hair,0); +z39 = z38 shifted (0,-2hair); +z40 = z39 shifted (-2hair,0); +z41 = z30 shifted (0,2thickstroke+2hair); +z42 = (x32-2thinstroke,y21); +z43 = (x29+2thinstroke,y21); + +path tradem; +tradem = z24--z25--z26--z27--z28--z29--z30--z32-- + z31--z34--z35--z36--z40--z39--z38--z42--z41--z43-- + z20--z22--z23--cycle; + +fill tradet scaled 0.5 shifted (ss,h-4thickstroke); +fill tradem scaled 0.5 shifted (ss,h-4thickstroke); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"127",5em#/6+2ss#,cap#,0); "capital Omega"; + +z0 = (ss,0); +z1 = (w-ss,0); +z2 = z0 shifted (thickstroke,0); +z3 = z1 shifted (-thickstroke,0); +z4 = z0 shifted (0,2lserhl); +z5 = z1 shifted (0,2lserhl); +z6 = z5 shifted (-lserstep,0); +z7 = z4 shifted (lserstep,0); +z8 = z2 shifted (thickstroke,0); +z9 = z3 shifted (-thickstroke,0); +z10 = (ss,h/2+2lserhl); +z11 = (w-ss,h/2+2lserhl); +z12 = z10 shifted (thickstroke,0); +z13 = z11 shifted (-thickstroke,0); +z14 = (w/2,h+o); +z15 = z14 shifted (0,-thinstroke); +z16 = z8 shifted (0,thinstroke); +z17 = z9 shifted (0,thinstroke); +z18 = z9 shifted (-thickstroke,0); +z19 = z8 shifted (thickstroke,0); + +path omega; omega = + z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. + {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. + {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. + {down}z12{down}..{dir -60}z19--cycle; +fill omega; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"115",5em#/6+2ss#,cap#,0); "upside-down capital Omega"; +fill omega rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"213",ex#+2ss#,ex#,0); "old-style cents symbol"; + +z0 = (w/2+hair,h+o); +z1 = (w/2+hair,-o); +z2 = (w-ss,0.7h); +z3 = (w-ss,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = (w-ss,h/2); + +urtbulb(2,5,6,7,8); + +path cpath; cpath = +z1{right}..z3..z12..z13{dir -135}..{left}z11{left}..{up}z10{up}..{right}z9{right}..{dir +-40}z7{left}..{down}z6..z5..z2..{left}z0{left}..z4..{right}z1..cycle; + +fill cpath; + +z15 = (w-ss,h+thickstroke); +z16 = (ss,-thickstroke); +pickup pencircle scaled thinl; +draw z15--z16; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"214",ex#/phi+2ss#,asch#,0); "The Letter f"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x0,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z13 shifted (0,thinl); +z16 = (ss+hair,y12); +armlen = x12 - x16; +z17 = z13 shifted (armlen,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = 0.5[z16,z18] shifted (-hair,0); +z21 = 0.5[z19,z17] shifted (hair,0); +z22 = (x19,y3); +z27 = 0.5[z3,z22]; y27 := h+o; +z28 = z27 shifted (0,-thinl); + +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); + +fill +z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir 160}..z28..{down}z3--z15--z19..z21..z17--z13--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"242",ex#+2ss#,ex#,0); "cents symbol"; + +fill cpath; + +z15 = (w/2,h+thickstroke); +z16 = (w/2,-thickstroke); +pickup pencircle scaled thinl; +draw z15--z16; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"244",em#+2ss#,cap#,0); "empty circle, rays"; + +pickup pencircle scaled 0.5thickl; +draw empcirc; +top rt z0 = (w-ss,h); +top lft z1 = (ss,h); +bot rt z2 = (w-ss,0); +bot lft z3 = (ss,0); +z4 = (w/2,h/2); +z5 = (z0--z4) intersectionpoint empcirc; +z6 = (z3--z4) intersectionpoint empcirc; +z7 = (z2--z4) intersectionpoint empcirc; +z8 = (z1--z4) intersectionpoint empcirc; + +draw z3--z6; draw z2--z7; draw z5--z0; draw z8--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"206",pwid#+2ss#,cap#+ss#,dep#); "The double pipe"; + +pickup pencircle scaled thinl; +lft z0 = (w/2-thickstroke,h-o); +lft z1 = (w/2-thickstroke,-dep+o); +rt z2 = (w/2+thickstroke,h-o); +rt z3 = (w/2+thickstroke,-dep+o); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4); +endchar; + +beginchar(oct"326",ex#+2ss#,ex#,0); "The times sign"; + +pickup pencircle scaled thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +bot lft z2 = (ss,0); +bot rt z3 = (w-ss,0); + +draw z0--z3; draw z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"366",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; + +pickup pencircle scaled thinl; +lft z0 = (ss,(h+d)/2-d); +rt z1 = (w-ss,(h+d)/2-d); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); +fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"032",ex#+2ss#,cap#,0); "High tie"; + +penpos0(1.5thinl,0); +z0l = (ss,3h/4); +penpos1(1.5thinl,180); +z1l = (w-ss,3h/4); +penpos2(thickl,-90); +z2l = (w/2,h+o); + +penstroke z0e..z2e..z1e; + +picture tie; tie := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"033",ex#+2ss#,ex#,0); "Low tie"; + +currentpicture := tie shifted (0,-(cap-ex)); + +endchar; + +beginchar(oct"035",ex#+2ss#,cap#,0); "High tie"; + +currentpicture := tie shifted (0,-(cap-ex)); + +endchar; + +beginchar(oct"034",3ex#/4+2ss#,cap#,0); "Narrow tie"; + +penpos0(1.5thinl,0); +z0l = (ss,3h/4); +penpos1(1.5thinl,180); +z1l = (w-ss,3h/4); +penpos2(thickl,-90); +z2l = (w/2,h+o); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"156",1.2ex#+2ss#,cap#,0); "Eighth note"; + +z0 = (ss,2w/8); +z1 = (2w/8,4w/8-ss); +z2 = (4w/8,2w/8); +z3 = (2w/8,0-o); +z5 = (x2,h+o); +z6 = z5 shifted (-thinl,0); +z7 = z2 shifted (-thinl,0); +penpos8(thinl,0); +z8 = 0.5[z6,z5]; +penpos9(1.25thinl,45); +z9 = z8 shifted (thickl,-2thickl); +penpos10(1.5thinl,0); +z10 = z9 shifted (thickl,-thickl); +penpos11(1.5thinl,0); +z11l = z10 shifted (-thickl,-thickl); +penpos12(1.5thinl,45); +z12l = (x10r,y2); + +fill z0..z1..z2..z3..cycle; +fill z6--z5--z2--z7--cycle; +penstroke z8e..z9e..z10e..z11e;%..z12e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"176",1.8ex#+2ss#,ex#,0); "Large tilde"; + +penpos0(1.5thickl,-30); +z0l = (ss,h-8accwid); +penpos1(1.5thickl,-90); +z1l = (w/3,h+o); +penpos2(1.5thickl,-90); +%z2 = (2w/3,y0r); +z2 = (2w/3,y0); +penpos3(1.5thickl,-30); +y3l = (y1l); +x3r = (w-ss); + +penstroke z0e..{right}z1e; +penstroke z1e{right}..{right}z2e; +penstroke z2e{right}..z3e; +%penstroke z0e..z1e..z2e..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"200",ex#+2ss#,cap#,0); "Cupped tie"; + +penpos0(1.5thinl,0); +z0l = (ss,h+o); +penpos1(1.5thinl,180); +z1l = (w-ss,h+o); +penpos2(thickl,90); +z2l = (w/2,3h/4); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"201",0.75ex#+2ss#,cap#,0); "Cupped tie"; + +penpos0(1.5thinl,0); +z0l = (ss,h+o); +penpos1(1.5thinl,180); +z1l = (w-ss,h+o); +penpos2(thickl,90); +z2l = (w/2,3h/4); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"202",1.9pwid#+2ss#,cap#,0); "Close straight double quotes"; + +z0 = (0,h-2accwid); +z1 = z0 shifted (2accwid,2accwid); +z2 = z1 shifted (2accwid,-2accwid); +z3 = z0 shifted (accwid,-pwid); +z4 = z3 shifted (accwid,-accwid); +z5 = z4 shifted (accwid,accwid); +z6 = 0.5[z1,z4]; +z7 = (w/4,h-1.5accwid-0.5pwid); +z8 = (3w/4,h-1.5accwid-0.5pwid); + +path straight; straight = z0..z1..z2--z5..z4..z3--cycle; +fill straight shifted (w/4-2accwid,0) rotatedaround (z7,-30); +fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,-30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"203",1.9pwid#+2ss#,cap#,0); "Open straight double quotes"; + +z7 = (w/4,h-1.5accwid-0.5pwid); +z8 = (3w/4,h-1.5accwid-0.5pwid); + +fill straight shifted (w/4-2accwid,0) rotatedaround (z7,30); +fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,30); + +endchar; + +beginchar(oct"207",7.5em#/6,cap#,0); "The pertriqua sign, %"; + +zeroh = 1.2pwid; +zerohh = 3ex/4; +semw = 5em/6-ss; +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (semw+ss-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (semw+ss-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (semw,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (semw+ss-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (semw,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,1.00thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.8thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + +z30 = (w-0.6zeroh,zerohh); +z31 = z30 shifted (0,-thinl); +z32 = (w-0.6zeroh,0); +z33 = z32 shifted (0,thinl); +z34 = (w-ss,zerohh/2); +z35 = z34 shifted (-1.7thinl,0); +z36 = (w-1.2zeroh,zerohh/2); +z37 = z36 shifted (thinl,0); + +fill z30..z34..z32..z36..cycle; +unfill z31..z35..z33..z37..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"215",5em#/6+ss#,cap#,0); "Capital C, slashed vertically"; + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +pickup pencircle scaled 2thinl; +z20 = (3w/5,h+thinl); +z21 = (3w/5,0-thinl); +draw z20---z21; + +fill cinbody & botserif & cbody & topserif & cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar(oct"216",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0); +"Capital W, double slashed horizontally"; + +bottompoints=(w-2ss)/3; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = z2 shifted (userw+hair+userw,0); +z4 = z3 shifted (thickstroke,0); +z5 = z4 shifted (userw+hair+userw+thinstroke,0); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.2thickstroke); +z35=z7+(0.4thinstroke,2.2thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +y11 := y15 := y19 := y23 := y27 := y31 := h; + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z36--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +pickup pencircle scaled 1.5thinl; + +lft z40 = (ss,2h/3); +lft z41 = (ss,0.4h); +rt z42 = (w-ss,2h/3); +rt z43 = (w-ss,0.4h); + +draw z40--z42; draw z41--z43; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); +"Capital N, double slashed, horizontally"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +y26 := y27 := y29 := y18 := y22 := h; +y10 := y14 := 0; + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +pickup pencircle scaled 1.5thinl; + +lft z40 = (ss,2h/3); +lft z41 = (ss,0.4h); +rt z42 = (w-ss,2h/3); +rt z43 = (w-ss,0.4h); + +draw z40--z42; draw z41--z43; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"220",em#+2ss#,cap#,0); "Capital G, slashed vertically"; + +z1=(w-ss-userw-thickstroke/2,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +pickup pencircle scaled 2thinl; +z30 = (w/2,h+thinl); +z31 = (w/2,0-thinl); +draw z30--z31; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"221",2em#/3+2ss#,cap#,0); "Capital P, slashed horizontally"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +y11 := y12 := h; +y7 := y8 := y15 := 0; + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +pickup pencircle scaled 2thinl; +lft z40 = (ss,h/3); +rt z41 = (w-ss,h/3); +draw z40--z41; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"243",5em#/6+2ss#,cap#,0); +"The British pound sign, single-slashed"; + +z0 = (2w/3,h+o); +z1 = z0 shifted (0,-1.5thinl); +z2 = (w-ss-hair,4h/5); +z3 = z2 shifted (-1.5thinl,0); +z4 = 0.5[z2,z3] shifted (0,-hair/2); +z5 = (0.5w,4h/5); +z6 = z5 shifted (-thickl,0); +z7 = (w/2+thickl/2,h/7); +z8 = z7 shifted (-thickl,0); +z9 = (x8-thickl,-hair/4); +z10 = z9 shifted (0,thinl); +z12 = (ss,h/7); +z13 = z12 shifted (thickl,0); +z14 = 0.5[z8,z7] shifted (0,-thinl); +z15 = z14 shifted (0,1.3thinl); +z16 = (2w/3,-hair/4); +z17 = z16 shifted (0,1.5thinl); +z18 = (w-ss-hair,userw); +z19 = z18 shifted (0,1.5thinl); +z20 = 0.5[z18,z19] shifted (hair,0); +z30 = (x9,y13+(y10+y13)/2); +z31 = z30 shifted (0,1.5thinl); + +fill +z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z30..z14..{right}z16{right}..z18..z20..z19{dir +200}..{left}z17{left}..z7..z31..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle; + +picture britpound; britpound := currentpicture; + +pickup pencircle scaled 2thinl; +lft z21 = (w/5,0.5h); +rt z22 = (4w/5,0.5h); + +draw z21--z22; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"222",5em#/6+2ss#,cap#,0); +"The British pound sign, double-slashed"; + +currentpicture := britpound; +pickup pencircle scaled 1.5thinl; +lft z21 = (w/6,0.4h); +rt z22 = (5w/6,0.4h); +lft z23 = (w/6,0.6h); +rt z24 = (5w/6,0.6h); + +draw z21--z22; +draw z23--z24; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"223",5em#/6+2ss#,cap#,0); "Recipe symbol"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +y11 := y12 := h; +y7 := y8 := y15 := 0; + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +pickup pencircle scaled 1.5thinl; +top rt z40 = (w-ss,h/2); +bot lft z41 = (w/2,0); +draw z40--z41; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar(oct"226",1.2ex#+2ss#,asch#,0); +"Lowercase d, slashed and underlined"; + +z0 = (w-ss-lserwl,h-userhl); +z1 = z0 shifted (-thickl,0); +z2 = (x0,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z0 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; y19 := ex/2; +z20 = (x2,(ex+o)/2); +z21 = (ss,(ex+o)/2); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (curvl,0); +z23 = z20 shifted (-thickl,0); + +ulserif(1,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); + +fill z1..z4..z5--z6--z12--z2..z8..z9--z10--z13--z1--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; + +pickup pencircle scaled 1.5thinl; +lft z30 = (w/3,3h/4); +rt z31 = (w-ss,3h/4); +lft z32 = (ss,0-thickl); +rt z33 = (w-ss,0-thickl); +draw z30--z31; draw z32--z33; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"237",1.3em#,cap#,0); "SM"; + +th = 8thickl+2thinl; +z0 = (ss,3th/4); +z1 = (3w/4-ss,3th/4); +z2 = (3w/4-ss,th/4); +z3 = (ss,th/4); +z4 = (6w/16,th+o); +z5 = (6w/16,0-o); +z6 = z1 shifted (-2thickl,0); +z7 = z4 shifted (0,-2thinl); +z8 = z0 shifted (2thickl,0); +z9 = z2 shifted (-2thickl,0); +z10 = z5 shifted (0,2thinl); +z11 = z3 shifted (2thickl,0); +z12 = 0.5[z6,z1] shifted (0,-thickl); +z13 = 0.5[z3,z11] shifted (0,thickl); + +pickup pencircle scaled 2; +path sm; sm = +z1{up}..{left}z4{left}..{down}z0{down}..{down}z9{down}..{left}z10{left}..{up}z11..z13..z3{down}..{right}z5{right}..{up}z2{up}..{up}z8{up}..{right}z7{right}..{down}z6..z12..cycle; + +fill sm scaled 0.5 shifted (ss,h-4thickl-thinl); +fill tradem scaled 0.5 shifted (ss,h-4thickl); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"235",1.5ex#+2ss#,cap#,0); "The Letter e"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (w-ss-hair,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = z2 shifted (-curvl,thinl); +z15 = z10 shifted (0,thinl); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir +-120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"234",ex#+2ss#,cap#,0); "Simple perbiqua sign"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +z2 = (ss+dotwid,h-dotwid); +z3 = (w-ss-dotwid,dotwid); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted z2; +fill fullcircle scaled 2dotwid shifted z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"233",8em#/6+2ss#,cap#,0); "Numero (No) sign"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(5em/6-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(5em/6-userw,-4o); +z28=z7+(-thinstroke,2.5thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +y26 := y29 := y18 := y22 := y27 := h; +y10 := y14 := 0; + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +z30 = (w-ss-7em/24,h); +z31 = (x30,h/2-thinl); +z32 = (x30-(y30-y31)/2,h-(y30-y31)/2); +z33 = (x30+(y30-y31)/2,h-(y30-y31)/2); +z34 = z30 shifted (0,-thinl); +z35 = z31 shifted (0,thinl); +z36 = z32 shifted (thickl,0); +z37 = z33 shifted (-thickl,0); +z38 = z31 shifted (0,-thickl); +pickup pencircle scaled 2thinl; +lft z39 = (x32,y38); +rt z40 = (x33,y38); + +fill z30..z33..z31..z32..cycle; +unfill z34..z37..z35..z36..cycle; +draw z39--z40; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"232",3em#/4+2ss#,cap#,0); +"Capital B, slashed vertically"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = (w-ss,h/4); +z28=z27-(1.1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +pickup pencircle scaled 1.5thinl; +z44 = (3w/5,h+thickl); +z45 = (3w/5,0-thickl); +draw z44--z45; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"230",9.8em#/6,cap#,0); "The perquadqua sign"; + +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (semw+ss-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (semw+ss-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (semw,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (semw+ss-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (semw,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,1.00thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.8thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + +z30 = (w-0.6zeroh,zerohh); +z31 = z30 shifted (0,-thinl); +z32 = (w-0.6zeroh,0); +z33 = z32 shifted (0,thinl); +z34 = (w-ss,zerohh/2); +z35 = z34 shifted (-1.7thinl,0); +z36 = (w-1.2zeroh,zerohh/2); +z37 = z36 shifted (thinl,0); + +fill z30..z34..z32..z36..cycle; +unfill z31..z35..z33..z37..cycle; + +z40 = (w-1.8zeroh,zerohh); +z41 = z40 shifted (0,-thinl); +z42 = (w-1.8zeroh,0); +z43 = z42 shifted (0,thinl); +z44 = (w-1.2zeroh-ss,zerohh/2); +z45 = z44 shifted (-1.7thinl,0); +z46 = (w-2.4zeroh-ss,zerohh/2); +z47 = z46 shifted (thinl,0); + +fill z40..z44..z42..z46..cycle; +unfill z41..z45..z43..z47..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"240",1.2pwid#,cap#+ss#,dep#); +"The open inverse curly bracket"; + +brackwid = 2thinl; +totalh = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-dep); +rt z2 = (w-ss,h-totalh/2); +lft z3 = (ss,h-totalh/4); +lft z4 = (ss,h-3totalh/4); + +path invcurlybrack; +invcurlybrack = z0{left}..{down}z3..{right}z2{left}..z4{down}..{right}z1; +draw invcurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"241",1.2pwid#,cap#+ss#,dep#); +"The close inverse curly bracket"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw invcurlybrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"245",5em#/6+2ss#,cap#,0); "The yen symbol"; + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +fill +z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; + +pickup pencircle scaled 1.5thinl; +lft z40 = (ss,h/3); +rt z41 = (w-ss,h/3); +lft z42 = (ss,2h/3); +rt z43 = (w-ss,2h/3); + +draw z40--z41; draw z42--z43; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"246",pwid#,cap#,dep#); "The broken pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (x0,h-(h+d)/2+thickl); +top z2 = bot z1 shifted (0,-2thickl); +bot z3 = (w/2,-d); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"257",em#,cap#,0); "high line"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"254",em#,ex#,0); "inverted backwards L"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +rt z2 = (w-ss,h/2); + +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"252",3ex#/4+2ss#,cap#,0); "feminine ordinal"; + +ordwid = 1.5ex+2ss; +ordh = 1.5ex; +z0 = (ss,3ordh/4); +z1 = (x3/2,ordh+o); +z2 = (ordwid-ss-lserwl,3ordh/4); +z3 = (x2,lserhl); +z8 = z7 shifted (0,lserhl); +z9 = 0.5[z18,z19]; y9 := 0-o; +z10 = (ss-o,ordh/4); +z15 = z2 shifted (-2thickl,0); +z16 = z1 shifted (0,-2thinl); +z17 = z9 shifted (0,2thinl); +z18 = z10 shifted (2thickl,0); +z19 = z3 shifted (-2thickl,lserhl); +z20 = (ordwid/2-2thickl,ordh/2); +z21 = z20 shifted (thickl,-2thinl); +z22 = 0.2[z15,z19]; +z23 = z19 shifted (-2thinl,0); +z24 = z22 shifted (0,-2thickl/2); +z25 = z16 shifted (thickl,0); + +lrserif(3,4,5,6,7)(1); +drtbulb(0,11,12,13,14); + +path afill; afill = +z13..z12..z11..z0{up}..{right}z1{right}..{down}z2--z3..z4..z5--z6--z7--z8..z9..{up}z10..z20..z22--z15{up}..{left}z16{left}..z13..cycle; +path aunfill; aunfill = z18..z21..z24--z19..z17..cycle; +fill afill scaled 0.5 shifted (ss,cap-0.75ex); +unfill aunfill scaled 0.5 shifted (ss,cap-0.75ex); + +pickup pencircle scaled 1.5thinl; +lft z30 = (ss,h/2-thinl); +rt z31 = (w-ss,h/2-thinl); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"272",3ex#/4+2ss#,cap#,0); "masculine ordinal"; + +z0 = (ordwid/2,ordh+o); +z1 = z0 shifted (0,-2thinl); +z2 = (ordwid-2ss,ordh/2); +z3 = z2 shifted (-2curvl,0); +z4 = (ordwid/2,0-o); +z5 = z4 shifted (0,2thinl); +z6 = (ss,ordh/2); +z7 = z6 shifted (2curvl,0); + +path ofill; ofill = z0..z2..z4..z6..cycle; +path ounfill; ounfill = z1..z3..z5..z7..cycle; + +fill ofill scaled 0.5 shifted (ss,cap-0.75ex); +unfill ounfill scaled 0.5 shifted (ss,cap-0.75ex); + +pickup pencircle scaled 1.5thinl; +lft z30 = (ss,h/2-thinl); +rt z31 = (w-ss,h/2-thinl); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"250",2pwid#,cap#,0); "The diaresis"; + +z0 = (w/4,h-dotwid); +z1 = (3w/4,h-dotwid); + +fill fullcircle scaled 2dotwid shifted z0; +fill fullcircle scaled 2dotwid shifted z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"261",em#,cap#,0); "The plus minus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z3 = (ss,h/2); +rt z4 = (w-ss,h/2); +lft z5 = (ss,0); +rt z6 = (w-ss,0); + +draw z0--z1; draw z3--z4; draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"270",cap#,cap#,0); "The reference mark"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot rt z1 = (w-ss,0); +top rt z2 = (w-ss,h); +bot lft z3 = (ss,0); +z4 = (w/2,h/2); +z5 = z4 shifted (0,3h/8-hair); +z6 = z4 shifted (-3w/8+hair,0); +z7 = z4 shifted (0,-3h/8+hair); +z8 = z4 shifted (3w/8-hair,0); + +draw z0--z1; draw z2--z3; +fill fullcircle scaled 3dotwid shifted z5; +fill fullcircle scaled 3dotwid shifted z6; +fill fullcircle scaled 3dotwid shifted z7; +fill fullcircle scaled 3dotwid shifted z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"267",pwid#,ex#,0); "The interpunct"; + +z0 = (w/2,h-2dotwid); +fill fullcircle scaled 2dotwid shifted z0; + +penlabels(0); +endchar; + +beginchar(oct"262",0.8ex#+2ss#,cap#,0); "superscript digit 2"; + +z0 = (w/2,ex+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss+o,2ex/3); +z3 = z2 shifted (bulbsh,bulbsh); +z4 = z3 shifted (bulbsh,-bulbsh); +z5 = z4 shifted (-bulbsh,-bulbsh); +z6 = (w-ss-o,2ex/3); +z7 = z6 shifted (-thickl,0); +z8 = (ss,1.5thinl); +z9 = (x8,0); +z10 = (w-ss,0); +z11 = (w-ss,1.5thinl+thinl); +z12 = z11 shifted (-thinl/2,0); +z13 = z12 shifted (0,-thinl); +z14 = z8 shifted (thickl,0); + +path supertwo; supertwo = +z14--z13--z12--z11--z10--z9--z8{dir +30}..{up}z7..{left}z1{left}..{dir +230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir +-160}cycle; +fill supertwo shifted (0,h-ex); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"263",0.8ex#+2ss#,cap#,0); "superscript digit 3"; + +threehgt = (ex); +z0 = (w/2,ex/2+o); +z1 = (w/2,0-dep-o); +z2 = (ss,.75threehgt-dep); +z3 = (ss,.25threehgt-dep); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3threehgt/4-dep); +z9 = (w-ss,threehgt/4-dep); +z10 = (w/2-2thinstroke,threehgt/2+thinstroke-dep); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (1.5thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (1.5thickl,0); +z23 = z11 shifted (1.5thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +path supthree; supthree = +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +fill supthree shifted (0,cap-ex/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"264",5pwid#/4,cap#,0); "prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); +endchar; + +beginchar(oct"265",1.2ex#+2ss#,ex#,dep#); "Upright mu"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (w-ss-lserwl,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z14 = (w/2,-o); +z15 = z14 shifted (0,1.5thinl); +z16 = (x0,h/4); +z17 = 0.5[z16,z14] shifted (0,-lserwl); +z18 = z17 shifted (3o,lserhl); +z19 = z16 shifted (thickl,0); +z20 = (w-ss-userwl,h-userhl); +z21 = z20 shifted (-thickl,0); +z22 = (x21,h/4); +z23 = z22 shifted (thickl,0); +z24 = 0.5[z23,z14] shifted (-2o,-lserwl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,lserhl); +z31 = (x16,-dep+lserhl); +z32 = (x19,-dep+lserhl); + +ulserif(0,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); +ulserif(21,25,26,27,28)(1); +llserif(31,33,34,35,36)(1); +lrserif(32,37,38,39,40)(1); + +fill +z1--z12--z6--z5..z4..z0--z16{down}..{right}z14{right}..{up}z23--z29--z27--z26..z25..z21--z22{down}..z15..{up}z19--cycle; +fill z13--z10--z9..z8..z2--z23--z22--cycle; +fill z16--z31..z33..z34--z35--z39--z38..z37..z32--z19--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"271",digwid#/2+2ss#,cap#,0); "The digit 1"; + +z0 = (w/2-2thickstroke/2,lserhl); +z1 = z0 shifted (2thickstroke,0); +z10 = (w/2-2thickstroke/2,h-2userh); +z11 = z10 shifted (2thickstroke,0); +z12 = z11 shifted (0,2userh+o); +z13 = z12 shifted (-2thickstroke,0); +z14 = z10 shifted (-lserwl-o,0); +z15 = z14 shifted (0,2thinl); + +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); + +path supone; supone = +z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; + +fill supone scaled 0.5 shifted (w/4,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"273",ex#+2ss#,cap#,0); "Square root sign"; + +pickup pencircle scaled 1.5thinl; + +penpos0(thinl,-45); +lft z0 = (ss,h/4); +penpos1(thinl,-45); +z1 = (w/4,h/3); +penpos3(1.5thinl,-90); +bot z3 = (3w/4,h+o+thinl); +penpos4(1.5thinl,-90); +z4 = (w-ss,y3); +penpos5(thickl,45); +z5l = z1l; +penpos6(thickl,45); +z6l = (w/2,0-o); +penpos2(1.5thinl,-45); +z2r = z6r; +penpos7(1.5thinl,-45); +z7r = z3r; + +penstroke z0e--z1e; +penstroke z5e--z6e; +penstroke z2e--z7e..z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +beginchar(oct"277",5em#/6+2ss#,cap#,0); "The Euro sign"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +y14 := y26 := y6 := 0; +y20 := y28 := y8 := h; + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +pickup pencircle scaled 1.5thinstroke; +lft z40 = (ss,0.35h); +lft z41 = (ss,0.6h); +rt z42 = (2w/3,0.35h); +rt z43 = (5w/6,0.6h); +draw z40--z42; draw z41--z43; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"174",ex#+2ss#,ex#,0); "simple heart"; + +pickup pencircle scaled thinl; +z0 = (w/4,h); +z1 = (3w/4,h); +z2 = (w/2,0); +z3 = (w/2,h-ex/3); +path heart; heart = z0..{down}z3{up}..z1..{dir -135}z2{dir 135}..cycle; +filldraw heart; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"175",ex#+2ss#,ex#,0); "simple heart outline"; +pickup pencircle scaled thinl; +draw heart; +endchar; + +beginchar(oct"303",2.4pwid#,cap#,0); "double prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (1.00pwid,h-1.75pwid); +endchar; + +beginchar(oct"313",3.7pwid#,cap#,0); "triple prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-2.10pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (1.00pwid,h-2.10pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (2.00pwid,h-2.10pwid); +endchar; + +beginchar(oct"153",1.2ex#+2ss#,cap#,0); "Genealogy: male"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss); +top z2 = (ex-h/3,h+thickl); +z3 = (z2--(ex/2,0)) intersectionpoint (fullcircle scaled + (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss)); +z0 = 0.5[z2,z3] shifted (-ex/3,0); +z1 = 0.5[z2,z3] shifted (ex/3,0); +z20 = (ex/2,ex/2-2ss); + +path arrow; arrow = z0--z2--z3--z2--z1; +draw arrow rotatedaround (z20,-30); + +picture mars; mars := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"145",1ex#+2ss#,cap#,0); "Genealogy: female"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; + +picture venus; venus := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"140",theight#+2ss#,theight#,0); "Star of David"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,60); +z3 = z2 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,60); +z6 = z5 rotatedaround (z0,60); +z7 = (z1--z3) intersectionpoint (z2--z6); +z8 = (z1--z5) intersectionpoint (z2--z6); +z9 = (z6--z4) intersectionpoint (z1--z5); +z10 = (z6--z4) intersectionpoint (z3--z5); +z11 = (z2--z4) intersectionpoint (z3--z5); +z12 = (z2--z4) intersectionpoint (z3--z1); + +pickup pencircle scaled thinl; +draw z1--z3--z5--cycle; +draw z2--z6--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"150",theight#+2ss#,theight#,0); "Lined five-point star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +pickup pencircle scaled thinl; +draw z1--z3--z5--z2--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"160",1.2em#+2ss#,em#,0); +"Radiation symbol, no circle"; + +z0 = (w/2,h/2); +z1 = (x0,0); +z2 = z1 rotatedaround (z0,30); +z3 = z1 rotatedaround (z0,-30); +z4 = 0.25[z0,z3]; +z5 = 0.25[z0,z2]; +z6 = 0.25[z0,z1]; +path raddiv; raddiv = z4--z3..z1..z2--z5..z6..cycle; +fill raddiv; +fill raddiv rotatedaround (z0,120); +fill raddiv rotatedaround (z0,-120); +fill fullcircle scaled 2dotwid shifted z0; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"161",1.2em#+2ss#,em#,0); +"Radiation symbol, with circle"; + +z0 = (w/2,h/2); +fill raddiv; +fill raddiv rotatedaround (z0,120); +fill raddiv rotatedaround (z0,-120); +fill fullcircle scaled 2dotwid shifted z0; + +pickup pencircle scaled thinl; +z1 = (w/2,0); +draw fullcircle scaled (h+3thinl) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"162",1.2em#+2ss#,em#,0); +"Biohazard symbol, no circle"; + +circwid = w/2; +z0 = (w/2,h/2); +z1 = z0 shifted (0,circwid/3); +z2 = z1 rotatedaround (z0,-120); +z3 = z1 rotatedaround (z0,120); +z4 = z1 shifted (0,circwid/6); +z5 = z4 rotatedaround (z0,-120); +z6 = z4 rotatedaround (z0,120); +% main trefoil circles +fill fullcircle scaled circwid shifted z1; +fill fullcircle scaled circwid shifted z2; +fill fullcircle scaled circwid shifted z3; +% smaller circles tangent to larger +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +% central circle +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +% the underlying ring +z7 = 2[z5,z0]; +z8 = (z4--z6) intersectionpoint (z5--z7); +pickup pencircle scaled thinl; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +% erase the arcs +pickup pencircle scaled (thinl/2); +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +z9 = 0.5[z0,z1]; +z10 = 0.5[z0,z3]; +z11 = 0.5[z0,z2]; +undraw z0--z9; undraw z0--z9; undraw z0--z9; +undraw z0--z10; undraw z0--z10; undraw z0--z10; +undraw z0--z11; undraw z0--z11; undraw z0--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"163",1.2em#+2ss#,em#,0); +"Biohazard symbol, with circle"; + +z0 = (w/2,h/2); +z1 = z0 shifted (0,circwid/3); +z2 = z1 rotatedaround (z0,-120); +z3 = z1 rotatedaround (z0,120); +z4 = z1 shifted (0,circwid/6); +z5 = z4 rotatedaround (z0,-120); +z6 = z4 rotatedaround (z0,120); +% main trefoil circles +fill fullcircle scaled circwid shifted z1; +fill fullcircle scaled circwid shifted z2; +fill fullcircle scaled circwid shifted z3; +% smaller circles tangent to larger +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +% central circle +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +% the underlying ring +z7 = 2[z5,z0]; +z8 = (z4--z6) intersectionpoint (z5--z7); +pickup pencircle scaled thinl; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +% erase the arcs +pickup pencircle scaled (thinl/2); +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +z9 = 0.5[z0,z1]; +z10 = 0.5[z0,z3]; +z11 = 0.5[z0,z2]; +undraw z0--z9; undraw z0--z9; undraw z0--z9; +undraw z0--z10; undraw z0--z10; undraw z0--z10; +undraw z0--z11; undraw z0--z11; undraw z0--z11; +%surrounding circle +pickup pencircle scaled thinl; +draw fullcircle scaled (w-2ss) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"164",1.2em#+2ss#,cap#,0); +"General warning sign"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h/2); +z1 = (w/2,h); +bot lft z2 = (ss,0); +bot rt z3 = (w-ss,0); +path trisign; trisign = z1---z2---z3---cycle; +draw trisign; + +z6 = (w/2,0); +z4 = 0.6[z0,z1]; +z5 = 0.5[z0,z6]; +z7 = z4 shifted (thinl,-thinl); +z8 = z4 shifted (-thinl,-thinl); +z9 = z5 shifted (thinl/2,thinl/2); +z10 = z5 shifted (-thinl/2,thinl/2); +z11 = 0.4[z5,z6]; + +fill z8..z4..z7---z9..z5..z10---cycle; +fill fullcircle scaled dotwid shifted z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"165",1.2ex#+2ss#,cap#,0); +"High voltage warning, no triangle"; + +penpos0(thickl,15); +z0 = (w/2,2h/3); +penpos1(0.9thickl,15); +z1 = (w/2-thinl,h/2); +penpos2(0.9thickl,15); +z2r = (x0r,y1r-thinl/32); +penpos3(0.7thickl,15); +z3l = (x1l,h/3); +penpos4(0.7thickl,15); +z4l = (x3+thinl/2,y3-thinl/4); +penpos5(0.2thinl,15); +z5r = (x3,h/6); + +penstroke z0e--z1e--z2e--z3e--z4e--z5e; +picture lightningbolt; lightningbolt := currentpicture; +currentpicture := nullpicture; +currentpicture := lightningbolt scaled 2 shifted (-w/2+thickl/2,-h/3); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"166",1.2em#+2ss#,cap#,0); +"High voltage warning, with triangle"; + +currentpicture := lightningbolt scaled 1 shifted (w/4-thickl/2,0); +pickup pencircle scaled 1.5thinl; +draw trisign; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"330",1em#+2ss#,cap#,0); +"Astronomy: the sun"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +fill fullcircle scaled (2dotwid) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"331",1em#+2ss#,cap#,0); +"Astronomy: the sun with one ray"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/4+ss+1.5thinl,h/4); +draw fullcircle scaled (w/2) shifted z0; +top rt z1 = (w-ss,h); +z2 = (x0,h); +z3 = (w,y0); +z4 = (z0--z2) intersectionpoint (fullcircle scaled (w/2) + shifted z0) shifted (0,1.5thinl/2); +z5 = (z0--z3) intersectionpoint (fullcircle scaled (w/2) + shifted z0) shifted (1.5thinl/2,0); +draw z1--z4; +draw z1--z5; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"332",em#+2ss#,cap#,0); +"Astronomy: waxing crescent"; + +z0 = (w/2,h/2); +path waxcres; waxcres = fullcircle scaled (w-2ss-1.5thinl) shifted z0; +pickup pencircle scaled 1.5thinl; +draw waxcres; +draw waxcres shifted (-w/4,0); +z1 = (waxcres) intersectionpoint (waxcres shifted (-w/4,0)); +z2 = z1 reflectedabout ((0,h/2),(w,h/2)); +unfill (x1,h)--(x1,0)--(-w/2,0)--(-w/2,h)--cycle; + +picture crescent; crescent := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"333",em#+2ss#,cap#,0); +"Astronomy: full moon"; + +pickup pencircle scaled 1.5thinl; +draw waxcres; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"334",em#+2ss#,cap#,0); +"Astronomy: waning crescent"; +currentpicture := crescent reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"335",em#+2ss#,cap#,0); +"Astronomy: new moon"; + +pickup pencircle scaled 1.5thinl; +filldraw waxcres; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"336",ex#+2ss#,cap#,0); +"Astronomy: Mercury"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; +z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle + scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); +top lft z5 = (ss,h); +top rt z6 = (w-ss,h); +draw z5..z4..z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"337",em#+2ss#,cap#,0); +"Astronomy: Earth, variant 1"; + +pickup pencircle scaled 1.5thinl; +draw waxcres; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z2 = (ss,h/2); +rt z3 = (w-ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"340",ex#+2ss#,cap#,0); +"Astronomy: Earth, variant 2"; +currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"341",em#+2ss#,cap#,0); +"Astronomy: Jupiter"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,2h/3); +top z1 = (w/3,h+o); +z2 = (w/2,2h/3); +lft z3 = (ss,w/6); +rt z4 = (w-ss,y3); +bot z5 = (3w/4,0-o); +top z6 = (x5,h+o); + +draw z0{up}..z1..z2..{left}z3--z4; +draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"342",1ex#+2ss#,cap#,dep#); +"Astronomy: Saturn"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/4,h+o); +bot z1 = (x0,0-o); +z2 = 0.5[z1,z0]; +z3 = (2w/3,2h/3); +rt z4 = (w-ss,h/2); +z5 = (w/2,0); +z6 = (2w/3,-dep/2); +lft z7 = (ss,5h/6); +z8 = (z0--z2) intersectionpoint (z7--(w,y7)); +z9 = 2[z7,z8]; + +draw z0--z1; +draw z2..z3..z4..z5..z6; +draw z7--z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"343",ex#+2ss#,cap#,0); +"Astronomy: Uranus, variant 1"; + +currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); +fill fullcircle scaled 1.5dotwid shifted (w/2,0.3h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"344",em#+2ss#,cap#,0); +"Astronomy: Uranus, variant 2"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h+o); +lft z1 = (ss,h/3); +top rt z2 = (w-ss,h+o); +rt z3 = (w-ss,y1); +z4 = z0 shifted (thickl,0); +z5 = z2 shifted (-thickl,0); +z6 = z1 shifted (thickl,0); +z7 = z3 shifted (-thickl,0); +z8 = 0.5[z4,z6]; +z9 = 0.5[z5,z7]; +top z10 = (w/2,h+o); +z11 = (w/2,0); +draw fullcircle scaled 3dotwid shifted (w/2,2dotwid); +z12 = (z10--z11) intersectionpoint (fullcircle scaled + 3dotwid shifted (w/2,2dotwid)); + +draw z0--z4--z6--z1; +draw z2--z5--z7--z3; +draw z8--z9; +draw z10--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"345",em#+2ss#,cap#,0); +"Astronomy: Neptune"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss+thickl,h+o); +top rt z1 = (w-ss-thickl,h+o); +lft z2 = z0 shifted (-1.2thickl,-thickl); +rt z3 = z0 shifted (1.2thickl,-thickl); +lft z4 = z1 shifted (-1.2thickl,-thickl); +rt z5 = z1 shifted (1.2thickl,-thickl); +top z6 = (w/2,h+o); +lft z7 = z6 shifted (-1.2thickl,-thickl); +rt z8 = z6 shifted (1.2thickl,-thickl); +bot z9 = (w/2,0-o); +lft z10 = (ss+thickl,h/2); +rt z11 = (w-ss-thickl,y10); +z12 = (w/2,h/3); +z13 = 0.5[z12,z9]; +z14 = z13 shifted (-thickl,0); +z15 = z13 shifted (thickl,0); + +draw z0---z10..z12..z11---z1; +draw z2--z0--z3; draw z7--z6--z8; draw z4--z1--z5; +draw z6--z9; draw z14--z15; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",ex#+2ss#,cap#,0); +"Astronomy: Ceres"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +top z1 = (w/2,h+o); +rt z2 = (w-ss,y0); +z3 = (w/2,h-ex); +bot z4 = (w/2,0-o); +z5 = 0.5[z3,z4]; +z6 = z5 shifted (w/4,0); +z7 = z5 shifted (-w/4,0); + +draw z0..z1..z2..z3--z4; +draw z6--z7; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"347",ex#+2ss#,cap#,0); +"Astronomy: Pallas"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +lft z1 = (ss,h-ex/2); +rt z2 = (w-ss,y1); +z3 = (w/2,h-ex); +bot z4 = (w/2,0-o); +z5 = 0.5[z3,z4]; +z6 = z5 shifted (w/4,0); +z7 = z5 shifted (-w/4,0); + +draw z0--z2--z3--z1--cycle; +draw z3--z4; +draw z6--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"350",ex#+2ss#,cap#,0); +"Astronomy: Juno, variant 1"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h-ex/2); +top z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,45); +z3 = z2 rotatedaround (z0,45); +z4 = z3 rotatedaround (z0,45); +z5 = z4 rotatedaround (z0,45); +z6 = z5 rotatedaround (z0,45); +z7 = z6 rotatedaround (z0,45); +z8 = z7 rotatedaround (z0,45); +bot z9 = (w/2,0-o); +z10 = 0.5[z9,(w/2,h-ex)]; +z11 = z10 shifted (-w/4,0); +z12 = z10 shifted (w/4,0); + +draw z1--z5; draw z8--z4; draw z7--z3; draw z2--z6; +draw z0--z9; draw z11--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"351",ex#+2ss#,cap#,0); +"Astronomy: Juno, variant 2"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted + (w/2,h-2w/3-ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; +z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle + scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); +top lft z5 = (ss,h+o); +top rt z6 = (w-ss,h+o); +z7 = (2w/5,h+o); +z8 = (3w/5,h+o); + +draw z4--z5; draw z4--z6; draw z4--z7; draw z4--z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"352",em#+2ss#,cap#,0); +"Astronomy: Vesta, variant 1"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +lft z2 = (ss,h-ex); +rt z3 = (w-ss,h-ex); +draw z0--z1--z3--z2--cycle; +z4 = 0.5[z2,z3]; +top z5 = (w/4,h); +top z6 = (3w/4,h); +z7 = (w/5,h-ex/2); +z8 = (4w/5,y7); +draw z4{up}..{left}z5..z7; +draw z4{up}..{right}z6..z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"353",ex#+2ss#,cap#,0); +"Astronomy: Vesta, variant 2"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +bot lft z2 = (ss+3hair,h/8); +bot rt z3 = (w-ss-3hair,h/8); +z4 = (x2,3h/4); +z5 = (x3,3h/4); +lft z6 = (ss,y4); +rt z7 = (w-ss,y5); +z8 = (w/2,h/2); +draw z0--z1--z3--z2--cycle; +draw z2--z4--z5--z3--cycle; +draw z6--z7; +draw z4--z8; draw z5--z8; +z9 = (w/2,h+o); +z10 = 0.5[z4,z5]; +path ray; ray = z10--z9; +draw ray rotatedaround (z10,18); +draw ray rotatedaround (z10,54); +draw ray rotatedaround (z10,-18); +draw ray rotatedaround (z10,-54); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"354",ex#+2ss#,cap#,0); +"Astronomy: Astraea, variant 1"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +lft z1 = (ss+hair,3h/4); +rt z2 = (w-ss-hair,3h/4); +bot z3 = (w/2,0-o); +z4 = z1 shifted (-hair,hair); +z5 = z1 shifted (hair,hair); +z6 = z2 shifted (-hair,hair); +z7 = z2 shifted (hair,hair); +z8 = z3 shifted (-2hair,2hair); +z9 = z3 shifted (2hair,2hair); + +draw z1..z0..z2; +draw z4--z1; draw z5--z1; +draw z6--z2; draw z7--z2; +draw z0--z3; +draw z8--z3; draw z9--z3; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"355",em#+2ss#,cap#,0); +"Astronomy: Astraea, variant 2"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,5h/6); +rt z1 = (w-ss,y0); +top z3 = (w/2,h+o); +z4 = 0.5[z0,z1]; +bot z5 = (w/2,0-o); +lft z6 = (ss,y5); +rt z7 = (w-ss,y5); +z8 = z6 shifted (w/4,0); +z9 = z7 shifted (-w/4,0); +z10 = ((x7+x9)/2,h/2); +z11 = ((x6+x8)/2,h/2); +z12 = (x10,y0); +z13 = (x11,y0); +z14 = z5 shifted (-thinl,0); +z15 = z5 shifted (thinl,0); + +filldraw z7{up}..{dir -225}z10{dir 225}..{down}z9--cycle; +filldraw z8{up}..{dir -225}z11{dir 225}..{down}z6--cycle; +draw z0--z1; draw z3--z5; draw z14--z15; +draw z10--z12; draw z11--z13; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"356",ex#+2ss#,cap#,0); +"Astronomy: Hebe"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +z2 = (w/2,h-ex); +bot z3 = (w/2,0-o); +lft bot z4 = (ss,0-o); +rt bot z5 = (w-ss,0-o); + +draw z4--z5; draw z3--z2; draw z0--z1--z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"357",em#+2ss#,ex#,0); +"Astronomy: Iris"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0-o); +bot rt z1 = (w-ss,0-o); +z2 = z0 shifted (thickl,0); +z3 = z1 shifted (-thickl,0); +top z4 = (w/2,h+o); +z5 = z4 shifted (0,-thickl); +draw z0--z1; +draw z0{up}..z4..{down}z1; +draw z2{up}..z5..{down}z3; + +fill fivestar scaled 0.3 shifted (0.37w,0.15h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"360",em#+2ss#,cap#,0); +"Astronomy: Aries"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +z2 = (w/6,h+o); +z3 = (5w/6,h+o); +z4 = (w/2,h/4); +z5 = (w/2,0-o); +draw z0..z2..{dir -60}z4--z5--z4{dir 60}..z3..z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"361",em#+2ss#,cap#,0); +"Astronomy: Taurus"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (2w/3) shifted (w/2,w/3); +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +z2 = ((w/2,h)--(w/2,0)) intersectionpoint + (fullcircle scaled (2w/3) shifted (w/2,w/3)); +draw z0{right}..{right}z2{right}..{right}z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"362",em#+2ss#,cap#,0); +"Astronomy: Gemini"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +z4 = 0.5[z0,z1] shifted (0,-thickl); +z5 = 0.5[z2,z3] shifted (0,thickl); + +path topgemline; topgemline = z0..z4..z1; +path botgemline; botgemline = z2..z5..z3; + +z6 = ((w/3,h)--(w/3,0)) intersectionpoint topgemline; +z7 = ((w/3,h)--(w/3,0)) intersectionpoint botgemline; +z8 = ((2w/3,h)--(2w/3,0)) intersectionpoint topgemline; +z9 = ((2w/3,h)--(2w/3,0)) intersectionpoint botgemline; + +draw topgemline; draw botgemline; +draw z6--z7; draw z8--z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"363",em#+2ss#,ex#,0); +"Astronomy: Cancer"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid); +draw fullcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid); +z0 = ((2dotwid,h)--(2dotwid,0)) intersectionpoint + (fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid)); +z1 = (halfcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid) + rotatedaround ((w-2dotwid,2.5dotwid),180)) + intersectionpoint ((w-2dotwid,0)--(w-2dotwid,h)); +top z2 = (w/2,h+o); +bot z3 = (w/2,0-o); +rt z4 = (w-ss,h-thickl); +lft z5 = (ss,thickl); + +draw z0..z2..z4; +draw z1..z3..z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"364",0.8em#+2ss#,cap#,dep#); +"Astronomy: Leo"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid); +z0 = (fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid)) + intersectionpoint ((w,2dotwid)--(0,2dotwid)); +z1 = (ss+3dotwid,2h/3); +top z2 = (2w/3,h+o); +rt z3 = (w-ss,2h/3); +z4 = (2w/3,-dep/2); +bot z5 = (3w/4,-dep); +rt z6 = (w-ss,-dep/2); + +draw z0{up}..z1..{right}z2{right}..z3..z4..z5..z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"365",0.8em#+2ss#,cap#,dep#); +"Astronomy: Virgo"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (0,h+o); +bot lft z1 = (ss,0); +top z2 = (w/3,h+o); +top z3 = (2w/3-thinl,h+o); +bot z4 = (w/3,0+o); +bot z5 = (2w/3-thinl,0+o); +rt z6 = (w,2h/3); +bot z7 = (5w/6,-d); +z8 = ((x4+x1)/2,-d/2); +z9 = 0.5[z0,z2]; +z10 = 0.5[z2,z3]; +z11 = z0 shifted (ss,-2thickl); +z12 = z2 shifted (0,-2thickl); +z13 = z3 shifted (0,-2thickl); +z14 = 0.5[z13,z5]; + +draw z0--z1; +draw z1--z11{up}..{right}z9{right}..{down}z12--z4; +draw z4--z12{up}..{right}z10{right}..{down}z13---z5..z7; +draw z14..{dir 20}z6{down}..z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"367",em#+2ss#,ex#,0); +"Astronomy: Libra"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +draw z0--z1; +top z2 = (w/2,h+o); +z3 = (2w/5,h/3); +z4 = (3w/5,h/3); +lft z5 = (ss,h/3); +rt z6 = (w-ss,h/3); +draw z5--z3..z2..z4--z6; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"370",0.8em#+2ss#,cap#,dep#); +"Astronomy: Scorpius"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (0,h+o); +bot lft z1 = (ss,0); +top z2 = (w/3,h+o); +top z3 = (2w/3-thinl,h+o); +bot z4 = (w/3,0+o); +z5 = (2w/3-thinl,0-thinl); +rt z7 = (w-ss,-d/2); +z9 = 0.5[z0,z2]; +z10 = 0.5[z2,z3]; +z11 = z0 shifted (ss,-2thickl); +z12 = z2 shifted (0,-2thickl); +z13 = z3 shifted (0,-2thickl); +z14 = 0.5[z13,z5]; +z15 = z7 shifted (-thickl,thickl); +z16 = z7 shifted (-thickl,-thickl); + +draw z0--z1; +draw z1--z11{up}..{right}z9{right}..{down}z12--z4; +draw z4--z12{up}..{right}z10{right}..{down}z13--z5; +draw z14---z5{down}..{right}z7; +draw z15--z7; draw z16--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"371",em#+2ss#,cap#,0); +"Astronomy: Sagittarius"; + +pickup pencircle scaled 1.5thinl; + +bot lft z0 = (ss,0-o); +top rt z1 = (w-ss,h+o); +draw z0--z1; +z2 = (w/2,y1); +z3 = (x1,h-w/2); +draw z2--z1; draw z3--z1; +z4 = 0.4[z0,z1]; +z7 = 0.4[z0,z4]; +z5 = z7 rotatedaround (z4,90); +z6 = z7 rotatedaround (z4,-90); +draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"372",em#+2ss#,cap#,dep#); +"Astronomy: Capricorn"; + +pickup pencircle scaled 1.5thinl; + +top z0 = (ss,h+o); +z1 = (w/3,0); +top z2 = (w/2,h+o); +z3 = (2w/3,0); +z4 = (w/2,-3d/4); +bot z5 = (w/3,-d); +z6 = (x1,h/3); + +draw z0{right}..{down}z6--z1--z6{up}..{dir 45}z2{dir + -45}..{down}z3; +draw z3..z4..z5; +draw fullcircle scaled 3dotwid shifted (w-2dotwid,dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"373",em#+2ss#,ex#,0); +"Astronomy: Aquarius"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,2h/3); +z1 = (ss+w/4,2h/3+thickl); +z2 = (ss+w/4+w/16,2h/3); +z3 = (ss+2w/4+w/16,2h/3+thickl); +z4 = (ss+2w/4+2w/16,2h/3); +z5 = (ss+3w/4+2w/16,2h/3+thickl); +z6 = (ss+3w/4+3w/16,2h/3); + +path aqr; aqr = z0--z1--z2--z3--z4--z5--z6; +draw aqr; draw aqr shifted (0,-h/3-thickl/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"374",0.8em#+2ss#,cap#,0); +"Astronomy: Pisces"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +top rt z2 = (w-ss,h+o); +bot rt z3 = (w-ss,0-o); +z4 = (w/3,h/2); +z5 = (2w/3,h/2); +lft z6 = (ss,h/2); +rt z7 = (w-ss,h/2); +draw z0..z4..z1; draw z2..z5..z3; draw z6--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"375",ex#+2ss#,cap#,0); +"Astronomy: Pluto"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h/2+1.5thinl); +bot z1 = (w/2,0-o); +z3 = 0.5[z0,z1]; +z4 = z3 shifted (-w/4,0); +z5 = z3 shifted (w/4,0); +draw z0--z1; draw z4--z5; +z8 = 0.5[z0,(w/2,h+o)] shifted (0,1thinl); +lft z6 = (ss,y8); +rt z7 = (w-ss,y8); +draw z6{down}..{right}z0{right}..{up}z7; +draw fullcircle scaled (h/2-thickl-1.5thinl) shifted z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"376",ex#+2ss#,cap#,0); +"Astronomy: Pluto, variant"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +top z2 = (w/2,h+o); +rt z3 = (w-ss,3h/4); +z4 = 0.5[z1,z0]; +bot rt z5 = (w-ss,0-o); +z6 = (x2,y4); + +draw z0--z1--z5; +draw z0---z2..z3..z6---z4; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"377",em#+2ss#,cap#,0); +"Astronomy: Comet"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid); +z0 = ((ss,0)--(w-ss,h)) intersectionpoint + (fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid)); +top rt z1 = (w-ss,h+o); +z7 = (ss+2.5dotwid,2.5dotwid); +z2 = z1 rotatedaround (z7,25); +z3 = z1 rotatedaround (z7,-25); +z4 = z0 rotatedaround (z7,60); +z5 = z0 rotatedaround (z7,-60); +z8 = 0.7[z5,z3]; +z9 = 0.7[z4,z2]; +z10 = 0.8[z0,z1]; +draw z0--z10; draw z4--z9; draw z5--z8; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"310",ex#+2ss#,ex#,0); +"Astronomy: quadrature"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot rt z2 = (w-ss,0-o); +bot lft z3 = (ss,0-o); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"311",em#+2ss#,cap#,0); +"Astronomy: opposition"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid); +draw fullcircle scaled 4dotwid shifted + (w-2.5dotwid-ss,h-2.5dotwid); +z0 = (2.5dotwid+ss,2.5dotwid); +z1 = (w-2.5dotwid-ss,h-2.5dotwid); +z2 = (z0--z1) intersectionpoint + (fullcircle scaled 4dotwid shifted + (w-2.5dotwid-ss,h-2.5dotwid)); +z3 = (z1--z0) intersectionpoint + (fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid)); +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"312",em#-2.5dotwidth#+2ss#,ex#,0); +"Astronomy: conjunction"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid); +z0 = (2.5dotwid+ss,2.5dotwid); +top rt z1 = (w-ss,h+o); +z2 = (z0--z1) intersectionpoint + (fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid)); +draw z2--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"315",em#+2ss#,cap#,0); +"Astronomy: ascending node"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (3dotwid,2dotwid); +draw fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid); +z0 = ((3dotwid,h)--(3dotwid,0)) intersectionpoint + (fullcircle scaled 4dotwid shifted (3dotwid,2dotwid)); +z1 = ((w-3dotwid,h)--(w-3dotwid,0)) intersectionpoint + (fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid)); +top z2 = (w/2,h+o); + +draw z0..z2..z1; + +picture astnode; astnode := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"314",em#+2ss#,cap#,0); +"Astronomy: descending node"; +currentpicture := astnode rotatedaround ((w/2,h/2),180); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf b/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf deleted file mode 100644 index 95dad68ca90..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf +++ /dev/null @@ -1,71 +0,0 @@ -% +AMDG - -font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; -pixels_per_inch:=1200; -mode_setup; - -%%%% Define Dimensions for Whole Boxes %%%% - -phi=(1+sqrt5)/2; -cap#=8pt#; -u#=2cap#/3; -em#=cap#; -ex#=0.6cap#; -dep#=cap#/3; -ss#=0.2pt#; -asch#=12cap#/12; -digwid#=1ex#; -font_slant 0u#; -slant = 0; -font_normal_space 0.5u#; -font_normal_stretch 0.2u#; -font_normal_shrink 0.2u#; -font_x_height cap#/phi; -font_quad em#; -font_extra_space 0.5u#; - -penwidth#=0.01pt#; - -%%%% Define Dimensions for Letters %%%% - -lserc#=0; -lserh#=lserc#+lserstep#; -lhigh#=0.3u#; -lserstep#=0.08u#; -userc#=0; -userh#=userc#+userstep#; -lserw#=0.2u#; -userw#=0.2u#; -userstep#=0.08u#; -bulbsh#=0.10u#; -curvwid#=1.2pt#; -slantwid#=1.2pt#; -thickstroke#=1.0pt#; -thinstroke#=1.0pt#; -loopgap#=1.0pt#; -hair#=0.2pt#; -o#=0.1pt#; -ssslant#=0.0u#; -dotwidth#=userw#-o#; -pwid#=2userw#; -accwid# = pwid#/8; -theight#=7asch#/8; -define_pixels(theight); - -define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); -define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); -define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); - -pickup pencircle scaled penwidth; cappen:=savepen; -equalize=thickstroke/2-thinstroke/2; - -input drmligs -input drmttcap.mf -%input drmlowmac.mf -%input drmlow.mf -%input drmpunct.mf -%input drmacc.mf -%input drmacclet.mf -%input drmdigs.mf - -end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui10.mf b/Master/texmf-dist/fonts/source/public/drm/drmui10.mf index a0f49f1f170..a496c976275 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui10.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui10.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui11.mf b/Master/texmf-dist/fonts/source/public/drm/drmui11.mf index 15df22c9893..39e63854c75 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui11.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui11.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui12.mf b/Master/texmf-dist/fonts/source/public/drm/drmui12.mf index 7db99ed9a5c..d47c6f24146 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui12.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui12.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui14.mf b/Master/texmf-dist/fonts/source/public/drm/drmui14.mf index a85319bf9d5..f8805a0303b 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui14.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui14.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui17.mf b/Master/texmf-dist/fonts/source/public/drm/drmui17.mf index 63ce1005b18..f2761eb363d 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui17.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui17.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui24.mf b/Master/texmf-dist/fonts/source/public/drm/drmui24.mf index cc8988bdf1f..918d33074a5 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui24.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui24.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui6.mf b/Master/texmf-dist/fonts/source/public/drm/drmui6.mf index aa7257860d6..ef5e2d233c8 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui6.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui6.mf @@ -10,7 +10,7 @@ phi=(1+sqrt5)/2; cap#=4pt#; u#=2cap#/3; em#=1.2cap#; -ex#=0.8cap#; +ex#=0.7cap#; dep#=cap#/3; ss#=0.2pt#; asch#=12cap#/12; @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui7.mf b/Master/texmf-dist/fonts/source/public/drm/drmui7.mf index 4042b8bcb79..555dd017ca7 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui7.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui7.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui8.mf b/Master/texmf-dist/fonts/source/public/drm/drmui8.mf index 8d6eb304037..0bca95342da 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui8.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui8.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui9.mf b/Master/texmf-dist/fonts/source/public/drm/drmui9.mf index 24e5e39f488..5f4d625622e 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmui9.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmui9.mf @@ -71,7 +71,7 @@ input drmacc.mf; input drmitacclet.mf; input drmitpunct.mf; input drmitdigs.mf; -input itoldstydigs.mf; +input drmitoldstydigs.mf; input drmuiligs.mf; end; diff --git a/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf b/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf deleted file mode 100644 index 5fe086cf2cf..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf +++ /dev/null @@ -1,298 +0,0 @@ -% +AMDG This document was begun on 9 June 11EX, the -% commemoration of Ss. Primus and Felicianus, M, and it is -% humbly dedicated to them and to the Immaculate Heart of -% Mary for their prayers, and to the Sacred Heart of Jesus -% for His mercy. - - -beginchar("1",0.6ex#+2ss#,ex#,0); "The digit 1"; -italcorr(ex#*slant); - -pickup pencircle scaled thinl; -penpos0(thickl,0); -z0 = (w/2,h); -penpos1(thinl,-90); -z1 = (w/2-2curlw,h-2curlh); -penpos2(thickl,0); -z2 = (w/2,0); - -penstroke z1e{right}..{up}z0e; -penstroke z0e--z2e; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0 = (w/2,5h/6); -penpos1(thinl,0); -z1 = (3w/5,3h/4); -penpos2(thinl,-90); -z2 = (w/2,3h/5); -penpos3(thinl,180); -z3 = (2w/5,(y0l+y2l)/2); -penpos4(thickl,180); -z4r = (ss,3h/4); -penpos5(thinl,90); -z5r = (w/2,h+o); -penpos6(thickl,0); -z6r = (w-ss,y4); -penpos8(0.7thickl,-45); -z8 = (w/2,2h/5); -penpos7(thinl,-90); -z7r = (ss,0-o); -penpos9(1.75thinl,-90); -z9r = (w/3,y7l); -penpos10(2thinl,-90); -z10r = (2w/3,0-o); -penpos11(thickl,-90); -z11r = (w-ss,y10); - -penstroke z3e..z0e..z1e..z2e..z4e..z5e..z6e..z8e..z7e; -penstroke z7e..z9e..z10e..z11e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("3",digwid#+2ss#,cap#,dep#); "The digit 3"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0l = (ss,3h/4); -penpos1(thinl,-90); -z1l = (w/2,h+o); -penpos2(thickl,180); -z2l = (w-ss,3h/4); -penpos3(thinl,90); -z3 = (w/2,h/2); -penpos4(thickl,0); -z4r = (w-ss,h/4); -penpos5(thinl,-90); -z5r = (w/2,0-o); -penpos6(thickl,180); -z6r = (ss,h/4); -penpos7(1.5thinl,90); -z7 = z0 shifted (curlw,-curlh); -penpos8(thinl,180); -z8 = z7 shifted (curlw,curlh); -penpos9(thinl,-90); -z9 = z8 shifted (-curlw/2,curlh/2); -penpos10(1.5thinl,90); -z10 = z6 shifted (curlw,curlh); -penpos11(thinl,0); -z11 = z10 shifted (curlw,-curlh); -penpos12(thinl,-90); -z12 = z11 shifted (-curlw/2,-curlh/2); - -penstroke z9e..z8e..z7e..z0e{up}..z1e..z2e..z3e; -penstroke z3e..z4e..z5e..{up}z6e..z10e..z11e..z12e; - -picture three; three := currentpicture; -currentpicture := three shifted (0,-dep); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0r = (5w/6,h+o); -penpos1(thickl,0); -z1r = (5w/6,0); -penpos2(thickl,0); -z2r = (0.6w,h+o); -penpos3(thickl,0); -z3l = (ss,h/3); -penpos4(thinl,-45); -z4l = z3l; -penpos5(thinl,-45); -z5 = (w-ss,y4); -penpos6(thickl,0); -z6 = 0.25[z3,z2]; -z8 = (x1,y3); -penpos7(thickl,0); -z7 = 0.15[z8,z0]; -penpos9(0.75thickl,0); -z9 = 0.65[z3,z2]; -penpos10(0.75thickl,0); -z10 = 0.5[z8,z0]; -penpos11(0.5thickl,0); -z11 = 0.9[z3,z2]; -penpos12(0.5thickl,0); -z12 = 0.8[z8,z0]; -penpos13(thinl,0); -z13 = z2; -penpos14(thinl,0); -z14 = z0; - -penstroke z3e--z6e--z9e--z11e--z13e; -penstroke z1e--z7e--z10e--z12e--z14e; -penstroke z4e--z5e; - -picture four; four := currentpicture; -currentpicture := four shifted (0,-dep); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; -italcorr(ex#*slant); - -penpos0(thickl,90); -z0r = (w-ss-thickl/2,h+o); -penpos1(thickl,90); -z1r = (ss+thickl/2,h+o); -penpos2(thickl,90); -z2 = (ss+thickl/3,h/2); -penpos3(thickl,0); -z3r = (w-ss,h/3); -penpos4(thinl,-90); -z4r = (w/2,0-o); -penpos5(thickl,180); -z5r = (ss,h/5); -penpos6(thinl,0); -z6l = z1l; -penpos7(thinl,0); -z7l = z2r; -penpos8(1.5thinl,90); -z8 = z5 shifted (curlw,curlh); -penpos9(thinl,0); -z9 = z8 shifted (curlw,-curlh); - -penstroke z0e--z1e--z2e; -penstroke z6e--z7e; -penstroke z2e..z3e..z4e..z5e..z8e..z9e; - -picture five; five := currentpicture; -currentpicture := five shifted (0,-dep); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0r = (2w/3,h+o); -penpos1(2thinl,180); -z1r = (ss+thinl,2h/3); -penpos2(thickl,180); -z2r = (ss,ex/2); -penpos3(thinl,-90); -z3r = (w/2,0-o); -penpos4(thickl,0); -z4r = (w-ss,ex/2); -penpos5(thinl,90); -z5r = (w/2,ex+o); -penpos6(thinl,0); -z6l = z0l; -penpos7(thinl,-90); -z7l = z6l; -penpos8(thinl,180); -z8l = z7l; - -penstroke z5e..z2e..z3e..z4e..cycle; -penstroke z0e..z1e..z2e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("9",0.9ex#+2ss#,cap#,0); "The digit 9"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0l = (w/3,0-o); -penpos1(2thinl,180); -z1l = (w-ss-thinl,h/3); -penpos2(thickl,180); -z2l = (w-ss,h-ex/2); -penpos3(thinl,90); -z3l = (w/2,h-ex-o); -penpos4(thickl,0); -z4l = (ss,h-ex/2); -penpos5(thinl,-90); -z5l = (w/2,h+o); - -penstroke z5e..z2e..z3e..z4e..cycle; -penstroke z0e..z1e..z2e; - -picture nine; nine := currentpicture; -currentpicture := nine shifted (0,-dep); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; -italcorr(ex#*slant); - -penpos0(thickl,90); -z0r = (ss,h+o); -penpos1(thickl,90); -z1r = (w-ss,h+o); -penpos2(1.5thinl,180); -z2 = (w/3,h/2); -penpos3(thickl,180); -z3r = (w/3,0); -penpos4(thinl,45); -z4 = (ss,h/2); -penpos5(thinl,45); -z5 = 2[z4,z2] shifted (thickl,thickl); -penpos6(thinl,45); -z6 = z4 shifted (0,thickl); - -penstroke z0e--z1e; -penstroke z1e..z2e..z3e; -penstroke z6e--z5e; - -picture seven; seven := currentpicture; -currentpicture := seven shifted (0,-dep); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0r = (w/2,h+o); -penpos1(1.75thinl,0); -z1r = (w-ss,3h/4); -penpos2(1.75thinl,0); -z2l = (ss,h/4); -penpos3(thickl,180); -z3r = (ss,3h/4); -penpos4(thickl,180); -z4l = (w-ss,h/4); -penpos5(thinl,90); -z5l = (w/2,0-o); -penpos6(thinl,-45); -z6 = (w/2,h/2); -penpos7(thickl/2,-135); -z7 = z6; - -penstroke -z0e{right}..{down}z1e{down}..z6e..{down}z2e{down}..{right}z5e{right}..{up}z4e{up}..z7e..{up}z3e{up}..{right}cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("0",0.9ex#+2ss#,ex#,0); "The digit 0"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0r = (w/2,h+o); -penpos1(thickl,0); -z1r = (w-ss,h/2); -penpos2(thinl,-90); -z2r = (w/2,0-o); -penpos3(thickl,180); -z3r = (ss,h/2); - -penstroke z0e..z1e..z2e..z3e..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/matharrows.mf b/Master/texmf-dist/fonts/source/public/drm/matharrows.mf deleted file mode 100644 index 66eeef38f11..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/matharrows.mf +++ /dev/null @@ -1,46 +0,0 @@ -% +AMDG This document was begun on 2 July 11EX, the feast -% of the Visitation of the Blessed Virgin Mary and the -% Commemoration of Sts. Processus and Martinian, MM, and it -% is humbly dedicated to them and to the Immaculate Heart of -% Mary for their prayers, and to the Sacred Heart of Jesus -% for His mercy. - -beginchar(oct"050",1.5em#,asch#,0); "Leftward upper arrow"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,h/2); -top z1 = (0.4w,h); -rt z2 = (w-ss,y0); -z3 = z1 shifted (0,-3h/8); - -path shaft; shaft = z2--z0; -path head; head = z0{z3-z0}..{up}z1; -draw shaft; draw head; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"051",1.5em#,asch#,0); "Leftward lower arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft; -draw head reflectedabout ((0,h/2),(w,h/2)); - -endchar; - -beginchar(oct"052",1.5em#,asch#,0); "Rightward upper arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft; -draw head reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"053",1.5em#,asch#,0); "Rightward lower arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft; -draw head reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); - -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf b/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf deleted file mode 100644 index 12e91e232a6..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf +++ /dev/null @@ -1,27 +0,0 @@ -% +AMDG This document was begun on 3 July 11EX, the feast -% of St. Irenaeus, EM, and it is humbly dedicated to him and -% to the Immaculate Heart of Mary for their prayers, and to -% the Sacred Heart of Jesus for His mercy. - -beginchar(oct"140",0.6ex#+2ss#,asch#,0); "Cursive l"; -italcorr(asch#*slant); - -penpos0(thinl,0); -z0l = (ss,0); -penpos1(thinl,0); -z1r = (w-ss,3h/4); -penpos2(1.5thinl,90); -z2r = (w/2,h+o); -penpos3(thickl,180); -z3r = (ss,3h/4); -penpos4(thickl,180); -z4l = (w-ss,0); -penpos5(thickl,180); -z5 = (w/2,h/4); -penpos6(thinl,0); -z6 = z5; - -penstroke z0e..z6e..z1e..z2e..z3e..z5e..z4e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf b/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf deleted file mode 100644 index 50bfd0fec54..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf +++ /dev/null @@ -1,728 +0,0 @@ -% +AMDG This document was begun on 26 June 11EX, the -% Commemoration of St. Paul and St. Peter, and it is humbly -% dedicated to them and to the Immaculate Heart of Mary for -% their prayers, and to the Sacred Heart of Jesus for His -% mercy. - -beginchar(oct"013",ex#+2ss#,ex#,0); "The letter alpha"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -penpos0(thinl,90); -bot z0 = (w-ss,0-o); -penpos1(thinl,90); -bot z1 = (w-ss-w/12,0-o); -penpos2(thickl,45); -z2r = z1r; -penpos3(thickl,0); -z3r = (x1r,h/2); -penpos4(thinl,90); -z4r = (w/2,h+o); -penpos5(thickl,180); -z5r = (ss,h/2); -penpos6(thinl,270); -z6r = (w/2,0-o); -penpos7(thinl,270); -z7l = (w-ss,h); -penpos8(thickl,0); -z8 = z3; - -penstroke z0e..z1e..z2e---z3e..z4e..z5e..z6e..{up}z8e{up}..{right}z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"014",ex#+2ss#,asch#,dep#); "The letter beta"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss,-dep); -penpos1(thickl,0); -z1l = (ss+hair,0); -penpos2(thickl,0); -z2l = (ss+hair,3h/4); -penpos3(thinl,-90); -z3l = (w/2,h+o); -penpos4(curvl,180); -z4l = (w-ss-hair,y2); -penpos5(thinl,90); -z5 = (x2r,h/2); -penpos6(curvl,0); -z6r = (w-ss,h/4); -penpos7(thinl,-90); -z7r = z1r; - -penstroke z0e..z1e..z2e..z3e..z4e..{left}z5e;% -penstroke z5e{right}..z6e..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"015",1.2ex#+2ss#,ex#,dep#); "The letter gamma"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss,3h/4); -penpos1(thinl,-135); -z1l = (w/4,h+o); -penpos2(thickl,200); -z2 = (w/2,0); -penpos3(thickl,180); -z3 = (w/3,-dep); -penpos4(thinl,135); -z4l = (w-ss,h); -penpos5(thickl,135); -z5 = z2; - -penstroke z0e..z1e{dir 0}..z2e..z3e;% -penstroke z5e{dir 45}..z4e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"016",ex#+2ss#,asch#,0); "The letter delta"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0r = (w-ss,4h/5); -penpos1(thinl,90); -z1r = (w/2,h+o); -penpos2(thickl,180); -z2r = (w/4,4h/5); -penpos3(curvl,180); -z3l = (w-ss,h/4); -penpos4(thinl,90); -z4l = (w/2,0-o); -penpos5(curvl,0); -z5l = (ss,h/4); -penpos6(thinl,-90); -z6 = (w/2,h/2); - -penstroke z0e..z1e..z2e..{down}z3e..z4e..z5e..z6e..z3e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"017",0.8ex#+2ss#,ex#,0); "The letter epsilon"; -italcorr(ex#*slant); - -penpos0(thinl,-90); -z0l = (w-ss,h+o); -penpos1(curvl,0); -z1l = (ss,h/2); -penpos2(thinl,90); -z2l = (w-ss,0-o); -penpos4(1.5thinl,45); -z4 = z1; -penpos3(1.5thinl,45); -x3r = w-ss; y3r = y4r; - -penstroke z0e{left}..{down}z1e{down}..{right}z2e; -penstroke z3e--z4e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"020",ex#+2ss#,asch#,dep#); "The letter zeta"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0 = (w/2,h+o); -penpos1(1.5thinl,90); -z1 = (3w/4,6h/8); -penpos2(1.5thinl,180); -z2l = (w-ss,7h/8); -penpos3(1.5thinl,-90); -z3 = (x1,15h/16); -penpos4(curvl,0); -z4l = (ss,h/2); -penpos5(curvl,90); -z5l = (w/2,0-o); -penpos6(1.5thinl,0); -z6r = (w-ss,-dep/3); -penpos7(thickl,-90); -z7r = (w/2,-dep); - -penstroke z0e..z1e..z2e..z3e{left}..z4e..{right}z5e{right}..z6e..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"021",ex#+2ss#,ex#,dep#); "The letter eta"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss,4h/5); -penpos1(thinl,-90); -z1l = (x0r+hair,h+o); -penpos3(thickl,180); -z3r = (x1r+hair,3h/4); -penpos2(thickl,180); -z2r = (x3r,0); -penpos5(thickl,0); -z5r = (w-ss,3h/4); -penpos4(thinl,90); -z4r = ((x3+x5)/2,h+o); -penpos6(thickl,0); -z6 = (x5,-dep); - -penstroke z0e..z1e..z3e---z2e; -penstroke z2e---z3e..z4e..z5e---z6e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"022",ex#+2ss#,asch#,0); "The letter theta"; -italcorr(ex#*slant); - -penpos0(curvl,0); -z0l = (ss,h/2); -penpos1(thinl,-90); -z1l = (w/2,h+o); -penpos2(curvl,180); -z2l = (w-ss,h/2); -penpos3(thinl,90); -z3l = (w/2,0-o); -penpos4(1.5thinl,90); -z4 = z0; -penpos5(1.5thinl,90); -z5 = z2; - -penstroke z0e..z1e..z2e..z3e..cycle; -penstroke z4e--z5e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"023",0.4ex#+2ss#,ex#,0); "The letter iota"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0l = (ss,h); -penpos1(thickl,0); -z1l = (ss,h/5); -penpos2(thinl,90); -z2l = (x1r+hair,0-o); -penpos3(1.5thinl,180); -z3r = (x2r+hair,y1); - -penstroke z0e---z1e..z2e..{up}z3e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"024",ex#+2ss#,ex#,0); "The letter kappa"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0l = (ss,h); -penpos1(thickl,0); -z1l = (ss,0); -penpos3(1.5thinl,0); -z3r = (w-ss-1.5thinl,h+o); -penpos4(1.5thinl,-90); -z4 = (x0r,h/2); -penpos5(thickl,0); -z5r = (3w/4,h/5); -penpos6(1.5thinl,45); -z6 = (w/2,h/2); -penpos7(thinl,90); -z7 = z4; -penpos8(1.5thinl,90); -z8l = (x5r+hair,0-o); -penpos9(1.5thinl,180); -z9l = (w-ss,h/5); - -penstroke z0e--z1e; -penstroke z3e--z4e; -penstroke z7e..z6e..z5e..z8e..z9e; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"025",ex#+2ss#,asch#,0); "The letter lambda"; -italcorr(ex#*slant); - -penpos0(1.5thinl,0); -z0l = (ss,0); -penpos1(1.5thinl,-45); -z1 = (w/2,h/2); -penpos2(thickl,0); -z2l = (ss,h); -penpos3(thickl,45); -z3 = z1; -penpos4(thickl,0); -z4r = (w-ss,0); - -penstroke z2e{down}..z3e..z4e; -penstroke z0e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"026",ex#+2ss#,ex#,dep#); "The letter mu"; -italcorr(ex#*slant); - -penpos0(thickl,180); -z0r = (ss,-dep); -penpos1(thickl,180); -z1r = (ss,h); -penpos2(thickl,180); -z2r = (ss,curlh); -penpos4(thickl,0); -z4l = (w-ss-2curlw,y2); -penpos5(thickl,0); -z5l = (w-ss-2curlw,h); -penpos3(thinl,-90); -z3r = ((x2+x4)/2,0-o); -botcurl(4,6,7); - -penstroke z0e--z1e; -penstroke z1e---z2e..z3e..z4e---z5e; -penstroke z5e--z4e..z6e..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"027",1.2ex#+2ss#,ex#,0); "The letter nu"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -penpos0(thickl,0); -z0 = (ss+2curlw,h-curlh); -topcurl(0,1,2); -penpos3(1.5thinl,45); -x3r = x0r; y3l = 0-o; -penpos4(thickl,180); -z4l = (w-ss,h-thinl); -penpos5(1.5thinl,-90); -z5r = z4r; -penpos6(thinl,0); -z6r = z5r; -penpos7(thinl,90); -z7r = z6r; -penpos8(1.5thinl,45); -z8r = z3r; - -penstroke z2e..z1e..z0e---z8e; -penstroke z8e..z3e{right}..{up}z4e; -penstroke z4e..z5e..z6e..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"030",ex#+2ss#,asch#,dep#); "The letter xi"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0 = (w/2,h+o); -penpos1(1.5thinl,90); -z1 = (3w/4,6h/8); -penpos2(1.5thinl,180); -z2l = (w-ss,7h/8); -penpos3(1.5thinl,-90); -z3 = (x1,15h/16); -penpos4(curvl,0); -z4l = (ss,3h/4); -penpos5(thinl,90); -z5 = (w/2,h/2-thinl); -penpos6(thinl,180); -z6 = (w/2+thickl,h/2); -penpos7(thinl,-90); -z7 = (w/2,h/2+thinl); -penpos8(curvl,0); -z8l = (ss,h/4); -penpos12(curvl,90); -z12l = (w/2,0-o); -penpos13(1.5thinl,0); -z13r = (w-ss,-dep/3); -penpos14(thickl,-90); -z14r = (w/2,-dep); - -penstroke -z0e..z1e..z2e..z3e{left}..z4e..z5e..z6e..z7e..z8e..{right}z12e{right}..z13e..z14e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"031",ex#+2ss#,ex#,0); "The letter pi"; -italcorr(ex#*slant); - -penpos0(1.5thinl,0); -z0 = (2w/3,h); -penpos1(1.5thinl,0); -z1 = (w/3,h); -penpos2(thickl,0); -z2 = (w/4,0); -penpos3(thickl,0); -z3 = (3w/4,0); -penpos4(thinl,90); -z4 = (ss,h-curlh); -penpos5(thickl,90); -z5r = (ss+curlw,h+o); -penpos6(thickl,90); -z6r = (w-ss,h+o); - -penstroke z4e..z5e---z6e; -penstroke z1e{down}..z2e; -penstroke z0e{down}..z3e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"032",ex#+2ss#,ex#,dep#); "The letter rho"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0l = (ss,-dep); -penpos1(thickl,0); -z1l = (ss,h/2); -penpos2(thinl,-90); -z2l = (w/2,h+o); -penpos3(curvl,180); -z3l = (w-ss,h/2); -penpos4(thinl,90); -z4l = (w/2,0-o); - -penstroke z0e---z1e..z2e..z3e..z4e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"033",ex#+2ss#,ex#,0); "The letter sigma"; -italcorr(ex#*slant); - -penpos0(1.5thinl,-90); -z0l = (w,h+o); -penpos1(thickl,0); -z1l = (ss,h/2); -penpos2(thinl,-90); -z2l = (w/2,h+o); -penpos3(curvl,180); -z3l = (w-ss,h/2); -penpos4(thinl,90); -z4l = (w/2,0-o); -penpos5(1.5thinl,-90); -z5l = z2l; - -penstroke z1e..z2e..z3e..z4e..cycle; -penstroke z1e..z5e---z0e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"034",ex#+2ss#,ex#,0); "The letter tau"; -italcorr(ex#*slant); - -penpos0(1.5thinl,0); -z0 = (w/2,h); -penpos1(1.5thinl,0); -z1 = (w/2,0); -penpos4(thinl,90); -z4 = (ss,h-curlh); -penpos5(thickl,90); -z5r = (ss+curlw,h+o); -penpos6(thickl,90); -z6r = (w-ss,h+o); - -penstroke z4e..z5e---z6e; -penstroke z0e{down}..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"035",1.2ex#+2ss#,ex#,0); "The letter upsilon"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -penpos0(thickl,0); -z0 = (ss+2curlw,h-curlh); -topcurl(0,1,2); -penpos3(1.5thinl,90); -x3r = w/2; y3l = 0-o; -penpos4(thickl,180); -z4l = (w-ss,h-thinl); -penpos5(1.5thinl,-90); -z5r = z4r; -penpos6(thinl,0); -z6r = z5r; -penpos7(thinl,90); -z7r = z6r; -penpos8(1.5thinl,90); -z8r = z3r; -penpos9(1.5thinl,0); -z9 = (x0,curlh); - -penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; -penstroke z4e..z5e..z6e..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"036",1.2ex#+2ss#,asch#,dep#); "The letter phi"; -italcorr(ex#*slant); - -penpos1(thickl,0); -z1l = (ss,ex/2); -penpos2(thinl,-90); -z2l = (w/2,ex+o); -penpos3(curvl,180); -z3l = (w-ss,ex/2); -penpos4(thinl,90); -z4l = (w/2,0-o); - -penstroke z1e..z2e..z3e..z4e..cycle; -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z5 = (ss,-dep); -draw z0--z5; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"037",1.4ex#+2ss#,ex#,dep#); "The letter chi"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0r = (ss,h-curlh); -penpos1(thickl,90); -z1r = (ss+curlw,h); -penpos2(thickl,0); -z2 = (w/2,(h+dep)/2-dep); -penpos3(thickl,90); -z3l = (w-ss-curlw,-dep); -penpos4(thinl,90); -z4l = (w-ss,-dep+curlh); -penpos5(thinl,-135); -z5l = (w-ss,h-curlh/2); -penpos6(thinl,-90); -z6l = (w-ss-0.7curlw,h+o); -penpos7(1.5thinl,0); -z7 = z2; -penpos8(thinl,-90); -z8r = (ss+0.7curlw,-dep); -penpos9(thinl,-135); -z9r = (ss,-dep+curlh/2); - -penstroke z0e..z1e..z2e..z3e..z4e; -penstroke z5e..z6e..tension 2.5..z7e; -penstroke z9e..z8e..tension 2.5..z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"040",1.2ex#+2ss#,asch#,dep#); "The letter psi"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -penpos0(thickl,0); -z0 = (ss+2curlw,ex-curlh); -topcurl(0,1,2); -penpos3(1.5thinl,90); -x3r = w/2; y3l = 0-o; -penpos4(thickl,180); -z4l = (w-ss,ex-thinl); -penpos5(1.5thinl,-90); -z5r = z4r; -penpos6(thinl,0); -z6r = z5r; -penpos7(thinl,90); -z7r = z6r; -penpos8(1.5thinl,90); -z8r = z3r; -penpos9(1.5thinl,0); -z9 = (x0,curlh); - -penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; -penstroke z4e..z5e..z6e..z7e; -pickup pencircle scaled 1.5thinl; -top z10 = (w/2+1.5thinl,h+o); -bot z11 = (w/2+1.5thinl,-dep); -draw z10--z11; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"041",1.5ex#+2ss#,ex#,0); "The letter omega"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss+w/5,h); -penpos1(curvl,0); -z1l = (ss,h/2); -penpos2(thinl,90); -z2l = (w/3,0-o); -penpos3(1.5thinl,180); -z3 = (w/2,h/2); -penpos4(thinl,-90); -z4r = (2w/3,0-o); -penpos5(curvl,0); -z5r = (w-ss,h/2); -penpos6(thinl,0); -z6r = (w-ss-w/5,h); - -penstroke z0e..z1e..z2e{right}..z3e; -penstroke z3e..{right}z4e..z5e..z6e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"042",0.8ex#+2ss#,ex#,0); "The letter varepsilon"; -italcorr(ex#*slant); - -penpos0(1.5thinl,225); -z0l = (w-ss,h-curlh); -penpos1(thickl,0); -z1l = (ss,3h/4); -penpos2(thinl,135); -z2l = (w-ss,curlh); -penpos3(thickl,0); -z3l = (ss,h/4); -penpos4(thinl,90); -z4 = (w/2-thinl,h/2-thinl); -penpos5(thinl,-90); -z5 = (w/2-thinl,h/2+thinl); -penpos6(thinl,180); -z6 = (w/2+thinl,h/2); -penpos7(thinl,-90); -z7l = (w/2,h+o); -penpos8(thinl,90); -z8l = (w/2,0-o); - -penstroke z0e..z7e..z1e..z4e..z6e..z5e..z3e..z8e..z2e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"043",1.2ex#+2ss#,asch#,0); "The letter vartheta"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0 = (w-ss,ex); -penpos1(thinl,0); -z1 = (w/4,ex+((h-ex)/2)); -penpos2(thinl,-90); -z2l = (w/2,h+o); -penpos3(2thinl,180); -z3 = (3w/4,y1); -penpos4(thickl,180); -z4 = (x3,2curlh); -penpos6(thickl,0); -z6l = (ss+1.5curlw,y4); -penpos5(thinl,90); -z5l = ((x6+x4)/2,0-o); -penpos7(thickl,0); -z7 = (x6,ex-1.5curlh); -topcurl(7,8,9); - -penstroke -z0e{left}..z1e..z2e..z3e---z4e..z5e..z6e---z7e..z8e..z9e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"044",1.5ex#+2ss#,ex#,0); "The letter varpi"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss+2w/5,h); -penpos1(curvl,0); -z1l = (ss+hair,h/2); -penpos2(thinl,90); -z2l = (w/3,0-o); -penpos3(1.5thinl,180); -z3 = (w/2,h/2); -penpos4(thinl,-90); -z4r = (2w/3,0-o); -penpos5(curvl,0); -z5r = (w-ss-hair,h/2); -penpos6(thinl,0); -z6r = (w-ss-2w/5,h); - -penstroke z0e..z1e..z2e{right}..z3e; -penstroke z3e..{right}z4e..z5e..z6e; -penpos7(thinl,90); -z7 = (ss,h-curlh); -penpos8(thickl,90); -z8r = (ss+curlw,h+o); -penpos9(thickl,90); -z9r = (w-ss,h+o); -penstroke z7e..z8e---z9e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"045",ex#+2ss#,ex#,dep#); "The letter varrho"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0l = (ss,-dep/2); -penpos1(thickl,0); -z1l = (ss,h/2); -penpos2(thinl,-90); -z2l = (w/2,h+o); -penpos3(curvl,180); -z3l = (w-ss,h/2); -penpos4(thinl,90); -z4l = (w/2,0-o); -penpos5(thinl,90); -z5l = (w/2,-dep); -penpos6(thickl,180); -z6l = (w-ss-hair,-dep/2); - -penstroke z6e{down}..z5e..z0e---z1e..z2e..z3e..z4e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"046",ex#+2ss#,ex#,dep#); "The letter varsigma"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0r = (w-ss,h-curlh); -penpos1(thinl,90); -z1r = (w-ss-curlw,h+o); -penpos2(1.5thinl,90); -z2r = (ss+1.5curlw,h+o); -penpos3(curvl,180); -z3r = (ss,h/2); -penpos4(1.5thinl,-90); -z4r = (w/2,0-o); -penpos5(1.5thinl,180); -z5l = (w-ss,0-curlh); -penpos6(thinl,90); -z6l = (w/2,-dep); - -penstroke -z0e{up}..z1e..z2e..{down}z3e{down}..z4e{right}..z5e..z6e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"047",1.2ex#+2ss#,ex#,dep#); "The letter varphi"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -penpos2(thickl,0); -z2 = (ss+1.5curlw,h-curlh); -topcurl(2,1,0); -penpos3(thickl,180); -z3l = (w-ss,3h/4); -penpos4(thinl,90); -z4l = ((x2+x3)/2,0-o); -penpos5(thinl,-60); -z5l = ((x4+x3)/2,h+o); -penpos6(thickl,0); -z6 = (x4,h/2); -penpos7(thickl,0); -z7 = (x6,-dep); -penpos8(thickl,0); -z8 = (x2,h/2); -penpos9(thickl,180); -z9 = (x3,h/2); - -penstroke z0e..z1e..z2e---z8e..z4e..z9e---z3e..z5e{left}..z6e---z7e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf b/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf deleted file mode 100644 index 2f4e8e55d08..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf +++ /dev/null @@ -1,230 +0,0 @@ -% +AMDG This document was begun on 24 June 11EX, the Eve of -% the feast of Sts. Peter and Paul, and it is humbly -% dedicated to them and to the Immaculate Heart of Mary for -% their prayers, and to the Sacred Heart of Jesus for his -% mercy. - -beginchar(oct"000",5em#/6+2ss#,cap#,0); "The letter Gamma"; -italcorr(ex#*slant); - -fill capell reflectedabout ((0,h/2),(w,h/2)); - -endchar; - -beginchar(oct"001",5em#/6+2ss#,cap#,0); "The letter Delta"; -italcorr(ex#*slant); - -z0 = (ss,0-o); -z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); -z2 = (w/2,h); -z3 = z2 shifted (0,-2thinstroke); -z4 = (w-ss-1.5thinstroke,0-o); -z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); -z6 = z2 shifted (thinstroke,0); -z7 = z4 shifted (thinstroke,0); - -fill z0--z2--z4--cycle; -unfill z1--z3--z5--cycle; -fill z2--z6--z7--z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"002",5em#/6+2ss#,cap#,0); "The letter Theta"; -italcorr(ex#*slant); - -z1=(ss,h/2); -z2=(w/2,h+o); -z3=(w-ss,h/2); -z4=(w/2,0-o); -z5=z1 shifted (curvwid,0); -z6=z2 shifted (0,-thinstroke); -z7=z3 shifted (-curvwid,0); -z8=z4 shifted (0,thinstroke); - -fill z4..z3..z2..z1..cycle; -unfill z5..z6..z7..z8..cycle; -fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, - h/2-lserw-thickstroke/2-ss); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"003",6em#/6+2ss#,cap#,0); "The letter Lambda"; -italcorr(ex#*slant); - -z0 = (ss+lserw,lserh); -z1 = z0 shifted (thinstroke,0); -z2 = (w-ss-lserw,lserh); -z3 = z2 shifted (-thickstroke,0); -llserif(0,4,5,6,7)(1); -lrserif(1,8,9,10,11)(1); -llserif(3,12,13,14,15)(1); -lrserif(2,16,17,18,19)(1); -z20 = (w/2,h+o); -z24 = z20 shifted (thinstroke,0); -z25 = z20 shifted (-thickstroke,0); -z21 = (z1--z24) intersectionpoint (z3--z25); - -fill -z0..z4..z5--z6--z10--z9..z8..z1--z21--z3..z12..z13--z14--z18--z17..z16..z2--z20--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - - -beginchar(oct"004",5em#/6+2ss#,cap#,0); "The letter Xi"; -italcorr(ex#*slant); - -z0 = (ss,h-thickstroke-thinstroke); -z1 = z0 shifted (thinstroke,0); -z2 = z1 shifted (0,thinstroke); -z3 = (w-ss,h-thickstroke-thinstroke); -z4 = z3 shifted (-thinstroke,0); -z5 = z4 shifted (0,thinstroke); -z6 = (ss,h); -z7 = (w-ss,h); - -path xitop; xitop = z0--z6--z7--z3--z4--z5--z2--z1--cycle; -fill xitop; -fill xitop reflectedabout ((0,h/2),(w,h/2)); - -fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, - h/2-lserw-thickstroke/2-ss); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"005",6em#/6+2ss#,cap#,0); "The letter Pi"; -italcorr(ex#*slant); - -z0 = (ss+lserw,lserh); -z1 = z0 shifted (thickstroke,0); -z2 = (w-ss-lserw,lserh); -z3 = z2 shifted (-thickstroke,0); -llserif(0,4,5,6,7)(1); -lrserif(1,8,9,10,11)(1); -llserif(3,12,13,14,15)(1); -lrserif(2,16,17,18,19)(1); -z20 = (x0,h-lserh); -z21 = (x1,h-thinstroke); -z22 = (x3,h-thinstroke); -z23 = (x2,h-lserh); -ulserif(20,24,25,26,27)(1); -urserif(23,28,29,30,31)(1); - -fill -z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"006",5em#/6+2ss#,cap#,0); "The letter Sigma"; -italcorr(ex#*slant); - -z0 = (w-ss,h); -z1 = (w-ss,h-thickstroke-thinstroke); -z2 = z1 shifted (-thinstroke,0); -z3 = z2 shifted (0,thinstroke); -z4 = (ss,h); -z5 = (ss,h-thickstroke); -z6 = (w/2-1.5thinstroke/2,h/2); -z7 = z6 shifted (1.5thinstroke,0); -z8 = (ss,0); -z9 = z8 shifted (0,thickstroke); -z10 = (w-ss,0); -z11 = z10 shifted (0,thickstroke+thinstroke); -z12 = z11 shifted (-thinstroke,0); -z13 = z12 shifted (0,-thinstroke); -z14 = z5 shifted (1.5thinstroke,0); -z15 = z9 shifted (1.5thinstroke,0); - -fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- - z7--z15--z13--z12--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"007",5em#/6+2ss#,cap#,0); "The letter Upsilon"; -italcorr(ex#*slant); - -fill capwhy; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"010",5em#/6+2ss#,cap#,0); "The letter Phi"; -italcorr(ex#*slant); - -fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); -fill fillo yscaled 0.6 shifted (0,0.2h); -unfill unfillo yscaled 0.6 shifted (0,0.2h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"011",5em#/6+2ss#,cap#,0); "The letter Psi"; -italcorr(ex#*slant); - -fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); -pickup pencircle scaled thickstroke; -penpos0(0.8thickstroke,0); -z0 = (w/4,3h/5); -penpos1(0.8thickstroke,180); -z1 = (3w/4,3h/5); -penpos2(0.8thickstroke,0); -z2 = (w/4,2h/5); -penpos3(0.8thickstroke,180); -z3 = (3w/4,2h/5); -penpos4(thinstroke,90); -z4 = (w/2,h/5); -penpos5(thinstroke,90); -z5 = (ss,4h/5); -penpos6(thinstroke,90); -z6 = (w-ss,4h/5); - -penstroke z5e..z0e..z2e..z4e..z3e..z1e..z6e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"012",5em#/6+2ss#,cap#,0); "The letter Omega"; -italcorr(ex#*slant); - -z0 = (ss,0); -z1 = (w-ss,0); -z2 = z0 shifted (thickstroke,0); -z3 = z1 shifted (-thickstroke,0); -z4 = z0 shifted (0,2lserh); -z5 = z1 shifted (0,2lserh); -z6 = z5 shifted (-lserstep,0); -z7 = z4 shifted (lserstep,0); -z8 = z2 shifted (thickstroke,0); -z9 = z3 shifted (-thickstroke,0); -z10 = (ss,h/2+2lserh); -z11 = (w-ss,h/2+2lserh); -z12 = z10 shifted (curvwid,0); -z13 = z11 shifted (-curvwid,0); -z14 = (w/2,h+o); -z15 = z14 shifted (0,-thinstroke); -z16 = z8 shifted (0,thinstroke); -z17 = z9 shifted (0,thinstroke); -z18 = z9 shifted (-thickstroke,0); -z19 = z8 shifted (thickstroke,0); - -path omega; omega = - z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. - {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. - {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. - {down}z12{down}..{dir -60}z19--cycle; -fill omega; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathoms.mf b/Master/texmf-dist/fonts/source/public/drm/mathoms.mf deleted file mode 100644 index 5ccbebddd7e..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathoms.mf +++ /dev/null @@ -1,1385 +0,0 @@ -% +AMDG This document was begun on 3 July 11EX, the feast -% of St. Irenaeus, EM, and it is humbly dedicated to him and -% to the Immaculate Heart of Mary for their prayers, and to -% the Sacred Heart of Jesus for His mercy. - -beginchar(oct"000",3pwid#,ex#,0); "Minus sign"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,3h/4); -rt z1 = (w-ss,3h/4); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"001",pwid#,ex#,0); "Dot product"; - -z0 = (w/2,3h/4); -z1 = z0 shifted (dotwidth,0); -z2 = z0 shifted (0,dotwidth); -z3 = z0 shifted (-dotwidth,0); -z4 = z0 shifted (0,-dotwidth); - -path dotprod; -dotprod = z1..z2..z3..z4..cycle; -fill dotprod; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"002",ex#,ex#,0); "Cross product"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -bot rt z1 = (w-ss,0); -top rt z2 = (w-ss,h); -bot lft z3 = (ss,0); -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"003",ex#,ex#,0); "Asterisk"; - -pickup pencircle scaled 1.5thinl; -z12 = (w/2,h/2); -top z0 = (w/2,h); -bot z1 = (w/2,0); -z2 = z0 rotatedaround (z12,60); -z3 = z2 rotatedaround (z12,60); -z4 = z3 rotatedaround (z12,60); -z5 = z4 rotatedaround (z12,60); -z6 = z5 rotatedaround (z12,60); -draw z0--z1; draw z2--z5; draw z3--z6; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"004",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; - -pickup pencircle scaled thinl; -lft z0 = (ss,(h+d)/2-d); -rt z1 = (w-ss,(h+d)/2-d); - -draw z0--z1; -fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); -fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"005",ex#,ex#,0); "Diamond, lozenge"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h+o); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0-o); -lft z3 = (ss,h/2); -draw z0--z1--z2--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"006",em#,cap#,0); "The plus minus"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot z1 = (w/2,0); -lft z3 = (ss,h/2); -rt z4 = (w-ss,h/2); -bot lft z5 = (ss,0); -bot rt z6 = (w-ss,0); - -draw z0--z1; draw z3--z4; draw z5--z6; -picture plusminus; plusminus := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"007",em#,cap#,0); "Inverse plus minus"; - -currentpicture := plusminus reflectedabout - ((0,h/2),(w,h/2)); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"010",em#,cap#,0); "oplus"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -draw z0..z1..z2..z3..cycle; -draw z0--z2; -draw z1--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"011",em#,cap#,0); "ominus"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -draw z0..z1..z2..z3..cycle; -draw z1--z3; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"012",em#,cap#,0); "otimes"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -z5 = z0 rotatedaround ((w/2,h/2),45); -z6 = z1 rotatedaround ((w/2,h/2),45); -z7 = z2 rotatedaround ((w/2,h/2),45); -z8 = z3 rotatedaround ((w/2,h/2),45); -draw z0..z1..z2..z3..cycle; -draw z5--z7; draw z8--z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"013",em#,cap#,0); "oslash"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -z5 = z0 rotatedaround ((w/2,h/2),45); -z6 = z1 rotatedaround ((w/2,h/2),45); -z7 = z2 rotatedaround ((w/2,h/2),45); -z8 = z3 rotatedaround ((w/2,h/2),45); -draw z0..z1..z2..z3..cycle; -draw z8--z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"014",em#,cap#,0); "odot"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -draw z0..z1..z2..z3..cycle; - -fill fullcircle scaled 2dotwidth shifted (w/2,h/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"015",1.1em#,1.1cap#,0); "bigcirc"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -draw z0..z1..z2..z3..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"016",ex#,ex#,0); "circ"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -draw z0..z1..z2..z3..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"017",ex#,ex#,0); "bullet"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); -filldraw z0..z1..z2..z3..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"020",em#,cap#,0); "asymp"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -top rt z1 = (w-ss,h); -bot z2 = (w/2,h/2+thickstroke/2); -path halfwavy; halfwavy = z0..z2..z1; -draw halfwavy; -draw halfwavy reflectedabout ((0,h/2),(w,h/2)); - -penlabels(0,1,2,3); -endchar; - -beginchar(oct"021",em#,cap#,0); "three horizontal lines"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -top rt z1 = (w-ss,h); -path hozline; hozline = z0--z1; -draw hozline; -draw hozline shifted (0,-w/3); -draw hozline shifted (0,-2w/3); - - -penlabels(0,1,2,3); -endchar; - -beginchar(oct"022",em#,cap#,0); "subseteq"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,2h/3); -rt z2 = (w-ss,h/3); -bot lft z3 = (ss,0); -bot rt z4 = (w-ss,0); -top z5 = (w/3,h); -z6 = (w/3,y2); - -draw z0---z5..{down}z1{down}..z6---z2; -draw z3--z4; - -picture subseteq; -subseteq := currentpicture; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"023",em#,cap#,0); "supseteq"; - -currentpicture := subseteq reflectedabout ((w/2,h),(w/2,0)); -picture supseteq; supseteq := currentpicture; - -endchar; - -beginchar(oct"024",em#,cap#,0); "leq"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,2h/3); -rt z2 = (w-ss,h/3); -bot lft z3 = (ss,0); -bot rt z4 = (w-ss,0); -top z5 = (w/3,h); -z6 = (w/3,y2); - -draw z0--z1--z2; -draw z3--z4; - -picture leq; -leq := currentpicture; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"025",em#,cap#,0); "geq"; - -currentpicture := leq reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"026",em#,cap#,0); "preceq"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,2h/3); -rt z2 = (w-ss,h/3); -bot lft z3 = (ss,0); -bot rt z4 = (w-ss,0); -top z5 = (w/3,h); -z6 = (w/3,y2); - -draw z0..{left}z1; draw z2..{left}z1; -draw z3--z4; - -picture preceq; -preceq := currentpicture; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"027",em#,cap#,0); "succeq"; - -currentpicture := preceq reflectedabout ((w/2,h),(w/2,0)); -picture succeq; succeq := currentpicture; - -endchar; - -beginchar(oct"030",em#,cap#,0); "sim"; - -pickup pencircle scaled 1.5thinl; -penpos0(thinstroke,225); -z0r = (ss,0.4h); -penpos1(1.5thinstroke,90); -z1 = (w/3,0.6h); -penpos2(1.5thinstroke,90); -z2 = (2w/3,0.4h); -penpos3(thinstroke,225); -z3l = (w-ss,0.6h); - -penstroke z0e..z1e..z2e..z3e; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"031",em#,cap#,0); "approx"; - -pickup pencircle scaled 1.5thinl; -penpos0(thinstroke,225); -z0r = (ss,0.4h); -penpos1(1.5thinstroke,90); -z1 = (w/3,0.6h); -penpos2(1.5thinstroke,90); -z2 = (2w/3,0.4h); -penpos3(thinstroke,225); -z3l = (w-ss,0.6h); - -penstroke (z0e..z1e..z2e..z3e) shifted (0,thickl); -penstroke (z0e..z1e..z2e..z3e) shifted (0,-thickl); - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"032",em#,cap#,0); "subset"; - -currentpicture := subseteq; -pickup pencircle scaled 1.5thinl; -bot lft z3 = (ss,0); -bot rt z4 = (w-ss,0); -undraw z3--z4; - -endchar; - -beginchar(oct"033",em#,cap#,0); "supset"; - -currentpicture := supseteq; -pickup pencircle scaled 1.5thinl; -bot lft z3 = (ss,0); -bot rt z4 = (w-ss,0); -undraw z3--z4; - -picture supset; supset := currentpicture; - -endchar; - -beginchar(oct"034",em#,cap#,0); "ll"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss-w/4,h); -lft z1 = (ss+w/4,2h/3); -rt z2 = (w-ss-w/4,h/3); -path lesser; lesser = z0--z1--z2; -draw lesser shifted (-thickl,0); -draw lesser shifted (thickl,0); - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"035",em#,cap#,0); "gg"; - -pickup pencircle scaled 1.5thinl; -draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (-thickl,0); -draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (thickl,0); - -endchar; - -beginchar(oct"036",em#,cap#,0); "prec"; - -pickup pencircle scaled 1.5thinl; -currentpicture := preceq; -bot z0 = (ss,0); bot z1 = (w-ss,0); -undraw z0--z1; -picture prec; prec := currentpicture; - -endchar; - -beginchar(oct"037",em#,cap#,0); "succ"; - -currentpicture := prec reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"040",1em#,cap#,0); "left arrow"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,h/2); -top z1 = (0.3w,13h/16); -rt z2 = (w-ss,y0); -z3 = z1 shifted (0,-3h/16); -bot z4 = (0.3w,3h/16); -z5 = (x3,y4+3h/16); - -path shaft; shaft = z2--z0; -path head; head = z4{up}..{z0-z5}z0{z3-z0}..{up}z1; -draw shaft; draw head; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"041",em#,cap#,0); "right arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft; draw head reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"042",em#,cap#,0); "up arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),-90); -draw head rotatedaround ((w/2,h/2),-90); - -endchar; - -beginchar(oct"043",em#,cap#,0); "down arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),90); -draw head rotatedaround ((w/2,h/2),90); - -endchar; - -beginchar(oct"044",em#,cap#,0); "left-right arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft; draw head; -draw head reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"045",em#,cap#,0); "northeast arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),-135); -draw head rotatedaround ((w/2,h/2),-135); - -endchar; - -beginchar(oct"046",em#,cap#,0); "southeast arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),-225); -draw head rotatedaround ((w/2,h/2),-225); - -endchar; - -beginchar(oct"055",em#,cap#,0); "northwest arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),-45); -draw head rotatedaround ((w/2,h/2),-45); - -endchar; - -beginchar(oct"056",em#,cap#,0); "southwest arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),45); -draw head rotatedaround ((w/2,h/2),45); - -endchar; - -beginchar(oct"047",em#,cap#,0); "simeq"; - -pickup pencircle scaled 1.5thinl; -penpos0(thinstroke,225); -z0r = (ss,0.4h); -penpos1(1.5thinstroke,90); -z1 = (w/3,0.6h); -penpos2(1.5thinstroke,90); -z2 = (2w/3,0.4h); -penpos3(thinstroke,225); -z3l = (w-ss,0.6h); -bot lft z4 = (ss,0); -bot rt z5 = (w-ss,0); - -penstroke z0e..z1e..z2e..z3e; -draw z4--z5; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"050",em#,cap#,0); "double-width left arrow"; - -pickup pencircle scaled 1.5thinl; -rt z0 = (w-ss,h/2+thickl); -rt z1 = (w-ss,h/2-thickl); -z2 = (ss,y0); -z3 = (ss,y1); -z4 = (z0--z2) intersectionpoint head; -z5 = (z1--z3) intersectionpoint head; -draw head; -draw z0--z4; draw z5--z1; - -picture doubleftarrow; doubleftarrow := currentpicture; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"051",em#,cap#,0); "double-width right arrow"; - -currentpicture := doubleftarrow reflectedabout - ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"052",em#,cap#,0); "double-width up arrow"; - -currentpicture := doubleftarrow rotatedaround - ((w/2,h/2),-90); - -endchar; - -beginchar(oct"053",em#,cap#,0); "double-width down arrow"; - -currentpicture := doubleftarrow rotatedaround - ((w/2,h/2),90); - -endchar; - -beginchar(oct"054",em#,cap#,0); "double-width left-right arrow"; - -pickup pencircle scaled 1.5thinl; -rt z0 = (w/2,h/2+thickl); -rt z1 = (w/2,h/2-thickl); -z2 = (ss,y0); -z3 = (ss,y1); -z4 = (z0--z2) intersectionpoint head; -z5 = (z1--z3) intersectionpoint head; -draw head; draw head reflectedabout ((w/2,h),(w/2,0)); -draw z0--z4; draw z5--z1; -draw z0--z4 reflectedabout ((w/2,h),(w/2,0)); -draw z1--z5 reflectedabout ((w/2,h),(w/2,0)); - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"057",em#,ex#,0); "propto"; - -pickup pencircle scaled 1.5thinl; -penpos0(thinl,-90); -z0l = (w-ss,h); -penpos1(thinl,-90); -z1l = (5w/6,h); -penpos2(thickl,0); -z2 = (0.55w,h/2); -penpos3(thinl,-90); -z3r = (0.3w,0-o); -penpos4(curvl,180); -z4r = (ss,h/2); -penpos5(thinl,90); -z5r = (x3,h+o); -penpos6(thickl,0); -z6 = (0.55w,h/2); -penpos7(thinl,90); -z7l = (x1,0); -penpos8(thinl,90); -z8l = (x0,0); - -penstroke z0e---z1e..z2e..z3e..z4e..z5e..z6e..z7e---z8e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"060",1.4pwid#+2ss#,cap#,0); "large prime"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,h+o); -z1 = z0 shifted (-pwid/3,-pwid/3); -z2 = z0 shifted (pwid/3,-pwid/3); -z3 = (x0,h/4); -z4 = z3 shifted (-pwid/6,pwid/6); -z5 = z3 shifted (pwid/6,pwid/6); -fill z0..z2---z5..z3..z4---z1..cycle - rotatedaround ((w/2,(y0+y3)/2),-15); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"061",em#,ex#,0); "infty"; - -pickup pencircle scaled 1.5thinl; -penpos0(thickl,180); -z0l = (w-ss,h/2); -penpos2(thickl,0); -z2 = (0.5w,h/2); -penpos4(thickl,180); -z4r = (ss,h/2); -penpos6(thickl,0); -z6 = (0.5w,h/2); -penpos7(thinl,90); -z7l = (x1,0-o); -penpos8(thinl,90); -z8l = (x0,0); -penpos1(thinl,-90); -z1l = ((x0+x2)/2,h+o); -penpos5(thinl,90); -z5r = (x3,h+o); -penpos3(thinl,-90); -z3r = ((x6+x4)/2,0-o); - -penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e..z7e..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"062",1.5ex#,cap#,0); "in"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -top z1 = (w/2,h); -lft z2 = (ss,h/2); -bot z3 = (w/2,0); -bot rt z4 = (w-ss,0); -rt z5 = (w-ss,h/2); -draw z0{left}..z2..{right}z4; -draw z2--z5; - -picture inset; inset := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"063",1.5ex#,cap#,0); "ni"; -currentpicture := inset reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"064",em#,cap#,0); "upward triangle"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h+o); -bot lft z1 = (ss,0-o); -bot rt z2 = (w-ss,0-o); - -draw z0--z1--z2--cycle; -picture triangle; triangle := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"065",em#,cap#,0); "downward triangle"; -currentpicture := triangle reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"066",2pwid#,cap#,0); "slash, solidus"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"067",pwid#,ex#,0); "straight prime"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h+o); -z1 = (w/2,h/2); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"070",1.2ex#,cap#,0); "inverse A"; - -pickup pencircle scaled 1.5thinl; -bot z0 = (w/2,0-o); -top lft z1 = (ss,h+o); -top rt z2 = (w-ss,h+o); -draw z0--z1; draw z0--z2; -z3 = 0.618[z0,z1]; z4 = 0.618[z0,z2]; -draw z3--z4; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"071",1.2ex#,cap#,0); "inverse E"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot rt z2 = (w-ss,0-o); -bot lft z3 = (ss,0-o); -draw z0--z1--z2--z3; -lft z4 = (ss,h/2); -rt z5 = (w-ss,h/2); -draw z4--z5; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"072",1.6ex#,ex#,0); "neg"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,3h/4); -rt z1 = (w-ss,y0); -bot rt z2 = (w-ss,0); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"073",digwid#+2ss#,cap#,0); "null set"; - -pickup pencircle scaled 1.5thinl; -penpos0(thickl,0); -z0r = (w-ss,h/2); -penpos1(thinl,-90); -z1r = (w/2,0-o); -penpos2(thickl,180); -z2r = (ss,h/2); -penpos3(thinl,90); -z3r = (w/2,h+o); -top rt z4 = (w-ss,h+o); -bot lft z5 = (ss,0-o); -draw z4--z5; -penstroke z0e..z1e..z2e..z3e..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"076",1.4ex#,cap#,0); "top"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot z2 = (w/2,0-o); -top z3 = (w/2,h+o); -draw z0--z1; draw z2--z3; -picture toppic; toppic := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"077",1.4ex#,cap#,0); "perp"; -currentpicture := toppic reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"133",0.75em#+2ss#,cap#,0); "union"; -currentpicture := supset rotatedaround ((em/2,cap/2),-90) - shifted (-1/3cap+1.5thinl,0); -endchar; - -beginchar(oct"134",0.75em#+2ss#,cap#,0); "intersection"; -currentpicture := supset rotatedaround ((em/2,cap/2),90) - shifted (1.5thinl/2,0); -endchar; - -beginchar(oct"135",0.75em#+2ss#,cap#,0); "union"; -currentpicture := supset rotatedaround ((em/2,cap/2),-90) - shifted (-1/3cap+1.5thinl,0); -pickup pencircle scaled 1.5thinl; -z0 = (-w/2,h-w/2-thinl/2); -z1 = (w/2,h-w/2-thinl/2); -z2 = (0,h); -z3 = (0,h-w-2ss); -draw (z0--z1) scaled 0.5 shifted (w/2,w/4); -draw (z2--z3) scaled 0.5 shifted (w/2,w/4); -penlabels (0,1,2,3,4); -endchar; - -beginchar(oct"136",0.75em#+2ss#,cap#,0); "upward pointing"; -pickup pencircle scaled 1.5thinl; -draw lesser rotatedaround ((w/2,h/2),-90) - shifted (-w/4+2ss,h/8); -endchar; - -beginchar(oct"137",0.75em#+2ss#,cap#,0); "downward pointing"; -pickup pencircle scaled 1.5thinl; -draw lesser rotatedaround ((w/2,h/2),90) - shifted (w/4-2ss,-h/8); -endchar; - -beginchar(oct"140",0.75em#+2ss#,cap#,0); "leftward T"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,0-o); -lft z2 = (ss,h/2); -rt z3 = (w-ss,h/2); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"141",0.75em#+2ss#,cap#,0); "rightward T"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,0-o); -rt z2 = (w-ss,h/2); -lft z3 = (ss,h/2); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"142",0.25em#+2ss#,cap#,dep#); "left floor"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-dep); -bot rt z2 = (w-ss,-dep); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"143",0.25em#+2ss#,cap#,dep#); "right floor"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-dep); -bot lft z2 = (ss,-dep); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"144",0.25em#+2ss#,cap#,dep#); "left ceil"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-dep); -top rt z2 = (w-ss,h+o); -draw z1--z0--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"145",0.25em#+2ss#,cap#,dep#); "right ceil"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-dep); -top lft z2 = (ss,h+o); -draw z2--z0--z1; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"146",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; - -brackwid = 2thinl; -toth = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-dep); -lft z2 = (ss,h-toth/2); -z3 = (3(x0-x2)/4,h-toth/4); -z4 = (3(x0-x2)/4,h-3toth/4); - -path curlybrack; -curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; -draw curlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"147",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw curlybrack rotatedaround ((w/2,(h-dep)/2),180); -endchar; - -beginchar(oct"150",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h+d)/2-dep); -bot rt z2 = (w-ss,-dep); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"151",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -rt z1 = (w-ss,(h+d)/2-dep); -bot lft z2 = (ss,-dep); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"152",0.9pwid#,cap#+ss#,dep#); "Pipe"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot z1 = (w/2,-d); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"153",1.5pwid#,cap#+ss#,dep#); "Double pipe"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2-thickstroke,h); -bot z1 = (w/2-thickstroke,-d); -top z2 = (w/2+thickstroke,h); -bot z3 = (w/2+thickstroke,-d); -draw z0--z1; -draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"154",em#,cap#,0); "up-down arrow"; - -pickup pencircle scaled 1.5thinl; -draw shaft rotatedaround ((w/2,h/2),-90); -draw head rotatedaround ((w/2,h/2),-90); -draw head rotatedaround ((w/2,h/2),90); - -endchar; - -beginchar(oct"155",em#,cap#,0); "double-width up-down arrow"; - -pickup pencircle scaled 1.5thinl; -rt z0 = (w/2,h/2+thickl); -rt z1 = (w/2,h/2-thickl); -z2 = (ss,y0); -z3 = (ss,y1); -z4 = (z0--z2) intersectionpoint head; -z5 = (z1--z3) intersectionpoint head; -z6 = (w-x4,y4); -z7 = (w-x5,y5); -draw head rotatedaround ((w/2,h/2),-90); -draw head rotatedaround ((w/2,h/2),90); -draw (z4--z6) rotatedaround ((w/2,h/2),-90); -draw (z5--z7) rotatedaround ((w/2,h/2),-90); - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"156",2pwid#,cap#,0); "backslash"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot rt z1 = (w-ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"157",2pwid#,cap#,0); "Vertical tilde"; - -penpos0(thinstroke,90); -z0r = (ss,h+o); -penpos1(curvwid,0); -z1r = (w-ss,2h/3); -penpos2(curvwid,0); -z2l = (ss,h/3); -penpos3(thinstroke,90); -z3l = (w-ss,0-o); - -penstroke z0e{right}..z1e..z2e..{right}z3e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"160",em#+2ss#,cap#,0); "Square root sign"; - -pickup pencircle scaled 1.5thinl; - -penpos0(thinl,-45); -lft z0 = (ss,h/4); -penpos1(thinl,-45); -z1 = (w/6,h/3); -penpos3(1.5thinl,-90); -bot z3 = (3w/4,h+o+thinl); -penpos4(1.5thinl,-90); -z4 = (w-ss,y3); -penpos5(thickl,45); -z5l = z1l; -penpos6(thickl,45); -z6l = (w/3,0-o); -penpos2(1.5thinl,-45); -z2r = z6r; -penpos7(1.5thinl,-45); -z7r = z3r; - -penstroke z0e--z1e; -penstroke z5e--z6e; -penstroke z2e--z7e..z3e--z4e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"161",6em#/6+2ss#,cap#,0); "Inverted Pi"; -italcorr(ex#*slant); - -z0 = (ss+lserw,lserh); -z1 = z0 shifted (thickstroke,0); -z2 = (w-ss-lserw,lserh); -z3 = z2 shifted (-thickstroke,0); -llserif(0,4,5,6,7)(1); -lrserif(1,8,9,10,11)(1); -llserif(3,12,13,14,15)(1); -lrserif(2,16,17,18,19)(1); -z20 = (x0,h-lserh); -z21 = (x1,h-thinstroke); -z22 = (x3,h-thinstroke); -z23 = (x2,h-lserh); -ulserif(20,24,25,26,27)(1); -urserif(23,28,29,30,31)(1); -y26 := y27 := y31 := y30 := h; -y6 := y10 := y14 := y18 := 0; - -fill -(z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle) - rotatedaround ((w/2,h/2),180); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -penlabels(35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50); -endchar; - -beginchar(oct"162",5em#/6+2ss#,cap#,0); "Inverted Delta"; -italcorr(ex#*slant); - -z0 = (ss,0-o); -z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); -z2 = (w/2,h); -z3 = z2 shifted (0,-2thinstroke); -z4 = (w-ss-1.5thinstroke,0-o); -z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); -z6 = z2 shifted (thinstroke,0); -z7 = z4 shifted (thinstroke,0); - -fill (z0--z2--z4--cycle) rotatedaround ((w/2,h/2),180); -unfill (z1--z3--z5--cycle)rotatedaround ((w/2,h/2),180); -fill (z2--z6--z7--z4--cycle)rotatedaround ((w/2,h/2),180); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"163",ex#+2ss#,asch#,dep#); "Integral"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0 = (w/2,h-curlh); -penpos1(thickl,0); -z1 = (w/2,-d+curlh); -penpos2(thinl,-90); -z2 = (3w/4,h+o); -penpos3(thinl,-90); -z3 = (x1-curlw,-d-o); -penpos4(thickl,180); -z4 = (x2+curlw,y0); -penpos5(thickl,-180); -z5 = (x3-curlw,y1); -penpos6(thinl,70); -z6r = (w/2,ex); -penpos7(thinl,70); -z7 = (ss,y6); -penpos8(thinl,70); -z8 = (w-ss,y6); -penpos9(thinl,0); -z9r = z4r; -penpos10(thinl,225); -z10r = z9r; -penpos11(thinl,0); -z11l = z5l; -penpos12(thinl,225); -z12l = z11l; - -penstroke -z12e..z11e..z5e..{right}z3e{right}..z1e---z0e..{right}z2e{right}..z4e..z9e..z10e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"164",1.5ex#,cap#,0); "upward square cup"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,0-o); -bot rt z3 = (w-ss,0-o); -draw z0--z2--z3--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"165",1.5ex#,cap#,0); "downward square cup"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,0-o); -bot rt z3 = (w-ss,0-o); -draw z2--z0--z1--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"166",1.5ex#,cap#,0); "rightward square cup, line"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,2thickstroke); -rt z3 = (w-ss,y2); -bot lft z4 = (ss,0-o); -bot rt z5 = (w-ss,0-o); - -draw z1--z0--z2--z3; draw z4--z5; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"167",1.5ex#,cap#,0); "leftward square cup, line"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,2thickstroke); -rt z3 = (w-ss,y2); -bot lft z4 = (ss,0-o); -bot rt z5 = (w-ss,0-o); - -draw z0--z1--z3--z2; draw z4--z5; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"170",4ex#/5,cap#,dep#); "The section symbol"; - -sh = 2toth/3-thinl+o; -z0 = (w-ss,h-sh/4); -z1 = (w/2,h+o); -z2 = z1 shifted (0,-thinl); -z3 = (ss,h-sh/4); -z4 = z3 shifted (thinl,0); -z5 = (w-ss,h-3sh/4); -z6 = z5 shifted (-thinl,0); -z7 = (w/2,h-sh); -z8 = z7 shifted (0,-thinl); -z9 = (w/2,h-sh/2+curvl/2); -z10 = z9 shifted (0,-curvl); -z11 = z0 shifted (-thinl,0); -z12 = 0.5[z0,z11] shifted (0,-o); -z13 = (ss,h-3sh/4); -z14 = z13 shifted (thinl,0); -z15 = 0.5[z13,z14] shifted (0,hair/2); - -path halfsect; -halfsect = -z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; -fill halfsect; -fill halfsect shifted (0,-sh/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"171",ex#+2ss#,cap#,dep#); "dagger"; - -z0 = (w/2,h+o); -z1 = (w/2,-dep); -z2 = (ss,2h/3); -z3 = (w-ss,2h/3); -z4 = (w/2,2h/3); -z5 = 0.75[z4,z3]; -z6 = 0.75[z4,z2]; -z7 = z6 rotatedaround (z4,-90); -z8 = z6 rotatedaround (z4,90); -z9 = z5 shifted (0,thickl/2); -z10 = z5 shifted (0,-thickl/2); -z11 = z6 shifted (0,thickl/2); -z12 = z6 shifted (0,-thickl/2); -z13 = z7 shifted (thickl/2,0); -z14 = z7 shifted (-thickl/2,0); -z15 = z8 shifted (thickl/2,0); -z16 = z8 shifted (-thickl/2,0); -z17 = 1.0[z4,z8]; -z18 = z17 shifted (thickl/2,0); -z19 = z17 shifted (-thickl/2,0); -z20 = z0 shifted (thickl/2,-hair); -z21 = z0 shifted (-thickl/2,-hair); -z22 = z3 shifted (-hair,thickl/2); -z23 = z3 shifted (-hair,-thickl/2); -z24 = z2 shifted (hair,thickl/2); -z25 = z2 shifted (hair,-thickl/2); -z26 = z4 shifted (hair,hair); -z27 = z4 shifted (hair,-hair); -z28 = z4 shifted (-hair,-hair); -z29 = z4 shifted (-hair,hair); -z30 = z1 shifted (hair,hair); -z31 = z1 shifted (-hair,hair); - -fill -z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"172",ex#+2ss#,cap#,dep#); "double dagger"; - -z0 = (w/2,h+o); -z1 = (w/2,(h-dep)/2); -z2 = (ss,(3h-dep)/4); -z3 = (w-ss,(3h-dep)/4); -z4 = (w/2,(3h-dep)/4); -z5 = 0.75[z4,z3]; -z6 = 0.75[z4,z2]; -z7 = z6 rotatedaround (z4,-90); -z8 = z6 rotatedaround (z4,90); -z9 = z5 shifted (0,thickl/2); -z10 = z5 shifted (0,-thickl/2); -z11 = z6 shifted (0,thickl/2); -z12 = z6 shifted (0,-thickl/2); -z13 = z7 shifted (thickl/2,0); -z14 = z7 shifted (-thickl/2,0); -z15 = z8 shifted (thickl/2,0); -z16 = z8 shifted (-thickl/2,0); -z17 = 1.0[z4,z8]; -z18 = z17 shifted (thickl/2,0); -z19 = z17 shifted (-thickl/2,0); -z20 = z0 shifted (thickl/2,-hair); -z21 = z0 shifted (-thickl/2,-hair); -z22 = z3 shifted (-hair,thickl/2); -z23 = z3 shifted (-hair,-thickl/2); -z24 = z2 shifted (hair,thickl/2); -z25 = z2 shifted (hair,-thickl/2); -z26 = z4 shifted (hair,hair); -z27 = z4 shifted (hair,-hair); -z28 = z4 shifted (-hair,-hair); -z29 = z4 shifted (-hair,hair); -z30 = z1 shifted (thickl/2,hair); -z31 = z1 shifted (-thickl/2,hair); - -path halfdag; -halfdag = -z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; - -fill halfdag; -fill halfdag shifted (0,-(h-dep)-o); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"173",4em#/5+2ss#,cap#,0); "double-line pilcrow"; - -pickup pencircle scaled thinl; -z0 = (w-ss-lserw,lserhl); -z1 = z0 shifted (-1.5thickstroke,0); -z2 = (w-ss-userw,h-userhl); -z3 = z2 shifted (-1.5thickstroke,0); -urserif(2,4,5,6,7)(1); -llserif(1,8,9,10,11)(1); -lrserif(0,12,13,14,15)(1); -lft z16 = (ss,3h/4); -z17 = z16 shifted (curvwid,0); -z18 = (x1,h/2); -z19 = z18 shifted (1.5thickstroke,0); -z20 = (x3,h); - -filldraw z20{left}..{down}z16{down}..{right}z18--cycle; -draw -z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"174",em#+2ss#,cap#,0); "Clubs"; - -z0 = (w/2-thinstroke,0); -z1 = z0 shifted (2thinstroke,0); -z2 = z0 shifted (0,2thickstroke); -z3 = z1 shifted (0,2thickstroke); -z4 = (w/4,thickstroke/2); -z5 = (ss,h/3); -z6 = (x4,2h/3); -z7 = (x2,y5); -z8 = (x6,3h/4); -z9 = (w/2,h); -z10 = (3w/4,y8); -z11 = (x3,y7); -z12 = (x10,y6); -z13 = (w-ss,y5); -z14 = (x10,y4); - -path leftleaf; -leftleaf = z0--z2..z4..z5..z6..z7; -path topleaf; -topleaf = z7..z8..z9..z10..z11; -path rightleaf; -rightleaf = z11..z12..z13..z14..z3--z1--z0; - -fill leftleaf & topleaf & rightleaf & cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"175",em#+2ss#,cap#,0); "Diamonds"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,h+o); -z1 = (w-ss,h/2); -z2 = (w/2,0-o); -z3 = (ss,h/2); -draw z0--z1--z2--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"176",em#+2ss#,cap#,0); "Hearts"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,3h/4); -z1 = (w/4,h+o); -z2 = (3w/4,h+o); -z3 = (ss,3h/4); -z4 = (w-ss,3h/4); -z5 = (w/2,0); - -draw z5---z4..z2..z0; -draw z5---z3..z1..z0; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"177",em#+2ss#,cap#,0); "Spades"; - -z0 = (w/2-thinstroke,0); -z1 = z0 shifted (2thinstroke,0); -z2 = z0 shifted (0,2thickstroke); -z3 = z1 shifted (0,2thickstroke); -z4 = (w/4,thickstroke/2); -z5 = (ss,h/3); -z6 = (w/4,2h/3); -z7 = (w/2,h+o); -z8 = (3w/4,2h/3); -z9 = (w-ss,h/3); -z10 = (3w/4,thickstroke/2); - -fill z0--z2..z4..z5..z6..{dir 70}z7{dir -70}..z8..z9..z10..z3--z1--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathomx.mf b/Master/texmf-dist/fonts/source/public/drm/mathomx.mf deleted file mode 100644 index efd130ddd5b..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathomx.mf +++ /dev/null @@ -1,1463 +0,0 @@ -% +AMDG This document was begun on 10 July 11EX, the feast -% of St. John Gualbert, A, and it is humbly dedicated to him -% and to the Immaculate Heart of Mary for their prayers, and -% to the Sacred Heart of Jesus for His mercy. - -picture paren; -picture squarebrack; - -beginchar(oct"000",1.5pwid#,cap#,dep#); "The open parenthesis, ("; - -z0 = (w,h+o); -z1 = (w,-d-o); -z2 = (ss,(h-d)/2); -z3 = z2 shifted (thickl,0); - -fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir - 200}..{down}z2{down}..{dir -20}z1..cycle; - -paren := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"001",1.5pwid#,cap#,dep#); "The close parenthesis, )"; - -currentpicture := paren rotatedaround ((w/2,(h-d)/2),180); - -endchar; - -beginchar(oct"002",2pwid#,cap#+ss#,dep#); "The open square bracket, ["; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thickl); -z2 = (ss,h); -z3 = z2 shifted (thickl,-thickl); -z4 = (ss,-d); -z5 = z4 shifted (thickl,thickl); -z6 = (w-ss,-d); -z7 = z6 shifted (0,thickl); -z8 = 0.5[z0,z1] shifted (0,0); -z9 = 0.5[z7,z6] shifted (0,0); - -path squarebrack; -squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; -fill squarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"003",2pwid#,cap#+ss#,dep#); "The close square bracket, ]"; -fill squarebrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"004",2pwid#,cap#,dep#); "left floor"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"005",2pwid#,cap#,dep#); "right floor"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"006",2pwid#,cap#,dep#); "left ceil"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -top rt z2 = (w-ss,h+o); -draw z1--z0--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"007",2pwid#,cap#,dep#); "right ceil"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -top lft z2 = (ss,h+o); -draw z2--z0--z1; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"010",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; - -brackwid = thickl; -toth = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-d); -lft z2 = (ss,h-toth/2); -z3 = (3(x0-x2)/4,h-toth/4); -z4 = (3(x0-x2)/4,h-3toth/4); - -path curlybrack; -curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; -draw curlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"011",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw curlybrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"012",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h+d)/2-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"013",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -rt z1 = (w-ss,(h+d)/2-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"014",0.9pwid#,ex#,0); "pipe extender"; - -pickup pencircle scaled thickl; -z0 = (w/2,h); -z1 = (w/2,0); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"015",0.9pwid#,ex#,0); "pipe extender"; - -pickup pencircle scaled thickl; -z0 = (w/2-thickstroke,h); -z1 = (w/2-thickstroke,0); -z2 = (w/2+thickstroke,h); -z3 = (w/2+thickstroke,0); -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"016",2pwid#,cap#,0); "slash, solidus"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"017",2pwid#,cap#,0); "backslash"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot rt z1 = (w-ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"020",2.5pwid#,2cap#,2dep#); "Bigger open parenthesis, ("; - -z0 = (w,h+o); -z1 = (w,-d-o); -z2 = (ss,(h-d)/2); -z3 = z2 shifted (thickl,0); - -fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir - 200}..{down}z2{down}..{dir -20}z1..cycle; - -picture biggerparen; -biggerparen := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"021",2.5pwid#,2cap#,2dep#); "Bigger close parenthesis, )"; - -currentpicture := biggerparen rotatedaround ((w/2,(h-d)/2),180); - -endchar; - -beginchar(oct"022",3pwid#,3cap#,3dep#); "Bigger open parenthesis, ("; - -z0 = (w,h+o); -z1 = (w,-d-o); -z2 = (ss,(h-d)/2); -z3 = z2 shifted (thickl,0); - -fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir - 200}..{down}z2{down}..{dir -20}z1..cycle; - -picture biggererparen; -biggererparen := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"023",3pwid#,3cap#,3dep#); "Bigger close parenthesis, )"; - -currentpicture := biggererparen rotatedaround ((w/2,(h-d)/2),180); - -endchar; - -beginchar(oct"040",4pwid#,4cap#,4dep#); "Bigger open parenthesis, ("; - -z0 = (w,h+o); -z1 = (w,-d-o); -z2 = (ss,(h-d)/2); -z3 = z2 shifted (thickl,0); - -fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir - 200}..{down}z2{down}..{dir -20}z1..cycle; - -picture biggestparen; -biggestparen := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"041",4pwid#,4cap#,4dep#); "Bigger close parenthesis, )"; - -currentpicture := biggestparen rotatedaround ((w/2,(h-d)/2),180); - -endchar; - -beginchar(oct"024",3pwid#,3cap#+ss#,3dep#); "The open square bracket, ["; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thickl); -z2 = (ss,h); -z3 = z2 shifted (thickl,-thickl); -z4 = (ss,-d); -z5 = z4 shifted (thickl,thickl); -z6 = (w-ss,-d); -z7 = z6 shifted (0,thickl); -z8 = 0.5[z0,z1] shifted (0,0); -z9 = 0.5[z7,z6] shifted (0,0); - -path biggersquarebrack; -biggersquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; -fill biggersquarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"025",3pwid#,3cap#+ss#,3dep#); "The close square bracket, ]"; -fill biggersquarebrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"042",4pwid#,4cap#+ss#,4dep#); "The open square bracket, ["; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thickl); -z2 = (ss,h); -z3 = z2 shifted (thickl,-thickl); -z4 = (ss,-d); -z5 = z4 shifted (thickl,thickl); -z6 = (w-ss,-d); -z7 = z6 shifted (0,thickl); -z8 = 0.5[z0,z1] shifted (0,0); -z9 = 0.5[z7,z6] shifted (0,0); - -path biggestsquarebrack; -biggestsquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; -fill biggestsquarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"043",4pwid#,4cap#+ss#,4dep#); "The close square bracket, ]"; -fill biggestsquarebrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"026",3pwid#,3cap#,3dep#); "left floor"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"027",3pwid#,3cap#,3dep#); "right floor"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"044",4pwid#,4cap#,4dep#); "left floor"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"045",4pwid#,4cap#,4dep#); "right floor"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"030",3pwid#,3cap#,3dep#); "left ceil"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -top rt z2 = (w-ss,h+o); -draw z1--z0--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"031",3pwid#,3cap#,3dep#); "right ceil"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -top lft z2 = (ss,h+o); -draw z2--z0--z1; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"046",4pwid#,4cap#,4dep#); "left ceil"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -top rt z2 = (w-ss,h+o); -draw z1--z0--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"047",4pwid#,4cap#,4dep#); "right ceil"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -top lft z2 = (ss,h+o); -draw z2--z0--z1; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"032",3pwid#,3cap#+ss#,3dep#); "The open curly bracket, {"; - -biggertoth = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-d); -lft z2 = (ss,h-biggertoth/2); -z3 = (3(x0-x2)/4,h-biggertoth/4); -z4 = (3(x0-x2)/4,h-3biggertoth/4); - -path biggercurlybrack; -biggercurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; -draw biggercurlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"033",3pwid#,3cap#+ss#,3dep#); "The close curly bracket, }"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw biggercurlybrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"050",4pwid#,4cap#+ss#,4dep#); "The open curly bracket, {"; - -biggesttoth = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-d); -lft z2 = (ss,h-biggesttoth/2); -z3 = (3(x0-x2)/4,h-biggesttoth/4); -z4 = (3(x0-x2)/4,h-3biggesttoth/4); - -path biggestcurlybrack; -biggestcurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; -draw biggestcurlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"051",4pwid#,4cap#+ss#,4dep#); "The close curly bracket, }"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw biggestcurlybrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"150",2.5pwid#,2cap#+ss#,2dep#); "The open square bracket, ["; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thickl); -z2 = (ss,h); -z3 = z2 shifted (thickl,-thickl); -z4 = (ss,-d); -z5 = z4 shifted (thickl,thickl); -z6 = (w-ss,-d); -z7 = z6 shifted (0,thickl); -z8 = 0.5[z0,z1] shifted (0,0); -z9 = 0.5[z7,z6] shifted (0,0); - -path squarebrack; -squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; -fill squarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"151",2.5pwid#,2cap#+ss#,2dep#); "The close square bracket, ]"; -fill squarebrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"152",2.5pwid#,2cap#,2dep#); "left floor"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"153",2.5pwid#,2cap#,2dep#); "right floor"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"154",2.5pwid#,2cap#,2dep#); "left ceil"; - -pickup pencircle scaled thickl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,-d); -top rt z2 = (w-ss,h+o); -draw z1--z0--z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"155",2.5pwid#,2cap#,2dep#); "right ceil"; - -pickup pencircle scaled thickl; -top rt z0 = (w-ss,h+o); -bot rt z1 = (w-ss,-d); -top lft z2 = (ss,h+o); -draw z2--z0--z1; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"156",2.5pwid#,2cap#+ss#,2dep#); "The open curly bracket, {"; - -brackwid := 2thinl; -tothtwo = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-d); -lft z2 = (ss,h-tothtwo/2); -z3 = (3(x0-x2)/4,h-tothtwo/4); -z4 = (3(x0-x2)/4,h-3tothtwo/4); - -path curlybrack; -curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; -draw curlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"157",2.5pwid#,2cap#+ss#,2dep#); "The close curly bracket, }"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw curlybrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"104",2.5pwid#,2cap#+ss#,3dep#); "Open angle bracket"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h+d)/2-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"034",3pwid#,3cap#+ss#,3dep#); "Open angle bracket"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h+d)/2-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"105",2.5pwid#,2cap#+ss#,3dep#); "Close angle bracket"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -rt z1 = (w-ss,(h+d)/2-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"035",3pwid#,3cap#+ss#,3dep#); "Close angle bracket"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -rt z1 = (w-ss,(h+d)/2-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"036",3pwid#,3cap#,0); "slash, solidus"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"037",3pwid#,3cap#,0); "backslash"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot rt z1 = (w-ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"052",4pwid#,4cap#+ss#,4dep#); "Open angle bracket"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h+d)/2-d); -bot rt z2 = (w-ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"053",4pwid#,4cap#+ss#,4dep#); "Close angle bracket"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -rt z1 = (w-ss,(h+d)/2-d); -bot lft z2 = (ss,-d); -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"054",4pwid#,4cap#,0); "slash, solidus"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"055",4pwid#,4cap#,0); "backslash"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot rt z1 = (w-ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"056",2.5pwid#,2cap#,0); "slash, solidus"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"057",2.5pwid#,2cap#,0); "backslash"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot rt z1 = (w-ss,0-o); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -beginchar(oct"060",3pwid#,3cap#,3dep#); "The open paren top exten"; - -z0 = (w,h+o); -z1 = (w,-d-o); -z2 = (ss,-d); -z3 = z2 shifted (thickl,0); - -fill z3{up}...{dir 30}z0{dir 200}...{down}z2--cycle; - -picture openparentop; -openparentop := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"061",3pwid#,3cap#,3dep#); "The close paren top exten"; - -currentpicture := openparentop reflectedabout - ((w/2,h),(w/2,(h-d)/2)); - -endchar; - -beginchar(oct"062",3pwid#,3cap#+ss#,3dep#); -"The top open square bracket exten"; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thickl); -z2 = (ss,h); -z3 = z2 shifted (thickl,-thickl); -z4 = (ss,-d); -z5 = z4 shifted (thickl,0); - -path topsquarebrack; -topsquarebrack = z0--z2--z4--z5--z3--z1--cycle; -fill topsquarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"063",3pwid#,3cap#+ss#,3dep#); -"The top close square bracket exten"; -fill topsquarebrack reflectedabout ((w/2,h),(w/2,-d)); -endchar; - -beginchar(oct"064",3pwid#,3cap#+ss#,3dep#); -"The bottom open square bracket exten"; -fill topsquarebrack reflectedabout ((0,(h-d)/2),(w,(h-d)/2)); -endchar; - -beginchar(oct"065",3pwid#,3cap#+ss#,3dep#); -"The bottom open square bracket exten"; -fill topsquarebrack rotatedaround ((w/2,(h-d)/2),180); -endchar; - -beginchar(oct"066",3pwid#,ex#,dep#); -"left square bracket extension piece"; -z0 = (ss,h); -z1 = z0 shifted (thickl,0); -z2 = (ss,-d); -z3 = z2 shifted (thickl,0); -fill z0--z1--z3--z2--cycle; -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"067",3pwid#,ex#,dep#); -"right square bracket extension piece"; -z0 = (w-ss,h); -z1 = z0 shifted (-thickl,0); -z2 = (w-ss,-d); -z3 = z2 shifted (-thickl,0); -fill z0--z1--z3--z2--cycle; -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"102",3pwid#,ex#,dep#); "Left paren exten"; - -z0 = (ss,h); -z1 = (ss,-d); -z2 = z1 shifted (thickl,0); -z3 = z0 shifted (thickl,0); -fill z0--z1--z2--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"103",3pwid#,ex#,dep#); "Right paren exten"; - -z0 = (w-ss,h); -z1 = (w-ss,-d); -z2 = z1 shifted (-thickl,0); -z3 = z0 shifted (-thickl,0); -fill z0--z1--z2--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"100",3pwid#,3cap#,3dep#); "The open paren bot exten"; -currentpicture := openparentop reflectedabout - ((0,(h-d)/2),(w,(h-d)/2)); -endchar; - -beginchar(oct"101",3pwid#,3cap#,3dep#); "The close paren bot exten"; -currentpicture := openparentop reflectedabout - ((0,(h-d)/2),(w,(h-d)/2)) reflectedabout - ((w/2,h),(w/2,(h-d)/2)); -endchar; - -beginchar(oct"070",3pwid#,cap#,0); "The open curly top exten"; - -brackwid := thickl; -toth := h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -z1 = (w/2,0); -draw z0{left}..{down}z1; - -picture curlyopentop; curlyopentop := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"071",3pwid#,cap#,0); "The close curly top exten"; -currentpicture := curlyopentop reflectedabout - ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"072",3pwid#,cap#,0); "The open curly bot exten"; -currentpicture := curlyopentop reflectedabout - ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"073",3pwid#,cap#,0); "The close curly bot exten"; -currentpicture := curlyopentop reflectedabout - ((0,h/2),(w,h/2)) reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"076",3pwid#,ex#,0); "The open curly brack exten"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw (w/2,h)--(w/2,0); -endchar; - -beginchar(oct"074",3pwid#,3cap#,0); "The open middle curly brack"; -pickup pencircle xscaled brackwid yscaled (thinl); -z0 = (w/2,h); -z1 = (2w/3,0.6h); -z2 = (ss,h/2); -z3 = (2w/3,0.4h); -z4 = (w/2,0); -draw z0{down}..{dir -165}z2; -draw z4{up}..{dir -195}z2; -picture midcurly; midcurly := currentpicture; -endchar; - -beginchar(oct"075",3pwid#,3cap#,0); "The close middle curly brack"; -currentpicture := midcurly reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"077",ex#,ex#,0); "Vertical arrow extension"; -pickup pencircle scaled 1.5thinl; -draw (w/2,h)--(w/2,0); -endchar; - -beginchar(oct"170",ex#,cap#,0); "Upward arrow head"; -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot z1 = (w/2,0); -lft z2 = (0,2h/3); -rt z3 = (w,2h/3); -draw z0--z1; -draw z2--z0--z3; -picture uparrow; uparrow := currentpicture; -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"171",ex#,cap#,0); "Downward arrow head"; -currentpicture := uparrow reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"176",em#,cap#,0); "Double up arrow with head"; -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -lft z1 = (0,2h/3); -rt z2 = (w,2h/3); -path head; head = z1--z0--z2; draw head; -z3 = (w/3,0); -z4 = (2w/3,0); -z5 = (z3--(x3,h)) intersectionpoint head; -z6 = (z4--(x4,h)) intersectionpoint head; -draw z3--z5; draw z4--z6; -picture doublehead; doublehead := currentpicture; -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"177",em#,cap#,0); "Double down arrow with head"; -currentpicture := doublehead reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"167",em#,cap#,0); "Double arrow exten"; -pickup pencircle scaled 1.5thinl; -draw (w/3,0)--(w/3,h); -draw (2w/3,0)--(2w/3,h); -endchar; - -beginchar(oct"106",1.5ex#,cap#,0); "small upward square cup"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,0-o); -bot rt z3 = (w-ss,0-o); -path upsquarecup; upsquarecup = z0--z2--z3--z1; -draw upsquarecup; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"107",3ex#,2cap#,ex#); "large upward square cup"; - -pickup pencircle scaled thickl; -draw upsquarecup scaled 2 shifted (0,-ex); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"142",ex#,cap#,0); "narrow hat"; - -z0 = (ss,h-pwid); -z1 = (w/2,h+o); -z2 = (w-ss,y0); -z3 = z1 shifted (0,-thickl); -z4 = z0 shifted (0,thinl); -z5 = z2 shifted (0,thinl); -path hat; hat = z1--z5{dir -45}..z2--z3--z0{dir -225}..z4--cycle; -fill hat; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"143",2ex#,cap#,0); "middle hat"; -fill hat xscaled 2; -endchar; - -beginchar(oct"144",3ex#,cap#,0); "wide hat"; -fill hat xscaled 3; -endchar; - -beginchar(oct"145",ex#,cap#,0); "narrow tilde"; - -z0 = (ss,h-pwid-o); -z1 = (w/3,h-ss); -z2 = (2w/3,h-pwid); -z3 = (w-ss,h); -z4 = z1 shifted (0,-1.5thinl); -z5 = z2 shifted (0,1.5thinl); - -path tildpath; -tildpath = z0..{right}z1{right}..{right}z5{right}.. - {dir 60}z3{dir -95}..{left}z2{left}..{left}z4{left}.. - z0..cycle; -fill tildpath; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"146",2ex#,cap#,0); "middle tilde"; -fill tildpath xscaled 2; -endchar; - -beginchar(oct"147",3ex#,cap#,0); "wide tilde"; -fill tildpath xscaled 3; -endchar; - -beginchar(oct"122",ex#+2ss#,asch#,dep#); "Integral; moustache"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0 = (w/2,h-curlh); -penpos1(thickl,0); -z1 = (w/2,-d+curlh); -penpos2(thinl,-90); -z2 = (3w/4,h+o); -penpos3(thinl,-90); -z3 = (x1-curlw,-d-o); -penpos4(thickl,180); -z4 = (x2+curlw,y0); -penpos5(thickl,-180); -z5 = (x3-curlw,y1); -penpos6(thinl,70); -z6r = (w/2,ex); -penpos7(thinl,70); -z7 = (ss,y6); -penpos8(thinl,70); -z8 = (w-ss,y6); -penpos9(thinl,0); -z9r = z4r; -penpos10(thinl,225); -z10r = z9r; -penpos11(thinl,0); -z11l = z5l; -penpos12(thinl,225); -z12l = z11l; - -penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- - z0e..{right}z2e{right}..z4e..z9e..z10e) - slanted (1/6); - -picture smallint; smallint := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"132",2ex#+2ss#,2asch#,2dep#); "Large integral; moustache"; -italcorr(ex#*slant); - -penpos0(thickl,0); -z0 = (w/2,h-curlh); -penpos1(thickl,0); -z1 = (w/2,-d+curlh); -penpos2(thinl,-90); -z2 = (3w/4,h+o); -penpos3(thinl,-90); -z3 = (x1-curlw,-d-o); -penpos4(thickl,180); -z4 = (x2+curlw,y0); -penpos5(thickl,-180); -z5 = (x3-curlw,y1); -penpos6(thinl,70); -z6r = (w/2,ex); -penpos7(thinl,70); -z7 = (ss,y6); -penpos8(thinl,70); -z8 = (w-ss,y6); -penpos9(thinl,0); -z9r = z4r; -penpos10(thinl,225); -z10r = z9r; -penpos11(thinl,0); -z11l = z5l; -penpos12(thinl,225); -z12l = z11l; - -penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- - z0e..{right}z2e{right}..z4e..z9e..z10e) - slanted (1/6); - -picture largeint; largeint := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"110",ex#+2ss#,asch#,dep#); -"Integral, circled; moustache, circled"; -italcorr(ex#*slant); - -currentpicture := smallint; -pickup pencircle scaled 1.5thinl; -draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) - slanted (1/6); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"111",2ex#+2ss#,2asch#,2dep#); -"Large Integral, circled; Large moustache, circled"; -italcorr(ex#*slant); - -currentpicture := largeint; -pickup pencircle scaled 1.5thinl; -draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) - slanted (1/6); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"160",3em#/4+2ss#,thickstroke#,cap#); "square root"; - -z0 = (ss,cap/3); -z1 = (w/8,cap/3+thickl); -z2 = (w/3,0-o); -z3 = (w-ss,cap+thickl); -z4 = z0 shifted (0,-thinl/2); -z5 = z1 shifted (0,-1.5thickl); -z6 = z2 shifted (0,1.5thickl); -z7 = z3 shifted (0,-thickl); -z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted - (thinl/2,-thinl/2); -z9 = z3 shifted (thickl,0); -z10 = z7 shifted (thickl,0); - -fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) - shifted (0,-cap); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"161",3em#/4+2ss#,thickstroke#,2cap#); "second square root"; - -z0 = (ss,2cap/3); -z1 = (w/8,2cap/3+2thickl); -z2 = (w/3,0-o); -z3 = (w-ss-thinl,2cap+thickl); -z4 = z0 shifted (0,-thinl); -z5 = z1 shifted (0,-3thickl); -z6 = z2 shifted (0,3thickl); -z7 = z3 shifted (thinl,-thickl); -z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted - (thinl/4,-thinl); -z9 = z3 shifted (2thickl,0); -z10 = z7 shifted (2thickl,0); - -fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) - shifted (0,-2cap); -endchar; - -beginchar(oct"162",em#+2ss#,thickstroke#,3cap#); "third square root"; -z0 = (ss,3cap/3); -z1 = (w/8,3cap/3+3thickl); -z2 = (w/3,0-o); -z3 = (w-ss-2thinl,3cap+thickl); -z4 = z0 shifted (0,-thinl); -z5 = z1 shifted (0,-3thickl); -z6 = z2 shifted (0,5thickl); -z7 = z3 shifted (2thinl,-thickl); -z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted - (thinl/2,-thinl); -z9 = z3 shifted (2thickl,0); -z10 = z7 shifted (2thickl,0); - -fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) - shifted (0,-3cap); -endchar; - -beginchar(oct"163",em#+2ss#,thickstroke#,4cap#); "fourth square root"; -z0 = (ss,4cap/3); -z1 = (w/8,4cap/3+4thickl); -z2 = (w/3,0-o); -z3 = (w-ss-2thinl,4cap+thickl); -z4 = z0 shifted (0,-thinl); -z5 = z1 shifted (0,-4thickl); -z6 = z2 shifted (0,7thickl); -z7 = z3 shifted (2thinl,-thickl); -z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted - (thinl/2,-thinl); -z9 = z3 shifted (2thickl,0); -z10 = z7 shifted (2thickl,0); - -fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) - shifted (0,-4cap); -endchar; - -beginchar(oct"164",3em#/4+2ss#,2cap#,0); "radical bot exten"; - -z0 = (ss,3h/4-2thickl); -z1 = (w/8,3h/4+thickl); -z2 = (w-ss,0-o); -z3 = (w-ss,h+o); -z4 = z0 shifted (0,-thinl/2); -z5 = z1 shifted (0,-2thickl); -z6 = z2 shifted (0,2thickl); -z7 = z3 shifted (-thickl,0); -z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted - (thinl/2,-thinl/2); -z9 = 0.19[z6,z1]; -z10 = z4 rotatedaround (z0,45); - -fill z0--z10--z5--z2--z3--z7--z9--z1--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"165",3em#/4+2ss#,ex#,0); "radical exten"; - -z0 = (w-ss,h); -z1 = z0 shifted (-thickl,0); -z2 = (w-ss,0); -z3 = z2 shifted (-thickl,0); - -fill z0--z1--z3--z2--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"166",3em#/4+2ss#,thickstroke#,ex#); "radical top exten"; - -z0 = (w-ss,h); -z1 = z0 shifted (-thickstroke,0); -z2 = (w-ss,-d); -z3 = z2 shifted (-thickstroke,0); -z4 = z0 shifted (0,-thickstroke); -z5 = z4 shifted (thickl,0); -z6 = z0 shifted (thickl,0); - -fill (z3--z1--z6--z5--z4--z2--cycle); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"112",em#+2ss#,asch#,0); "circle dot"; -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); -fill fullcircle scaled (1.5thickl) shifted (w/2,h/2); -endchar; - -beginchar(oct"113",2em#+2ss#,2asch#,0); "large circle dot"; -pickup pencircle scaled thickl; -draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); -fill fullcircle scaled (2thickl) shifted (w/2,h/2); -endchar; - -beginchar(oct"114",em#+2ss#,asch#,0); "circle plus"; -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); -lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); -top z2 = (w/2,h); bot z3 = (w/2,0); -draw z0--z1; draw z2--z3; -endchar; - -beginchar(oct"115",2em#+2ss#,2asch#,0); "large circle plus"; -pickup pencircle scaled thickl; -draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); -lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); -top z2 = (w/2,h); bot z3 = (w/2,0); -draw z0--z1; draw z2--z3; -endchar; - -beginchar(oct"116",em#+2ss#,asch#,0); "circle x"; -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); -lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); -top z2 = (w/2,h); bot z3 = (w/2,0); -draw (z0--z1) rotatedaround ((w/2,h/2),45); -draw (z2--z3) rotatedaround ((w/2,h/2),45); -endchar; - -beginchar(oct"117",2em#+2ss#,2asch#,0); "large circle x"; -pickup pencircle scaled thickl; -draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); -lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); -top z2 = (w/2,h); bot z3 = (w/2,0); -draw (z0--z1) rotatedaround ((w/2,h/2),45); -draw (z2--z3) rotatedaround ((w/2,h/2),45); -endchar; - -beginchar(oct"120",5em#/6+2ss#,cap#,0); "The letter Sigma"; -italcorr(ex#*slant); - -z0 = (w-ss,h); -z1 = (w-ss,h-thickstroke-thinstroke); -z2 = z1 shifted (-thinstroke,0); -z3 = z2 shifted (0,thinstroke); -z4 = (ss,h); -z5 = (ss,h-thickstroke); -z6 = (w/2-1.5thinstroke/2,h/2); -z7 = z6 shifted (1.5thinstroke,0); -z8 = (ss,0); -z9 = z8 shifted (0,thickstroke); -z10 = (w-ss,0); -z11 = z10 shifted (0,thickstroke+thinstroke); -z12 = z11 shifted (-thinstroke,0); -z13 = z12 shifted (0,-thinstroke); -z14 = z5 shifted (1.5thinstroke,0); -z15 = z9 shifted (1.5thinstroke,0); - -fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- - z7--z15--z13--z12--cycle; - -picture Sigma; Sigma := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"130",10em#/6+2ss#,2cap#,0); "Large Sigma"; -italcorr(ex#*slant); -currentpicture := Sigma scaled 2 shifted (-ss,0); -endchar; - -beginchar(oct"121",6em#/6+2ss#,cap#,0); "The letter Pi"; -italcorr(ex#*slant); - -z0 = (ss+lserw,lserh); -z1 = z0 shifted (thickstroke,0); -z2 = (w-ss-lserw,lserh); -z3 = z2 shifted (-thickstroke,0); -llserif(0,4,5,6,7)(1); -lrserif(1,8,9,10,11)(1); -llserif(3,12,13,14,15)(1); -lrserif(2,16,17,18,19)(1); -z20 = (x0,h-lserh); -z21 = (x1,h-thinstroke); -z22 = (x3,h-thinstroke); -z23 = (x2,h-lserh); -ulserif(20,24,25,26,27)(1); -urserif(23,28,29,30,31)(1); -y26 := y30 := h; -y6 := y10 := y14 := y18 := 0; - -fill -z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; - -picture pipic; pipic := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); -endchar; - -beginchar(oct"131",2em#+2ss#,2cap#,0); "Large Pi"; -italcorr(ex#*slant); -currentpicture := pipic scaled 2 shifted (-ss,0); -endchar; - -beginchar(oct"140",em#+2ss#,cap#,0); "Inverse Pi"; -italcorr(ex#*slant); -currentpicture := pipic shifted (-ss,0) - reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"141",2em#+2ss#,2cap#,0); "Large Inverse Pi"; -italcorr(ex#*slant); -currentpicture := pipic scaled 2 shifted (-ss,0) - reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"123",0.75em#+2ss#,cap#,0); "union"; -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -bot z1 = (w/2,0); -top rt z2 = (w-ss,h); -lft z5 = (ss,w/3); -rt z6 = (w-ss,y5); - -draw z0---z5..{right}z1{right}..z6---z2; -picture union; union := currentpicture; -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"133",1.25em#+2ss#,2cap#,0); "big union"; -pickup pencircle scaled thickl; -top lft z0 = (ss,h); -bot z1 = (w/2,0); -top rt z2 = (w-ss,h); -lft z5 = (ss,w/3); -rt z6 = (w-ss,y5); -draw z0---z5..{right}z1{right}..z6---z2; -picture bigunion; bigunion := currentpicture; -endchar; - -beginchar(oct"124",0.75em#+2ss#,cap#,0); "intersection"; -currentpicture := union reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"134",1.25em#+2ss#,2cap#,0); "big intersection"; -currentpicture := bigunion reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"125",0.75em#+2ss#,cap#,0); "intersection"; -currentpicture := union; -pickup pencircle scaled 1.5thinl; -z0 = (w/4,h/2); -z1 = (3w/4,h/2); -z2 = z0 rotatedaround ((w/2,h/2),90); -z3 = z0 rotatedaround ((w/2,h/2),-90); -draw z0--z1; draw z2--z3; -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"135",1.25em#+2ss#,2cap#,0); "big intersection"; -currentpicture := bigunion; -pickup pencircle scaled thickl; -z0 = (w/4,h/2); -z1 = (3w/4,h/2); -z2 = z0 rotatedaround ((w/2,h/2),90); -z3 = z0 rotatedaround ((w/2,h/2),-90); -draw z0--z1; draw z2--z3; -endchar; - -beginchar(oct"126",0.75em#+2ss#,cap#,0); "upward triangle"; -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot lft z1 = (ss,0); -bot rt z2 = (w-ss,0); -draw z0--z1; draw z0--z2; -picture uptri; uptri := currentpicture; -endchar; - -beginchar(oct"136",1.25em#+2ss#,2cap#,0); "big upward triangle"; -pickup pencircle scaled thickl; -top z0 = (w/2,h); -bot lft z1 = (ss,0); -bot rt z2 = (w-ss,0); -draw z0--z1; draw z0--z2; -picture biguptri; biguptri := currentpicture; -endchar; - -beginchar(oct"127",0.75em#+2ss#,cap#,0); "upward triangle"; -currentpicture := uptri reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"137",1.25em#+2ss#,2cap#,0); "big upward triangle"; -currentpicture := biguptri reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"172",cap#,3pwid#,0); "downbrace left"; -currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) - rotatedaround ((w/2,h/2),-90) shifted (pwid/2,0); -endchar; - -beginchar(oct"173",cap#,3pwid#,0); "downbrace right"; -currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) - rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) - reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"174",cap#,3pwid#,0); "upbrace left"; -currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) - rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) - reflectedabout ((w/2,0),(w/2,h)); -endchar; - -beginchar(oct"175",cap#,3pwid#,0); "upbrace right"; -currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) - rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0); -endchar; - -% open parens -charlist oct"000" : oct"020" : oct"022" : oct"040" : oct"060"; -extensible oct"060": oct"060",0,oct"100",oct"102"; -% close parens -charlist oct"001" : oct"021" : oct"023" : oct"041" : oct"061"; -extensible oct"061": oct"061",0,oct"101",oct"103"; -% open square brackets -charlist oct"002" : oct"150" : oct"024" : oct"042" : oct"062"; -extensible oct"062" : oct"062",0,oct"064",oct"066"; -% close square brackets -charlist oct"003" : oct"151" : oct"025" : oct"043" : oct"063"; -extensible oct"063" : oct"063",0,oct"065",oct"067"; -% open floor -charlist oct"004" : oct"152" : oct"026" : oct"044" : oct"064"; -extensible oct"064" : 0,0,oct"064",oct"066"; -% close floor -charlist oct"005" : oct"153" : oct"027" : oct"045" : oct"065"; -extensible oct"065" : 0,0,oct"065",oct"067"; -% open ceiling -charlist oct"006": oct"154": oct"030": oct"046": oct"066"; -extensible oct"066": oct"062",0,0,oct"066"; -% close ceiling -charlist oct"007": oct"155": oct"031": oct"047": oct"067"; -extensible oct"067": oct"063",0,0,oct"067"; -% open curly -charlist oct"010": oct"156": oct"032": oct"050": oct"070"; -extensible oct"070": oct"070",oct"074",oct"072",oct"076"; -% close curly -charlist oct"011": oct"157": oct"033": oct"051": oct"071"; -extensible oct"071": oct"071",oct"075",oct"073",oct"076"; -% left angle brackets -charlist oct"012": oct"104": oct"034": oct"052"; -% right angle brackets -charlist oct"013": oct"105": oct"035": oct"053"; -charlist oct"016": oct"056": oct"036": oct"054"; % slashes -charlist oct"017": oct"057": oct"037": oct"055"; % backslashes -% single arrow extensions -extensible oct"074": 0,0,0,oct"077"; % arrow extension modules only -extensible oct"077": oct"170",0,oct"171",oct"077"; % updownarrow -extensible oct"170": oct"170",0,0,oct"077"; % uparrow -extensible oct"171": 0,0,oct"171",oct"077"; % downarrow -% double arrow extensions -extensible oct"075": 0,0,0,oct"167"; % double arrow extension modules only -extensible oct"167": oct"176",0,oct"177",oct"167"; % double updownarrow -extensible oct"176": oct"176",0,0,oct"167"; % double uparrow -extensible oct"177": 0,0,oct"177",oct"167"; % double downarrow -% radical extensions -charlist oct"160": oct"161": oct"162": oct"163": oct"164"; % radical signs -extensible oct"164": oct"166",0,oct"164",oct"165"; % radical sign -% vertical line -extensible oct"014": 0,0,0,oct"014"; -% double vertical line -extensible oct"015": 0,0,0,oct"015"; -% sharp parentheses -extensible oct"072": oct"070",0,oct"072",oct"076"; -extensible oct"073": oct"071",0,oct"073",oct"076"; -% parentheses extension modules only -extensible oct"102": 0,0,0,oct"102"; -extensible oct"103": 0,0,0,oct"103"; -% brace exension modules only -extensible oct"076": 0,0,0,oct"076"; -% large inegral signs ("moustaches") -extensible oct"100": oct"070",0,oct"073",oct"076"; -extensible oct"101": oct"071",0,oct"072",oct"076"; -% summation signs -charlist oct"120" : oct"130"; -% product signs -charlist oct"121" : oct"131"; -% integral signs; moustaches -charlist oct"122" : oct"132"; -% cups -charlist oct"123" : oct"133"; -% caps -charlist oct"124" : oct"134"; -% capplus -charlist oct"125" : oct"135"; -% wedges -charlist oct"126" : oct"136"; -% vees -charlist oct"127" : oct"137"; -% coprods -charlist oct"140" : oct"141"; -% circle times -charlist oct"116" : oct"117"; -% circle plus -charlist oct"114" : oct"115"; -% circle dot -charlist oct"112" : oct"113"; -% circle integrals -charlist oct"110" : oct"111"; -% squarecups -charlist oct"106" : oct"107"; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathsym.mf b/Master/texmf-dist/fonts/source/public/drm/mathsym.mf deleted file mode 100644 index 91155c685cf..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/mathsym.mf +++ /dev/null @@ -1,284 +0,0 @@ -% +AMDG This document was begun on 23 June 11EX, the feast -% of the Sacred Heart, and it is humbly dedicated to the -% Sacred Heart of Jesus, for His mercy. - -beginchar(oct"173",0.6ex#+2ss#,ex#,0); "dotless i"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -currentpicture := dotlessi; - -endchar; - -beginchar(oct"174",0.6ex#+2ss#,ex#,dep#); "dotless j"; -italcorr(ex#*slant); - -pickup pencircle yscaled thinl; -currentpicture := dotlessj; - -endchar; - -beginchar(oct"054",0.3ex#+2ss#,ex#,0); "open c"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,4h/5); -rt z2 = (w-ss,3h/5); -path mathc; mathc = z0{left}..z1..{right}z2; -draw mathc; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"055",0.3ex#+2ss#,ex#,0); "close c"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -draw mathc reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"056",ex#+2ss#,ex#,0); "right-pointing triangle"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; - -rt z0 = (w-ss,h/2); -top lft z1 = (ss,h); -bot lft z2 = (ss,0); -path mathtri; mathtri = z0--z1--z2--cycle; -draw mathtri; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); -endchar; - -beginchar(oct"057",ex#+2ss#,ex#,0); "left-pointing triangle"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -draw mathtri reflectedabout ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"072",pwid#,pwid#,0); "The decimal point, ."; -fill period; -endchar; - -beginchar(oct"073",pwid#,pwid#,0); "The comma, ,"; -fill commapost; -endchar; - -beginchar(oct"075",ex#/2+2ss#,cap#,0); "The forward slash, /"; - -currentpicture := slash; - -endchar; - -beginchar(oct"077",theight#+2ss#,theight#,0); "solid five-pointed star"; - -z0 = (w/2,h/2); -z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,72); -z3 = z2 rotatedaround (z0,72); -z4 = z3 rotatedaround (z0,72); -z5 = z4 rotatedaround (z0,72); -z6 = (z2--z5) intersectionpoint (z1--z4); -z7 = (z2--z5) intersectionpoint (z1--z3); -z8 = (z3--z5) intersectionpoint (z4--z1); -z9 = (z4--z2) intersectionpoint (z3--z1); -z10 = (z2--z4) intersectionpoint (z3--z5); - -path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; -fill fivestar; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"100",ex#+2ss#,cap#,0); "partial differential"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss,h-1.5curlh); -penpos1(thinl,90); -z1r = z0r; -penpos2(thinl,180); -z2r = z1r; -penpos3(thinl,-90); -z3r = z2r; -penpos4(thinl,-90); -z4l = (w/2,h+o); -penpos5(thickl,180); -z5l = (w-ss,3h/4); -penpos6(thickl,180); -z6l = (w-ss,h/4); -penpos7(thinl,90); -z7l = (w/2,0-o); -penpos8(curvl,0); -z8l = (ss,h/4); -penpos9(thinl,-90); -z9l = (w/2,ex+o); - -penstroke z3e..z2e..z1e..z0e; -penstroke z0e{up}..z4e..z5e---z6e..z7e..z8e..z9e..z6e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"133",0.6ex#+2ss#,asch#,0); "musical flat"; -italcorr(ex#*slant); - -penpos0(thinl,0); -z0l = (ss,h); -penpos1(thinl,0); -z1l = (ss,0); -penpos2(thinl,90); -z2l = z1; -penpos3(curvl,180); -z3l = (w-ss,0.4h); -penpos5(thinl,-90); -z5 = (x1,0.4h); - -penstroke z0e--z1e; -penstroke z2e{right}..z3e..z5e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"134",0.6ex#+2ss#,asch#,dep#); "musical natural"; -italcorr(ex#*slant); - -penpos0(thinl,30); -z0l = (ss,h); -penpos1(thinl,30); -z1l = (ss,-dep/2); -penpos2(thinl,30); -z2r = (w-ss,h-dep/2); -penpos3(thinl,30); -z3r = (w-ss,-dep); -penpos4(thickl,-90); -z4r = z1r; -penpos5(thickl,-90); -z5l = z2l; -z6 = (w,y4); -penpos7(thickl,-90); -z7 = z6 rotatedaround(z4,30); -z8 = (0,y5); -z9 = z8 rotatedaround(z5,30); -penpos9(thickl,-90); - -penstroke z0e--z1e; -penstroke z2e--z3e; -penstroke z4e--z7e; -penstroke z9e--z5e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"135",ex#+2ss#,asch#,dep#); "musical sharp"; -italcorr(ex#*slant); - -penpos0(thinl,30); -z0l = (w/4,h); -penpos1(thinl,30); -z1l = (w/4,-dep/2); -penpos2(thinl,30); -z2r = (3w/4,h-dep/2); -penpos3(thinl,30); -z3r = (3w/4,-dep); -penpos4(thickl,120); -x4r = (ss); y4r = 0; -penpos5(thickl,120); -x5l = w-ss; y5l = h-dep; -z6 = (ss,y5); -z7 = (w-ss,y4); -penpos8(thickl,120); -z8 = z6 rotatedaround (z5,15); -penpos9(thickl,120); -z9 = z7 rotatedaround (z4,15); -penpos10(thinl,30); -z10 = (x1,-dep); -penpos11(thinl,30); -z11 = (x2,h+o); - -penstroke z0e--z10e; -penstroke z11e--z3e; -penstroke z8e--z5e; -penstroke z4e--z9e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"136",cap#+dep#+2ss#,asch#,dep#); "curve open up"; -italcorr(ex#*slant); - -currentpicture := paren rotated (90) shifted - (w/2+dep,h/2-pwid); - -endchar; - -beginchar(oct"137",cap#+dep#+2ss#,asch#,dep#); "curve open down"; -italcorr(ex#*slant); - -currentpicture := paren rotated (-90) shifted - (w/2-dep,h/2+pwid/2); - -endchar; - -beginchar(oct"176",ex#+2ss#,cap#,0); "vector arrow"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,h-curlh); -rt z1 = (w-ss,h-curlh); -z2 = (2w/3,h+o); -z3 = (2w/3,h-2curlh); - -draw z0--z1; -filldraw z2--z1--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"177",ex#+2ss#,cap#,0); "tie"; -italcorr(ex#*slant); - -pickup pencircle scaled 1.5thinl; -top z0 = (w-ss,h-curlh); -top z1 = (w+w/2,h+o); -top z2 = (2w,h-curlh); - -draw z0..z1..z2; - -penlabels(0,1,2,3,4,5,6); -endchar; - -beginchar(oct"175",1.2ex#+2ss#,ex#,dep#); "wp"; -italcorr(ex#*slant); - -penpos0(thinl,-90); -z0 = (w/4,h); -penpos1(thickl,0); -z1l = (ss,3h/4); -penpos2(thickl,0); -z2l = (w/4,0); -penpos3(thinl,-90); -z3r = (w/8+hair,-dep); -penpos4(thinl,180); -z4r = (ss,-dep/2); -penpos5(thinl,90); -z5r = (0.6w,h+o); -penpos6(thickl,0); -z6r = (w-ss,h/2); -penpos7(thinl,-90); -z7r = (0.6w,0-o); -penpos8(thinl,0); -z8 = (x1r,h/4); -penpos9(thinl,180); -z9r = (x2r,y8); - -penstroke z0e{left}..z1e..z8e..z2e..z3e..z4e..{right}z5e.. - z6e..z7e..z9e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/oe.mf b/Master/texmf-dist/fonts/source/public/drm/oe.mf deleted file mode 100644 index 792d276a1c3..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/oe.mf +++ /dev/null @@ -1,34 +0,0 @@ -beginchar(oct"327",em#+2ss#,cap#,0); "The ligature OE"; - -z1=((w/2-(thickstroke/2)),lserh); -z2=((ss_userw+(thickstroke/2)),lserh); -z3=((w/2-(thickstroke/2)),(h-userh)); -z4=((w/2+(thickstroke/2)),(h-thinstroke)); -z5=(x4,thinstroke); -z6=(w-ss-ssslant,0); -z30=z6+(-thickstroke,thinstroke); -z8=(x6,h); -z9=(x30,h-thinstroke); -upsideserif(6,7,29); -downsideserif(8,10,11); -z15=.5[z4,z5]; -z16=z15+(0,thinstroke/2); -z17=z16-(0,thinstroke); -z21=(0.6w,y16); -z22=(0.6w,y17); -z23=z21+(1.5ssslant,lserw/2); -z24=z23+(ssslant,lserw); -z25=z22+(1.5ssslant,-lserw/2); -z27=z25+(ssslant,-lserw); -z28 = z1 shifted (0,-lserh); -z31 = z3 shifted (0,userh); -z40 = (o+lserw,lserh); -z41 = z40 shifted (thinstroke,0); -z50 = z31 shifted (0,-1.6thinstroke); - -fill -z1--z3--z31--z8--z10..z11..z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30..z29..z7--z6--z28--z1..cycle; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); -endchar; - diff --git a/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf b/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf deleted file mode 100644 index b08bb87ba12..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf +++ /dev/null @@ -1,73 +0,0 @@ -% +AMDG This document was begun on 6 Aug 11EX, the Feast of -% the Transfiguration of Our Lord Jesus Christ, and the -% commemorations of St Xystus, PM, and Felicissimus and -% Agapitus, MM, and it is humbly dedicated to them and to -% the Immaculate Heart of Mary for their prayers, and to the -% Sacred Heart of Jesus for His mercy. - -beginchar(oct"275",em#+2ss#,cap#,0); "old-style fraction 1/2"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss-pwid,h); -bot lft z1 = (ss,0); -draw z0--z1; - -fill one scaled 0.85 shifted (0,h/2); -fill two scaled 0.85 shifted (w/2-pwid/2,0); - -penlabels(0,1); -endchar; - -beginchar(oct"274",em#+2ss#,cap#,dep#); "old-style fraction 1/4"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss-pwid,h); -bot lft z1 = (ss,0); -draw z0--z1; - -fill one scaled 0.85 shifted (0,h/2); -fill fourfill scaled 0.85 shifted (w/2-pwid/2,dep/2); -unfill fourun scaled 0.85 shifted (w/2-pwid/2,dep/2); - -penlabels(0,1); -endchar; - -beginchar(oct"276",em#+2ss#,cap#,dep#); "old-style fraction 3/4"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss,h); -bot lft z1 = (ss+pwid,0); -draw z0--z1; - -fill three scaled 0.85 shifted (0,h/2+pwid/2); -fill fourfill scaled 0.85 shifted (w/2,dep/2); -unfill fourun scaled 0.85 shifted (w/2,dep/2); - -penlabels(0,1); -endchar; - -beginchar(oct"304",em#+2ss#,cap#,dep#); "old-style fraction 1/3"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss-pwid,h); -bot lft z1 = (ss,0); -draw z0--z1; - -fill one scaled 0.85 shifted (0,h/2); -fill three scaled 0.85 shifted (w/2-ss,dep/2); - -penlabels(0,1); -endchar; - -beginchar(oct"305",7em#/6+2ss#,cap#,dep#); "old-style fraction 2/3"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss-pwid,h); -bot lft z1 = (ss+pwid,0); -draw z0--z1; - -fill two scaled 0.85 shifted (0,h/2); -fill three scaled 0.85 shifted (w/2,0); - -penlabels(0,1); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf b/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf deleted file mode 100644 index fd6cbc1e3e7..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf +++ /dev/null @@ -1,261 +0,0 @@ -% +AMDG This document was begun on 1E May 11EX, and it is -% humbly dedicated to the Immaculate Heart of Mary for her -% prayers, and to the Sacred Heart of Jesus for His mercy. - -beginchar("0",0.9exw#+2ss#,ex#,0); "old-style digit 0"; - -z0 = (w/2,h+o); -z1 = z0 shifted (0,-thinl); -z2 = (w/2,0-o); -z3 = z2 shifted (0,thinl); -z4 = (ss,h/2); -z5 = z4 shifted (thickl,0); -z6 = (w-ss,h/2); -z7 = z6 shifted (-thickl,0); - -fill z0..z4..z2..z6..cycle; -unfill z1..z5..z3..z7..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("1",2ss#+2lserw#+thickstroke#,ex#,0); "old-style digit 1"; - -z0 = (ss+lserw,lserhl); -z1 = z0 shifted (thickl,0); -z2 = (ss+userw,h-userhl); -z3 = z2 shifted (thickl,0); -llserif(0,4,5,6,7)(1); -lrserif(1,8,9,10,11)(1); -ulserif(2,12,13,14,15)(1); -urserif(3,16,17,18,19)(1); - -path one; one = -z2--z0..z4..z5--z6--z10--z9..z8..z1--z3..z16..z17--z18--z14--z13..z12..cycle; -fill one; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("2",0.8exw#+2ss#,ex#,0); "old-style digit 2"; - -z0 = (w/2,h+o); -z1 = z0 shifted (0,-thinl); -z2 = (ss+o,2h/3); -z3 = z2 shifted (bulbsh,bulbsh); -z4 = z3 shifted (bulbsh,-bulbsh); -z5 = z4 shifted (-bulbsh,-bulbsh); -z6 = (w-ss-o,2h/3); -z7 = z6 shifted (-thickl,0); -z8 = (ss,1.5thinl); -z9 = (x8,0); -z10 = (w-ss,0); -z11 = (w-ss,1.5thinl+thinl); -z12 = z11 shifted (-thinl/2,0); -z13 = z12 shifted (0,-thinl); -z14 = z8 shifted (thickl,0); - -path two; two = -z14--z13--z12--z11--z10--z9--z8{dir -30}..{up}z7..{left}z1{left}..{dir -230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir --160}cycle; -fill two; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("3",0.9exw#+2ss#,ex#,dep#); "old-style digit 3"; - -threeh = (ex+dep); -z0 = (w/2,h+o); -z1 = (w/2,0-dep); -z2 = (ss,.75threeh-dep); -z3 = (ss,.25threeh-dep); -z4 = z0 shifted (0,-thinstroke); -z5 = z1 shifted (0,thinstroke); -z6 = z8 shifted (-curvwid,0); -z7 = z9 shifted (-curvwid,0); -z8 = (w-ss,3threeh/4-dep); -z9 = (w-ss,threeh/4-dep); -z10 = (w/2-2thinstroke,threeh/2+thinstroke-dep); -z11 = z10 shifted (0,-thinstroke); -z20 = z10 shifted (2thickstroke,-thinstroke/2); -z21 = z9 shifted (-o/4,0); -z22 = z10 shifted (2thickl,0); -z23 = z11 shifted (2thickl,0); - -ulftbulb(2,12,13,14,15); -ulftbulb(3,16,17,18,19); - -path three; three = -z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir --60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir --120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; - -fill three; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar("4",digwid#+2ss#,ex#,dep#); "old-style digit 4"; - -z0 = (w-ss-lserwl,h+o); -z1 = (x0,2threeh/5-dep); -y2 = y1; x2 = ss; -z3 = z0 shifted (0,-thinstroke); -z4 = z2 shifted (thinstroke,0); -z6 = z1 shifted (-thickstroke,0); -z7 = z0 shifted (-thickstroke,0); -z5 = bca[z3,z4]; -z5 = bcb[z6,z7]; -z8 = z2 shifted (0,-thinstroke); -z9 = z4 shifted (0,-thinstroke); -z10 = z6 shifted (0,-thinstroke); -z11 = z1 shifted (0,-thinstroke); -z12 = z1 shifted (lserwl,0); -z13 = z11 shifted (lserwl,0); -x14 = x10; y14 = -dep+lserhl; -z15 = z14 shifted (thickstroke,0); - -llserif(14,16,17,18,19)(1); -lrserif(15,20,21,22,23)(1); - -path fourfill; fourfill = -z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; -path fourun; fourun = z4--z6--z5--z4--cycle; -fill fourfill; unfill fourun; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar("5",0.9exw#+2ss#,ex#,dep#); "old-style digit 5"; - -z0 = (w-ss-bulbsh,h+o); -z1 = (ss+bulbsh,h+o); -z2 = z0 shifted (0,-thickstroke); -z3 = z1 shifted (0,-thickstroke); -z4 = (w/2,-dep); -z5 = z4 shifted (0,thickstroke); -z6 = z3 shifted (thinstroke,0); -z7 = (ss+0.6bulbsh,0.55threeh-dep); -z19 = z7 shifted (thinstroke,0); -z8 = (w-ss,2threeh/3-dep); -z9 = z7 shifted (thinstroke,thinstroke); -z10 = (w-ss-thickstroke,threeh/3-dep); -z11 = (ss,threeh/3-dep); -z16 = z10 shifted (thickstroke,0); -z17 = (w/2,2threeh/3-dep); -z18 = z17 shifted (0,-thinstroke); -z29 = z2 shifted (0,-thinl); -z20 = z29 shifted (-thinl/2,0); -z21 = z20 shifted (0,thinl); - -ulftbulb(11,12,13,14,15); - -path five; five = -z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; - -fill five; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar("7",0.8exw#+2ss#,ex#,dep#); "old-style digit 7"; - -z0 = (ss,h+o); -z1 = z0 shifted (0,-thickstroke); -z2 = (w-ss,h+o); -z3 = z2 shifted (0,-thickstroke); -z4 = (w/4,-dep); -z5 = z4 shifted (thickstroke,0); -z6 = z3 shifted (-1.8thinstroke,0); -z7 = (w/2,0.6h); -z8 = z7 shifted (1.2thinstroke,0); -z9 = z1 shifted (0,-0.7userh); -z10 = z9 shifted (0.5thinstroke,0); -z11 = z10 shifted (0,0.7userh); - -fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar("8",digwid#+2ss#,asch#,0); "old-style digit 8"; - -z0 = (w/2,h+o); -z1 = (w/2,0-o); -z2 = (ss+bulbsh/2,3h/4); -z3 = (ss,h/4); -z4 = (w-ss-bulbsh/2,3h/4); -z5 = (w-ss,h/4); -z6 = z0 shifted (0,-thinstroke); -z7 = z1 shifted (0,thinstroke); -z8 = z2 shifted (0.8curvwid,0); -z9 = z3 shifted (curvwid,0); -z10 = z5 shifted (-curvwid,0); -z11 = z4 shifted (-0.8curvwid,0); -z12 = (w/2,h/2+thinstroke); -z13 = z12 shifted (0,-thinstroke); - -pickup pencircle scaled 1; - -fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; -unfill z8..z6..z11..z12..cycle; -unfill z7..z10..z13..z9..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - - -beginchar("6",0.9exw#+2ss#,cap#,0); "The digit 6"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0r = (2w/3,h+o); -penpos1(2thinl,180); -z1r = (ss+thinl,2h/3); -penpos2(thickl,180); -z2r = (ss,ex/2); -penpos3(thinl,-90); -z3r = (w/2,0-o); -penpos4(thickl,0); -z4r = (w-ss,ex/2); -penpos5(thinl,90); -z5r = (w/2,ex+o); -penpos6(thinl,0); -z6l = z0l; -penpos7(thinl,-90); -z7l = z6l; -penpos8(thinl,180); -z8l = z7l; - -penstroke z5e..z2e..z3e..z4e..cycle; -penstroke z0e..z1e..z2e; - -picture oldsix; oldsix := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar("9",0.9exw#+2ss#,ex#,dep#); "The digit 9"; -italcorr(ex#*slant); - -penpos0(thinl,90); -z0l = (w/3,-d-o); -penpos1(2thinl,180); -z1l = (w-ss-thickl,h/3-dep); -penpos2(thickl,180); -z2l = (w-ss,h-ex/2); -penpos3(thinl,90); -z3l = (w/2,h-ex-o); -penpos4(thickl,0); -z4l = (ss,h-ex/2); -penpos5(thinl,-90); -z5l = (w/2,h+o); - -penstroke z5e..z2e..z3e..z4e..cycle; -penstroke z0e..z1e..z2e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornaments.mf b/Master/texmf-dist/fonts/source/public/drm/ornaments.mf deleted file mode 100644 index 82a13829ce7..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/ornaments.mf +++ /dev/null @@ -1,1018 +0,0 @@ -% +AMDG This document was begun on 16 July 11EX, the -% Commemorations of St. Comillus de Lellis, C, and St. -% Symphorosa and her seven Sons, MM, and it is humbly -% dedicated to them and to the Immaculate Heart of Mary for -% their prayers, and to the Sacred Heart of Jesus for His -% mercy. - -beginchar(oct"016",9.8em#/5,cap#,dep#); "Right-facing simple fleuron"; - -% draw the basal ornament -curveornw = 9.8em/6; -penpos0(thickl,90); -z0r = (curveornw/6,h); -penpos1(1.5thinl,180); -z1r = (ss,3h/4); -penpos2(thinl,225); -z2 = ((x1l+x0)/2,h/2); -penpos3(1.5thinl,180); -z3r = (x0+o,h/4); -penpos4(thickl,90); -z4l = (ss+1.5thinl,0); -penpos5(1.5thinl,0); -z5l = z0l; -penpos6(thinl,-90); -z6l = z5l; -penpos7(thinl,180); -z7l = z6l; -penpos8(1.5thinl,0); -z8r = z4r; -penpos9(thinl,-90); -z9r = z8r; -penpos10(thinl,180); -z10r = z9r; -penstroke z0e..z1e..z2e..z3e..z4e; -penstroke z0e..z5e..z6e..z7e; -penstroke z4e..z8e..z9e..z10e; - -% construct the vaguely heart-shaped leaf bit -z11 = (0.6w,-dep/3); -z12 = (w-ss,0.4h); -z13 = (7w/8,h/4); -z14 = (3w/4,h/2); -z15 = (x11-thickstroke,h); -z16 = (0.4w,3h/4); -z17 = (w/2,h/2); -z18 = (w/3,h/4); -z19 = z12 shifted (-thinl,thinl); -z20 = z19 shifted (-thinl,-thinl); -z21 = z20 shifted (thinl,-thinl); -z22 = (x16,(y15+y16)/2-thinl); -fill -z11{right}..{up}z12..z19..z20..{right}z21{down}..z13.. - z14..{left}z15{left}..z22..{down}z16{down}.. - {dir -45}z17{dir -160}..{down}z18{down}..{right}cycle; - -% draw the stem -penpos23(thinl,90); -z23 = z17; -penpos24(1.5thinl,90); -z24 = ((x16+x0)/2,y16); -penpos25(1.5thinl,135); -z25 = z2; -penpos26(1.5thinl,225); -z26 = z3; - -penstroke z23e{left}..z24e..z25e..z26e; - -picture simpfleuron; simpfleuron := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"017",9.8em#/5,cap#,dep#); -"Right-facing simple fleuron, upsidedown"; -currentpicture := simpfleuron reflectedabout - ((0,h/2),(w,h/2)) shifted (0,-dep/3); -endchar; - -beginchar(oct"020",9.8em#/5,cap#,dep#); -"Left-facing simple fleuron"; -currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)); -endchar; - -beginchar(oct"021",9.8em#/5,cap#,dep#); -"Left-facing simple fleuron, upsidedown"; -currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)) - reflectedabout ((0,h/2),(w,h/2)) shifted (0,-dep/3); -endchar; - -beginchar(oct"050",cap#+dep#/3,9.8em#/5,0); -"Up-facing simple fleuron"; -currentpicture := simpfleuron rotated (90) shifted (cap,0); -endchar; - -beginchar(oct"051",cap#+dep#/3,9.8em#/5,0); -"Up-facing simple fleuron, backwards"; -currentpicture := simpfleuron rotated (90) shifted (cap,0) - reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"077",cap#+dep#/3,9.8em#/5,0); -"Down-facing simple fleuron"; -currentpicture := simpfleuron rotated (-90) - shifted (dep/3,9.8em/5); -endchar; - -beginchar(oct"107",cap#+dep#/3,9.8em#/5,0); -"Down-facing simple fleuron, backwards"; -currentpicture := simpfleuron rotated (-90) shifted (dep/3,9.8em/5) - reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"041",9.8em#/36+1.5thinstroke#+ss#,cap#,0); -"Simple curve ornament, vertical"; - -penpos0(thickl,90); -z0r = (curveornw/6,h); -penpos1(1.5thinl,180); -z1r = (ss,3h/4); -penpos2(thinl,225); -z2 = ((x1l+x0)/2,h/2); -penpos3(1.5thinl,180); -z3r = (x0+o,h/4); -penpos4(thickl,90); -z4l = (ss+1.5thinl,0); -penpos5(1.5thinl,0); -z5l = z0l; -penpos6(thinl,-90); -z6l = z5l; -penpos7(thinl,180); -z7l = z6l; -penpos8(1.5thinl,0); -z8r = z4r; -penpos9(thinl,-90); -z9r = z8r; -penpos10(thinl,180); -z10r = z9r; - -penstroke z0e..z1e..z2e..z3e..z4e; -penstroke z0e..z5e..z6e..z7e; -penstroke z4e..z8e..z9e..z10e; - -picture curveorn; curveorn := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"042",9.8em#/36+1.5thinstroke#+ss#,cap#,0); -"Simple curve ornament, backwards"; -currentpicture := curveorn reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"043",cap#,9.8em#/36+1.5thinstroke#+ss#,0); -"Simple curve ornament, horizontal"; -currentpicture := curveorn rotated (-90) - shifted (0,9.8em/36+1.5thinstroke+ss); -endchar; - -beginchar(oct"045",cap#,9.8em#/36+1.5thinstroke#+ss#,0); -"Simple curve ornament, horizontal, backwards"; -currentpicture := curveorn rotated (90) shifted (cap,0); -endchar; - -beginchar(oct"023",9.8em#/5,cap#,cap#); "Double tulip fleuron"; - -% set the points for the tulip -tulw = (6cap/8); -z0 = (ss+5tulw/6,h/6+2thickstroke); -z1 = (ss+tulw/2,h/6); -z2 = z1 shifted (0,thinl); -z3 = (x0-thickl,y2+thinl); -z4 = (x3+thinl,h/3); -z5 = (tulw,15h/16); -z6 = (x5-thinl,y5-thinl); -z7 = (tulw/2,2h/3); -z8 = (x3,y5); -z9 = z8 shifted (-0.5thinl,-0.5thinl); -z10 = ((x7+x9)/2,13h/16); -z11 = (x2-thinstroke/2,h); -z12 = ((x10+x11)/2,13h/16); -z13 = z1 shifted (-thinstroke/2,0); -z14 = z10 reflectedabout (z11,z13); -z15 = z1 reflectedabout (z11,z13); - -% define the paths for the tulip -path rightbase; -rightbase = z1{right}..{up}z0{dir 260}..{left}z2--cycle; -path leftbase; leftbase = rightbase reflectedabout (z11,z13); -path rightpetal; rightpetal = z2{right}..z3..z4.. - {dir 45}z6..{dir 45}z5{left}..{dir 205}z9.. - {dir -135}z7{up}--z15--cycle; -path leftpetal; leftpetal = rightpetal reflectedabout (z11,z13); -path centpetal; centpetal = z10..{dir 135}z11{dir 225}.. - z14{down}..{right}z7{right}..{up}cycle; -% unit all the paths into a macro, allowing for shifting -% and rotating around its own center -def drawtulip(expr rot)(expr shift) = - pickup pencircle scaled thinl; - erase draw centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - erase draw leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - erase draw rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - erase draw leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - erase draw rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - fill centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - fill leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - fill rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - fill leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); - fill rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) - shifted (shift); -enddef; - -% define the points for the stems - -penpos20(thinl,45); -z20l = z4; -penpos21(1.5thinl,90); -z21 = (w/2,h/4); -penpos22(thinl,135); -z22r = z21r shifted (thinl,thinl); -penpos23(1.5thinl,-90); -z23l = (w/2,h); -penpos24(thinl,45); -z24 = z22 reflectedabout (z23,z21); -penpos25(thinl,135); -z25 = z20 reflectedabout (z23,z21); - -% define the points for the flourishes - -penpos30(thinl,90); -z30 = 0.5[z23,z21]; -penpos31(thinl,90); -z31 = (x25r,5h/6); -penpos32(thinl,90); -z32 = z31 reflectedabout (z23,z21); -penpos33(thinl,180); -z33r = (ss,h/2); -penpos34(1.5thinl,-90); -z34r = (w/4,0); -penpos35(1.5thinl,-90); -z35 = (w/2,h/8); -penpos36(1.5thinl,-90); -z36 = z34 reflectedabout ((w/2,0),(w/2,h)); -penpos37(thinl,0); -z37 = z33 reflectedabout ((w/2,0),(w/2,h)); - -% draw the flourishes - -penstroke z30e..z32e..z33e..z34e..z35e..z36e..z37e..z31e..z30e; - -% draw the two tulips -drawtulip(45,(0,0)); -drawtulip(-45,(w-tulw,0)); - -% draw the stems, erasing first so we have the right -% overlaps -pickup pencircle scaled 1.5thinl; -erase draw z21..z22..z23..z24..z21; -penstroke z20e..z21e..z22e..z23e..z24e..z21e..z25e; - -picture doubletulip; doubletulip := currentpicture; - -currentpicture := doubletulip + - doubletulip reflectedabout ((0,0),(w,0)); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"024",9.8em#/5,cap#,0); -"Double tulip fleuron, half, upward"; -currentpicture := doubletulip; -endchar; - -beginchar(oct"027",9.8em#/5,cap#,cap#); -"Double tulip fleuron, half, downward"; -currentpicture := doubletulip reflectedabout ((0,h/2),(w,h/2)) - shifted (0,-cap); -endchar; - -beginchar(oct"036",cap#,9.8em#/5,0); -"Double tulip fleuron, half, rightward"; -currentpicture := doubletulip rotated (-90) - shifted (0,9.8em/5); -endchar; - -beginchar(oct"037",cap#,9.8em#/5,0); -"Double tulip fleuron, half, leftward"; -currentpicture := doubletulip rotated (90) - shifted (cap,0); -endchar; - -beginchar(oct"046",2cap#,9.8em#/5,0); -"Double tulip fleuron, half, leftward"; -currentpicture := doubletulip rotated (90) - shifted (cap,0) + doubletulip rotated (-90) - shifted (cap,9.8em/5); -endchar; - -beginchar(oct"053",9.8em#/5,cap#,9.8em#/5-cap#); -"Upper left corner tulip fleuron"; - -z0 = (ss+5tulw/6,h/6+2thickstroke); -z1 = (ss+tulw/2,h/6); -z2 = z1 shifted (0,thinl); -z11 = (x2-thinstroke/2,h); -z13 = z1 shifted (-thinstroke/2,0); -z3 = (x0-thickl,y2+thinl); -z4 = (x3+thinl,h/3); -penpos20(thinl,45); -z20l = z4; -penpos21(thinl,0); -%z21r = (0.4w,0); -z21r = (cap,0); -z22 = (w,h) rotatedaround ((0,h),-45); -penpos23(1.5thinl,-90); -z23 = (w/4,-d/3); -penpos24(thinl,0); -z24l = (ss,-2d/3); -penpos25(thinl,90); -z25l = (w/4,-d); -penpos26(0.5thinl,180); -%z26 = (w/3,-2d/3); -z26 = (0.41w,-2d/3); -penpos27(thinl,90); -z27l = (x26l,-d); -penpos28(thinl,45); -z28r = ((x26+x24)/2,y24-thinl); -penpos29(thinl,0); -z29l = (ss,-d/3); -penpos30(thinl,-135); -%z30 = (x26,(y23+y26)/2); -z30 = (x26,(y33+y23)/2); -penpos31(thinl,0); -z31l = (ss,-d/6); -penpos32(thinl,-90); -z32r = (w/3,0); -penpos33(0.5thinl,180); -z33 = (x21,y23); -penpos34(thinl,180); -z34r = (ss,h/8); -penpos35(thinl,90); -z35 = (w/8,2h/3); - -penstroke z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e; -penstroke (z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e) - reflectedabout (z20,z22); -pickup pencircle scaled 1.5thinl; -erase undraw z20..z21..z23..z24..z25..z26; -erase undraw (z20..z21..z23..z24..z25..z26) - reflectedabout (z20,z22); -drawtulip(45,(0,0)); -penstroke z20e..z21e..z23e..z24e..z25e..z26e; -penstroke (z20e..z21e..z23e..z24e..z25e..z26e) - reflectedabout (z20,z22); - -picture cornertulip; cornertulip := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"072",9.8em#/5,cap#,9.8em#/5-cap#); -"Upper right corner tulip fleuron"; -currentpicture := cornertulip reflectedabout - ((w/2,h),(w/2,-d)); -endchar; - -beginchar(oct"073",9.8em#/5,cap#,9.8em#/5-cap#); -"Lower left corner tulip fleuron"; -currentpicture := cornertulip reflectedabout - ((0,0),(w,0)); -endchar; - -beginchar(oct"110",9.8em#/5,cap#,9.8em#/5-cap#); -"Lower right corner tulip fleuron"; -currentpicture := cornertulip reflectedabout - ((0,0),(w,0)) reflectedabout - ((w/2,h),(w/2,-d)); -endchar; - -beginchar(oct"111",2(9.8em#/5),cap#,0); -"Upward single tulip fleuron"; - -z0 = (ss+5tulw/6,h/6+2thickstroke); -z1 = (ss+tulw/2,h/6); -z2 = z1 shifted (0,thinl); -z11 = (x2-thinstroke/2,h); -z13 = z1 shifted (-thinstroke/2,0); -z3 = (x0-thickl,y2+thinl); -z4 = (x3+thinl,h/3); - -penpos19(thinl,0); -z19 = (w/2,h/2); -penpos20(thinl,0); -z20 = (w/2,h/6); -penpos21(thinl,-90); -z21r = (0.45w,0); -penpos22(thinl,180); -z22 = (0.4w,h/2); -penpos23(thinl,-90); -z23l = (0.3w,h); -penpos24(thinl,-90); -z24r = (0.15w,0); -penpos25(thinl,180); -z25r = (ss,h/2); -penpos26(thinl,0); -z26 = (0.225w,h/2); -penpos27(thinl,90); -z27r = (0.1w,h); -penpos28(0.5thinl,-45); -z28 = (x27,y25); -penpos29(thinl,0); -z29 = (x24,3h/4); -penpos30(thinl,0); -z30 = (w/2,h/2); -penpos31(thinl,90); -z31 = (x22,5h/6); -penpos32(thinl,180); -z32 = ((x23+x26)/2,h/2); -penpos33(thinl,270); -z33r = (x23,0); -penpos34(thinl,0); -z34 = (x23+(x23-x32),y26); -penpos36(thinl,180); -z36 = ((x27+x25)/2,y29); -penpos35(thinl,90); -z35r = ((x36+x23)/2,h); -penpos37(thinl,180); -z37 = ((x25+x28)/2,h/2); -penpos38(thinl,-90); -z38 = (x28,h/4); -penpos39(0.5thinl,0); -z39 = ((x28+x26)/2,h/2); - -penstroke z30e..z31e..z32e..z33e..z34e..z35e..z36e.. - z38e..z39e; -penstroke (z30e..z31e..z32e..z33e..z34e..z35e..z36e.. - z38e..z39e) reflectedabout ((w/2,h),(w/2,0)); -pickup pencircle scaled 1.5thinl; -erase draw z19---z20..z21..z22..z23..z26..z24..z25.. - z27..z29..z28; -erase draw (z19---z20..z21..z22..z23..z26..z24..z25.. - z27..z29..z28) reflectedabout ((w/2,h),(w/2,0)); -drawtulip(0,(w/2-tulw/2,0)); -penstroke z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. - z27e..z29e..z28e; -penstroke (z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. - z27e..z29e..z28e) reflectedabout ((w/2,h),(w/2,0)); - -picture singletulip; singletulip := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"112",2(9.8em#/5),cap#,cap#); -"Downward single tulip fleuron"; -currentpicture := singletulip reflectedabout - ((0,h/2),(w,h/2)) shifted (0,-cap); -endchar; - -beginchar(oct"113",cap#,2(9.8em#/5),0); -"Leftward single tulip fleuron"; -currentpicture := singletulip rotated (90) shifted (cap,0); -picture lefttulip; lefttulip := currentpicture; -endchar; - -beginchar(oct"114",cap#,(9.8em#/5),(9.8em#/5)); -"Rightward single tulip fleuron"; -currentpicture := lefttulip reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"116",cap#,cap#,0); -"Upward single narrow tulip"; - -z0 = (ss+5tulw/6,h/6+2thickstroke); -z1 = (ss+tulw/2,h/6); -z2 = z1 shifted (0,thinl); -z11 = (x2-thinstroke/2,h); -z13 = z1 shifted (-thinstroke/2,0); -z3 = (x0-thickl,y2+thinl); -z4 = (x3+thinl,h/3); -penpos20(thinl,0); -z20 = (w/2,h/2); -penpos21(thinl,0); -z21 = (w/2,h/6); -penpos22(1.2thinl,90); -z22l = (3w/4,0); -penpos23(thinl,180); -z23l = (w-ss,h/2); -penpos24(1.2thinl,-90); -z24l = (3w/4,h); -penpos25(thinl,0); -z25 = (w/2,5h/6); - -penstroke z20e---z21e..z22e..z23e..z24e..z25e; -penstroke (z20e---z21e..z22e..z23e..z24e..z25e) - reflectedabout ((w/2,h),(w/2,0)); -drawtulip(0,(w/2-tulw/2,0)); -pickup pencircle scaled thinl; -draw z20--z21; - -picture singlenarrowtulip; singlenarrowtulip := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"121",cap#,cap#,cap#); -"Downward single narrow tulip"; -currentpicture := singlenarrowtulip reflectedabout - ((0,0),(w,0)); -endchar; - -beginchar(oct"122",cap#,cap#,cap#); -"Leftward single narrow tulip"; -currentpicture := singlenarrowtulip rotatedabout - ((w/2,h/2),90); -endchar; - -beginchar(oct"123",cap#,cap#,cap#); -"Leftward single narrow tulip"; -currentpicture := singlenarrowtulip rotatedabout - ((w/2,h/2),-90); -endchar; - -beginchar(oct"124",3cap#,cap#,0); "Right-pointing spearhead"; - -z0 = (0,h); -z1 = (0,0); -z2 = (ex/3,h/4); -z3 = (ex/3,3h/4); -z4 = (-ex/3,h/4); -z5 = (-ex/3,3h/4); -path solidellipse; -solidellipse = z0{right}..z3---z2..{left}z1{left}..z4---z5..{right}cycle; - -fill solidellipse scaled 0.8 shifted (w/8,0.1h); -pickup pencircle scaled 1.5thinl; -z6 = (0,h/2+thickl); -z7 = z6 shifted (0,-2thickl); -z8 = (w/4,y6); -z9 = (w/4,y7); -top z10 = (w/3,h); -bot z11 = (w/3,0); -z12 = (w/2,3h/4); -z13 = (w/2,h/4); -z14 = (3w/4,2h/3); -z15 = (3w/4,h/3); -rt z16 = (w,h/2); - -draw -z6--z8..z10..z12..z14..{dir -15}z16{dir -165}..z15..z13..z11..z9--z7; - -pickup pencircle scaled thinl; -z17 = 0.5[z10,z11]; -z18 = 0.5[z14,z15]; -draw z17--z18; - -picture spearhead; spearhead := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"125",3cap#,cap#,0); "Left-pointing spearhead"; -currentpicture := spearhead rotatedaround ((w/2,h/2),180); -endchar; - -beginchar(oct"126",pwid#,cap#,0); "Horizontal spear shaft piece"; - -pickup pencircle scaled 1.5thinl; -z0 = (0,h/2+thickl); -z1 = z0 shifted (0,-2thickl); -z2 = (w,y0); -z3 = (w,y1); -draw z0--z2; draw z1--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"132",cap#,3cap#,0); "Up-pointing spearhead"; -currentpicture := spearhead rotatedaround ((1.5cap,cap/2),90) - shifted (-cap,cap); -endchar; - -beginchar(oct"146",cap#,3cap#,0); "Down-pointing spearhead"; -currentpicture := spearhead rotatedaround ((1.5cap,cap/2),-90) - shifted (-cap,cap); -endchar; - -beginchar(oct"147",cap#,pwid#,0); "Vertical spear shaft"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2-thickl,0); -z1 = z0 shifted (2thickl,0); -z2 = (w/2-thickl,h); -z3 = z2 shifted (2thickl,0); -draw z0--z2; draw z1--z3; -penlabels(0,1,2,3); -endchar; - -beginchar(oct"157",cap#+2ss#,cap#,0); "upright fleur-de-lis"; - -z0 = (w/2,h+o); -z1 = (ss,h/2); -z2 = (w-ss,2h/3); -z3 = (w/2,0); -z4 = (0.36w,2h/3); -z5 = (0.64w,2h/3); -z6 = (0.45w,h/3); -z7 = (0.55w,h/3); -z8 = (x4,0); -z9 = (x5,0); -z10 = (z8 shifted (thinstroke,0)) rotatedaround (z8,-45); -z11 = (z9 shifted (thinstroke,0)) rotatedaround (z9,225); -z12 = 0.5[z10,z3]; y12 := 0; -z13 = 0.5[z11,z3]; y13 := 0; -z14 = (x3,y11); -z15 = 0.5[z1,z4]; y15 := 2h/3; -z16 = 0.5[z2,z5]; y16 := 2h/3; -z17 = (x4,h/2); -z18 = z5 shifted (thinstroke,0); -z19 = z6 shifted (-thinstroke,0); -z20 = z7 shifted (thinstroke,0); -z21 = z8 shifted (0,thinstroke); -z22 = z9 shifted (0,thinstroke); -z23 = (2x8/3,0); -z24 = (x8/3,h/4); -z25 = z23 shifted (0,thickstroke); -z26 = z21 shifted (-thinstroke,thinstroke); -z27 = z19 shifted (-thinstroke,0); -z28 = 0.5[z17,z27] shifted (-0.5thinstroke,0); -z29 = z15 shifted (0,-1.5thickstroke); -z30 = (x1,h/3); -z31 = z1 shifted (thinstroke,0); -z32 = z27 shifted (-thickstroke,0); -z33 = z32 reflectedabout ((w/2,h),(w/2,0)); -z34 = z32 shifted (thinstroke,thinstroke); -z35 = z34 reflectedabout ((w/2,h),(w/2,0)); -z36 = z32 shifted (thinstroke,-thinstroke); -z37 = z36 reflectedabout ((w/2,h),(w/2,0)); - -pickup pencircle scaled 2; -path middle; -middle = z0{dir 225}..z4..z6..z8--z10--z12--z14--z13-- - z11--z9..z7..z5..{dir 135}cycle; -fill middle; - -path side; side = z30..z1..z15..z17..z19..z21..z23.. - {up}z24{dir -65}..z25..z27..z28..z29..{down}z30..cycle; -fill side; -fill side reflectedabout ((w/2,h),(w/2,0)); -path binder; binder = z32..z34---z35..z33..z37---z36..cycle; -fill binder; - -picture fleurdelis; fleurdelis := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); -penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); -endchar; - -beginchar(oct"167",cap#+2ss#,cap#,0); "downward fleur-de-lis"; -currentpicture := fleurdelis reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"177",cap#,cap#+2ss#,0); "leftward fleur-de-lis"; -currentpicture := fleurdelis rotatedaround ((w/2+ss,h/2),-90); -endchar; - -beginchar(oct"316",cap#,cap#+2ss#,0); "rightward fleur-de-lis"; -currentpicture := fleurdelis rotatedaround ((w/2,h/2-ss),90); -endchar; - -beginchar(oct"317",ex#,ex#,0); "extension winding cord"; - -cordwid = thickstroke; -pickup pensquare scaled 1.5thinl; -top z0 = (0,h); -top z1 = (w,h); -bot lft z2 = (0,0); -bot z3 = (w,0); -draw z0--z1; draw z2--z3; -pickup pencircle scaled 0.5thinl; -z4 = (w,-cordwid/2); -z5 = z4 shifted (-cordwid/2,cordwid/2); -z6 = (w/2+cordwid/2,h); -z7 = z6 shifted (-cordwid,0); -z8 = 0.5[z6,z7] shifted (0,cordwid/2); -z9 = (0,-cordwid/2); -z10 = z9 shifted (cordwid/2,cordwid/2); -z11 = z5 shifted (cordwid,0); -z12 = (z6--z11) intersectionpoint ((w,h)--(w,0)); - -erase filldraw z4..z5---z7..z8..z6---z11..cycle; -draw z4..z5---z7..z8..z6---z11; -draw z10{down}..z9; - -pickup pencircle scaled 0.25thinl; -z13 = 0.14285[z5,z7]; -z14 = 0.28571[z5,z7]; -z15 = 0.42857[z5,z7]; -z16 = 0.57142[z5,z7]; -z17 = 0.71428[z5,z7]; -z18 = 0.85714[z5,z7]; -z23 = 0.14285[z11,z6]; -z24 = 0.28571[z11,z6]; -z25 = 0.42857[z11,z6]; -z26 = 0.57142[z11,z6]; -z27 = 0.71428[z11,z6]; -z28 = 0.85714[z11,z6]; - -draw z13{dir -45}..z23; -draw z14{dir -45}..z24; -draw z15{dir -45}..z25; -draw z16{dir -45}..z26; -draw z17{dir -45}..z27; -draw z18{dir -45}..z28; -draw z7{dir -45}..z6; - -unfill z10--(-cordwid,h/2)--z9--cycle; - -picture cordext; cordext := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); -endchar; - -beginchar(oct"320",ex#,ex#,0); "left end of winding cord"; - -pickup pensquare scaled 1.5thinl; -top rt z0 = (w,h); -top lft z1 = (w-cordwid,h); -draw z0--z1; -z2 = (w,-cordwid/2); -z3 = (w-cordwid/2,0); -z4 = (w-cordwid/2,h); -z5 = z4 shifted (-cordwid,0); -z6 = 0.5[z4,z5] shifted (0,cordwid/2); -z7 = z3 shifted (cordwid,0); -z8 = z3 shifted (-cordwid,0); -z9 = 0.5[z3,z8] shifted (0,-cordwid/2); -z10 = z5 shifted (-cordwid,0); -z11 = z6 shifted (-cordwid,0); -z12 = z10 shifted (-cordwid,0); -z13 = z11 shifted (-cordwid,0); -z14 = z8 shifted (-cordwid,0); -z15 = z9 shifted (-cordwid,0); -z16 = z14 shifted (-cordwid,0); -z17 = z15 shifted (-cordwid,0); - -pickup pencircle scaled 0.5thinl; -erase filldraw z7---z4..z6..z5---z3..z2..cycle; -draw z7---z4..z6..z5---z3..z2; -% draw the rope lines on the underlying frap -pickup pencircle scaled 0.25thinl; -z23 = 0.14285[z4,z7]; -z24 = 0.28571[z4,z7]; -z25 = 0.42857[z4,z7]; -z26 = 0.57142[z4,z7]; -z27 = 0.71428[z4,z7]; -z28 = 0.85714[z4,z7]; -z33 = 0.14285[z5,z3]; -z34 = 0.28571[z5,z3]; -z35 = 0.42857[z5,z3]; -z36 = 0.57142[z5,z3]; -z37 = 0.71428[z5,z3]; -z38 = 0.85714[z5,z3]; -draw z33{dir -45}..z23; -draw z34{dir -45}..z24; -draw z35{dir -45}..z25; -draw z36{dir -45}..z26; -draw z37{dir -45}..z27; -draw z38{dir -45}..z28; - -% first overlapping frap -pickup pencircle scaled 0.5thinl; -erase filldraw z5---z8..z9..z3---z4..z6..cycle; -draw z5---z8..z9..z3---z4..z6..cycle; -% next overlapping fraps -pickup pencircle scaled 0.5thinl; -draw z8---z5..z11..z10---z14..z15..cycle; -draw z10---z14..z17..z16---z12..z13..cycle; -% draw the rope marks on the straight fraps -pickup pencircle scaled 0.25thinl; -z42 = 0.00000[z4,z3]; -z43 = 0.14285[z4,z3]; -z44 = 0.28571[z4,z3]; -z45 = 0.42857[z4,z3]; -z46 = 0.57142[z4,z3]; -z47 = 0.71428[z4,z3]; -z48 = 0.85714[z4,z3]; -z49 = 1.00000[z4,z3]; -z52 = 0.00000[z5,z8]; -z53 = 0.14285[z5,z8]; -z54 = 0.28571[z5,z8]; -z55 = 0.42857[z5,z8]; -z56 = 0.57142[z5,z8]; -z57 = 0.71428[z5,z8]; -z58 = 0.85714[z5,z8]; -z59 = 1.00000[z5,z8]; -draw z52{dir -45}..z42; -draw z53{dir -45}..z43; -draw z54{dir -45}..z44; -draw z55{dir -45}..z45; -draw z56{dir -45}..z46; -draw z57{dir -45}..z47; -draw z58{dir -45}..z48; -draw z59{dir -45}..z49; -z62 = 0.00000[z5,z8]; -z63 = 0.14285[z5,z8]; -z64 = 0.28571[z5,z8]; -z65 = 0.42857[z5,z8]; -z66 = 0.57142[z5,z8]; -z67 = 0.71428[z5,z8]; -z68 = 0.85714[z5,z8]; -z69 = 1.00000[z5,z8]; -z72 = 0.00000[z10,z14]; -z73 = 0.14285[z10,z14]; -z74 = 0.28571[z10,z14]; -z75 = 0.42857[z10,z14]; -z76 = 0.57142[z10,z14]; -z77 = 0.71428[z10,z14]; -z78 = 0.85714[z10,z14]; -z79 = 1.00000[z10,z14]; -draw z72{dir -45}..z62; -draw z73{dir -45}..z63; -draw z74{dir -45}..z64; -draw z75{dir -45}..z65; -draw z76{dir -45}..z66; -draw z77{dir -45}..z67; -draw z78{dir -45}..z68; -draw z79{dir -45}..z69; -z82 = 0.00000[z10,z14]; -z83 = 0.14285[z10,z14]; -z84 = 0.28571[z10,z14]; -z85 = 0.42857[z10,z14]; -z86 = 0.57142[z10,z14]; -z87 = 0.71428[z10,z14]; -z88 = 0.85714[z10,z14]; -z89 = 1.00000[z10,z14]; -z92 = 0.00000[z12,z16]; -z93 = 0.14285[z12,z16]; -z94 = 0.28571[z12,z16]; -z95 = 0.42857[z12,z16]; -z96 = 0.57142[z12,z16]; -z97 = 0.71428[z12,z16]; -z98 = 0.85714[z12,z16]; -z99 = 1.00000[z12,z16]; -draw z92{dir -45}..z82; -draw z93{dir -45}..z83; -draw z94{dir -45}..z84; -draw z95{dir -45}..z85; -draw z96{dir -45}..z86; -draw z97{dir -45}..z87; -draw z98{dir -45}..z88; -draw z99{dir -45}..z89; - -picture leftcordend; leftcordend := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); -endchar; - -beginchar(oct"321",ex#,ex#,0); "right end of winding cord"; - -pickup pensquare scaled 1.5thinl; -top lft z0 = (0,h); -top rt z1 = (0+cordwid,h); -draw z0--z1; -z2 = (4cordwid,-cordwid/2); -z3 = (x2-cordwid/2,0); -z4 = (x2-cordwid/2,h); -z5 = z4 shifted (-cordwid,0); -z6 = 0.5[z4,z5] shifted (0,cordwid/2); -z7 = z3 shifted (cordwid,0); -z8 = z3 shifted (-cordwid,0); -z9 = 0.5[z3,z8] shifted (0,-cordwid/2); -z10 = z5 shifted (-cordwid,0); -z11 = z6 shifted (-cordwid,0); -z12 = z10 shifted (-cordwid,0); -z13 = z11 shifted (-cordwid,0); -z14 = z8 shifted (-cordwid,0); -z15 = z9 shifted (-cordwid,0); -z16 = z14 shifted (-cordwid,0); -z17 = z15 shifted (-cordwid,0); -z18 = z16 shifted (-cordwid/2,-cordwid/2); - -pickup pencircle scaled 0.5thinl; -erase filldraw z5---z8..z9..z3---z4..z6..cycle; -draw z5---z8..z9..z3---z4..z6..cycle; -draw z12---z16..z18; -% next overlapping fraps -pickup pencircle scaled 0.5thinl; -erase filldraw z8---z5..z11..z10---z14..z15..cycle; -draw z8---z5..z11..z10---z14..z15..cycle; -erase filldraw z10---z14..z17..z16---z12..z13..cycle; -draw z10---z14..z17..z16---z12..z13..cycle; -% draw the rope marks on the straight fraps -pickup pencircle scaled 0.25thinl; -z42 = 0.00000[z4,z3]; -z43 = 0.14285[z4,z3]; -z44 = 0.28571[z4,z3]; -z45 = 0.42857[z4,z3]; -z46 = 0.57142[z4,z3]; -z47 = 0.71428[z4,z3]; -z48 = 0.85714[z4,z3]; -z49 = 1.00000[z4,z3]; -z52 = 0.00000[z5,z8]; -z53 = 0.14285[z5,z8]; -z54 = 0.28571[z5,z8]; -z55 = 0.42857[z5,z8]; -z56 = 0.57142[z5,z8]; -z57 = 0.71428[z5,z8]; -z58 = 0.85714[z5,z8]; -z59 = 1.00000[z5,z8]; -draw z52{dir -45}..z42; -draw z53{dir -45}..z43; -draw z54{dir -45}..z44; -draw z55{dir -45}..z45; -draw z56{dir -45}..z46; -draw z57{dir -45}..z47; -draw z58{dir -45}..z48; -draw z59{dir -45}..z49; -z62 = 0.00000[z5,z8]; -z63 = 0.14285[z5,z8]; -z64 = 0.28571[z5,z8]; -z65 = 0.42857[z5,z8]; -z66 = 0.57142[z5,z8]; -z67 = 0.71428[z5,z8]; -z68 = 0.85714[z5,z8]; -z69 = 1.00000[z5,z8]; -z72 = 0.00000[z10,z14]; -z73 = 0.14285[z10,z14]; -z74 = 0.28571[z10,z14]; -z75 = 0.42857[z10,z14]; -z76 = 0.57142[z10,z14]; -z77 = 0.71428[z10,z14]; -z78 = 0.85714[z10,z14]; -z79 = 1.00000[z10,z14]; -draw z72{dir -45}..z62; -draw z73{dir -45}..z63; -draw z74{dir -45}..z64; -draw z75{dir -45}..z65; -draw z76{dir -45}..z66; -draw z77{dir -45}..z67; -draw z78{dir -45}..z68; -draw z79{dir -45}..z69; -z82 = 0.00000[z10,z14]; -z83 = 0.14285[z10,z14]; -z84 = 0.28571[z10,z14]; -z85 = 0.42857[z10,z14]; -z86 = 0.57142[z10,z14]; -z87 = 0.71428[z10,z14]; -z88 = 0.85714[z10,z14]; -z89 = 1.00000[z10,z14]; -z92 = 0.00000[z12,z16]; -z93 = 0.14285[z12,z16]; -z94 = 0.28571[z12,z16]; -z95 = 0.42857[z12,z16]; -z96 = 0.57142[z12,z16]; -z97 = 0.71428[z12,z16]; -z98 = 0.85714[z12,z16]; -z99 = 1.00000[z12,z16]; -draw z92{dir -45}..z82; -draw z93{dir -45}..z83; -draw z94{dir -45}..z84; -draw z95{dir -45}..z85; -draw z96{dir -45}..z86; -draw z97{dir -45}..z87; -draw z98{dir -45}..z88; -draw z99{dir -45}..z89; - -picture rightcordend; rightcordend := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); -endchar; - -beginchar(oct"322",ex#,ex#,0); "inverted left end of winding cord"; -currentpicture := leftcordend reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"323",ex#,ex#,0); "inverted right end of winding cord"; -currentpicture := rightcordend reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"324",ex#,ex#,0); "inverted extension winding cord"; -currentpicture := cordext reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"325",ex#/2,3ex#/4,0); "horizontal triple rule"; - -pickup pensquare scaled thinl; -top lft z0 = (0,h); -top rt z1 = (w,h); -bot lft z2 = (0,0); -bot rt z3 = (w,0); -draw z0--z1; draw z2--z3; -pickup pensquare scaled 2thinl; -lft z4 = (0,h/2); -rt z5 = (w,h/2); -draw z4--z5; - -picture triplerule; triplerule := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"327",3ex#/4,ex#/2,0); "vertical triple rule"; -currentpicture := triplerule rotatedaround ((w/2,h/2),90) - shifted (ex/8,ex/8); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornbars.mf b/Master/texmf-dist/fonts/source/public/drm/ornbars.mf deleted file mode 100644 index eac6eb7f492..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/ornbars.mf +++ /dev/null @@ -1,152 +0,0 @@ -% +AMDG This document was begun on 21 June 11EX, the feast -% of St. William the Abbot, and it is humbly dedicated to -% him and to the Immaculate Heart of Mary for their prayers, -% and to the Sacred Heart of Jesus for His mercy. - -beginchar("a",ornshort#+2ss#,ornheight#+2ss#,0); - -% draw the border of the ornament -pickup borderpen; -top lft z20 = (ss,h-ss); top rt z21 = (w-ss,h-ss); -bot rt z22 = (w-ss,ss); bot lft z23 = (ss,ss); -draw z20--z21--z22--z23--cycle; - -% path for the ellipse in the center construct -z0 = (-centerwid/2,0); -z1 = (centerwid/2,0); -z2 = z0 shifted (0,centerht/2); -z3 = z0 shifted (0,-centerht/2); -z4 = z1 shifted (0,centerht/2); -z5 = z1 shifted (0,-centerht/2); -z6 = z0 shifted (-ccurvrad,0); -z7 = z1 shifted (ccurvrad,0); -path centell; centell = z2..z6..z3--z5..z7..z4--cycle; - -% points for placement of center construct -z8 = (w/2,h/2); -z9 = (w/2,h/2+centerht); -z10 = (w/2,h/2-centerht); -z11 = (w/2,h/2+1.75centerht); -z12 = (w/2,h/2-1.75centerht); - -% draw the main cardinal loops -z13 = (w/2,h-ss-borderwid-smallspace); -z14 = 0.75[z11,z13] shifted (-centerwid/2,0); -z15 = 0.75[z11,z13] shifted (centerwid/2,0); -z16 = 0.5[z11,z13] shifted (-centerwid/4,0); -z17 = 0.5[z11,z13] shifted (centerwid/4,0); -pickup thinpen; -path lftshortloop; lftshortloop = z11{up}..z16..z14..{up}z13; -path rtshortloop; rtshortloop = z11{up}..z17..z15..{up}z13; -draw lftshortloop; draw rtshortloop; -draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); -draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); -z18 = (ss+borderwid+smallspace,h/2); -z19 = z8 shifted (-centerwid/2,0); -z24 = 0.75[z19,z18] shifted (0,centerwid/1); -z25 = 0.75[z19,z18] shifted (0,-centerwid/1); -z26 = 0.5[z19,z18] shifted (0,centerwid/2); -z27 = 0.5[z19,z18] shifted (0,-centerwid/2); -path uplongloop; uplongloop = z19{left}..z26..z24..{left}z18; -path downlongloop; downlongloop = z19{left}..z27..z25..{left}z18; -draw uplongloop; draw downlongloop; -draw uplongloop reflectedabout ((w/2,0),(w/2,h)); -draw downlongloop reflectedabout ((w/2,0),(w/2,h)); -% draw the large side loops -z28 = z16 shifted (-smallspace-thinline-centerwid/2,0); -z29 = z26 shifted (smallspace+thinline,smallspace+thinline); -z30 = (x29,y13); -z31 = z8 shifted (-centerwid-smallspace-thinline, - centerht+smallspace+thinline); -z32 = (x18+smallspace+thinline,3h/4); -z33 = (x18+smallspace+thinline,h/4); -z34 = (x30,ss+borderwid+smallspace); -path sideloops; -sideloops = z29{z8-z29}..z31..z28..{left}z30{left}..z32..z24..z25; -% continue on with the side loops; -z80 = (w/4,h/2); -z81 = (x32+bigspace,h-y32); -z82 = (x30,h-y30+bigspace); -z83 = (x31-bigspace,h-y31); -z84 = 0.25[z19,z18]; -path downloops; -downloops := z84{down}..z83..z82..tension 1.5..z81{dir 45}..z80..z29; -% do the internal ornaments -z88 = z29 shifted (0,smallspace); -z85 = (z88--(w/4,h)) intersectionpoint sideloops; -z86 = (z88--(0,h)) intersectionpoint sideloops; -z87 = (z88--(3w/4,h)) intersectionpoint sideloops; -z89 = 0.5[z86,z85] shifted (0,-3bigspace); -z90 = 0.5[z85,z87] shifted (0,-3bigspace); -z91 = 0.5[z86,z85]; -z92 = 0.5[z85,z87]; -z93 = (x29,y29+2bigspace); -z94 = (x25,y93); -z95 = (x84,y93); -z96 = (x86,(y89+y94)/2); -z97 = (x89,y93+2bigspace); -pickup extthinpen; -path curveone; path curvetwo; path curvethree; -curveone = z91..z86..z89..{dir 30}z85{dir -45}..z90..z87..z92; -curvetwo = z89..z93..z94..z96..z97; -curvethree = z90..z93..z95; - -% draw the inner curves -pickup extthinpen; -draw curveone; -draw curveone reflectedabout ((0,h/2),(w,h/2)); -draw curveone reflectedabout ((w/2,h),(w/2,0)); -draw curveone reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); -draw curvetwo; -draw curvetwo reflectedabout ((0,h/2),(w,h/2)); -draw curvetwo reflectedabout ((w/2,h),(w/2,0)); -draw curvetwo reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); -draw curvethree; -draw curvethree reflectedabout ((0,h/2),(w,h/2)); -draw curvethree reflectedabout ((w/2,h),(w/2,0)); -draw curvethree reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); -% erase sideloop paths -pickup thinerasepen; -erase draw sideloops; -erase draw sideloops reflectedabout ((0,h/2),(w,h/2)); -erase draw sideloops reflectedabout ((w/2,h),(w/2,0)); -erase draw sideloops reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); -pickup thinpen; -draw sideloops; -draw sideloops reflectedabout ((0,h/2),(w,h/2)); -draw sideloops reflectedabout ((w/2,h),(w/2,0)); -draw sideloops reflectedabout ((w/2,h),(w/2,0)) - reflectedabout ((0,h/2),(w,h/2)); -% erase the lines that will be the cardinal loops -pickup thinerasepen; -erase draw uplongloop; erase draw downlongloop; -erase draw uplongloop reflectedabout ((w/2,0),(w/2,h)); -erase draw downlongloop reflectedabout ((w/2,0),(w/2,h)); -% now draw in the cardinal loops -pickup thinpen; -draw uplongloop; draw downlongloop; -draw uplongloop reflectedabout ((w/2,0),(w/2,h)); -draw downlongloop reflectedabout ((w/2,0),(w/2,h)); -draw lftshortloop; draw rtshortloop; -draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); -draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); -% draw the center construct -fill centell shifted z8; -fill centell xscaled 0.75 yscaled 0.75 shifted z9; -fill centell xscaled 0.75 yscaled 0.75 shifted z10; -fill centell xscaled 0.25 yscaled 0.5 shifted z11; -fill centell xscaled 0.25 yscaled 0.5 shifted z12; -% add in the binders -fill centell scaled 0.75 rotated (90) shifted z84; -fill centell scaled 0.75 rotated (90) shifted z84 - reflectedabout ((w/2,h),(w/2,0)); -pickup extthinpen; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); -penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornfont.mf b/Master/texmf-dist/fonts/source/public/drm/ornfont.mf deleted file mode 100644 index 5bcbf432562..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/ornfont.mf +++ /dev/null @@ -1,154 +0,0 @@ -% +AMDG This document was begun on 4 August 11EX, the feast -% of St. Dominic, C, and it is humbly dedicated to him and -% to the Immaculate Heart of Mary for their prayers, and to -% the Sacred Heart of Jesus for His mercy. - -beginchar(oct"000",cap#,cap#,0); "Six-petaled flower"; - -fill fullcircle scaled 2dotwid shifted (w/2,h/2); -z0 = (w/2,h/2) shifted (0,1.5dotwid); -z1 = (w/2,h); -z2 = z1 shifted (dotwid,-dotwid); -z3 = z1 shifted (-dotwid,-dotwid); -z4 = z0 shifted (dotwid/2,dotwid/2); -z5 = z0 shifted (-dotwid/2,dotwid/2); -path petal; petal = z0..z4---z2..z1..z3---z5..cycle; -fill petal; -fill petal rotatedaround ((w/2,h/2),60); -fill petal rotatedaround ((w/2,h/2),120); -fill petal rotatedaround ((w/2,h/2),180); -fill petal rotatedaround ((w/2,h/2),240); -fill petal rotatedaround ((w/2,h/2),300); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"001",ex#,ex#,0); "Checkerboard"; - -z0 = (0,h); -z1 = (w/3,h); -z2 = (w/3,2h/3); -z3 = (0,2h/3); -path square; square = z0--z1--z2--z3--cycle; -fill square; -fill square shifted (w/3,-h/3); -fill square shifted (0,-2h/3); -fill square shifted (2w/3,0); -fill square shifted (2w/3,-2h/3); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"002",ex#,ex#,0); "Inverse Checkerboard"; -fill square shifted (w/3,0); -fill square shifted (0,-h/3); -fill square shifted (2w/3,-h/3); -fill square shifted (w/3,-2h/3); -endchar; - -beginchar(oct"003",doubex#,doubex#,0); "Triple bar"; - -pickup semiextextthickpen; -top z0 = (0,h); -top z1 = (w,h); -bot z2 = (0,0); -bot z3 = (w,0); -draw z0--z1; draw z2--z3; -pickup extextthickpen; -z4 = (0,h/2); -z5 = (w,h/2); -draw z4--z5; - -picture triplebarext; triplebarext := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"004",doubex#+ex#,doubex#,ex#); -"Triple bar, upper left corner"; - -pickup semiextextthickpen; -top lft z0 = (0,h); -top rt z1 = (w,h); -bot rt z2 = (doubex,0); -bot rt z3 = (w,0); -draw z0--z1; draw z2--z3; -pickup extextthickpen; -z4 = ((x0+x2)/2,h/2); -rt z5 = (w,h/2); -draw z4--z5; -pickup semiextextthickpen; -z6 = (x0,-d); -draw z0--z6; -pickup extextthickpen; -z7 = (x4,-d); -draw z4--z7; -pickup semiextextthickpen; -z8 = (x2,-d); -draw z2--z8; - -picture triplecorner; triplecorner := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -beginchar(oct"005",doubex#+ex#,doubex#,ex#); -"Triple bar, upper right corner"; -currentpicture := triplecorner reflectedabout - ((w/2,h),(w/2,-d)); -endchar; - -beginchar(oct"006",doubex#+ex#,doubex#,ex#); -"Triple bar, lower right corner"; -currentpicture := triplecorner reflectedabout - ((w/2,h),(w/2,-d)) reflectedabout - ((0,0),(w,0)) shifted (0,ex); -endchar; - -beginchar(oct"007",doubex#+ex#,doubex#,ex#); -"Triple bar, lower left corner"; -currentpicture := triplecorner reflectedabout - ((0,0),(w,0)) shifted (0,ex); -endchar; - -beginchar(oct"010",doubex#,doubex#,ex#); "Triple bar, lowered"; -currentpicture := triplebarext shifted (0,-d); -endchar; - -beginchar(oct"011",doubex#,doubex#,0); "Triple bar, vertical, left"; -currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90); -endchar; - -beginchar(oct"012",2doubex#,doubex#,0); "Triple bar, vertical, right"; -currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90) - shifted (doubex,0); -endchar; - -beginchar(oct"013",0.75doubex#,0.75doubex#,0); "Clam shell, upright"; - -z0 = (0,h/4); -z1 = (0,3h/4); -z2 = (w/2,h); -z3 = 0.5[z1,z2]; -z4 = (w/4,0); -z5 = (w/3,h/8); -z6 = 0.5[z4,z5]; -z10 = z0 reflectedabout ((w/2,h),(w/2,0)); -z11 = z1 reflectedabout ((w/2,h),(w/2,0)); -z13 = z3 reflectedabout ((w/2,h),(w/2,0)); -z14 = z4 reflectedabout ((w/2,h),(w/2,0)); -z15 = z5 reflectedabout ((w/2,h),(w/2,0)); -z16 = z6 reflectedabout ((w/2,h),(w/2,0)); -z7 = (z3--(w/2,0)) intersectionpoint (z5--z15); -z17 = z7 reflectedabout ((w/2,h),(w/2,0)); - -pickup extthickpen; -draw z4--z5--z15--z14--cycle; -draw z16---z11..{dir 210}z13{dir 150}..{left}z2{left}.. - {dir 210}z3{dir 150}..z1---z6; -pickup thickpen scaled 2; -draw z3--z7; -draw z13--z17; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); -endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/symbols.mf b/Master/texmf-dist/fonts/source/public/drm/symbols.mf deleted file mode 100644 index 0df981ac4ea..00000000000 --- a/Master/texmf-dist/fonts/source/public/drm/symbols.mf +++ /dev/null @@ -1,3555 +0,0 @@ -% +AMDG This document was begun on 1E May 11EX, and it is -% humbly dedicated to the Immaculate Heart of Mary for her -% prayers, and to the Sacred Heart of Jesus for His mercy. - -def ulftbulb(suffix i,j,k,l,m) = -z.j=z.i shifted (bulbsh,bulbsh); -z.k=z.j shifted (bulbsh,-bulbsh); -z.l=z.k shifted (-bulbsh,-bulbsh); -enddef; - -def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = -z.j=z.i+(0,userw/2); -z.k=z.j+(userh,0); -z.l=z.k-(0,2userw); -z.m=z.l-(userh,0); -if topbot = 1: -path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; -elseif topbot = 2: -path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; -fi; -enddef; - -beginchar(oct"054",pwid#,pwid#,0); "The comma ,"; - -z0 = (w/2,dotwid); -z1 = z0 shifted (dotwid,0); -z2 = z0 shifted (0,dotwid); -z3 = z0 shifted (-dotwid,0); -z4 = z0 shifted (0,-dotwid/2); -z5 = z3 shifted (-dotwid/2,-2.5dotwid); -z6 = z1 shifted (-o,-1.5dotwid); - -path commapost; -commapost = z4..{dir -165}z5{right}..z6..z1..z2..z3..z4--cycle; -fill commapost; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"212",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, double lined"; - -z0 = (w/2,h+o); -z1 = (w/2,0-o); -z2 = (w-ss,3h/4); -z3 = (w-ss,h/4); -z4 = (ss,3h/4); -z5 = (ss,h/4); -z6 = z4 shifted (curvl,0); -z7 = z3 shifted (-curvl,0); -z8 = z0 shifted (0,-thinl); -z9 = z1 shifted (0,thinl); - -urtbulb(2,10,11,12,13); -ulftbulb(5,14,15,16,17); - -fill -z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir -120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir --60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; - -pickup pencircle scaled 1.2thinl; - -z20 = (w/2-thinl,h+o); -z21 = (w/2-thinl,-o); -z22 = (w/2+thinl,h+o); -z23 = (w/2+thinl,-o); - -draw z20--z21; draw z22--z23; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"044",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, single-lined"; - -z0 = (w/2,h+o); -z1 = (w/2,0-o); -z2 = (w-ss,3h/4); -z3 = (w-ss,h/4); -z4 = (ss,3h/4); -z5 = (ss,h/4); -z6 = z4 shifted (curvl,0); -z7 = z3 shifted (-curvl,0); -z8 = z0 shifted (0,-thinl); -z9 = z1 shifted (0,thinl); - -urtbulb(2,10,11,12,13); -ulftbulb(5,14,15,16,17); - -fill -z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir -120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir --60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; - -pickup pencircle scaled 1.2thinl; - -z20 = (w/2,h+o); -z21 = (w/2,-o); - -draw z20--z21; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"052",ex#,ex#,0); "Asterisk, *"; - -z0 = (w/2,h/2); -z1 = (w/2,o); -z2 = (w/2,h-o); -z3 = z1 rotatedaround (z0,60); -z4 = z3 rotatedaround (z0,60); -z5 = z4 rotatedaround (z0,120); -z6 = z5 rotatedaround (z0,60); -z7 = z6 rotatedaround (z0,60); - -pickup pencircle scaled thinl; - -draw z2--z1; -draw z4--z6; -draw z5--z3; - -picture asterisk; asterisk := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; - -z0 = (o,o); -z1 = (w-o,h-o); - -pickup pencircle scaled thinl; - -draw z0--z1; - -penlabels(0,1); -endchar; - -beginchar(oct"055",ex#,ex#,0); "The equals sign, ="; - -pickup pencircle scaled thickl; -lft z0 = (ss,ex-thinl); -rt z1 = (w-ss,y0); -lft z2 = (ss,ex/2); -rt z3 = (w-ss,y2); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8); -endchar; - -beginchar(".",pwid#,pwid#,0); "The period ."; - -z0 = (w/2,dotwid); -z1 = z0 shifted (dotwid,0); -z2 = z0 shifted (0,dotwid); -z3 = z0 shifted (-dotwid,0); -z4 = z0 shifted (0,-dotwid); - -path period; -period = z1..z2..z3..z4..cycle; -fill period; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"030",2ex#,theight#,0); "left-pointing arrow"; - -pickup pencircle scaled thickl; -lft z0 = (ss,h/2); -rt z1 = (w-ss,h/2); -top z2 = (x0 + 2thickl,h); -bot z3 = (x0 + 2thickl,0); -z4 = (x0 + thickl,3h/4); -z5 = (x0 + thickl,h/3); - -path arrowpoint; path arrowshaft; -arrowpoint = z2--z0--z3; arrowshaft = z0--z1; -draw arrowpoint; draw arrowshaft; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"031",2ex#,theight#,0); "right-pointing arrow"; -pickup pencircle scaled thickl; -draw arrowpoint rotatedaround ((w/2,h/2),180); -draw arrowshaft rotatedaround ((w/2,h/2),180); -endchar; - -beginchar(oct"040",1.2ex#+2ss#,asch#,0); "The Letter b"; - -z0 = (ss+userwl,h-userhl); -z1 = z0 shifted (thickl,0); -z2 = (ss+lserwl,lserhl); -z3 = z2 shifted (thickl,0); -z12 = z1 shifted (0,userhl); -z13 = z3 shifted (0,-lserhl); -z19 = 0.5[z15,z17]; -z20 = (w-ss,(ex+o)/2); -z21 = (x2,y19); -z14 = 0.5[z22,z23] shifted (0,ex/2); -z15 = z14 shifted (0,-thinl); -z16 = 0.5[z22,z23] shifted (0,-ex/2-o); -z17 = z16 shifted (0,thinl); -z22 = z21 shifted (thickl,0); -z23 = z20 shifted (-curvl,0); - -ulserif(0,4,5,6,7)(1); -llserif(2,8,9,10,11)(1); - -fill z0..z4..z5--z6--z12--z13--z10--z9..z8..z2--cycle; -fill -z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; -unfill -z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; -pickup pencircle scaled thinl; -lft z30 = (ss,0.6h); -top z31 = (3w/4,h-o); -draw z30--z31; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"136",theight#+2ss#,cap#,dep#); "up-pointing arrow"; -pickup pencircle scaled thickl; -draw arrowpoint rotated -90 shifted (ss,h); -draw arrowshaft rotated -90 shifted (ss,h); -endchar; - -beginchar(oct"137",theight#+2ss#,cap#,dep#); "down-pointing arrow"; -pickup pencircle scaled thickl; -draw arrowpoint rotated 90 shifted (w-ss,-dep/2-ss); -draw arrowshaft rotated 90 shifted (w-ss,-dep/2-ss); -endchar; - -beginchar(oct"130",em#+2ss#,cap#,0); "Crusader cross"; - -z0 = (w/2-2thickl,h); -z1 = z0 shifted (4thickl,0); -z2 = z0 shifted (0,-1.5thinl); -z3 = z1 shifted (0,-1.5thinl); -z4 = z2 shifted (thickl,0); -z5 = z3 shifted (-thickl,0); -z6 = (x4,h/2-thickl); -z7 = (x5,h/2-thickl); - -path crosspart; -crosspart = z0--z1--z3--z5--z7--z6--z4--z2--cycle; -fill crosspart; -fill crosspart rotatedaround ((w/2,h/2),90); -fill crosspart rotatedaround ((w/2,h/2),180); -fill crosspart rotatedaround ((w/2,h/2),270); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"131",em#+2ss#,cap#,0); "Crusader cross, outline"; - -pickup pencircle scaled thinl; -top z0 = (w/2-2thickl,h); -z1 = z0 shifted (4thickl,0); -z2 = z0 shifted (0,-1.5thinl); -z3 = z1 shifted (0,-1.5thinl); -z4 = z2 shifted (thickl,0); -z5 = z3 shifted (-thickl,0); -z6 = (x4,h/2+thickl); -z7 = (x5,h/2+thickl); - -path crosspart; -crosspart = z7--z5--z3--z1--z0--z2--z4--z6; -draw crosspart; -draw crosspart rotatedaround ((w/2,h/2),90); -draw crosspart rotatedaround ((w/2,h/2),180); -draw crosspart rotatedaround ((w/2,h/2),270); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"120",1.2ex#+2ss#,cap#,0); "Communion Chalice with Host"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,3h/4); -rt z1 = (w-ss,3h/4); -z2 = (w/2-thickl/2,h/2); -z3 = (w/2+thickl/2,h/2); -z4 = (x2,0+thickl); -z5 = (x3,0+thickl); -bot z6 = (w/4,0-o); -bot z7 = (3w/4,0-o); -z8 = (1/4)[z0,z1]; -z9 = (3/4)[z0,z1]; -z10 = (w/2,9h/10); -z11 = z10 shifted (0,thickl); -z12 = z11 shifted (0,1.5thickl); -z13 = 0.5[z8,z9]; -path Hostray; Hostray = z11--z12; -draw Hostray rotatedaround (z13,22.5); -draw Hostray rotatedaround (z13,67.5); -draw Hostray rotatedaround (z13,-22.5); -draw Hostray rotatedaround (z13,-67.5); -draw z2{left}..z0--z1..{left}z3; -draw z2--z4; draw z3--z5; -draw z6{up}..{right}z4; draw z7{up}..{left}z5; draw z6--z7; -draw z8{up}..{right}z10{right}..{down}z9; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"144",1.2ex#+2ss#,cap#,0); "simple Latin cross"; - -pickup pensquare scaled thinl; -top z0 = (w/2-thickstroke/2,h); -z1 = z0 shifted (thickstroke,0); -lft z2 = (ss,2h/3+thickstroke/2); -z3 = z2 shifted (0,-thickstroke); -bot z4 = (w/2-thickstroke/2,0); -z5 = z4 shifted (thickstroke,0); -rt z6 = (w-ss,2h/3+thickstroke/2); -z7 = z6 shifted (0,-thickstroke); -z8 = (z0--z4) intersectionpoint (z2--z6); -z9 = (z1--z5) intersectionpoint (z2--z6); -z10 = (z0--z4) intersectionpoint (z3--z7); -z11 = (z1--z5) intersectionpoint (z3--z7); - -path latincross; -latincross = z0--z1--z9--z6--z7--z11--z5--z4--z10--z3--z2--z8--cycle; -filldraw latincross; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"134",1.2ex#+2ss#,cap#,0); "outline simple Latin cross"; -pickup pensquare scaled thinl; -draw latincross; -endchar; - -beginchar(oct"117",em#+2ss#,cap#,0); "empty circle"; - -pickup pencircle scaled 0.5thickl; -path empcirc; -empcirc = fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); -draw empcirc; - -endchar; - -beginchar(oct"155",0.9em#+2ss#,cap#,0); "intertwined rings"; - -pickup pencircle scaled (3thickl/4); -draw fullcircle scaled (em/2) shifted (w/3,h/2); -draw fullcircle scaled (em/2) shifted (2w/3,h/2); - -endchar; - -beginchar(oct"143",1.5em#+2ss#,cap#,0); "split rings"; - -pickup pencircle scaled (3thickl/4); -draw fullcircle scaled (em/2) shifted (w/4,h/2); -draw fullcircle scaled (em/2) shifted (3w/4,h/2); -draw (w/2,h-o)--(w/2,0+o); - -endchar; - -beginchar(oct"142",theight#+2ss#,theight#,0); "solid five-pointed star"; - -z0 = (w/2,h/2); -z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,72); -z3 = z2 rotatedaround (z0,72); -z4 = z3 rotatedaround (z0,72); -z5 = z4 rotatedaround (z0,72); -z6 = (z2--z5) intersectionpoint (z1--z4); -z7 = (z2--z5) intersectionpoint (z1--z3); -z8 = (z3--z5) intersectionpoint (z4--z1); -z9 = (z4--z2) intersectionpoint (z3--z1); -z10 = (z2--z4) intersectionpoint (z3--z5); - -path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; -fill fivestar; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"152",theight#+2ss#,theight#,0); "empty five-pointed star"; -pickup pencircle scaled thinl; -draw fivestar; -endchar; - -beginchar(oct"141",theight#+2ss#,theight#,0); "solid six-pointed star"; - -z0 = (w/2,h/2); -z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,60); -z3 = z2 rotatedaround (z0,60); -z4 = z3 rotatedaround (z0,60); -z5 = z4 rotatedaround (z0,60); -z6 = z5 rotatedaround (z0,60); -z7 = (z1--z3) intersectionpoint (z2--z6); -z8 = (z1--z5) intersectionpoint (z2--z6); -z9 = (z6--z4) intersectionpoint (z1--z5); -z10 = (z6--z4) intersectionpoint (z3--z5); -z11 = (z2--z4) intersectionpoint (z3--z5); -z12 = (z2--z4) intersectionpoint (z3--z1); - -path davstar; -davstar = z1--z7--z2--z12--z3--z11--z4--z10--z5--z9--z6--z8--cycle; -fill davstar; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"151",theight#+2ss#,theight#,0); "empty six-pointed star"; - -pickup pencircle scaled thinl; -draw davstar; - -endchar; - -beginchar(oct"251",em#+2ss#,cap#,0); "copyright symbol"; - -scalefactor = 0.5; - -pickup pencircle scaled 0.5thickl; -draw empcirc; - -z0 = (w/2,h+o); -z1 = z0 shifted (0,-(1/scalefactor)*thinl); -z2 = (w/2,0-o); -z3 = z2 shifted (0,(1/scalefactor)*thinl); -z4 = (ss,h/2); -z5 = z4 shifted ((1/scalefactor)*thickl,0); -z6 = (w-ss-hair,3h/4); -z7 = (w-ss,h/4); -z8 = z6 shifted (0,1.5thickl); -z9 = z8 shifted (-thickl,0); -z10 = z9 shifted (0,-0.5thickl); -z11 = z12 shifted (-(1/scalefactor)*thinl,0); -z12 = z6 shifted (0,-(1/scalefactor)*thinl); -z13 = z7 shifted (-(1/scalefactor)*thinl,0); - -path csymb; -csymb = z6--z8--z9--z10..z0{left}..{down}z4{down}..{right}z2{right}..z7--z13 -..{left}z3{left}..{up}z5{up}..{right}z1{right}..z11--z12--cycle; - -fill csymb scaled scalefactor shifted - ((scalefactor/2)*w,(scalefactor/2)*h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"253",em#+2ss#,cap#,0); "copyleft symbol"; - -pickup pencircle scaled 0.5thickl; -draw empcirc; -fill csymb scaled scalefactor shifted - ((scalefactor/2)*w,(scalefactor/2)*h) reflectedabout - ((w/2,h),(w/2,0)); - -endchar; - -beginchar(oct"204",ex#+2ss#,cap#,dep#); "dagger"; - -z0 = (w/2,h+o); -z1 = (w/2,-dep); -z2 = (ss,2h/3); -z3 = (w-ss,2h/3); -z4 = (w/2,2h/3); -z5 = 0.75[z4,z3]; -z6 = 0.75[z4,z2]; -z7 = z6 rotatedaround (z4,-90); -z8 = z6 rotatedaround (z4,90); -z9 = z5 shifted (0,thickl/2); -z10 = z5 shifted (0,-thickl/2); -z11 = z6 shifted (0,thickl/2); -z12 = z6 shifted (0,-thickl/2); -z13 = z7 shifted (thickl/2,0); -z14 = z7 shifted (-thickl/2,0); -z15 = z8 shifted (thickl/2,0); -z16 = z8 shifted (-thickl/2,0); -z17 = 1.0[z4,z8]; -z18 = z17 shifted (thickl/2,0); -z19 = z17 shifted (-thickl/2,0); -z20 = z0 shifted (thickl/2,-hair); -z21 = z0 shifted (-thickl/2,-hair); -z22 = z3 shifted (-hair,thickl/2); -z23 = z3 shifted (-hair,-thickl/2); -z24 = z2 shifted (hair,thickl/2); -z25 = z2 shifted (hair,-thickl/2); -z26 = z4 shifted (hair,hair); -z27 = z4 shifted (hair,-hair); -z28 = z4 shifted (-hair,-hair); -z29 = z4 shifted (-hair,hair); -z30 = z1 shifted (hair,hair); -z31 = z1 shifted (-hair,hair); - -fill -z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"205",ex#+2ss#,cap#,dep#); "double dagger"; - -z0 = (w/2,h+o); -z1 = (w/2,(h-dep)/2); -z2 = (ss,(3h-dep)/4); -z3 = (w-ss,(3h-dep)/4); -z4 = (w/2,(3h-dep)/4); -z5 = 0.75[z4,z3]; -z6 = 0.75[z4,z2]; -z7 = z6 rotatedaround (z4,-90); -z8 = z6 rotatedaround (z4,90); -z9 = z5 shifted (0,thickl/2); -z10 = z5 shifted (0,-thickl/2); -z11 = z6 shifted (0,thickl/2); -z12 = z6 shifted (0,-thickl/2); -z13 = z7 shifted (thickl/2,0); -z14 = z7 shifted (-thickl/2,0); -z15 = z8 shifted (thickl/2,0); -z16 = z8 shifted (-thickl/2,0); -z17 = 1.0[z4,z8]; -z18 = z17 shifted (thickl/2,0); -z19 = z17 shifted (-thickl/2,0); -z20 = z0 shifted (thickl/2,-hair); -z21 = z0 shifted (-thickl/2,-hair); -z22 = z3 shifted (-hair,thickl/2); -z23 = z3 shifted (-hair,-thickl/2); -z24 = z2 shifted (hair,thickl/2); -z25 = z2 shifted (hair,-thickl/2); -z26 = z4 shifted (hair,hair); -z27 = z4 shifted (hair,-hair); -z28 = z4 shifted (-hair,-hair); -z29 = z4 shifted (-hair,hair); -z30 = z1 shifted (thickl/2,hair); -z31 = z1 shifted (-thickl/2,hair); - -path halfdag; -halfdag = -z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; - -fill halfdag; -fill halfdag shifted (0,-(h-dep)-o); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"247",4ex#/5,cap#,dep#); "The section symbol"; - -toth = h+dep; -sh = 2toth/3-thinl+o; -z0 = (w-ss,h-sh/4); -z1 = (w/2,h+o); -z2 = z1 shifted (0,-thinl); -z3 = (ss,h-sh/4); -z4 = z3 shifted (thinl,0); -z5 = (w-ss,h-3sh/4); -z6 = z5 shifted (-thinl,0); -z7 = (w/2,h-sh); -z8 = z7 shifted (0,-thinl); -z9 = (w/2,h-sh/2+curvl/2); -z10 = z9 shifted (0,-curvl); -z11 = z0 shifted (-thinl,0); -z12 = 0.5[z0,z11] shifted (0,-o); -z13 = (ss,h-3sh/4); -z14 = z13 shifted (thinl,0); -z15 = 0.5[z13,z14] shifted (0,hair/2); - -path halfsect; -halfsect = -z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; -fill halfsect; -fill halfsect shifted (0,-sh/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"210",ex#+2ss#,ex#,0); "solid bullet"; - -fill fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); - -endchar; - -beginchar(oct"260",2pwid#+2ss#,cap#,0); "degree symbol"; - -pickup pencircle scaled thinl; -path degree; degree = fullcircle scaled 4dotwid shifted (w/2,h-2dotwid); -draw degree; - -endchar; - -beginchar(oct"154",1.2em#+2ss#,cap#,0); "simple leaf"; - -pickup pencircle scaled thinl; -leafwid = ex; -leaflen = 2.5leafwid; -bot lft z0 = (ss,0); -z1 = (leaflen,0); -z2 = z1 rotatedaround (z0,40); -z3 = 0.25[z0,z2]; -z4 = (2/3)[z0,z2]; -z5 = 0.5[z4,z2]; -z13 = 0.6[z0,z2]; -z6 = z5 rotatedaround (z4,45); -z7 = z4 rotatedaround (z0,20); -z8 = z4 rotatedaround (z0,-20); -z9 = (z3--(x3,h)) intersectionpoint (z0..z7..z2); -z10 = (z13--(x13,h)) intersectionpoint (z0..z7..z2); -z11 = (z3--(w,y3)) intersectionpoint (z0..z8..z2); -z12 = (z13--(w,y13)) intersectionpoint (z0..z8..z2); - -draw z0..z7..z2; draw z0..z8..z2; -draw z0--z2; -draw z3--z9; draw z13--z10; -draw z3--z11; draw z13--z12; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"236",ex#+2ss#,ex#,0); "empty bullet"; - -pickup pencircle scaled thinl; -draw fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); - -endchar; - -beginchar(oct"211",5em#/6+2ss#+pwid#,cap#,0); "degree Celsius symbol"; - -z1=(w-ss-userh,h-userh); -z2=z1-(0,thickstroke); -z3=(w-ss-userh,userh); -z4=z3+(0,thickstroke); -z5=(w/2+pwid/2,h+o); -z6=z5-(0,thinstroke); -z7=(w/2+pwid/2,0); -z8=z7+(0,thinstroke); -z9=(ss+pwid,h/2+o); -z10=z9+(curvwid,0); -ctsideserif(1,11,12,13,14,2)(1); -ctsideserif(4,15,16,17,18,3)(2); - -path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; -path cinbody; cinbody=z2..z6..z10..z8..z4; - -fill cinbody & botserif & cbody & topserif & cycle; -pickup pencircle scaled thinl; -draw degree shifted (-2pwid/3,0); - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"022",1.75pwid#,1.75pwid#,0); "straight baseline double quote"; - -z0 = (w/2-thickl,h-o); -z1 = z0 shifted (2accwid,-2accwid); -z2 = z0 shifted (-2accwid,-2accwid); -z3 = z0 shifted (0,-1.5pwid); -z4 = z3 shifted (-accwid,o); -z5 = z3 shifted (accwid,o); - -path singquote; singquote = z2..z0..z1--z5..z3..z4--cycle; - -fill singquote; -fill singquote shifted (2thickl,0); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"047",3.5pwid#/4,cap#,0); "straight single quote"; -fill singquote shifted (0,h-1.75pwid); -endchar; - -beginchar(oct"256",em#+2ss#,cap#,0); "registered symbol"; - -scalefactor := 0.5; - -pickup pencircle scaled 0.5thickl; -draw empcirc; - -z1 = (ss+lserwl,lserhl); -z2 = z1 shifted (2thickstroke,0); -z3 = (ss+userwl,h-userhl); -z4 = (x3+2thickstroke,h-2thinstroke); -z17 = ((ss+(2thickstroke/2)+lserwl),h); -z19 = z4 shifted (1loopgap,0); -z18 = z19 shifted (0,2thinstroke); -z20 = (w-ss-thickstroke,3h/4); -z21 = z20-(1.5curvwid,0); -z22 = z24 shifted (loopgap,0); -z23 = z22 shifted (0,2thinstroke); -z30 = (x4,0); -z24 = 0.5[z30,z17]; x24 := x4; -z25 = z24+(0,2thinstroke); -z26 = (w-2thickstroke-lserwl/2,0); -z27 = z26 shifted (2thickstroke,0); -z28 = z27+(0,lserstep); -z29 = z28-(lserstep,0); -z32 = z22+(2thickstroke,0); -llserif(1,5,6,7,8)(1); -lrserif(2,13,14,15,16)(1); -ulserif(3,9,10,11,12)(1); - -path rpath; rpath = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; -path runpath; runpath = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; - -fill rpath scaled scalefactor shifted - ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); -unfill runpath scaled scalefactor shifted - ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"255",em#+2ss#,cap#,0); "circled P"; - -scalefactor := 0.5; - -pickup pencircle scaled 0.5thickl; -draw empcirc; - -z1 = (ss+lserwl,lserhl); -z2 = z1 shifted (2thickstroke,0); -z3 = (ss+userwl,h-userhl); -z4 = (x3 + 2thickstroke,h-2thinstroke); -z17=((ss+(2thickstroke/2)+lserwl),h); -z18=(w/2,h); -z19=(w/2,h-2thinstroke); -z20 = (w-ss,3h/4); -z21 = z20 shifted (-2curvwid,0); -z22=(x18,h/2); -z23=z22+(0,2thinstroke); -z30=(x4,0); -z26 = z2 shifted (0,-lserhl); -z27 = z4 shifted (0,thinstroke); -z24 = 0.5[z26,z27]; y24 := y22; -z25 = z24 shifted (0,2thinstroke); -llserif(1,5,6,7,8)(1); -lrserif(2,13,14,15,16)(1); -ulserif(3,9,10,11,12)(1); - -path pfill; pfill = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- - z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; -path punfill; -punfill = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; - -fill pfill scaled scalefactor shifted - ((scalefactor/2)*w,(scalefactor/2)*h); -unfill punfill scaled scalefactor shifted - ((scalefactor/2)*w,(scalefactor/2)*h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; -beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; - -z0 = (o,o); -z1 = (w-o,h-o); - -pickup pencircle scaled thinl; - -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"133",2pwid#,cap#+ss#,dep#); "The open square double bracket"; - -z0 = (w-ss,h); -z1 = z0 shifted (0,-thinl); -z2 = (ss,h); -z3 = z2 shifted (thinl,-thinl); -z4 = (ss,-dep); -z5 = z4 shifted (thinl,thinl); -z6 = (w-ss,-dep); -z7 = z6 shifted (0,thinl); -z8 = 0.5[z0,z1] shifted (0,0); -z9 = 0.5[z7,z6] shifted (0,0); -z10 = z3 shifted (thickl,0); -z11 = z5 shifted (thickl,0); - -path secline; secline = z10--z11; -pickup pencircle scaled thinl; -draw secline; - -path squarebrack; -squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; -fill squarebrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"135",2pwid#,cap#+ss#,dep#); "The close square double bracket"; -fill squarebrack rotatedaround ((w/2,(h-dep)/2),180); -pickup pencircle scaled thinl; -draw secline rotatedaround ((w/2,(h-dep)/2),180); -endchar; - -beginchar(oct"231",3em#/5+2ss#,cap#,0); "single-line pilcrow"; - -z0 = (w-ss-lserw,lserhl); -z1 = z0 shifted (-thickstroke,0); -z2 = (w-ss-userw,h-userhl); -z3 = z2 shifted (-thickstroke,0); -urserif(2,4,5,6,7)(1); -llserif(1,8,9,10,11)(1); -lrserif(0,12,13,14,15)(1); -z16 = (ss,3h/4); -z17 = z16 shifted (curvwid,0); -z18 = (x1,h/2); -z19 = z18 shifted (thickstroke,0); - -fill -z0..z12..z13--z14--z10--z9..z8..z1--z18{left}..{up}z16{up}..{right}z7--z6--z5..z4..z2--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"266",4em#/5+2ss#,cap#,0); "double-line pilcrow"; - -pickup pencircle scaled thinl; -z0 = (w-ss-lserw,lserhl); -z1 = z0 shifted (-1.5thickstroke,0); -z2 = (w-ss-userw,h-userhl); -z3 = z2 shifted (-1.5thickstroke,0); -urserif(2,4,5,6,7)(1); -llserif(1,8,9,10,11)(1); -lrserif(0,12,13,14,15)(1); -lft z16 = (ss,3h/4); -z17 = z16 shifted (curvwid,0); -z18 = (x1,h/2); -z19 = z18 shifted (1.5thickstroke,0); -z20 = (x3,h); - -filldraw z20{left}..{down}z16{down}..{right}z18--cycle; -draw -z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"300",ex#+2ss#,ex#,0); "solid triangle bullet"; - -pickup pencircle scaled thinstroke; -z0 = (w/2-thinstroke-ss,h/2); -z1 = (x0+w/2,y0); -z2 = z1 rotatedaround (z0,120); -z3 = z2 rotatedaround (z0,120); - -path tribull; tribull = z1--z2--z3--cycle; -fill tribull; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"301",ex#+2ss#,ex#,0); "empty triangle bullet"; - -pickup pencircle scaled thinstroke; - -draw tribull; - -endchar; - -beginchar(oct"224",digwid#+2ss#,cap#,0); "The interrobang"; - -z0 = (w/2,h+o); -z1 = z0 shifted (0,-thinl); -z2 = (w-ss,3h/4); -z3 = z2 shifted (-1.5thinl,0); -z4 = (ss,3h/4); -z5 = (w/2-thickl/2,3dotwid); -z6 = z5 shifted (thickl,0); -z7 = (w/2-thickl/2,h/2); -z8 = z7 shifted (thickl,0); -z9 = z7 shifted (0,thinl); -z10 = z9 shifted (thickl,0); -z15 = z1 shifted (-thickl/2,-1.5thickl); -z17 = z15 shifted (thickl,0); -z16 = 0.5[z5,z6]; y16 := dotwid; -z19 = 0.5[z15,z17] shifted (0,hair); - -drtbulb(4,11,12,13,14); - -fill -z4{up}..{right}z0{right}..{down}z2{down}..{left}z8--z6--z5--z7{up}..{right}z10..{up}z3{up}..{left}z1{left}..{dir --115}z13{right}..z12..z11..cycle; -fill z7--z15..z19..z17--z8--cycle; -fill fullcircle scaled 2dotwid shifted z16; - -picture interrobang; -interrobang := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"225",digwid#+2ss#,cap#,dep#); "The inverted interrobang"; - -currentpicture := interrobang rotatedaround ((w/2,(h-dep)/2),180); - -endchar; - -beginchar(oct"302",1.2em#+2ss#,cap#,0); "The asterism"; - -currentpicture := asterisk shifted (w/2-ex/2-ss,h/2) + - asterisk + asterisk shifted (w/2-ss,0); - -endchar; - -beginchar(oct"306",ex#+2ss#,ex#,0); "solid lozenge"; - -pickup pencircle scaled thinl; -top z0 = (w/2,h); -rt z1 = (w-ss,h/2); -bot z2 = (w/2,0); -lft z3 = (ss,h/2); - -path lozenge; lozenge = z0--z1--z2--z3--cycle; -fill lozenge; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"307",ex#+2ss#,ex#,0); "empty lozenge"; - -pickup pencircle scaled thinl; -draw lozenge; - -endchar; - -beginchar(oct"170",ex#+2ss#,ex#,0); "simple Greek cross"; - -pickup pensquare scaled thinl; -top z0 = (w/2-thickstroke/2,h); -z1 = z0 shifted (thickstroke,0); -rt z2 = (w-ss,h/2+thickstroke/2); -z3 = z2 shifted (0,-thickstroke); -bot z4 = (w/2-thickstroke/2,0); -z5 = z4 shifted (thickstroke,0); -lft z6 = (ss,h/2+thickstroke/2); -z7 = z6 shifted (0,-thickstroke); -z8 = (z0--z4) intersectionpoint (z6--z2); -z9 = (z1--z5) intersectionpoint (z6--z2); -z10 = (z7--z3) intersectionpoint (z0--z4); -z11 = (z7--z3) intersectionpoint (z1--z5); - -path greekcross; -greekcross = z0--z8--z6--z7--z10--z4--z5--z11--z3-- - z2--z9--z1--cycle; -filldraw greekcross; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"171",ex#+2ss#,ex#,0); "outline simple Greek cross"; -pickup pensquare scaled thinl; -draw greekcross; -endchar; - -beginchar(oct"172",ex#+2ss#,ex#,0); "simple saltire cross"; - -pickup pencircle scaled thinl; -lft z0 = (ss,h-thickl); -z1 = z0 shifted (thickl,0) rotatedaround (z0,45); -rt z2 = (w-ss,h-thickl); -z3 = z2 shifted (-thickl,0) rotatedaround (z2,-45); -lft z4 = (ss,thickl); -z5 = z4 shifted (thickl,0) rotatedaround (z4,-45); -rt z6 = (w-ss,thickl); -z7 = z6 shifted (thickl,0) rotatedaround (z6,225); -z8 = (z1--z6) intersectionpoint (z4--z3); -z9 = (z0--z7) intersectionpoint (z4--z3); -z10 = (z2--z5) intersectionpoint (z1--z6); -z11 = (z0--z7) intersectionpoint (z5--z2); - -path saltire; -saltire = z1--z8--z3--z2--z10--z6--z7--z11--z5--z4--z9--z0--cycle; -filldraw saltire; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"173",ex#+2ss#,ex#,0); "outline simple saltire cross"; -pickup pencircle scaled thinl; -draw saltire; -endchar; - -beginchar(oct"074",1.8pwid#,cap#+ss#,dep#); "open wide angle bracket"; - -pickup pencircle scaled thinl; -top rt z0 = (w-ss,h); -lft z1 = (ss,(h-dep)/2); -bot rt z2 = (w-ss,-dep); - -path wideanglebrack; wideanglebrack = z0--z1--z2; -draw wideanglebrack; - -endchar; - -beginchar(oct"076",1.8pwid#,cap#+ss#,dep#); "close wide angle bracket"; - -pickup pencircle scaled thinl; -draw wideanglebrack rotatedaround ((w/2,(h-dep)/2),180); - -endchar; - -beginchar(oct"025",3pwid#,ex#,0); "The en-dash, --"; - -z0 = (ss,3h/4); -z1 = (w-ss,y0); -z2 = z0 shifted (thinwid/2,thinwid/2); -z3 = z2 shifted (0,-thinwid); -z4 = z1 shifted (-thinwid/2,thinwid/2); -z5 = z4 shifted (0,-thinwid); - -fill z2..z0..z3--z5..z1..z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"026",em#+2ss#,ex#,0); "The em-dash, ---"; - -z0 = (ss,3h/4); -z1 = (w-ss,y0); -z2 = z0 shifted (thinwid/2,thinwid/2); -z3 = z2 shifted (0,-thinwid); -z4 = z1 shifted (-thinwid/2,thinwid/2); -z5 = z4 shifted (0,-thinwid); - -fill z2..z0..z3--z5..z1..z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"075",3pwid#,ex#,0); "The en-dash, --"; - -z0 = (ss,3h/4); -z1 = (w-ss,y0); -z2 = z0 shifted (thinwid/2,thinwid/2); -z3 = z2 shifted (0,-thinwid); -z4 = z1 shifted (-thinwid/2,thinwid/2); -z5 = z4 shifted (0,-thinwid); - -fill z2..z0..z3--z5..z1..z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"227",1.3em#,cap#,0); "trademark symbol, TM"; - -z0 = (ss,h-2thinstroke); -z1 = (ss,h); -z2 = (ss+8thickstroke,h); -z3 = (x2,y0); -z4 = 0.5[z0,z3] shifted (-2thickstroke/2,0); -z5 = z4 shifted (2thickstroke,0); -z6 = z4 shifted (0,-8thickstroke); -z7 = z6 shifted (2thickstroke,0); -z8 = z0 shifted (0,-2hair); -z9 = z8 shifted (2hair,0); -z10 = z9 shifted (0,2hair); -z11 = z6 shifted (-2hair,0); -z12 = z11 shifted (0,2hair); -z13 = z12 shifted (2hair,0); -z14 = z7 shifted (2hair,0); -z15 = z14 shifted (0,2hair); -z16 = z15 shifted (-2hair,0); -z17 = z3 shifted (0,-2hair); -z18 = z17 shifted (-2hair,0); -z19 = z18 shifted (0,2hair); - -path tradet; -tradet = z4--z10--z9--z8--z1--z2--z17--z18--z19--z5-- - z16--z15--z14--z11--z12--z13--cycle; - -z20 = z2 shifted (2hair,0); -z21 = z20 shifted (2hair,0); -z22 = z20 shifted (0,-2hair); -z23 = z22 shifted (2hair,0); -z24 = (x23,y15); -z25 = z24 shifted (-2hair,0); -z26 = z25 shifted (0,-2hair); -z27 = z26 shifted (2hair,0); -z28 = z27 shifted (2thickstroke,0); -z29 = (x28,y23-2hair); -z30 = z28 shifted (3thickstroke,0); -z31 = z30 shifted (3thickstroke,0); -z32 = (x31,y29-2hair); -z33 = z31 shifted (2thickstroke,0); -z34 = z33 shifted (2hair,0); -z35 = z34 shifted (0,2hair); -z36 = z35 shifted (-2hair,0); -z37 = (x36,y21); -z38 = z37 shifted (2hair,0); -z39 = z38 shifted (0,-2hair); -z40 = z39 shifted (-2hair,0); -z41 = z30 shifted (0,2thickstroke+2hair); -z42 = (x32-2thinstroke,y21); -z43 = (x29+2thinstroke,y21); - -path tradem; -tradem = z24--z25--z26--z27--z28--z29--z30--z32-- - z31--z34--z35--z36--z40--z39--z38--z42--z41--z43-- - z20--z22--z23--cycle; - -fill tradet scaled 0.5 shifted (ss,h-4thickstroke); -fill tradem scaled 0.5 shifted (ss,h-4thickstroke); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"127",5em#/6+2ss#,cap#,0); "capital Omega"; - -z0 = (ss,0); -z1 = (w-ss,0); -z2 = z0 shifted (thickstroke,0); -z3 = z1 shifted (-thickstroke,0); -z4 = z0 shifted (0,2lserhl); -z5 = z1 shifted (0,2lserhl); -z6 = z5 shifted (-lserstep,0); -z7 = z4 shifted (lserstep,0); -z8 = z2 shifted (thickstroke,0); -z9 = z3 shifted (-thickstroke,0); -z10 = (ss,h/2+2lserhl); -z11 = (w-ss,h/2+2lserhl); -z12 = z10 shifted (thickstroke,0); -z13 = z11 shifted (-thickstroke,0); -z14 = (w/2,h+o); -z15 = z14 shifted (0,-thinstroke); -z16 = z8 shifted (0,thinstroke); -z17 = z9 shifted (0,thinstroke); -z18 = z9 shifted (-thickstroke,0); -z19 = z8 shifted (thickstroke,0); - -path omega; omega = - z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. - {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. - {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. - {down}z12{down}..{dir -60}z19--cycle; -fill omega; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"115",5em#/6+2ss#,cap#,0); "upside-down capital Omega"; -fill omega rotatedaround ((w/2,h/2),180); -endchar; - -beginchar(oct"213",ex#+2ss#,ex#,0); "old-style cents symbol"; - -z0 = (w/2+hair,h+o); -z1 = (w/2+hair,-o); -z2 = (w-ss,0.7h); -z3 = (w-ss,h/4); -z4 = (ss,h/2); -z9 = z0 shifted (0,-thinl); -z10 = z4 shifted (curvl,0); -z11 = z1 shifted (0,thinl); -z12 = z3 shifted (0,hair/2); -z13 = z12 shifted (-hair/2,0); -z14 = (w-ss,h/2); - -urtbulb(2,5,6,7,8); - -path cpath; cpath = -z1{right}..z3..z12..z13{dir -135}..{left}z11{left}..{up}z10{up}..{right}z9{right}..{dir --40}z7{left}..{down}z6..z5..z2..{left}z0{left}..z4..{right}z1..cycle; - -fill cpath; - -z15 = (w-ss,h+thickstroke); -z16 = (ss,-thickstroke); -pickup pencircle scaled thinl; -draw z15--z16; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"214",ex#/phi+2ss#,asch#,0); "The Letter f"; - -z0 = (ss+lserwl,lserhl); -z1 = z0 shifted (thickl,0); -z2 = (ss+lserwl,h-1.5userhl); -z3 = z2 shifted (thickl,0); -z12 = (x0,ex-thinl); -z13 = z12 shifted (thickl,0); -z14 = z12 shifted (0,thinl); -z15 = z13 shifted (0,thinl); -z16 = (ss+hair,y12); -armlen = x12 - x16; -z17 = z13 shifted (armlen,0); -z18 = z16 shifted (0,thinl); -z19 = z17 shifted (0,thinl); -z20 = 0.5[z16,z18] shifted (-hair,0); -z21 = 0.5[z19,z17] shifted (hair,0); -z22 = (x19,y3); -z27 = 0.5[z3,z22]; y27 := h+o; -z28 = z27 shifted (0,-thinl); - -lrserif(1,4,5,6,7)(1); -llserif(0,8,9,10,11)(1); -dlftbulb(22,23,24,25,26); - -fill -z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir 160}..z28..{down}z3--z15--z19..z21..z17--z13--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"242",ex#+2ss#,ex#,0); "cents symbol"; - -fill cpath; - -z15 = (w/2,h+thickstroke); -z16 = (w/2,-thickstroke); -pickup pencircle scaled thinl; -draw z15--z16; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"244",em#+2ss#,cap#,0); "empty circle, rays"; - -pickup pencircle scaled 0.5thickl; -draw empcirc; -top rt z0 = (w-ss,h); -top lft z1 = (ss,h); -bot rt z2 = (w-ss,0); -bot lft z3 = (ss,0); -z4 = (w/2,h/2); -z5 = (z0--z4) intersectionpoint empcirc; -z6 = (z3--z4) intersectionpoint empcirc; -z7 = (z2--z4) intersectionpoint empcirc; -z8 = (z1--z4) intersectionpoint empcirc; - -draw z3--z6; draw z2--z7; draw z5--z0; draw z8--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"206",pwid#+2ss#,cap#+ss#,dep#); "The double pipe"; - -pickup pencircle scaled thinl; -lft z0 = (w/2-thickstroke,h-o); -lft z1 = (w/2-thickstroke,-dep+o); -rt z2 = (w/2+thickstroke,h-o); -rt z3 = (w/2+thickstroke,-dep+o); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4); -endchar; - -beginchar(oct"326",ex#+2ss#,ex#,0); "The times sign"; - -pickup pencircle scaled thinl; -top lft z0 = (ss,h); -top rt z1 = (w-ss,h); -bot lft z2 = (ss,0); -bot rt z3 = (w-ss,0); - -draw z0--z3; draw z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"366",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; - -pickup pencircle scaled thinl; -lft z0 = (ss,(h+d)/2-d); -rt z1 = (w-ss,(h+d)/2-d); - -draw z0--z1; -fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); -fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"032",ex#+2ss#,cap#,0); "High tie"; - -penpos0(1.5thinl,0); -z0l = (ss,3h/4); -penpos1(1.5thinl,180); -z1l = (w-ss,3h/4); -penpos2(thickl,-90); -z2l = (w/2,h+o); - -penstroke z0e..z2e..z1e; - -picture tie; tie := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"033",ex#+2ss#,ex#,0); "Low tie"; - -currentpicture := tie shifted (0,-(cap-ex)); - -endchar; - -beginchar(oct"035",ex#+2ss#,cap#,0); "High tie"; - -currentpicture := tie shifted (0,-(cap-ex)); - -endchar; - -beginchar(oct"034",3ex#/4+2ss#,cap#,0); "Narrow tie"; - -penpos0(1.5thinl,0); -z0l = (ss,3h/4); -penpos1(1.5thinl,180); -z1l = (w-ss,3h/4); -penpos2(thickl,-90); -z2l = (w/2,h+o); - -penstroke z0e..z2e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"156",1.2ex#+2ss#,cap#,0); "Eighth note"; - -z0 = (ss,2w/8); -z1 = (2w/8,4w/8-ss); -z2 = (4w/8,2w/8); -z3 = (2w/8,0-o); -z5 = (x2,h+o); -z6 = z5 shifted (-thinl,0); -z7 = z2 shifted (-thinl,0); -penpos8(thinl,0); -z8 = 0.5[z6,z5]; -penpos9(1.25thinl,45); -z9 = z8 shifted (thickl,-2thickl); -penpos10(1.5thinl,0); -z10 = z9 shifted (thickl,-thickl); -penpos11(1.5thinl,0); -z11l = z10 shifted (-thickl,-thickl); -penpos12(1.5thinl,45); -z12l = (x10r,y2); - -fill z0..z1..z2..z3..cycle; -fill z6--z5--z2--z7--cycle; -penstroke z8e..z9e..z10e..z11e;%..z12e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"176",1.8ex#+2ss#,ex#,0); "Large tilde"; - -penpos0(1.5thickl,-30); -z0l = (ss,h-8accwid); -penpos1(1.5thickl,-90); -z1l = (w/3,h+o); -penpos2(1.5thickl,-90); -%z2 = (2w/3,y0r); -z2 = (2w/3,y0); -penpos3(1.5thickl,-30); -y3l = (y1l); -x3r = (w-ss); - -penstroke z0e..{right}z1e; -penstroke z1e{right}..{right}z2e; -penstroke z2e{right}..z3e; -%penstroke z0e..z1e..z2e..z3e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"200",ex#+2ss#,cap#,0); "Cupped tie"; - -penpos0(1.5thinl,0); -z0l = (ss,h+o); -penpos1(1.5thinl,180); -z1l = (w-ss,h+o); -penpos2(thickl,90); -z2l = (w/2,3h/4); - -penstroke z0e..z2e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"201",0.75ex#+2ss#,cap#,0); "Cupped tie"; - -penpos0(1.5thinl,0); -z0l = (ss,h+o); -penpos1(1.5thinl,180); -z1l = (w-ss,h+o); -penpos2(thickl,90); -z2l = (w/2,3h/4); - -penstroke z0e..z2e..z1e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"202",1.9pwid#+2ss#,cap#,0); "Close straight double quotes"; - -z0 = (0,h-2accwid); -z1 = z0 shifted (2accwid,2accwid); -z2 = z1 shifted (2accwid,-2accwid); -z3 = z0 shifted (accwid,-pwid); -z4 = z3 shifted (accwid,-accwid); -z5 = z4 shifted (accwid,accwid); -z6 = 0.5[z1,z4]; -z7 = (w/4,h-1.5accwid-0.5pwid); -z8 = (3w/4,h-1.5accwid-0.5pwid); - -path straight; straight = z0..z1..z2--z5..z4..z3--cycle; -fill straight shifted (w/4-2accwid,0) rotatedaround (z7,-30); -fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,-30); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"203",1.9pwid#+2ss#,cap#,0); "Open straight double quotes"; - -z7 = (w/4,h-1.5accwid-0.5pwid); -z8 = (3w/4,h-1.5accwid-0.5pwid); - -fill straight shifted (w/4-2accwid,0) rotatedaround (z7,30); -fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,30); - -endchar; - -beginchar(oct"207",7.5em#/6,cap#,0); "The pertriqua sign, %"; - -zeroh = 1.2pwid; -zerohh = 3ex/4; -semw = 5em/6-ss; -z0 = (0.6zeroh,h); -z1 = z0 shifted (0,-thinl); -z2 = (0.6zeroh,h-zerohh); -z3 = z2 shifted (0,thinl); -z4 = (1.2zeroh,h-zerohh/2); -z5 = z4 shifted (-1.7thinl,0); -z6 = (ss,h-zerohh/2); -z7 = z6 shifted (thinl,0); - -fill z0..z4..z2..z6..cycle; -unfill z1..z5..z3..z7..cycle; - -z10 = (semw+ss-0.6zeroh,zerohh); -z11 = z10 shifted (0,-thinl); -z12 = (semw+ss-0.6zeroh,0); -z13 = z12 shifted (0,thinl); -z14 = (semw,zerohh/2); -z15 = z14 shifted (-1.7thinl,0); -z16 = (semw+ss-1.2zeroh,zerohh/2); -z17 = z16 shifted (thinl,0); - -fill z10..z14..z12..z16..cycle; -unfill z11..z15..z13..z17..cycle; - -z22 = (semw,h); -z23 = z22 shifted (0,-thinl); -z20 = 0.5[z0,z22] shifted (0,-0.25pwid); -z21 = z20 shifted (0,-thinl); -z24 = (ss,-o); -z25 = z24 shifted (0,1.00thinl); -z26 = z24 shifted (0.75thinl,0); -z27 = z23 shifted (-1.8thinl,-hair); - -fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; - -z30 = (w-0.6zeroh,zerohh); -z31 = z30 shifted (0,-thinl); -z32 = (w-0.6zeroh,0); -z33 = z32 shifted (0,thinl); -z34 = (w-ss,zerohh/2); -z35 = z34 shifted (-1.7thinl,0); -z36 = (w-1.2zeroh,zerohh/2); -z37 = z36 shifted (thinl,0); - -fill z30..z34..z32..z36..cycle; -unfill z31..z35..z33..z37..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"215",5em#/6+ss#,cap#,0); "Capital C, slashed vertically"; - -z1=(w-ss-userh,h-userh); -z2=z1-(0,thickstroke); -z3=(w-ss-userh,userh); -z4=z3+(0,thickstroke); -z5=(w/2,h+o); -z6=z5-(0,thinstroke); -z7=(w/2,0); -z8=z7+(0,thinstroke); -z9=(ss,h/2+o); -z10=z9+(curvwid,0); -ctsideserif(1,11,12,13,14,2)(1); -ctsideserif(4,15,16,17,18,3)(2); - -pickup cappen; -path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; -path cinbody; cinbody=z2..z6..z10..z8..z4; - -pickup pencircle scaled 2thinl; -z20 = (3w/5,h+thinl); -z21 = (3w/5,0-thinl); -draw z20---z21; - -fill cinbody & botserif & cbody & topserif & cycle; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); - -endchar; - -beginchar(oct"216",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0); -"Capital W, double slashed horizontally"; - -bottompoints=(w-2ss)/3; - -z1 = (ss+userw,h-userh); -z2 = z1 shifted (thickstroke,0); -z3 = z2 shifted (userw+hair+userw,0); -z4 = z3 shifted (thickstroke,0); -z5 = z4 shifted (userw+hair+userw+thinstroke,0); -z6 = z5 shifted (-thinstroke,0); -z7 = (w/3+thinstroke/2,0); -z8 = (2w/3+thinstroke/2,0); -z33=(w/2,3h/4); -z34=z8+(.4thinstroke,2.2thickstroke); -z35=z7+(0.4thinstroke,2.2thickstroke); -z36=0.96[z8,z3]; - -ulserif(1,9,10,11,12)(1); -urserif(2,13,14,15,16)(1); -ulserif(3,17,18,19,20)(1); -urserif(4,21,22,23,24)(1); -ulserif(6,25,26,27,28)(1); -urserif(5,29,30,31,32)(1); - -y11 := y15 := y19 := y23 := y27 := y31 := h; - -fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z36--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; - -pickup pencircle scaled 1.5thinl; - -lft z40 = (ss,2h/3); -lft z41 = (ss,0.4h); -rt z42 = (w-ss,2h/3); -rt z43 = (w-ss,0.4h); - -draw z40--z42; draw z41--z43; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"217",5em#/6+2ss#,cap#,0); -"Capital N, double slashed, horizontally"; - -z1 = (ss+userw,h-userh); -z2=z1+(thinstroke,-0.3thickstroke); -z3 = (ss+lserw,lserh); -z4=z3+(thinstroke,0); -z5=(w-ss-userw,h-userh); -z6=z5-(thinstroke,0); -z7=(w-ss-userw,-o); -z28=z7+(-thinstroke,2thickstroke); -z29=z27+(thickstroke/2,0); - -llserif(3,8,9,10,11)(1); -lrserif(4,12,13,14,15)(1); -ulserif(6,16,17,18,19)(1); -urserif(5,20,21,22,23)(1); -ulserif(1,24,25,26,27)(1); - -y26 := y27 := y29 := y18 := y22 := h; -y10 := y14 := 0; - -fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; - -pickup pencircle scaled 1.5thinl; - -lft z40 = (ss,2h/3); -lft z41 = (ss,0.4h); -rt z42 = (w-ss,2h/3); -rt z43 = (w-ss,0.4h); - -draw z40--z42; draw z41--z43; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"220",em#+2ss#,cap#,0); "Capital G, slashed vertically"; - -z1=(w-ss-userw-thickstroke/2,h-userh); -z2=z1-(0,thickstroke); -z3=(w-ss-userw,2userh); -z5=(w/2,h+o); -z6=z5-(0,thinstroke); -z7=(w/2,0); -z8=z7+(0,thinstroke); -z9=(ss,h/2); -z10=z9+(curvwid,0); -z4=z3-(thickstroke,0); -z11=(x3,h/2-userh); -z12=z11-(thickstroke,0); - -ulserif(12,15,16,17,18)(1); -urserif(11,19,20,21,22)(1); -ctsideserif(1,23,24,25,26,2)(1); - -path gbody; gbody = -z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; -path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; - -fill gbody & topserif & ginbody & cycle; - -pickup pencircle scaled 2thinl; -z30 = (w/2,h+thinl); -z31 = (w/2,0-thinl); -draw z30--z31; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"221",2em#/3+2ss#,cap#,0); "Capital P, slashed horizontally"; - -z1 = (ss+lserw,lserh); -z2 = z1 shifted (thickstroke,0); -z3 = (ss+userw,h-userh); -z4 = (x3 + thickstroke,h-thinstroke); -z17=((ss+(thickstroke/2)+lserw),h); -z18=(w/2,h); -z19=(w/2,h-thinstroke); -z20 = (w-ss,3h/4); -z21 = z20 shifted (-curvwid,0); -z22=(x18,h/2); -z23=z22+(0,thinstroke); -z30=(x4,0); -z26 = z2 shifted (0,-lserh); -z27 = z4 shifted (0,thinstroke); -z24 = 0.5[z26,z27]; -z25 = z24 shifted (0,thinstroke); -llserif(1,5,6,7,8)(1); -lrserif(2,13,14,15,16)(1); -ulserif(3,9,10,11,12)(1); - -y11 := y12 := h; -y7 := y8 := y15 := 0; - -fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- - z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; -unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; - -pickup pencircle scaled 2thinl; -lft z40 = (ss,h/3); -rt z41 = (w-ss,h/3); -draw z40--z41; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"243",5em#/6+2ss#,cap#,0); -"The British pound sign, single-slashed"; - -z0 = (2w/3,h+o); -z1 = z0 shifted (0,-1.5thinl); -z2 = (w-ss-hair,4h/5); -z3 = z2 shifted (-1.5thinl,0); -z4 = 0.5[z2,z3] shifted (0,-hair/2); -z5 = (0.5w,4h/5); -z6 = z5 shifted (-thickl,0); -z7 = (w/2+thickl/2,h/7); -z8 = z7 shifted (-thickl,0); -z9 = (x8-thickl,-hair/4); -z10 = z9 shifted (0,thinl); -z12 = (ss,h/7); -z13 = z12 shifted (thickl,0); -z14 = 0.5[z8,z7] shifted (0,-thinl); -z15 = z14 shifted (0,1.3thinl); -z16 = (2w/3,-hair/4); -z17 = z16 shifted (0,1.5thinl); -z18 = (w-ss-hair,userw); -z19 = z18 shifted (0,1.5thinl); -z20 = 0.5[z18,z19] shifted (hair,0); -z30 = (x9,y13+(y10+y13)/2); -z31 = z30 shifted (0,1.5thinl); - -fill -z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z30..z14..{right}z16{right}..z18..z20..z19{dir -200}..{left}z17{left}..z7..z31..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle; - -picture britpound; britpound := currentpicture; - -pickup pencircle scaled 2thinl; -lft z21 = (w/5,0.5h); -rt z22 = (4w/5,0.5h); - -draw z21--z22; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"222",5em#/6+2ss#,cap#,0); -"The British pound sign, double-slashed"; - -currentpicture := britpound; -pickup pencircle scaled 1.5thinl; -lft z21 = (w/6,0.4h); -rt z22 = (5w/6,0.4h); -lft z23 = (w/6,0.6h); -rt z24 = (5w/6,0.6h); - -draw z21--z22; -draw z23--z24; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"223",5em#/6+2ss#,cap#,0); "Recipe symbol"; - -z1 = (ss+lserw,lserh); -z2 = z1 shifted (thickstroke,0); -z3 = (ss+userw,h-userh); -z4 = (x3+thickstroke,h-thinstroke); -z17=((ss+(thickstroke/2)+lserw),h); -z19 = z4 shifted (loopgap,0); -z18 = z19 shifted (0,thinstroke); -z20=(w-ss-thickstroke,3h/4); -z21=z20-(curvwid,0); -z22 = z24 shifted (loopgap,0); -z23 = z22 shifted (0,thinstroke); -z30=(x4,0); -z24=0.5[z30,z17]; x24 := x4; -z25=z24+(0,thinstroke); -z26=(w-thickstroke-lserw/2,0); -z27=z26+(lserw+lserstep,0); -z28=z27+(0,lserstep); -z29=z28-(lserstep,0); -z32=z22+(thickstroke,0); -z31=(1/thickstroke)[z32,z4]; -llserif(1,5,6,7,8)(1); -lrserif(2,13,14,15,16)(1); -ulserif(3,9,10,11,12)(1); - -y11 := y12 := h; -y7 := y8 := y15 := 0; - -fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; -unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; - -pickup pencircle scaled 1.5thinl; -top rt z40 = (w-ss,h/2); -bot lft z41 = (w/2,0); -draw z40--z41; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); - -endchar; - -beginchar(oct"226",1.2ex#+2ss#,asch#,0); -"Lowercase d, slashed and underlined"; - -z0 = (w-ss-lserwl,h-userhl); -z1 = z0 shifted (-thickl,0); -z2 = (x0,lserhl); -z3 = z2 shifted (-thickl,0); -z12 = z0 shifted (0,userhl); -z13 = z3 shifted (0,-lserhl); -z19 = 0.5[z15,z17]; y19 := ex/2; -z20 = (x2,(ex+o)/2); -z21 = (ss,(ex+o)/2); -z14 = 0.5[z22,z23] shifted (0,ex/2); -z15 = z14 shifted (0,-thinl); -z16 = 0.5[z22,z23] shifted (0,-ex/2-o); -z17 = z16 shifted (0,thinl); -z22 = z21 shifted (curvl,0); -z23 = z20 shifted (-thickl,0); - -ulserif(1,4,5,6,7)(1); -lrserif(2,8,9,10,11)(1); - -fill z1..z4..z5--z6--z12--z2..z8..z9--z10--z13--z1--cycle; -fill -z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; -unfill -z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; - -pickup pencircle scaled 1.5thinl; -lft z30 = (w/3,3h/4); -rt z31 = (w-ss,3h/4); -lft z32 = (ss,0-thickl); -rt z33 = (w-ss,0-thickl); -draw z30--z31; draw z32--z33; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"237",1.3em#,cap#,0); "SM"; - -th = 8thickl+2thinl; -z0 = (ss,3th/4); -z1 = (3w/4-ss,3th/4); -z2 = (3w/4-ss,th/4); -z3 = (ss,th/4); -z4 = (6w/16,th+o); -z5 = (6w/16,0-o); -z6 = z1 shifted (-2thickl,0); -z7 = z4 shifted (0,-2thinl); -z8 = z0 shifted (2thickl,0); -z9 = z2 shifted (-2thickl,0); -z10 = z5 shifted (0,2thinl); -z11 = z3 shifted (2thickl,0); -z12 = 0.5[z6,z1] shifted (0,-thickl); -z13 = 0.5[z3,z11] shifted (0,thickl); - -pickup pencircle scaled 2; -path sm; sm = -z1{up}..{left}z4{left}..{down}z0{down}..{down}z9{down}..{left}z10{left}..{up}z11..z13..z3{down}..{right}z5{right}..{up}z2{up}..{up}z8{up}..{right}z7{right}..{down}z6..z12..cycle; - -fill sm scaled 0.5 shifted (ss,h-4thickl-thinl); -fill tradem scaled 0.5 shifted (ss,h-4thickl); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"235",1.5ex#+2ss#,cap#,0); "The Letter e"; - -z0 = (w/2,h+o); -z1 = (w/2,-o); -z2 = (w-ss,h/2); -z3 = (w-ss-hair,h/4); -z4 = (ss,h/2); -z9 = z0 shifted (0,-thinl); -z10 = z4 shifted (curvl,0); -z11 = z1 shifted (0,thinl); -z12 = z3 shifted (0,hair/2); -z13 = z12 shifted (-hair/2,0); -z14 = z2 shifted (-curvl,thinl); -z15 = z10 shifted (0,thinl); - -fill -z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir --120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"234",ex#+2ss#,cap#,0); "Simple perbiqua sign"; - -pickup pencircle scaled 1.5thinl; -top rt z0 = (w-ss,h+o); -bot lft z1 = (ss,0-o); -z2 = (ss+dotwid,h-dotwid); -z3 = (w-ss-dotwid,dotwid); - -draw z0--z1; -fill fullcircle scaled 2dotwid shifted z2; -fill fullcircle scaled 2dotwid shifted z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"233",8em#/6+2ss#,cap#,0); "Numero (No) sign"; - -z1 = (ss+userw,h-userh); -z2=z1+(thinstroke,-0.3thickstroke); -z3 = (ss+lserw,lserh); -z4=z3+(thinstroke,0); -z5=(5em/6-userw,h-userh); -z6=z5-(thinstroke,0); -z7=(5em/6-userw,-4o); -z28=z7+(-thinstroke,2.5thickstroke); -z29=z27+(thickstroke/2,0); - -llserif(3,8,9,10,11)(1); -lrserif(4,12,13,14,15)(1); -ulserif(6,16,17,18,19)(1); -urserif(5,20,21,22,23)(1); -ulserif(1,24,25,26,27)(1); - -y26 := y29 := y18 := y22 := y27 := h; -y10 := y14 := 0; - -fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; - -z30 = (w-ss-7em/24,h); -z31 = (x30,h/2-thinl); -z32 = (x30-(y30-y31)/2,h-(y30-y31)/2); -z33 = (x30+(y30-y31)/2,h-(y30-y31)/2); -z34 = z30 shifted (0,-thinl); -z35 = z31 shifted (0,thinl); -z36 = z32 shifted (thickl,0); -z37 = z33 shifted (-thickl,0); -z38 = z31 shifted (0,-thickl); -pickup pencircle scaled 2thinl; -lft z39 = (x32,y38); -rt z40 = (x33,y38); - -fill z30..z33..z31..z32..cycle; -unfill z34..z37..z35..z36..cycle; -draw z39--z40; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"232",3em#/4+2ss#,cap#,0); -"Capital B, slashed vertically"; - -z1 = (ss+lserw,lserh); -z2 = (x1+thickstroke,thinstroke); -z3 = (ss+userw,h-userh); -z4 = (x3+thickstroke,h-thinstroke); -z30=(x4,0); -z40 = z4 shifted (0,thinstroke); -z25 = 0.5[z30,z40] shifted (0,thinstroke); -z32 = z25 shifted (0,-thinstroke); -z24 = 0.5[z25,z32]; -z17=((ss+(thickstroke/2)+lserw),h); -z18=(w/2,h); -z19=(w/2,h-thinstroke); -z20 = (w-ss-2o,3h/4); -z21=z20-(curvwid,0); -z23=z22+(0,thinstroke/2); -z26 = z32 shifted (loopgap,0); -z27 = (w-ss,h/4); -z28=z27-(1.1curvwid,0); -z29=(x18,0); -z31=z29+(0,thinstroke); -z33=z22-(0,thinstroke/2); -z34 = z25 shifted (loopgap,0); -z22 = 0.5[z34,z26]; -llserif(1,5,6,7,8)(1); -ulserif(3,9,10,11,12)(1); - -path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; -path stembotloop; stembotloop = -z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; -path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; -path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; - -fill stembotloop & stemtoploop..cycle; -unfill topinncirc; -unfill botinncirc; - -pickup pencircle scaled 1.5thinl; -z44 = (3w/5,h+thickl); -z45 = (3w/5,0-thickl); -draw z44--z45; - -penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"230",9.8em#/6,cap#,0); "The perquadqua sign"; - -z0 = (0.6zeroh,h); -z1 = z0 shifted (0,-thinl); -z2 = (0.6zeroh,h-zerohh); -z3 = z2 shifted (0,thinl); -z4 = (1.2zeroh,h-zerohh/2); -z5 = z4 shifted (-1.7thinl,0); -z6 = (ss,h-zerohh/2); -z7 = z6 shifted (thinl,0); - -fill z0..z4..z2..z6..cycle; -unfill z1..z5..z3..z7..cycle; - -z10 = (semw+ss-0.6zeroh,zerohh); -z11 = z10 shifted (0,-thinl); -z12 = (semw+ss-0.6zeroh,0); -z13 = z12 shifted (0,thinl); -z14 = (semw,zerohh/2); -z15 = z14 shifted (-1.7thinl,0); -z16 = (semw+ss-1.2zeroh,zerohh/2); -z17 = z16 shifted (thinl,0); - -fill z10..z14..z12..z16..cycle; -unfill z11..z15..z13..z17..cycle; - -z22 = (semw,h); -z23 = z22 shifted (0,-thinl); -z20 = 0.5[z0,z22] shifted (0,-0.25pwid); -z21 = z20 shifted (0,-thinl); -z24 = (ss,-o); -z25 = z24 shifted (0,1.00thinl); -z26 = z24 shifted (0.75thinl,0); -z27 = z23 shifted (-1.8thinl,-hair); - -fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; - -z30 = (w-0.6zeroh,zerohh); -z31 = z30 shifted (0,-thinl); -z32 = (w-0.6zeroh,0); -z33 = z32 shifted (0,thinl); -z34 = (w-ss,zerohh/2); -z35 = z34 shifted (-1.7thinl,0); -z36 = (w-1.2zeroh,zerohh/2); -z37 = z36 shifted (thinl,0); - -fill z30..z34..z32..z36..cycle; -unfill z31..z35..z33..z37..cycle; - -z40 = (w-1.8zeroh,zerohh); -z41 = z40 shifted (0,-thinl); -z42 = (w-1.8zeroh,0); -z43 = z42 shifted (0,thinl); -z44 = (w-1.2zeroh-ss,zerohh/2); -z45 = z44 shifted (-1.7thinl,0); -z46 = (w-2.4zeroh-ss,zerohh/2); -z47 = z46 shifted (thinl,0); - -fill z40..z44..z42..z46..cycle; -unfill z41..z45..z43..z47..cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"240",1.2pwid#,cap#+ss#,dep#); -"The open inverse curly bracket"; - -brackwid = 2thinl; -totalh = h+d; -pickup pencircle xscaled brackwid yscaled (thinl); -top rt z0 = (w-ss,h); -bot rt z1 = (w-ss,-dep); -rt z2 = (w-ss,h-totalh/2); -lft z3 = (ss,h-totalh/4); -lft z4 = (ss,h-3totalh/4); - -path invcurlybrack; -invcurlybrack = z0{left}..{down}z3..{right}z2{left}..z4{down}..{right}z1; -draw invcurlybrack; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); -endchar; - -beginchar(oct"241",1.2pwid#,cap#+ss#,dep#); -"The close inverse curly bracket"; -pickup pencircle xscaled brackwid yscaled (thinl); -draw invcurlybrack rotatedaround ((w/2,(h-dep)/2),180); -endchar; - -beginchar(oct"245",5em#/6+2ss#,cap#,0); "The yen symbol"; - -z0 = (w/2-thickstroke/2,h/2); -z1 = (w/2+thickstroke/2,h/2); -z2 = (ss+userw,h-userh); -z3 = z2 shifted (thickstroke,0); -z4 = (w-ss-userw,h-userh); -z5 = z4 shifted (-thinstroke,0); -z6 = (w/2-thickstroke/2,lserh); -z7 = (w/2+thickstroke/2,lserh); -z8 = 0.8[z0,z1] shifted (0,lserh/2); - -lrserif(7,14,15,16,17)(1); -llserif(6,10,11,12,13)(1); -ulserif(2,18,19,20,21)(1); -urserif(3,22,23,24,25)(1); -ulserif(5,26,27,28,29)(1); -urserif(4,30,31,32,33)(1); - -fill -z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; - -pickup pencircle scaled 1.5thinl; -lft z40 = (ss,h/3); -rt z41 = (w-ss,h/3); -lft z42 = (ss,2h/3); -rt z43 = (w-ss,2h/3); - -draw z40--z41; draw z42--z43; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"246",pwid#,cap#,dep#); "The broken pipe"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot z1 = (x0,h-(h+d)/2+thickl); -top z2 = bot z1 shifted (0,-2thickl); -bot z3 = (w/2,-d); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"257",em#,cap#,0); "high line"; - -pickup pencircle scaled 1.5thinl; - -top lft z0 = (ss,h); -top rt z1 = (w-ss,h); -draw z0--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"254",em#,ex#,0); "inverted backwards L"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -top rt z1 = (w-ss,h); -rt z2 = (w-ss,h/2); - -draw z0--z1--z2; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"252",3ex#/4+2ss#,cap#,0); "feminine ordinal"; - -ordwid = 1.5ex+2ss; -ordh = 1.5ex; -z0 = (ss,3ordh/4); -z1 = (x3/2,ordh+o); -z2 = (ordwid-ss-lserwl,3ordh/4); -z3 = (x2,lserhl); -z8 = z7 shifted (0,lserhl); -z9 = 0.5[z18,z19]; y9 := 0-o; -z10 = (ss-o,ordh/4); -z15 = z2 shifted (-2thickl,0); -z16 = z1 shifted (0,-2thinl); -z17 = z9 shifted (0,2thinl); -z18 = z10 shifted (2thickl,0); -z19 = z3 shifted (-2thickl,lserhl); -z20 = (ordwid/2-2thickl,ordh/2); -z21 = z20 shifted (thickl,-2thinl); -z22 = 0.2[z15,z19]; -z23 = z19 shifted (-2thinl,0); -z24 = z22 shifted (0,-2thickl/2); -z25 = z16 shifted (thickl,0); - -lrserif(3,4,5,6,7)(1); -drtbulb(0,11,12,13,14); - -path afill; afill = -z13..z12..z11..z0{up}..{right}z1{right}..{down}z2--z3..z4..z5--z6--z7--z8..z9..{up}z10..z20..z22--z15{up}..{left}z16{left}..z13..cycle; -path aunfill; aunfill = z18..z21..z24--z19..z17..cycle; -fill afill scaled 0.5 shifted (ss,cap-0.75ex); -unfill aunfill scaled 0.5 shifted (ss,cap-0.75ex); - -pickup pencircle scaled 1.5thinl; -lft z30 = (ss,h/2-thinl); -rt z31 = (w-ss,h/2-thinl); -draw z30--z31; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"272",3ex#/4+2ss#,cap#,0); "masculine ordinal"; - -z0 = (ordwid/2,ordh+o); -z1 = z0 shifted (0,-2thinl); -z2 = (ordwid-2ss,ordh/2); -z3 = z2 shifted (-2curvl,0); -z4 = (ordwid/2,0-o); -z5 = z4 shifted (0,2thinl); -z6 = (ss,ordh/2); -z7 = z6 shifted (2curvl,0); - -path ofill; ofill = z0..z2..z4..z6..cycle; -path ounfill; ounfill = z1..z3..z5..z7..cycle; - -fill ofill scaled 0.5 shifted (ss,cap-0.75ex); -unfill ounfill scaled 0.5 shifted (ss,cap-0.75ex); - -pickup pencircle scaled 1.5thinl; -lft z30 = (ss,h/2-thinl); -rt z31 = (w-ss,h/2-thinl); -draw z30--z31; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"250",2pwid#,cap#,0); "The diaresis"; - -z0 = (w/4,h-dotwid); -z1 = (3w/4,h-dotwid); - -fill fullcircle scaled 2dotwid shifted z0; -fill fullcircle scaled 2dotwid shifted z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"261",em#,cap#,0); "The plus minus"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h); -bot z1 = (w/2,0); -lft z3 = (ss,h/2); -rt z4 = (w-ss,h/2); -lft z5 = (ss,0); -rt z6 = (w-ss,0); - -draw z0--z1; draw z3--z4; draw z5--z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"270",cap#,cap#,0); "The reference mark"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h); -bot rt z1 = (w-ss,0); -top rt z2 = (w-ss,h); -bot lft z3 = (ss,0); -z4 = (w/2,h/2); -z5 = z4 shifted (0,3h/8-hair); -z6 = z4 shifted (-3w/8+hair,0); -z7 = z4 shifted (0,-3h/8+hair); -z8 = z4 shifted (3w/8-hair,0); - -draw z0--z1; draw z2--z3; -fill fullcircle scaled 3dotwid shifted z5; -fill fullcircle scaled 3dotwid shifted z6; -fill fullcircle scaled 3dotwid shifted z7; -fill fullcircle scaled 3dotwid shifted z8; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"267",pwid#,ex#,0); "The interpunct"; - -z0 = (w/2,h-2dotwid); -fill fullcircle scaled 2dotwid shifted z0; - -penlabels(0); -endchar; - -beginchar(oct"262",0.8ex#+2ss#,cap#,0); "superscript digit 2"; - -z0 = (w/2,ex+o); -z1 = z0 shifted (0,-thinl); -z2 = (ss+o,2ex/3); -z3 = z2 shifted (bulbsh,bulbsh); -z4 = z3 shifted (bulbsh,-bulbsh); -z5 = z4 shifted (-bulbsh,-bulbsh); -z6 = (w-ss-o,2ex/3); -z7 = z6 shifted (-thickl,0); -z8 = (ss,1.5thinl); -z9 = (x8,0); -z10 = (w-ss,0); -z11 = (w-ss,1.5thinl+thinl); -z12 = z11 shifted (-thinl/2,0); -z13 = z12 shifted (0,-thinl); -z14 = z8 shifted (thickl,0); - -path supertwo; supertwo = -z14--z13--z12--z11--z10--z9--z8{dir -30}..{up}z7..{left}z1{left}..{dir -230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir --160}cycle; -fill supertwo shifted (0,h-ex); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"263",0.8ex#+2ss#,cap#,0); "superscript digit 3"; - -threehgt = (ex); -z0 = (w/2,ex/2+o); -z1 = (w/2,0-dep-o); -z2 = (ss,.75threehgt-dep); -z3 = (ss,.25threehgt-dep); -z4 = z0 shifted (0,-thinstroke); -z5 = z1 shifted (0,thinstroke); -z6 = z8 shifted (-curvwid,0); -z7 = z9 shifted (-curvwid,0); -z8 = (w-ss,3threehgt/4-dep); -z9 = (w-ss,threehgt/4-dep); -z10 = (w/2-2thinstroke,threehgt/2+thinstroke-dep); -z11 = z10 shifted (0,-thinstroke); -z20 = z10 shifted (1.5thickstroke,-thinstroke/2); -z21 = z9 shifted (-o/4,0); -z22 = z10 shifted (1.5thickl,0); -z23 = z11 shifted (1.5thickl,0); - -ulftbulb(2,12,13,14,15); -ulftbulb(3,16,17,18,19); - -path supthree; supthree = -z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir --60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir --120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; - -fill supthree shifted (0,cap-ex/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"264",5pwid#/4,cap#,0); "prime mark"; -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); -endchar; - -beginchar(oct"265",1.2ex#+2ss#,ex#,dep#); "Upright mu"; - -z0 = (ss+userwl,h-userhl); -z1 = z0 shifted (thickl,0); -z2 = (w-ss-lserwl,lserhl); -z3 = z2 shifted (-thickl,0); -z12 = z1 shifted (0,userhl); -z13 = z3 shifted (0,-lserhl); -z14 = (w/2,-o); -z15 = z14 shifted (0,1.5thinl); -z16 = (x0,h/4); -z17 = 0.5[z16,z14] shifted (0,-lserwl); -z18 = z17 shifted (3o,lserhl); -z19 = z16 shifted (thickl,0); -z20 = (w-ss-userwl,h-userhl); -z21 = z20 shifted (-thickl,0); -z22 = (x21,h/4); -z23 = z22 shifted (thickl,0); -z24 = 0.5[z23,z14] shifted (-2o,-lserwl); -z29 = z20 shifted (0,userhl); -z30 = z24 shifted (0,lserhl); -z31 = (x16,-dep+lserhl); -z32 = (x19,-dep+lserhl); - -ulserif(0,4,5,6,7)(1); -lrserif(2,8,9,10,11)(1); -ulserif(21,25,26,27,28)(1); -llserif(31,33,34,35,36)(1); -lrserif(32,37,38,39,40)(1); - -fill -z1--z12--z6--z5..z4..z0--z16{down}..{right}z14{right}..{up}z23--z29--z27--z26..z25..z21--z22{down}..z15..{up}z19--cycle; -fill z13--z10--z9..z8..z2--z23--z22--cycle; -fill z16--z31..z33..z34--z35--z39--z38..z37..z32--z19--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"271",digwid#/2+2ss#,cap#,0); "The digit 1"; - -z0 = (w/2-2thickstroke/2,lserhl); -z1 = z0 shifted (2thickstroke,0); -z10 = (w/2-2thickstroke/2,h-2userh); -z11 = z10 shifted (2thickstroke,0); -z12 = z11 shifted (0,2userh+o); -z13 = z12 shifted (-2thickstroke,0); -z14 = z10 shifted (-lserwl-o,0); -z15 = z14 shifted (0,2thinl); - -llserif(0,2,3,4,5)(1); -lrserif(1,6,7,8,9)(1); - -path supone; supone = -z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; - -fill supone scaled 0.5 shifted (w/4,h/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"273",ex#+2ss#,cap#,0); "Square root sign"; - -pickup pencircle scaled 1.5thinl; - -penpos0(thinl,-45); -lft z0 = (ss,h/4); -penpos1(thinl,-45); -z1 = (w/4,h/3); -penpos3(1.5thinl,-90); -bot z3 = (3w/4,h+o+thinl); -penpos4(1.5thinl,-90); -z4 = (w-ss,y3); -penpos5(thickl,45); -z5l = z1l; -penpos6(thickl,45); -z6l = (w/2,0-o); -penpos2(1.5thinl,-45); -z2r = z6r; -penpos7(1.5thinl,-45); -z7r = z3r; - -penstroke z0e--z1e; -penstroke z5e--z6e; -penstroke z2e--z7e..z3e--z4e; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -def upsideserif(suffix i,j,k) = -z.j=z.i+(ssslant,2lserw); -z.k=z.j-(lserh,lserw); -enddef; - -def downsideserif(suffix i,j,k) = -z.j=z.i+(ssslant,-2lserw); -z.k=z.j+(-lserh,lserw); -enddef; - -beginchar(oct"277",5em#/6+2ss#,cap#,0); "The Euro sign"; - -z1 = (ss+lserw,lserh); -z2 = z1 shifted (thickstroke,0); -z3 = (ss+lserw,h-lserh); -z4 = (x3+thickstroke,h-thinstroke); -z5=(x4,thinstroke); -z6=(w-ss-ssslant,0); -z30=z6+(-thickstroke,thinstroke); -z8=(x6,h); -z9=(x30,h-thinstroke); -upsideserif(6,7,29); -downsideserif(8,10,11); - -llserif(1,12,13,14,26)(1); -ulserif(3,18,19,20,28)(1); - -y14 := y26 := y6 := 0; -y20 := y28 := y8 := h; - -fill -z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; - -pickup pencircle scaled 1.5thinstroke; -lft z40 = (ss,0.35h); -lft z41 = (ss,0.6h); -rt z42 = (2w/3,0.35h); -rt z43 = (5w/6,0.6h); -draw z40--z42; draw z41--z43; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"174",ex#+2ss#,ex#,0); "simple heart"; - -pickup pencircle scaled thinl; -z0 = (w/4,h); -z1 = (3w/4,h); -z2 = (w/2,0); -z3 = (w/2,h-ex/3); -path heart; heart = z0..{down}z3{up}..z1..{dir -135}z2{dir 135}..cycle; -filldraw heart; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); -endchar; - -beginchar(oct"175",ex#+2ss#,ex#,0); "simple heart outline"; -pickup pencircle scaled thinl; -draw heart; -endchar; - -beginchar(oct"303",2.4pwid#,cap#,0); "double prime mark"; -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted - (1.00pwid,h-1.75pwid); -endchar; - -beginchar(oct"313",3.7pwid#,cap#,0); "triple prime mark"; -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-2.10pwid); -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted - (1.00pwid,h-2.10pwid); -fill singquote rotatedaround ((w/2,pwid/2),-30) shifted - (2.00pwid,h-2.10pwid); -endchar; - -beginchar(oct"153",1.2ex#+2ss#,cap#,0); "Genealogy: male"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss); -top z2 = (ex-h/3,h+thickl); -z3 = (z2--(ex/2,0)) intersectionpoint (fullcircle scaled - (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss)); -z0 = 0.5[z2,z3] shifted (-ex/3,0); -z1 = 0.5[z2,z3] shifted (ex/3,0); -z20 = (ex/2,ex/2-2ss); - -path arrow; arrow = z0--z2--z3--z2--z1; -draw arrow rotatedaround (z20,-30); - -picture mars; mars := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"145",1ex#+2ss#,cap#,0); "Genealogy: female"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss); -bot z0 = (w/2,0); -z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled - (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss)); -z2 = 0.5[z0,z1] shifted (w/4,0); -z3 = 0.5[z0,z1] shifted (-w/4,0); -draw z1--z0; -draw z2--z3; - -picture venus; venus := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"140",theight#+2ss#,theight#,0); "Star of David"; - -z0 = (w/2,h/2); -z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,60); -z3 = z2 rotatedaround (z0,60); -z4 = z3 rotatedaround (z0,60); -z5 = z4 rotatedaround (z0,60); -z6 = z5 rotatedaround (z0,60); -z7 = (z1--z3) intersectionpoint (z2--z6); -z8 = (z1--z5) intersectionpoint (z2--z6); -z9 = (z6--z4) intersectionpoint (z1--z5); -z10 = (z6--z4) intersectionpoint (z3--z5); -z11 = (z2--z4) intersectionpoint (z3--z5); -z12 = (z2--z4) intersectionpoint (z3--z1); - -pickup pencircle scaled thinl; -draw z1--z3--z5--cycle; -draw z2--z6--z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"150",theight#+2ss#,theight#,0); "Lined five-point star"; - -z0 = (w/2,h/2); -z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,72); -z3 = z2 rotatedaround (z0,72); -z4 = z3 rotatedaround (z0,72); -z5 = z4 rotatedaround (z0,72); -z6 = (z2--z5) intersectionpoint (z1--z4); -z7 = (z2--z5) intersectionpoint (z1--z3); -z8 = (z3--z5) intersectionpoint (z4--z1); -z9 = (z4--z2) intersectionpoint (z3--z1); -z10 = (z2--z4) intersectionpoint (z3--z5); - -pickup pencircle scaled thinl; -draw z1--z3--z5--z2--z4--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"160",1.2em#+2ss#,em#,0); -"Radiation symbol, no circle"; - -z0 = (w/2,h/2); -z1 = (x0,0); -z2 = z1 rotatedaround (z0,30); -z3 = z1 rotatedaround (z0,-30); -z4 = 0.25[z0,z3]; -z5 = 0.25[z0,z2]; -z6 = 0.25[z0,z1]; -path raddiv; raddiv = z4--z3..z1..z2--z5..z6..cycle; -fill raddiv; -fill raddiv rotatedaround (z0,120); -fill raddiv rotatedaround (z0,-120); -fill fullcircle scaled 2dotwid shifted z0; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"161",1.2em#+2ss#,em#,0); -"Radiation symbol, with circle"; - -z0 = (w/2,h/2); -fill raddiv; -fill raddiv rotatedaround (z0,120); -fill raddiv rotatedaround (z0,-120); -fill fullcircle scaled 2dotwid shifted z0; - -pickup pencircle scaled thinl; -z1 = (w/2,0); -draw fullcircle scaled (h+3thinl) shifted (w/2,h/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"162",1.2em#+2ss#,em#,0); -"Biohazard symbol, no circle"; - -circwid = w/2; -z0 = (w/2,h/2); -z1 = z0 shifted (0,circwid/3); -z2 = z1 rotatedaround (z0,-120); -z3 = z1 rotatedaround (z0,120); -z4 = z1 shifted (0,circwid/6); -z5 = z4 rotatedaround (z0,-120); -z6 = z4 rotatedaround (z0,120); -% main trefoil circles -fill fullcircle scaled circwid shifted z1; -fill fullcircle scaled circwid shifted z2; -fill fullcircle scaled circwid shifted z3; -% smaller circles tangent to larger -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z6; -unfill fullcircle scaled (2circwid/3) shifted z6; -unfill fullcircle scaled (2circwid/3) shifted z6; -% central circle -unfill fullcircle scaled (circwid/6) shifted z0; -unfill fullcircle scaled (circwid/6) shifted z0; -unfill fullcircle scaled (circwid/6) shifted z0; -% the underlying ring -z7 = 2[z5,z0]; -z8 = (z4--z6) intersectionpoint (z5--z7); -pickup pencircle scaled thinl; -draw fullcircle scaled 2(y1-y0) shifted z0; -draw fullcircle scaled 2(y1-y0) shifted z0; -draw fullcircle scaled 2(y1-y0) shifted z0; -% erase the arcs -pickup pencircle scaled (thinl/2); -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; -z9 = 0.5[z0,z1]; -z10 = 0.5[z0,z3]; -z11 = 0.5[z0,z2]; -undraw z0--z9; undraw z0--z9; undraw z0--z9; -undraw z0--z10; undraw z0--z10; undraw z0--z10; -undraw z0--z11; undraw z0--z11; undraw z0--z11; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"163",1.2em#+2ss#,em#,0); -"Biohazard symbol, with circle"; - -z0 = (w/2,h/2); -z1 = z0 shifted (0,circwid/3); -z2 = z1 rotatedaround (z0,-120); -z3 = z1 rotatedaround (z0,120); -z4 = z1 shifted (0,circwid/6); -z5 = z4 rotatedaround (z0,-120); -z6 = z4 rotatedaround (z0,120); -% main trefoil circles -fill fullcircle scaled circwid shifted z1; -fill fullcircle scaled circwid shifted z2; -fill fullcircle scaled circwid shifted z3; -% smaller circles tangent to larger -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z4; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z5; -unfill fullcircle scaled (2circwid/3) shifted z6; -unfill fullcircle scaled (2circwid/3) shifted z6; -unfill fullcircle scaled (2circwid/3) shifted z6; -% central circle -unfill fullcircle scaled (circwid/6) shifted z0; -unfill fullcircle scaled (circwid/6) shifted z0; -unfill fullcircle scaled (circwid/6) shifted z0; -% the underlying ring -z7 = 2[z5,z0]; -z8 = (z4--z6) intersectionpoint (z5--z7); -pickup pencircle scaled thinl; -draw fullcircle scaled 2(y1-y0) shifted z0; -draw fullcircle scaled 2(y1-y0) shifted z0; -draw fullcircle scaled 2(y1-y0) shifted z0; -% erase the arcs -pickup pencircle scaled (thinl/2); -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; -undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; -z9 = 0.5[z0,z1]; -z10 = 0.5[z0,z3]; -z11 = 0.5[z0,z2]; -undraw z0--z9; undraw z0--z9; undraw z0--z9; -undraw z0--z10; undraw z0--z10; undraw z0--z10; -undraw z0--z11; undraw z0--z11; undraw z0--z11; -%surrounding circle -pickup pencircle scaled thinl; -draw fullcircle scaled (w-2ss) shifted (w/2,h/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"164",1.2em#+2ss#,cap#,0); -"General warning sign"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,h/2); -z1 = (w/2,h); -bot lft z2 = (ss,0); -bot rt z3 = (w-ss,0); -path trisign; trisign = z1---z2---z3---cycle; -draw trisign; - -z6 = (w/2,0); -z4 = 0.6[z0,z1]; -z5 = 0.5[z0,z6]; -z7 = z4 shifted (thinl,-thinl); -z8 = z4 shifted (-thinl,-thinl); -z9 = z5 shifted (thinl/2,thinl/2); -z10 = z5 shifted (-thinl/2,thinl/2); -z11 = 0.4[z5,z6]; - -fill z8..z4..z7---z9..z5..z10---cycle; -fill fullcircle scaled dotwid shifted z11; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"165",1.2ex#+2ss#,cap#,0); -"High voltage warning, no triangle"; - -penpos0(thickl,15); -z0 = (w/2,2h/3); -penpos1(0.9thickl,15); -z1 = (w/2-thinl,h/2); -penpos2(0.9thickl,15); -z2r = (x0r,y1r-thinl/32); -penpos3(0.7thickl,15); -z3l = (x1l,h/3); -penpos4(0.7thickl,15); -z4l = (x3+thinl/2,y3-thinl/4); -penpos5(0.2thinl,15); -z5r = (x3,h/6); - -penstroke z0e--z1e--z2e--z3e--z4e--z5e; -picture lightningbolt; lightningbolt := currentpicture; -currentpicture := nullpicture; -currentpicture := lightningbolt scaled 2 shifted (-w/2+thickl/2,-h/3); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"166",1.2em#+2ss#,cap#,0); -"High voltage warning, with triangle"; - -currentpicture := lightningbolt scaled 1 shifted (w/4-thickl/2,0); -pickup pencircle scaled 1.5thinl; -draw trisign; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"330",1em#+2ss#,cap#,0); -"Astronomy: the sun"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); -fill fullcircle scaled (2dotwid) shifted (w/2,h/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"331",1em#+2ss#,cap#,0); -"Astronomy: the sun with one ray"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/4+ss+1.5thinl,h/4); -draw fullcircle scaled (w/2) shifted z0; -top rt z1 = (w-ss,h); -z2 = (x0,h); -z3 = (w,y0); -z4 = (z0--z2) intersectionpoint (fullcircle scaled (w/2) - shifted z0) shifted (0,1.5thinl/2); -z5 = (z0--z3) intersectionpoint (fullcircle scaled (w/2) - shifted z0) shifted (1.5thinl/2,0); -draw z1--z4; -draw z1--z5; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"332",em#+2ss#,cap#,0); -"Astronomy: waxing crescent"; - -z0 = (w/2,h/2); -path waxcres; waxcres = fullcircle scaled (w-2ss-1.5thinl) shifted z0; -pickup pencircle scaled 1.5thinl; -draw waxcres; -draw waxcres shifted (-w/4,0); -z1 = (waxcres) intersectionpoint (waxcres shifted (-w/4,0)); -z2 = z1 reflectedabout ((0,h/2),(w,h/2)); -unfill (x1,h)--(x1,0)--(-w/2,0)--(-w/2,h)--cycle; - -picture crescent; crescent := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"333",em#+2ss#,cap#,0); -"Astronomy: full moon"; - -pickup pencircle scaled 1.5thinl; -draw waxcres; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"334",em#+2ss#,cap#,0); -"Astronomy: waning crescent"; -currentpicture := crescent reflectedabout ((w/2,h),(w/2,0)); -endchar; - -beginchar(oct"335",em#+2ss#,cap#,0); -"Astronomy: new moon"; - -pickup pencircle scaled 1.5thinl; -filldraw waxcres; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"336",ex#+2ss#,cap#,0); -"Astronomy: Mercury"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss); -bot z0 = (w/2,0); -z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled - (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); -z2 = 0.5[z0,z1] shifted (w/4,0); -z3 = 0.5[z0,z1] shifted (-w/4,0); -draw z1--z0; -draw z2--z3; -z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle - scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); -top lft z5 = (ss,h); -top rt z6 = (w-ss,h); -draw z5..z4..z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"337",em#+2ss#,cap#,0); -"Astronomy: Earth, variant 1"; - -pickup pencircle scaled 1.5thinl; -draw waxcres; -top z0 = (w/2,h); -bot z1 = (w/2,0); -lft z2 = (ss,h/2); -rt z3 = (w-ss,h/2); - -draw z0--z1; draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"340",ex#+2ss#,cap#,0); -"Astronomy: Earth, variant 2"; -currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); -endchar; - -beginchar(oct"341",em#+2ss#,cap#,0); -"Astronomy: Jupiter"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,2h/3); -top z1 = (w/3,h+o); -z2 = (w/2,2h/3); -lft z3 = (ss,w/6); -rt z4 = (w-ss,y3); -bot z5 = (3w/4,0-o); -top z6 = (x5,h+o); - -draw z0{up}..z1..z2..{left}z3--z4; -draw z5--z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"342",1ex#+2ss#,cap#,dep#); -"Astronomy: Saturn"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/4,h+o); -bot z1 = (x0,0-o); -z2 = 0.5[z1,z0]; -z3 = (2w/3,2h/3); -rt z4 = (w-ss,h/2); -z5 = (w/2,0); -z6 = (2w/3,-dep/2); -lft z7 = (ss,5h/6); -z8 = (z0--z2) intersectionpoint (z7--(w,y7)); -z9 = 2[z7,z8]; - -draw z0--z1; -draw z2..z3..z4..z5..z6; -draw z7--z9; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"343",ex#+2ss#,cap#,0); -"Astronomy: Uranus, variant 1"; - -currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); -fill fullcircle scaled 1.5dotwid shifted (w/2,0.3h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"344",em#+2ss#,cap#,0); -"Astronomy: Uranus, variant 2"; - -pickup pencircle scaled 1.5thinl; - -top lft z0 = (ss,h+o); -lft z1 = (ss,h/3); -top rt z2 = (w-ss,h+o); -rt z3 = (w-ss,y1); -z4 = z0 shifted (thickl,0); -z5 = z2 shifted (-thickl,0); -z6 = z1 shifted (thickl,0); -z7 = z3 shifted (-thickl,0); -z8 = 0.5[z4,z6]; -z9 = 0.5[z5,z7]; -top z10 = (w/2,h+o); -z11 = (w/2,0); -draw fullcircle scaled 3dotwid shifted (w/2,2dotwid); -z12 = (z10--z11) intersectionpoint (fullcircle scaled - 3dotwid shifted (w/2,2dotwid)); - -draw z0--z4--z6--z1; -draw z2--z5--z7--z3; -draw z8--z9; -draw z10--z12; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"345",em#+2ss#,cap#,0); -"Astronomy: Neptune"; - -pickup pencircle scaled 1.5thinl; - -top lft z0 = (ss+thickl,h+o); -top rt z1 = (w-ss-thickl,h+o); -lft z2 = z0 shifted (-1.2thickl,-thickl); -rt z3 = z0 shifted (1.2thickl,-thickl); -lft z4 = z1 shifted (-1.2thickl,-thickl); -rt z5 = z1 shifted (1.2thickl,-thickl); -top z6 = (w/2,h+o); -lft z7 = z6 shifted (-1.2thickl,-thickl); -rt z8 = z6 shifted (1.2thickl,-thickl); -bot z9 = (w/2,0-o); -lft z10 = (ss+thickl,h/2); -rt z11 = (w-ss-thickl,y10); -z12 = (w/2,h/3); -z13 = 0.5[z12,z9]; -z14 = z13 shifted (-thickl,0); -z15 = z13 shifted (thickl,0); - -draw z0---z10..z12..z11---z1; -draw z2--z0--z3; draw z7--z6--z8; draw z4--z1--z5; -draw z6--z9; draw z14--z15; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"346",ex#+2ss#,cap#,0); -"Astronomy: Ceres"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,3h/4); -top z1 = (w/2,h+o); -rt z2 = (w-ss,y0); -z3 = (w/2,h-ex); -bot z4 = (w/2,0-o); -z5 = 0.5[z3,z4]; -z6 = z5 shifted (w/4,0); -z7 = z5 shifted (-w/4,0); - -draw z0..z1..z2..z3--z4; -draw z6--z7; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"347",ex#+2ss#,cap#,0); -"Astronomy: Pallas"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h+o); -lft z1 = (ss,h-ex/2); -rt z2 = (w-ss,y1); -z3 = (w/2,h-ex); -bot z4 = (w/2,0-o); -z5 = 0.5[z3,z4]; -z6 = z5 shifted (w/4,0); -z7 = z5 shifted (-w/4,0); - -draw z0--z2--z3--z1--cycle; -draw z3--z4; -draw z6--z7; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"350",ex#+2ss#,cap#,0); -"Astronomy: Juno, variant 1"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,h-ex/2); -top z1 = (w/2,h+o); -z2 = z1 rotatedaround (z0,45); -z3 = z2 rotatedaround (z0,45); -z4 = z3 rotatedaround (z0,45); -z5 = z4 rotatedaround (z0,45); -z6 = z5 rotatedaround (z0,45); -z7 = z6 rotatedaround (z0,45); -z8 = z7 rotatedaround (z0,45); -bot z9 = (w/2,0-o); -z10 = 0.5[z9,(w/2,h-ex)]; -z11 = z10 shifted (-w/4,0); -z12 = z10 shifted (w/4,0); - -draw z1--z5; draw z8--z4; draw z7--z3; draw z2--z6; -draw z0--z9; draw z11--z12; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"351",ex#+2ss#,cap#,0); -"Astronomy: Juno, variant 2"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (w-2ss-1.5thinl) shifted - (w/2,h-2w/3-ss); -bot z0 = (w/2,0); -z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled - (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); -z2 = 0.5[z0,z1] shifted (w/4,0); -z3 = 0.5[z0,z1] shifted (-w/4,0); -draw z1--z0; -draw z2--z3; -z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle - scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); -top lft z5 = (ss,h+o); -top rt z6 = (w-ss,h+o); -z7 = (2w/5,h+o); -z8 = (3w/5,h+o); - -draw z4--z5; draw z4--z6; draw z4--z7; draw z4--z8; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"352",em#+2ss#,cap#,0); -"Astronomy: Vesta, variant 1"; - -pickup pencircle scaled 1.5thinl; -bot lft z0 = (ss,0); -bot rt z1 = (w-ss,0); -lft z2 = (ss,h-ex); -rt z3 = (w-ss,h-ex); -draw z0--z1--z3--z2--cycle; -z4 = 0.5[z2,z3]; -top z5 = (w/4,h); -top z6 = (3w/4,h); -z7 = (w/5,h-ex/2); -z8 = (4w/5,y7); -draw z4{up}..{left}z5..z7; -draw z4{up}..{right}z6..z8; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"353",ex#+2ss#,cap#,0); -"Astronomy: Vesta, variant 2"; - -pickup pencircle scaled 1.5thinl; -bot lft z0 = (ss,0); -bot rt z1 = (w-ss,0); -bot lft z2 = (ss+3hair,h/8); -bot rt z3 = (w-ss-3hair,h/8); -z4 = (x2,3h/4); -z5 = (x3,3h/4); -lft z6 = (ss,y4); -rt z7 = (w-ss,y5); -z8 = (w/2,h/2); -draw z0--z1--z3--z2--cycle; -draw z2--z4--z5--z3--cycle; -draw z6--z7; -draw z4--z8; draw z5--z8; -z9 = (w/2,h+o); -z10 = 0.5[z4,z5]; -path ray; ray = z10--z9; -draw ray rotatedaround (z10,18); -draw ray rotatedaround (z10,54); -draw ray rotatedaround (z10,-18); -draw ray rotatedaround (z10,-54); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"354",ex#+2ss#,cap#,0); -"Astronomy: Astraea, variant 1"; - -pickup pencircle scaled 1.5thinl; -top z0 = (w/2,h+o); -lft z1 = (ss+hair,3h/4); -rt z2 = (w-ss-hair,3h/4); -bot z3 = (w/2,0-o); -z4 = z1 shifted (-hair,hair); -z5 = z1 shifted (hair,hair); -z6 = z2 shifted (-hair,hair); -z7 = z2 shifted (hair,hair); -z8 = z3 shifted (-2hair,2hair); -z9 = z3 shifted (2hair,2hair); - -draw z1..z0..z2; -draw z4--z1; draw z5--z1; -draw z6--z2; draw z7--z2; -draw z0--z3; -draw z8--z3; draw z9--z3; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"355",em#+2ss#,cap#,0); -"Astronomy: Astraea, variant 2"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,5h/6); -rt z1 = (w-ss,y0); -top z3 = (w/2,h+o); -z4 = 0.5[z0,z1]; -bot z5 = (w/2,0-o); -lft z6 = (ss,y5); -rt z7 = (w-ss,y5); -z8 = z6 shifted (w/4,0); -z9 = z7 shifted (-w/4,0); -z10 = ((x7+x9)/2,h/2); -z11 = ((x6+x8)/2,h/2); -z12 = (x10,y0); -z13 = (x11,y0); -z14 = z5 shifted (-thinl,0); -z15 = z5 shifted (thinl,0); - -filldraw z7{up}..{dir -225}z10{dir 225}..{down}z9--cycle; -filldraw z8{up}..{dir -225}z11{dir 225}..{down}z6--cycle; -draw z0--z1; draw z3--z5; draw z14--z15; -draw z10--z12; draw z11--z13; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"356",ex#+2ss#,cap#,0); -"Astronomy: Hebe"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -z2 = (w/2,h-ex); -bot z3 = (w/2,0-o); -lft bot z4 = (ss,0-o); -rt bot z5 = (w-ss,0-o); - -draw z4--z5; draw z3--z2; draw z0--z1--z2--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"357",em#+2ss#,ex#,0); -"Astronomy: Iris"; - -pickup pencircle scaled 1.5thinl; -bot lft z0 = (ss,0-o); -bot rt z1 = (w-ss,0-o); -z2 = z0 shifted (thickl,0); -z3 = z1 shifted (-thickl,0); -top z4 = (w/2,h+o); -z5 = z4 shifted (0,-thickl); -draw z0--z1; -draw z0{up}..z4..{down}z1; -draw z2{up}..z5..{down}z3; - -fill fivestar scaled 0.3 shifted (0.37w,0.15h); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"360",em#+2ss#,cap#,0); -"Astronomy: Aries"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,3h/4); -rt z1 = (w-ss,3h/4); -z2 = (w/6,h+o); -z3 = (5w/6,h+o); -z4 = (w/2,h/4); -z5 = (w/2,0-o); -draw z0..z2..{dir -60}z4--z5--z4{dir 60}..z3..z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"361",em#+2ss#,cap#,0); -"Astronomy: Taurus"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled (2w/3) shifted (w/2,w/3); -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -z2 = ((w/2,h)--(w/2,0)) intersectionpoint - (fullcircle scaled (2w/3) shifted (w/2,w/3)); -draw z0{right}..{right}z2{right}..{right}z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"362",em#+2ss#,cap#,0); -"Astronomy: Gemini"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot lft z2 = (ss,0-o); -bot rt z3 = (w-ss,0-o); -z4 = 0.5[z0,z1] shifted (0,-thickl); -z5 = 0.5[z2,z3] shifted (0,thickl); - -path topgemline; topgemline = z0..z4..z1; -path botgemline; botgemline = z2..z5..z3; - -z6 = ((w/3,h)--(w/3,0)) intersectionpoint topgemline; -z7 = ((w/3,h)--(w/3,0)) intersectionpoint botgemline; -z8 = ((2w/3,h)--(2w/3,0)) intersectionpoint topgemline; -z9 = ((2w/3,h)--(2w/3,0)) intersectionpoint botgemline; - -draw topgemline; draw botgemline; -draw z6--z7; draw z8--z9; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"363",em#+2ss#,ex#,0); -"Astronomy: Cancer"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid); -draw fullcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid); -z0 = ((2dotwid,h)--(2dotwid,0)) intersectionpoint - (fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid)); -z1 = (halfcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid) - rotatedaround ((w-2dotwid,2.5dotwid),180)) - intersectionpoint ((w-2dotwid,0)--(w-2dotwid,h)); -top z2 = (w/2,h+o); -bot z3 = (w/2,0-o); -rt z4 = (w-ss,h-thickl); -lft z5 = (ss,thickl); - -draw z0..z2..z4; -draw z1..z3..z5; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"364",0.8em#+2ss#,cap#,dep#); -"Astronomy: Leo"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid); -z0 = (fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid)) - intersectionpoint ((w,2dotwid)--(0,2dotwid)); -z1 = (ss+3dotwid,2h/3); -top z2 = (2w/3,h+o); -rt z3 = (w-ss,2h/3); -z4 = (2w/3,-dep/2); -bot z5 = (3w/4,-dep); -rt z6 = (w-ss,-dep/2); - -draw z0{up}..z1..{right}z2{right}..z3..z4..z5..z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"365",0.8em#+2ss#,cap#,dep#); -"Astronomy: Virgo"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (0,h+o); -bot lft z1 = (ss,0); -top z2 = (w/3,h+o); -top z3 = (2w/3-thinl,h+o); -bot z4 = (w/3,0+o); -bot z5 = (2w/3-thinl,0+o); -rt z6 = (w,2h/3); -bot z7 = (5w/6,-d); -z8 = ((x4+x1)/2,-d/2); -z9 = 0.5[z0,z2]; -z10 = 0.5[z2,z3]; -z11 = z0 shifted (ss,-2thickl); -z12 = z2 shifted (0,-2thickl); -z13 = z3 shifted (0,-2thickl); -z14 = 0.5[z13,z5]; - -draw z0--z1; -draw z1--z11{up}..{right}z9{right}..{down}z12--z4; -draw z4--z12{up}..{right}z10{right}..{down}z13---z5..z7; -draw z14..{dir 20}z6{down}..z8; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"367",em#+2ss#,ex#,0); -"Astronomy: Libra"; - -pickup pencircle scaled 1.5thinl; -bot lft z0 = (ss,0); -bot rt z1 = (w-ss,0); -draw z0--z1; -top z2 = (w/2,h+o); -z3 = (2w/5,h/3); -z4 = (3w/5,h/3); -lft z5 = (ss,h/3); -rt z6 = (w-ss,h/3); -draw z5--z3..z2..z4--z6; - - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"370",0.8em#+2ss#,cap#,dep#); -"Astronomy: Scorpius"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (0,h+o); -bot lft z1 = (ss,0); -top z2 = (w/3,h+o); -top z3 = (2w/3-thinl,h+o); -bot z4 = (w/3,0+o); -z5 = (2w/3-thinl,0-thinl); -rt z7 = (w-ss,-d/2); -z9 = 0.5[z0,z2]; -z10 = 0.5[z2,z3]; -z11 = z0 shifted (ss,-2thickl); -z12 = z2 shifted (0,-2thickl); -z13 = z3 shifted (0,-2thickl); -z14 = 0.5[z13,z5]; -z15 = z7 shifted (-thickl,thickl); -z16 = z7 shifted (-thickl,-thickl); - -draw z0--z1; -draw z1--z11{up}..{right}z9{right}..{down}z12--z4; -draw z4--z12{up}..{right}z10{right}..{down}z13--z5; -draw z14---z5{down}..{right}z7; -draw z15--z7; draw z16--z7; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"371",em#+2ss#,cap#,0); -"Astronomy: Sagittarius"; - -pickup pencircle scaled 1.5thinl; - -bot lft z0 = (ss,0-o); -top rt z1 = (w-ss,h+o); -draw z0--z1; -z2 = (w/2,y1); -z3 = (x1,h-w/2); -draw z2--z1; draw z3--z1; -z4 = 0.4[z0,z1]; -z7 = 0.4[z0,z4]; -z5 = z7 rotatedaround (z4,90); -z6 = z7 rotatedaround (z4,-90); -draw z5--z6; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"372",em#+2ss#,cap#,dep#); -"Astronomy: Capricorn"; - -pickup pencircle scaled 1.5thinl; - -top z0 = (ss,h+o); -z1 = (w/3,0); -top z2 = (w/2,h+o); -z3 = (2w/3,0); -z4 = (w/2,-3d/4); -bot z5 = (w/3,-d); -z6 = (x1,h/3); - -draw z0{right}..{down}z6--z1--z6{up}..{dir 45}z2{dir - -45}..{down}z3; -draw z3..z4..z5; -draw fullcircle scaled 3dotwid shifted (w-2dotwid,dotwid); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"373",em#+2ss#,ex#,0); -"Astronomy: Aquarius"; - -pickup pencircle scaled 1.5thinl; -lft z0 = (ss,2h/3); -z1 = (ss+w/4,2h/3+thickl); -z2 = (ss+w/4+w/16,2h/3); -z3 = (ss+2w/4+w/16,2h/3+thickl); -z4 = (ss+2w/4+2w/16,2h/3); -z5 = (ss+3w/4+2w/16,2h/3+thickl); -z6 = (ss+3w/4+3w/16,2h/3); - -path aqr; aqr = z0--z1--z2--z3--z4--z5--z6; -draw aqr; draw aqr shifted (0,-h/3-thickl/2); - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"374",0.8em#+2ss#,cap#,0); -"Astronomy: Pisces"; - -pickup pencircle scaled 1.5thinl; - -top lft z0 = (ss,h+o); -bot lft z1 = (ss,0-o); -top rt z2 = (w-ss,h+o); -bot rt z3 = (w-ss,0-o); -z4 = (w/3,h/2); -z5 = (2w/3,h/2); -lft z6 = (ss,h/2); -rt z7 = (w-ss,h/2); -draw z0..z4..z1; draw z2..z5..z3; draw z6--z7; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"375",ex#+2ss#,cap#,0); -"Astronomy: Pluto"; - -pickup pencircle scaled 1.5thinl; -z0 = (w/2,h/2+1.5thinl); -bot z1 = (w/2,0-o); -z3 = 0.5[z0,z1]; -z4 = z3 shifted (-w/4,0); -z5 = z3 shifted (w/4,0); -draw z0--z1; draw z4--z5; -z8 = 0.5[z0,(w/2,h+o)] shifted (0,1thinl); -lft z6 = (ss,y8); -rt z7 = (w-ss,y8); -draw z6{down}..{right}z0{right}..{up}z7; -draw fullcircle scaled (h/2-thickl-1.5thinl) shifted z8; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"376",ex#+2ss#,cap#,0); -"Astronomy: Pluto, variant"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -bot lft z1 = (ss,0-o); -top z2 = (w/2,h+o); -rt z3 = (w-ss,3h/4); -z4 = 0.5[z1,z0]; -bot rt z5 = (w-ss,0-o); -z6 = (x2,y4); - -draw z0--z1--z5; -draw z0---z2..z3..z6---z4; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"377",em#+2ss#,cap#,0); -"Astronomy: Comet"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid); -z0 = ((ss,0)--(w-ss,h)) intersectionpoint - (fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid)); -top rt z1 = (w-ss,h+o); -z7 = (ss+2.5dotwid,2.5dotwid); -z2 = z1 rotatedaround (z7,25); -z3 = z1 rotatedaround (z7,-25); -z4 = z0 rotatedaround (z7,60); -z5 = z0 rotatedaround (z7,-60); -z8 = 0.7[z5,z3]; -z9 = 0.7[z4,z2]; -z10 = 0.8[z0,z1]; -draw z0--z10; draw z4--z9; draw z5--z8; -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"310",ex#+2ss#,ex#,0); -"Astronomy: quadrature"; - -pickup pencircle scaled 1.5thinl; -top lft z0 = (ss,h+o); -top rt z1 = (w-ss,h+o); -bot rt z2 = (w-ss,0-o); -bot lft z3 = (ss,0-o); -draw z0--z1--z2--z3--cycle; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"311",em#+2ss#,cap#,0); -"Astronomy: opposition"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 4dotwid shifted - (2.5dotwid+ss,2.5dotwid); -draw fullcircle scaled 4dotwid shifted - (w-2.5dotwid-ss,h-2.5dotwid); -z0 = (2.5dotwid+ss,2.5dotwid); -z1 = (w-2.5dotwid-ss,h-2.5dotwid); -z2 = (z0--z1) intersectionpoint - (fullcircle scaled 4dotwid shifted - (w-2.5dotwid-ss,h-2.5dotwid)); -z3 = (z1--z0) intersectionpoint - (fullcircle scaled 4dotwid shifted - (2.5dotwid+ss,2.5dotwid)); -draw z2--z3; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"312",em#-2.5dotwidth#+2ss#,ex#,0); -"Astronomy: conjunction"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 4dotwid shifted - (2.5dotwid+ss,2.5dotwid); -z0 = (2.5dotwid+ss,2.5dotwid); -top rt z1 = (w-ss,h+o); -z2 = (z0--z1) intersectionpoint - (fullcircle scaled 4dotwid shifted - (2.5dotwid+ss,2.5dotwid)); -draw z2--z1; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"315",em#+2ss#,cap#,0); -"Astronomy: ascending node"; - -pickup pencircle scaled 1.5thinl; -draw fullcircle scaled 4dotwid shifted (3dotwid,2dotwid); -draw fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid); -z0 = ((3dotwid,h)--(3dotwid,0)) intersectionpoint - (fullcircle scaled 4dotwid shifted (3dotwid,2dotwid)); -z1 = ((w-3dotwid,h)--(w-3dotwid,0)) intersectionpoint - (fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid)); -top z2 = (w/2,h+o); - -draw z0..z2..z1; - -picture astnode; astnode := currentpicture; - -penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); -endchar; - -beginchar(oct"314",em#+2ss#,cap#,0); -"Astronomy: descending node"; -currentpicture := astnode rotatedaround ((w/2,h/2),180); -endchar; diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm index 99e607679ed..a66e39a2468 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm index a000b7eb8b3..51a0b5b0c15 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm index 4847b8ac148..e25fb020fd7 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm index 06c568a70d1..df822c48123 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm index 6680bb6b8b7..ed473d5a756 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm index 61cb6c3c628..ddae22e98e2 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm index 01d52e55b0c..9dc55fb891f 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm index d3bc83c6a89..f4f96d2734b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm index 6d9512b0e8f..712fcd73397 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm index dd7fb3c5155..6f66130afd8 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm index 58693eb9456..372b16b32c0 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm index cd15f721a5b..efeb3529f41 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm index 52f591f800a..cf9292a597b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm index 86b1df04e1b..36046bb6211 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm index cc21c01eb24..90431e8b967 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm index f84a2682889..538c106d494 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm index 46eda57129c..563c76dead3 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm index 80b104c19ef..54f89a407b4 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm index 9c420f6aa78..931d658ce48 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm deleted file mode 100644 index 067a14e84b7..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm index f2f26e6d538..57414c29bd3 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm index f6110cc2c9c..acd31f3a104 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm index fb5c56073f3..960e4cf0b6b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx17.tfm new file mode 100644 index 00000000000..ef53341c515 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm index 66b40e16d8e..0e3719ca659 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx6.tfm new file mode 100644 index 00000000000..41d5ceae749 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm index d50aa489a09..7ae4485aed8 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm index 57f82009519..db95226ff12 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm index bafa8a78c28..38464ee9449 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm index 47464021a52..0126806fabb 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm index c70c5f6df12..f80f1cb77b0 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm index aed50edd1b2..fc45693294b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm index bcce1ca4124..327d1dabf47 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm index 1ec701d8a18..2b3bcf18f75 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm index 46e01ea6662..bceae6cca40 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm index 4fd2462429d..2e856172a00 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm index 6414fb39aaf..cb2c49a918d 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm index 606e3b910cb..3d899359931 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm index 65c12265fb7..f932e701576 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm index a3730764c1e..d654904b0ff 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm index 869591e8a92..c2ff7a76864 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm index 08b4b476f47..9ee0b2cf5ff 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm index a9beb66b261..86db7202c95 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm index 27e41170483..361ef72fc03 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm index 4d3da307ca5..1cfb90054e8 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm index 1e6c2bbf50b..bbcccee7ec5 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm index 2b126b6bece..1ba671c87ea 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm index fcdf277fc44..a1b284f3d85 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc11.tfm new file mode 100644 index 00000000000..0a4be505553 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm index 36dce0db30c..25f3901ad9b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm index 6295a192637..2d4b419bf4c 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm index cfc0e63a812..7184f48cc8b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm index 44b9aa12783..43b354db3e4 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm index 968e3c6cfd0..c141812c234 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm index 877d41b524d..43d5a5749ab 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm index 57059402f90..0f28cc36b7f 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm index ba95ae47700..73046079023 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm index b4d57537f04..138507609c1 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl11.tfm new file mode 100644 index 00000000000..eaa34f79645 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm index 4ddfd6076f1..90c17240038 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm index bab2fc47f21..5b193c84f13 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm index 097b89bb930..60455fbf05b 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl24.tfm new file mode 100644 index 00000000000..25cee699120 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm index a79aa77028f..0cb41aabc62 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm index 9ef410bc996..a57a7c50d9d 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm index fd30fe7ba00..b267ecd0972 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm index 097499e0101..69a368c23a4 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm deleted file mode 100644 index 6b6c4b5c72b..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc11.tfm new file mode 100644 index 00000000000..a97493940f3 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc12.tfm new file mode 100644 index 00000000000..4b309dbc008 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm index 7803191d705..606b19c96d8 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm index 5d43e8336c6..7af897300da 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc6.tfm new file mode 100644 index 00000000000..e70823185cc Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm index ea804ff9c53..d342ba1d13d 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc8.tfm new file mode 100644 index 00000000000..7c9914cc53e Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc8.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm index 99503f19ee6..aee61e4ecb7 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm deleted file mode 100644 index 78cbdf56eca..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui11.tfm new file mode 100644 index 00000000000..1cc620a2bf5 Binary files /dev/null and b/Master/texmf-dist/fonts/tfm/public/drm/drmui11.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm index 24b4b1955fe..c44a775d441 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm index d212df4fad0..3cbee46b7de 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm index bcce1ca4124..e6be26935c9 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm index dc125a55c01..925fde92925 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm index 006a76bcff0..5810f515d8d 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm index 3871c9d115b..78bff2c4601 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm differ diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm index 59fa8170d79..496f9f7fff3 100644 Binary files a/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm and b/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm differ diff --git a/Master/texmf-dist/source/fonts/drm/drm.dtx b/Master/texmf-dist/source/fonts/drm/drm.dtx index 073c2054ef0..b98a74a8c0b 100644 --- a/Master/texmf-dist/source/fonts/drm/drm.dtx +++ b/Master/texmf-dist/source/fonts/drm/drm.dtx @@ -24,7 +24,7 @@ % \iffalse %\NeedsTeXFormat{LaTeX2e}[1999/12/01] -%\ProvidesPackage{drm}[2015/01/01 v1.0 support for dozenal fonts] +%\ProvidesPackage{drm}[2015/01/01 v1.1 support for dozenal fonts] %<*driver> \documentclass{ltxdoc} @@ -77,7 +77,7 @@ % % \fi % -% \title{The \texttt{drm} Font Package, v1.0} +% \title{The \texttt{drm} Font Package, v1.1} % \author{Donald P.\ Goodman III} % \date{\today} % diff --git a/Master/texmf-dist/tex/latex/drm/drm.sty b/Master/texmf-dist/tex/latex/drm/drm.sty index 12695f65d01..0648900466b 100644 --- a/Master/texmf-dist/tex/latex/drm/drm.sty +++ b/Master/texmf-dist/tex/latex/drm/drm.sty @@ -25,7 +25,7 @@ %% This work consists of the files listed in drmfilelist.txt. \NeedsTeXFormat{LaTeX2e}[1999/12/01] -\ProvidesPackage{drm}[2015/01/01 v1.0 support for dozenal fonts] +\ProvidesPackage{drm}[2015/01/01 v1.1 support for dozenal fonts] \RequirePackage[LGR,OML,OMS,TS1,T1]{fontenc} \RequirePackage{modroman} \RequirePackage{amsmath} -- cgit v1.2.3