summaryrefslogtreecommitdiff
path: root/fonts/drm/mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/drm/mf
Initial commit
Diffstat (limited to 'fonts/drm/mf')
-rw-r--r--fonts/drm/mf/backslanttest.mf75
-rw-r--r--fonts/drm/mf/drm.mf7
-rw-r--r--fonts/drm/mf/drm10.mf72
-rw-r--r--fonts/drm/mf/drm11.mf72
-rw-r--r--fonts/drm/mf/drm12.mf72
-rw-r--r--fonts/drm/mf/drm14.mf72
-rw-r--r--fonts/drm/mf/drm17.mf72
-rw-r--r--fonts/drm/mf/drm24.mf72
-rw-r--r--fonts/drm/mf/drm6.mf72
-rw-r--r--fonts/drm/mf/drm7.mf72
-rw-r--r--fonts/drm/mf/drm8.mf72
-rw-r--r--fonts/drm/mf/drm9.mf72
-rw-r--r--fonts/drm/mf/drmacc.mf219
-rw-r--r--fonts/drm/mf/drmacclet.mf687
-rw-r--r--fonts/drm/mf/drmb10.mf73
-rw-r--r--fonts/drm/mf/drmb11.mf73
-rw-r--r--fonts/drm/mf/drmb12.mf73
-rw-r--r--fonts/drm/mf/drmb14.mf73
-rw-r--r--fonts/drm/mf/drmb17.mf73
-rw-r--r--fonts/drm/mf/drmb24.mf73
-rw-r--r--fonts/drm/mf/drmb6.mf73
-rw-r--r--fonts/drm/mf/drmb7.mf73
-rw-r--r--fonts/drm/mf/drmb8.mf73
-rw-r--r--fonts/drm/mf/drmb9.mf73
-rw-r--r--fonts/drm/mf/drmbx10.mf73
-rw-r--r--fonts/drm/mf/drmbx11.mf73
-rw-r--r--fonts/drm/mf/drmbx12.mf73
-rw-r--r--fonts/drm/mf/drmbx14.mf73
-rw-r--r--fonts/drm/mf/drmbx17.mf73
-rw-r--r--fonts/drm/mf/drmbx24.mf73
-rw-r--r--fonts/drm/mf/drmbx6.mf73
-rw-r--r--fonts/drm/mf/drmbx7.mf73
-rw-r--r--fonts/drm/mf/drmbx8.mf73
-rw-r--r--fonts/drm/mf/drmbx9.mf73
-rw-r--r--fonts/drm/mf/drmcap.mf1185
-rw-r--r--fonts/drm/mf/drmdigs.mf268
-rw-r--r--fonts/drm/mf/drmdoz10.mf67
-rw-r--r--fonts/drm/mf/drmdoz11.mf67
-rw-r--r--fonts/drm/mf/drmdoz12.mf67
-rw-r--r--fonts/drm/mf/drmdoz14.mf67
-rw-r--r--fonts/drm/mf/drmdoz17.mf67
-rw-r--r--fonts/drm/mf/drmdoz24.mf67
-rw-r--r--fonts/drm/mf/drmdoz6.mf67
-rw-r--r--fonts/drm/mf/drmdoz7.mf67
-rw-r--r--fonts/drm/mf/drmdoz8.mf67
-rw-r--r--fonts/drm/mf/drmdoz9.mf67
-rw-r--r--fonts/drm/mf/drmdozb10.mf67
-rw-r--r--fonts/drm/mf/drmdozb11.mf67
-rw-r--r--fonts/drm/mf/drmdozb12.mf67
-rw-r--r--fonts/drm/mf/drmdozb14.mf67
-rw-r--r--fonts/drm/mf/drmdozb17.mf67
-rw-r--r--fonts/drm/mf/drmdozb24.mf67
-rw-r--r--fonts/drm/mf/drmdozb6.mf67
-rw-r--r--fonts/drm/mf/drmdozb7.mf67
-rw-r--r--fonts/drm/mf/drmdozb8.mf67
-rw-r--r--fonts/drm/mf/drmdozb9.mf67
-rw-r--r--fonts/drm/mf/drmdozbx10.mf67
-rw-r--r--fonts/drm/mf/drmdozbx11.mf67
-rw-r--r--fonts/drm/mf/drmdozbx12.mf67
-rw-r--r--fonts/drm/mf/drmdozbx14.mf67
-rw-r--r--fonts/drm/mf/drmdozbx17.mf67
-rw-r--r--fonts/drm/mf/drmdozbx24.mf67
-rw-r--r--fonts/drm/mf/drmdozbx6.mf67
-rw-r--r--fonts/drm/mf/drmdozbx7.mf67
-rw-r--r--fonts/drm/mf/drmdozbx8.mf67
-rw-r--r--fonts/drm/mf/drmdozbx9.mf67
-rw-r--r--fonts/drm/mf/drmdozdigs.mf127
-rw-r--r--fonts/drm/mf/drmdozit10.mf72
-rw-r--r--fonts/drm/mf/drmdozit11.mf72
-rw-r--r--fonts/drm/mf/drmdozit12.mf72
-rw-r--r--fonts/drm/mf/drmdozit14.mf72
-rw-r--r--fonts/drm/mf/drmdozit17.mf72
-rw-r--r--fonts/drm/mf/drmdozit24.mf72
-rw-r--r--fonts/drm/mf/drmdozit6.mf72
-rw-r--r--fonts/drm/mf/drmdozit7.mf72
-rw-r--r--fonts/drm/mf/drmdozit8.mf72
-rw-r--r--fonts/drm/mf/drmdozit9.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx10.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx11.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx12.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx14.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx17.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx24.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx6.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx7.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx8.mf72
-rw-r--r--fonts/drm/mf/drmdozitbx9.mf73
-rw-r--r--fonts/drm/mf/drmdozitdigs.mf96
-rw-r--r--fonts/drm/mf/drmdozitsc10.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc11.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc12.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc14.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc17.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc24.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc6.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc7.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc8.mf68
-rw-r--r--fonts/drm/mf/drmdozitsc9.mf68
-rw-r--r--fonts/drm/mf/drmdozittc10.mf68
-rw-r--r--fonts/drm/mf/drmdozittc11.mf68
-rw-r--r--fonts/drm/mf/drmdozittc12.mf68
-rw-r--r--fonts/drm/mf/drmdozittc14.mf68
-rw-r--r--fonts/drm/mf/drmdozittc17.mf68
-rw-r--r--fonts/drm/mf/drmdozittc24.mf68
-rw-r--r--fonts/drm/mf/drmdozittc6.mf68
-rw-r--r--fonts/drm/mf/drmdozittc7.mf68
-rw-r--r--fonts/drm/mf/drmdozittc8.mf68
-rw-r--r--fonts/drm/mf/drmdozittc9.mf68
-rw-r--r--fonts/drm/mf/drmdozl10.mf67
-rw-r--r--fonts/drm/mf/drmdozl11.mf67
-rw-r--r--fonts/drm/mf/drmdozl12.mf67
-rw-r--r--fonts/drm/mf/drmdozl14.mf67
-rw-r--r--fonts/drm/mf/drmdozl17.mf67
-rw-r--r--fonts/drm/mf/drmdozl24.mf67
-rw-r--r--fonts/drm/mf/drmdozl6.mf67
-rw-r--r--fonts/drm/mf/drmdozl7.mf67
-rw-r--r--fonts/drm/mf/drmdozl8.mf67
-rw-r--r--fonts/drm/mf/drmdozl9.mf67
-rw-r--r--fonts/drm/mf/drmdozsc10.mf67
-rw-r--r--fonts/drm/mf/drmdozsc11.mf67
-rw-r--r--fonts/drm/mf/drmdozsc12.mf67
-rw-r--r--fonts/drm/mf/drmdozsc14.mf67
-rw-r--r--fonts/drm/mf/drmdozsc17.mf67
-rw-r--r--fonts/drm/mf/drmdozsc24.mf67
-rw-r--r--fonts/drm/mf/drmdozsc6.mf67
-rw-r--r--fonts/drm/mf/drmdozsc7.mf67
-rw-r--r--fonts/drm/mf/drmdozsc8.mf67
-rw-r--r--fonts/drm/mf/drmdozsc9.mf66
-rw-r--r--fonts/drm/mf/drmdozscbx10.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx11.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx12.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx14.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx17.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx24.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx6.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx7.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx8.mf67
-rw-r--r--fonts/drm/mf/drmdozscbx9.mf67
-rw-r--r--fonts/drm/mf/drmdozscdigs.mf66
-rw-r--r--fonts/drm/mf/drmdozsl10.mf69
-rw-r--r--fonts/drm/mf/drmdozsl11.mf69
-rw-r--r--fonts/drm/mf/drmdozsl12.mf69
-rw-r--r--fonts/drm/mf/drmdozsl14.mf69
-rw-r--r--fonts/drm/mf/drmdozsl17.mf69
-rw-r--r--fonts/drm/mf/drmdozsl24.mf69
-rw-r--r--fonts/drm/mf/drmdozsl6.mf69
-rw-r--r--fonts/drm/mf/drmdozsl7.mf69
-rw-r--r--fonts/drm/mf/drmdozsl8.mf69
-rw-r--r--fonts/drm/mf/drmdozsl9.mf69
-rw-r--r--fonts/drm/mf/drmdoztc10.mf67
-rw-r--r--fonts/drm/mf/drmdoztc11.mf67
-rw-r--r--fonts/drm/mf/drmdoztc12.mf67
-rw-r--r--fonts/drm/mf/drmdoztc14.mf67
-rw-r--r--fonts/drm/mf/drmdoztc17.mf67
-rw-r--r--fonts/drm/mf/drmdoztc24.mf67
-rw-r--r--fonts/drm/mf/drmdoztc6.mf67
-rw-r--r--fonts/drm/mf/drmdoztc7.mf67
-rw-r--r--fonts/drm/mf/drmdoztc8.mf67
-rw-r--r--fonts/drm/mf/drmdoztc9.mf66
-rw-r--r--fonts/drm/mf/drmdoztcbx10.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx11.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx12.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx14.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx17.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx24.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx6.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx7.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx8.mf67
-rw-r--r--fonts/drm/mf/drmdoztcbx9.mf67
-rw-r--r--fonts/drm/mf/drmdoztcdigs.mf66
-rw-r--r--fonts/drm/mf/drmdozui10.mf70
-rw-r--r--fonts/drm/mf/drmdozui11.mf70
-rw-r--r--fonts/drm/mf/drmdozui12.mf70
-rw-r--r--fonts/drm/mf/drmdozui14.mf70
-rw-r--r--fonts/drm/mf/drmdozui17.mf70
-rw-r--r--fonts/drm/mf/drmdozui24.mf70
-rw-r--r--fonts/drm/mf/drmdozui6.mf70
-rw-r--r--fonts/drm/mf/drmdozui7.mf70
-rw-r--r--fonts/drm/mf/drmdozui8.mf70
-rw-r--r--fonts/drm/mf/drmdozui9.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx10.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx11.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx12.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx14.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx17.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx24.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx6.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx7.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx8.mf70
-rw-r--r--fonts/drm/mf/drmdozuibx9.mf71
-rw-r--r--fonts/drm/mf/drmfigs10.mf68
-rw-r--r--fonts/drm/mf/drmfigs11.mf68
-rw-r--r--fonts/drm/mf/drmfigs12.mf68
-rw-r--r--fonts/drm/mf/drmfigs14.mf68
-rw-r--r--fonts/drm/mf/drmfigs17.mf68
-rw-r--r--fonts/drm/mf/drmfigs24.mf68
-rw-r--r--fonts/drm/mf/drmfigs6.mf68
-rw-r--r--fonts/drm/mf/drmfigs7.mf68
-rw-r--r--fonts/drm/mf/drmfigs8.mf68
-rw-r--r--fonts/drm/mf/drmfigs9.mf68
-rw-r--r--fonts/drm/mf/drmgrk10.mf77
-rw-r--r--fonts/drm/mf/drmgrkacc.mf364
-rw-r--r--fonts/drm/mf/drmgrkacclet.mf651
-rw-r--r--fonts/drm/mf/drmgrkcap.mf759
-rw-r--r--fonts/drm/mf/drmgrkligs.mf167
-rw-r--r--fonts/drm/mf/drmgrklow.mf796
-rw-r--r--fonts/drm/mf/drmgrkpunct.mf803
-rw-r--r--fonts/drm/mf/drmgrkup.mf293
-rw-r--r--fonts/drm/mf/drminf10.mf68
-rw-r--r--fonts/drm/mf/drminf11.mf68
-rw-r--r--fonts/drm/mf/drminf12.mf68
-rw-r--r--fonts/drm/mf/drminf14.mf68
-rw-r--r--fonts/drm/mf/drminf17.mf68
-rw-r--r--fonts/drm/mf/drminf24.mf68
-rw-r--r--fonts/drm/mf/drminf6.mf68
-rw-r--r--fonts/drm/mf/drminf7.mf68
-rw-r--r--fonts/drm/mf/drminf8.mf68
-rw-r--r--fonts/drm/mf/drminf9.mf68
-rw-r--r--fonts/drm/mf/drminffigs.mf335
-rw-r--r--fonts/drm/mf/drmit10.mf79
-rw-r--r--fonts/drm/mf/drmit11.mf80
-rw-r--r--fonts/drm/mf/drmit12.mf80
-rw-r--r--fonts/drm/mf/drmit14.mf80
-rw-r--r--fonts/drm/mf/drmit17.mf80
-rw-r--r--fonts/drm/mf/drmit24.mf80
-rw-r--r--fonts/drm/mf/drmit6.mf80
-rw-r--r--fonts/drm/mf/drmit7.mf80
-rw-r--r--fonts/drm/mf/drmit8.mf80
-rw-r--r--fonts/drm/mf/drmit9.mf81
-rw-r--r--fonts/drm/mf/drmitacclet.mf686
-rw-r--r--fonts/drm/mf/drmitbx10.mf79
-rw-r--r--fonts/drm/mf/drmitbx11.mf80
-rw-r--r--fonts/drm/mf/drmitbx12.mf80
-rw-r--r--fonts/drm/mf/drmitbx14.mf80
-rw-r--r--fonts/drm/mf/drmitbx17.mf80
-rw-r--r--fonts/drm/mf/drmitbx24.mf80
-rw-r--r--fonts/drm/mf/drmitbx6.mf80
-rw-r--r--fonts/drm/mf/drmitbx7.mf80
-rw-r--r--fonts/drm/mf/drmitbx8.mf80
-rw-r--r--fonts/drm/mf/drmitbx9.mf81
-rw-r--r--fonts/drm/mf/drmitcap.mf264
-rw-r--r--fonts/drm/mf/drmitdigs.mf283
-rw-r--r--fonts/drm/mf/drmitligs.mf235
-rw-r--r--fonts/drm/mf/drmitlow.mf1095
-rw-r--r--fonts/drm/mf/drmitoldstydigs.mf297
-rw-r--r--fonts/drm/mf/drmitpunct.mf82
-rw-r--r--fonts/drm/mf/drmitsc10.mf73
-rw-r--r--fonts/drm/mf/drmitsc11.mf73
-rw-r--r--fonts/drm/mf/drmitsc12.mf73
-rw-r--r--fonts/drm/mf/drmitsc14.mf73
-rw-r--r--fonts/drm/mf/drmitsc17.mf73
-rw-r--r--fonts/drm/mf/drmitsc24.mf73
-rw-r--r--fonts/drm/mf/drmitsc6.mf73
-rw-r--r--fonts/drm/mf/drmitsc7.mf73
-rw-r--r--fonts/drm/mf/drmitsc8.mf73
-rw-r--r--fonts/drm/mf/drmitsc9.mf73
-rw-r--r--fonts/drm/mf/drmittc10.mf73
-rw-r--r--fonts/drm/mf/drmittc11.mf73
-rw-r--r--fonts/drm/mf/drmittc12.mf73
-rw-r--r--fonts/drm/mf/drmittc14.mf73
-rw-r--r--fonts/drm/mf/drmittc17.mf73
-rw-r--r--fonts/drm/mf/drmittc24.mf73
-rw-r--r--fonts/drm/mf/drmittc6.mf73
-rw-r--r--fonts/drm/mf/drmittc7.mf73
-rw-r--r--fonts/drm/mf/drmittc8.mf73
-rw-r--r--fonts/drm/mf/drmittc9.mf73
-rw-r--r--fonts/drm/mf/drml10.mf73
-rw-r--r--fonts/drm/mf/drml11.mf73
-rw-r--r--fonts/drm/mf/drml12.mf73
-rw-r--r--fonts/drm/mf/drml14.mf73
-rw-r--r--fonts/drm/mf/drml17.mf73
-rw-r--r--fonts/drm/mf/drml24.mf73
-rw-r--r--fonts/drm/mf/drml6.mf73
-rw-r--r--fonts/drm/mf/drml7.mf73
-rw-r--r--fonts/drm/mf/drml8.mf73
-rw-r--r--fonts/drm/mf/drml9.mf73
-rw-r--r--fonts/drm/mf/drmligs.mf242
-rw-r--r--fonts/drm/mf/drmlow.mf1359
-rw-r--r--fonts/drm/mf/drmlowmac.mf140
-rw-r--r--fonts/drm/mf/drmmatharrows.mf46
-rw-r--r--fonts/drm/mf/drmmathcal.mf712
-rw-r--r--fonts/drm/mf/drmmathcursell.mf27
-rw-r--r--fonts/drm/mf/drmmathfrac.mf85
-rw-r--r--fonts/drm/mf/drmmathgrklow.mf728
-rw-r--r--fonts/drm/mf/drmmathgrkup.mf231
-rw-r--r--fonts/drm/mf/drmmathheb.mf38
-rw-r--r--fonts/drm/mf/drmmathoms.mf1385
-rw-r--r--fonts/drm/mf/drmmathomx.mf1464
-rw-r--r--fonts/drm/mf/drmmathsym.mf284
-rw-r--r--fonts/drm/mf/drmmi10.mf84
-rw-r--r--fonts/drm/mf/drmoe.mf34
-rw-r--r--fonts/drm/mf/drmoldstyfracs.mf73
-rw-r--r--fonts/drm/mf/drmoldstynums.mf261
-rw-r--r--fonts/drm/mf/drmomx10.mf68
-rw-r--r--fonts/drm/mf/drmornaments.mf1019
-rw-r--r--fonts/drm/mf/drmornbars.mf152
-rw-r--r--fonts/drm/mf/drmornfont.mf154
-rw-r--r--fonts/drm/mf/drmorns.mf51
-rw-r--r--fonts/drm/mf/drmpunct.mf692
-rw-r--r--fonts/drm/mf/drmromannums.mf203
-rw-r--r--fonts/drm/mf/drmsc10.mf72
-rw-r--r--fonts/drm/mf/drmsc11.mf72
-rw-r--r--fonts/drm/mf/drmsc12.mf72
-rw-r--r--fonts/drm/mf/drmsc14.mf72
-rw-r--r--fonts/drm/mf/drmsc17.mf72
-rw-r--r--fonts/drm/mf/drmsc24.mf72
-rw-r--r--fonts/drm/mf/drmsc6.mf72
-rw-r--r--fonts/drm/mf/drmsc7.mf72
-rw-r--r--fonts/drm/mf/drmsc8.mf72
-rw-r--r--fonts/drm/mf/drmsc9.mf72
-rw-r--r--fonts/drm/mf/drmscacclet.mf686
-rw-r--r--fonts/drm/mf/drmscap.mf1125
-rw-r--r--fonts/drm/mf/drmscbx10.mf72
-rw-r--r--fonts/drm/mf/drmscbx11.mf72
-rw-r--r--fonts/drm/mf/drmscbx12.mf72
-rw-r--r--fonts/drm/mf/drmscbx14.mf72
-rw-r--r--fonts/drm/mf/drmscbx17.mf72
-rw-r--r--fonts/drm/mf/drmscbx24.mf72
-rw-r--r--fonts/drm/mf/drmscbx6.mf72
-rw-r--r--fonts/drm/mf/drmscbx7.mf72
-rw-r--r--fonts/drm/mf/drmscbx8.mf72
-rw-r--r--fonts/drm/mf/drmscbx9.mf72
-rw-r--r--fonts/drm/mf/drmscdigs.mf265
-rw-r--r--fonts/drm/mf/drmscdol.mf36
-rw-r--r--fonts/drm/mf/drmscligs.mf127
-rw-r--r--fonts/drm/mf/drmsl10.mf75
-rw-r--r--fonts/drm/mf/drmsl11.mf75
-rw-r--r--fonts/drm/mf/drmsl12.mf75
-rw-r--r--fonts/drm/mf/drmsl14.mf75
-rw-r--r--fonts/drm/mf/drmsl17.mf75
-rw-r--r--fonts/drm/mf/drmsl24.mf75
-rw-r--r--fonts/drm/mf/drmsl6.mf75
-rw-r--r--fonts/drm/mf/drmsl7.mf75
-rw-r--r--fonts/drm/mf/drmsl8.mf75
-rw-r--r--fonts/drm/mf/drmsl9.mf75
-rw-r--r--fonts/drm/mf/drmsupfigs.mf335
-rw-r--r--fonts/drm/mf/drmsy10.mf72
-rw-r--r--fonts/drm/mf/drmsym10.mf74
-rw-r--r--fonts/drm/mf/drmsym11.mf74
-rw-r--r--fonts/drm/mf/drmsym12.mf74
-rw-r--r--fonts/drm/mf/drmsym14.mf74
-rw-r--r--fonts/drm/mf/drmsym17.mf74
-rw-r--r--fonts/drm/mf/drmsym24.mf74
-rw-r--r--fonts/drm/mf/drmsym7.mf74
-rw-r--r--fonts/drm/mf/drmsym8.mf74
-rw-r--r--fonts/drm/mf/drmsym9.mf74
-rw-r--r--fonts/drm/mf/drmsymbols.mf3555
-rw-r--r--fonts/drm/mf/drmtc10.mf71
-rw-r--r--fonts/drm/mf/drmtc11.mf72
-rw-r--r--fonts/drm/mf/drmtc12.mf72
-rw-r--r--fonts/drm/mf/drmtc14.mf72
-rw-r--r--fonts/drm/mf/drmtc17.mf72
-rw-r--r--fonts/drm/mf/drmtc24.mf72
-rw-r--r--fonts/drm/mf/drmtc6.mf72
-rw-r--r--fonts/drm/mf/drmtc7.mf72
-rw-r--r--fonts/drm/mf/drmtc8.mf72
-rw-r--r--fonts/drm/mf/drmtc9.mf72
-rw-r--r--fonts/drm/mf/drmtcacclet.mf685
-rw-r--r--fonts/drm/mf/drmtcap.mf1127
-rw-r--r--fonts/drm/mf/drmtcbx10.mf72
-rw-r--r--fonts/drm/mf/drmtcbx11.mf72
-rw-r--r--fonts/drm/mf/drmtcbx12.mf72
-rw-r--r--fonts/drm/mf/drmtcbx14.mf72
-rw-r--r--fonts/drm/mf/drmtcbx17.mf72
-rw-r--r--fonts/drm/mf/drmtcbx24.mf72
-rw-r--r--fonts/drm/mf/drmtcbx6.mf72
-rw-r--r--fonts/drm/mf/drmtcbx7.mf72
-rw-r--r--fonts/drm/mf/drmtcbx8.mf72
-rw-r--r--fonts/drm/mf/drmtcbx9.mf72
-rw-r--r--fonts/drm/mf/drmtcdigs.mf265
-rw-r--r--fonts/drm/mf/drmtcdol.mf36
-rw-r--r--fonts/drm/mf/drmtcligs.mf127
-rw-r--r--fonts/drm/mf/drmttcap.mf1107
-rw-r--r--fonts/drm/mf/drmui10.mf78
-rw-r--r--fonts/drm/mf/drmui11.mf78
-rw-r--r--fonts/drm/mf/drmui12.mf78
-rw-r--r--fonts/drm/mf/drmui14.mf78
-rw-r--r--fonts/drm/mf/drmui17.mf78
-rw-r--r--fonts/drm/mf/drmui24.mf78
-rw-r--r--fonts/drm/mf/drmui6.mf78
-rw-r--r--fonts/drm/mf/drmui7.mf78
-rw-r--r--fonts/drm/mf/drmui8.mf79
-rw-r--r--fonts/drm/mf/drmui9.mf79
-rw-r--r--fonts/drm/mf/drmuibx10.mf77
-rw-r--r--fonts/drm/mf/drmuibx11.mf78
-rw-r--r--fonts/drm/mf/drmuibx12.mf78
-rw-r--r--fonts/drm/mf/drmuibx14.mf78
-rw-r--r--fonts/drm/mf/drmuibx17.mf78
-rw-r--r--fonts/drm/mf/drmuibx24.mf78
-rw-r--r--fonts/drm/mf/drmuibx6.mf78
-rw-r--r--fonts/drm/mf/drmuibx7.mf78
-rw-r--r--fonts/drm/mf/drmuibx8.mf78
-rw-r--r--fonts/drm/mf/drmuibx9.mf79
-rw-r--r--fonts/drm/mf/drmuiligs.mf265
394 files changed, 52765 insertions, 0 deletions
diff --git a/fonts/drm/mf/backslanttest.mf b/fonts/drm/mf/backslanttest.mf
new file mode 100644
index 0000000000..07c8253d8e
--- /dev/null
+++ b/fonts/drm/mf/backslanttest.mf
@@ -0,0 +1,75 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := -1/3;
+font_slant slant;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm.mf b/fonts/drm/mf/drm.mf
new file mode 100644
index 0000000000..07d7a85571
--- /dev/null
+++ b/fonts/drm/mf/drm.mf
@@ -0,0 +1,7 @@
+% +AMDG This document was begun on 17 August 2007, the Feast of St. Hyacinth
+% the Confessor, 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.
+
+
+
+\input dprcap
diff --git a/fonts/drm/mf/drm10.mf b/fonts/drm/mf/drm10.mf
new file mode 100644
index 0000000000..6e1310491f
--- /dev/null
+++ b/fonts/drm/mf/drm10.mf
@@ -0,0 +1,72 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+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.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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm11.mf b/fonts/drm/mf/drm11.mf
new file mode 100644
index 0000000000..a776fde2da
--- /dev/null
+++ b/fonts/drm/mf/drm11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm12.mf b/fonts/drm/mf/drm12.mf
new file mode 100644
index 0000000000..a33b0bc09f
--- /dev/null
+++ b/fonts/drm/mf/drm12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm14.mf b/fonts/drm/mf/drm14.mf
new file mode 100644
index 0000000000..6ad191df01
--- /dev/null
+++ b/fonts/drm/mf/drm14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm17.mf b/fonts/drm/mf/drm17.mf
new file mode 100644
index 0000000000..6b60c5eefb
--- /dev/null
+++ b/fonts/drm/mf/drm17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm24.mf b/fonts/drm/mf/drm24.mf
new file mode 100644
index 0000000000..972fdd5482
--- /dev/null
+++ b/fonts/drm/mf/drm24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm6.mf b/fonts/drm/mf/drm6.mf
new file mode 100644
index 0000000000..8f244f7d9e
--- /dev/null
+++ b/fonts/drm/mf/drm6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+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);
+
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm7.mf b/fonts/drm/mf/drm7.mf
new file mode 100644
index 0000000000..1429767b28
--- /dev/null
+++ b/fonts/drm/mf/drm7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm8.mf b/fonts/drm/mf/drm8.mf
new file mode 100644
index 0000000000..cf1cd060fd
--- /dev/null
+++ b/fonts/drm/mf/drm8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drm9.mf b/fonts/drm/mf/drm9.mf
new file mode 100644
index 0000000000..0a1f7c9d59
--- /dev/null
+++ b/fonts/drm/mf/drm9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmacc.mf b/fonts/drm/mf/drmacc.mf
new file mode 100644
index 0000000000..89674fc841
--- /dev/null
+++ b/fonts/drm/mf/drmacc.mf
@@ -0,0 +1,219 @@
+% +AMDG This document was begun on 2 May 11EX, the feast of
+% St. Athanasius, BC, 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 ringacc;
+picture hungum;
+picture roundcircum;
+picture invcircum;
+picture macron;
+picture overdot;
+picture cedille;
+picture revcid;
+picture grave;
+picture acute;
+picture diaresis;
+picture circumflex;
+picture tilde;
+
+beginchar(oct"000",2pwid#,cap#,0); "The grave accent, `";
+
+z0 = (ss,h-o);
+z1 = z0 shifted (accwid,accwid);
+z2 = z0 shifted (accwid,-accwid);
+z3 = (w-ss,h-o);
+z4 = z3 shifted (-2accwid,2accwid);
+z5 = z3 shifted (-2accwid,-2accwid);
+z6 = (w/2,h-o);
+
+path graveacc; graveacc = z0..z1--z4..z3..z5--z2..cycle;
+fill graveacc rotatedaround (z6,-20);
+
+grave := 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"005",2pwid#,cap#,0); "The Hungarian diaresis";
+
+z0 = (w/2-accwid,h-o);
+z2 = z0 shifted (0,-pwid);
+z3 = z0 shifted (2accwid,0);
+z4 = z2 shifted (2accwid,0);
+z5 = 0.5[z0,z3] shifted (0,accwid);
+z6 = 0.5[z2,z4] shifted (0,-accwid);
+z7 = 0.5[z5,z6];
+
+path lthung; lthung = z0..z5..z3--z4..z6..z2--cycle;
+
+fill lthung rotatedaround (z7,-30);
+fill lthung rotatedaround (z7,-30) shifted (w/3,0);
+
+hungum := 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"006",2pwid#,cap#,0); "The ring accent";
+
+z0 = (w/2,h-dotwid-accwid);
+
+pickup pencircle scaled thinl;
+path ringaccent;
+ringaccent = fullcircle scaled 3dotwid shifted z0;
+draw ringaccent;
+
+ringacc := currentpicture;
+
+endchar;
+
+beginchar(oct"001",2pwid#,cap#,0); "The acute accent, '";
+
+z6 = (w/2,h-o);
+
+fill graveacc rotatedaround (z6,20);
+
+acute := 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"002",2pwid#,cap#,0); "The circumflex, ^";
+
+z0 = (w/2,h-o);
+z1 = (ss,h-pwid);
+z2 = (w-ss,h-pwid);
+z3 = z0 shifted (0,-3accwid);
+z5 = z1 shifted (3accwid,0);
+z7 = z2 shifted (-3accwid,0);
+
+path circum;
+circum = z0--z2--z7--z3--z5--z1--cycle;
+fill circum;
+circumflex := 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",2pwid#,cap#,0); "The inverted circumflex";
+
+fill circum reflectedabout ((0,h-pwid/2-o),(w,h-pwid/2-o));
+invcircum := currentpicture;
+
+endchar;
+
+beginchar(oct"010",2pwid#,cap#,0); "The rounded inverted circumflex";
+
+z0 = (w/2,h-pwid);
+z1 = (ss,h-o);
+z2 = (w-ss,h-o);
+z3 = z0 shifted (0,-2accwid);
+z4 = z1 shifted (accwid,0);
+z5 = z2 shifted (-accwid,0);
+z6 = 0.5[z2,z5] shifted (0,accwid/2);
+z7 = 0.5[z1,z4] shifted (0,accwid/2);
+
+fill
+z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle;
+
+roundcircum := 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"011",2pwid#,cap#,0); "The macron";
+
+z0 = (ss,h-pwid/2);
+z1 = (w-ss,h-pwid/2);
+z2 = z0 shifted (0,-accwid/2);
+z3 = z1 shifted (0,-accwid/2);
+
+fill z0---z1..z3---z2..cycle;
+
+macron := 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"012",pwid#,cap#,0); "The overdot";
+
+fill fullcircle scaled 2dotwid shifted (w/2,cap-dotwid);
+
+overdot := currentpicture;
+
+endchar;
+
+beginchar(oct"013",pwid#,0,1.5pwid#); "The cedilla";
+
+cedsize = pwid/3;
+z0 = (w/2-cedsize/2,0);
+z1 = z0 shifted (cedsize,0);
+z2 = z0 shifted (0,-cedsize);
+z3 = z1 shifted (0,-cedsize);
+z4 = z3 shifted (cedsize,-cedsize);
+z5 = z4 shifted (-cedsize,0);
+z6 = z5 shifted (-cedsize,-cedsize);
+z7 = z6 shifted (0,-cedsize);
+z8 = 0.5[z6,z7] shifted (-accwid/2,0);
+
+fill z0..z2..z5..z6..z8..z7..z4..z3--z1--cycle;
+
+cedille := 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"014",pwid#,0,1.5pwid#); "The reverse cedilla";
+
+z0 = (w/2-cedsize/2,0);
+z1 = z0 shifted (cedsize,0);
+z2 = z0 shifted (-2cedsize,-2cedsize);
+z3 = z2 shifted (cedsize,0);
+z4 = z2 shifted (4cedsize,-cedsize);
+z5 = z4 shifted (cedsize,0);
+z6 = z2 shifted (2cedsize,-2cedsize);
+z7 = z6 shifted (0,-cedsize);
+
+fill z0{left}..{down}z2{down}..z7..{up}z5..z4..z6..z3..{dir
+ 60}z1--cycle;
+
+revcid := 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"003",2pwid#,cap#,0); "The 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);
+
+fill z0..{right}z1{right}..{right}z5{right}..
+ {dir 60}z3{dir -95}..{left}z2{left}..{left}z4{left}..
+ cycle;
+
+tilde := 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"004",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;
+
+diaresis := 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"015",pwid#,pwid#,0); "The comma accent, ,";
+fill commapost shifted (0,h-2dotwid+o/2);
+endchar;
diff --git a/fonts/drm/mf/drmacclet.mf b/fonts/drm/mf/drmacclet.mf
new file mode 100644
index 0000000000..eef58630a8
--- /dev/null
+++ b/fonts/drm/mf/drmacclet.mf
@@ -0,0 +1,687 @@
+% +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(oct"350",ex#+2ss#,ex#,0); "The letter egrave";
+
+currentpicture := lowe + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"351",ex#+2ss#,ex#,0); "The letter eacute";
+
+currentpicture := lowe + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"354",0.6ex#+2ss#,ex#,0); "the letter igrave";
+currentpicture := dotlessi + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"355",0.6ex#+2ss#,ex#,0); "the letter iacute";
+currentpicture := dotlessi + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"356",0.6ex#+2ss#,ex#,0); "the letter icirc";
+currentpicture := dotlessi + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+endchar;
+
+beginchar(oct"357",0.6ex#+2ss#,ex#,0); "dotless i with diaresis";
+
+currentpicture := dotlessi + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"352",ex#+2ss#,ex#,0); "e with circumflex";
+
+currentpicture := lowe + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"353",ex#+2ss#,ex#,0); "e with diaresis";
+
+currentpicture := lowe + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"362",ex#+2ss#,ex#,0); "the letter ograve";
+
+currentpicture := lowo + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"363",ex#+2ss#,ex#,0); "the letter oacute";
+
+currentpicture := lowo + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"366",ex#+2ss#,ex#,0); "o with diaresis";
+
+currentpicture := lowo + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"365",ex#+2ss#,ex#,0); "o with tilde";
+
+currentpicture := lowo + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"364",ex#+2ss#,ex#,0); "o with circumflex";
+
+currentpicture := lowo + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"340",ex#+2ss#,ex#,0); "The letter agrave";
+
+currentpicture := lowa + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"341",ex#+2ss#,ex#,0); "The letter aacute";
+
+currentpicture := lowa + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"342",ex#+2ss#,ex#,0); "a with circumflex";
+
+currentpicture := lowa + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"343",ex#+2ss#,ex#,0); "a with tilde";
+
+currentpicture := lowa + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"344",ex#+2ss#,ex#,0); "a with diaresis";
+
+currentpicture := lowa + diaresis shifted
+ (w/2-pwid-lserwl/2,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"345",ex#+2ss#,ex#,0); "a with ring";
+
+currentpicture := lowa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"267",1.2ex#+2ss#,ex#,0); "u with ring";
+
+currentpicture := lowu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille";
+
+currentpicture := lowc + cedille shifted (w-1.7pwid,0);
+
+endchar;
+
+beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex";
+
+currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla";
+
+currentpicture := capa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent";
+
+currentpicture := capc + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex";
+
+currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex";
+
+currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex";
+
+currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla";
+
+currentpicture := cape + revcid shifted (2w/3-8o,0);
+
+endchar;
+
+beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex";
+
+currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent";
+
+currentpicture := capl + acute shifted (w/2-1.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent";
+
+currentpicture := capl;
+fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L";
+
+currentpicture := capl;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (-2hair,h/2);
+z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)--
+ (ss+userw+thickstroke/2,0));
+z1 = 2[z0,z2] shifted (thickstroke,0);
+path intline; intline = z0--z1;
+
+draw intline rotatedaround(z2,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"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent";
+
+currentpicture := capn + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex";
+
+currentpicture := capn + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis";
+
+currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent";
+
+currentpicture := capr + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex";
+
+currentpicture := capr + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent";
+
+currentpicture := caps + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum";
+
+currentpicture := caps + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla";
+
+currentpicture := caps + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum";
+
+currentpicture := capt + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla";
+
+currentpicture := capt + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut";
+
+currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid);
+
+endchar;
+
+beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent";
+
+currentpicture := capu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut";
+
+currentpicture := capy + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent";
+
+currentpicture := capz + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum";
+
+currentpicture := capz + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot";
+
+currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot";
+
+currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"240",ex#+2ss#,ex#,0); "The letter a, inverse circum";
+
+currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"241",ex#+2ss#,ex#,0); "The letter a, reverse cedilla";
+
+currentpicture := lowa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"242",ex#+2ss#,ex#,0); "c with acute";
+
+currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"243",ex#+2ss#,ex#,0); "c inverse circum";
+
+currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"244",1.2ex#+2ss#,asch#,0); "d apostrophe";
+
+currentpicture := lowd;
+fill commapost shifted (w-0.5pwid-ss,h-0.75pwid);
+
+endchar;
+
+beginchar(oct"245",ex#+2ss#,ex#,0); "e, inverse circumflex";
+
+currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"246",ex#+2ss#,ex#,0); "e, reverse cedilla";
+
+currentpicture := lowe + revcid shifted (w/2-0.3pwid,0);
+
+endchar;
+
+beginchar(oct"247",ex#+2ss#,ex#,dep#); "g, inverse circum";
+
+currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"250",0.6ex#+2ss#,asch#,0); "l, with acute";
+
+currentpicture := lowl + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"251",0.6ex#+2ss#,asch#,0); "l, with apostrophe";
+
+currentpicture := lowl;
+fill commapost shifted (w-0.5pwid-ss,h-0.75pwid);
+
+endchar;
+
+beginchar(oct"252",0.6ex#+2ss#,asch#,0); "l, with crossbar";
+
+currentpicture := lowl;
+
+%z0 = (2o,h/3);
+%z1 = (w-2o,2h/3);
+pickup pencircle scaled thinl;
+z0 = (0,h/2);
+z1 = (w,h/2);
+z2 = 0.5[z0,z1];
+path crossbar; crossbar = z0--z1;
+draw crossbar rotatedaround (z2,30);
+
+endchar;
+
+beginchar(oct"253",1.2ex#+2ss#,ex#,0); "n, acute accent";
+
+currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"254",1.2ex#+2ss#,ex#,0); "n, inverse circum";
+
+currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"256",ex#+2ss#,ex#,0); "o, Hungarian umlaut";
+
+currentpicture := lowo + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"257",ex#+2ss#,ex#,0); "r, with acute accent";
+
+currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"260",ex#+2ss#,ex#,0); "r, reverse circum";
+
+currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"261",0.8ex#+2ss#,ex#,0); "s, with acute accent";
+
+currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"262",0.8ex#+2ss#,ex#,0); "s, reverse circum";
+
+currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"263",0.8ex#+2ss#,ex#,0); "s, cedilla";
+
+currentpicture := lows + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"264",ex#/phi+2.5ss#,theight#,0); "t, with apostrophe";
+
+currentpicture := lowt;
+fill commapost shifted (w-0.2pwid,h-pwid/2);
+
+endchar;
+
+beginchar(oct"265",ex#/phi+2ss#,theight#,0); "t, with cedilla";
+
+currentpicture := lowt + cedille shifted (w/2-pwid/4,0);
+
+endchar;
+
+beginchar(oct"266",1.2ex#+2ss#,ex#,0); "u with Hungarian umlaut";
+
+currentpicture := lowu + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"270",1.2ex#+2ss#,ex#,dep#); "y, with diaresis";
+
+currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"271",ex#+2ss#,ex#,0); "z, acute accent";
+
+currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"272",ex#+2ss#,ex#,0); "z, inverse circum";
+
+currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"273",ex#+2ss#,ex#,0); "z, overdot";
+
+currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"301",em#+2ss#,cap#,0); "A, acute accent";
+
+currentpicture := capa + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"300",em#+2ss#,cap#,0); "A, grave accent";
+
+currentpicture := capa + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex";
+
+currentpicture := capa + circumflex shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde";
+
+currentpicture := capa + tilde shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis";
+
+currentpicture := capa + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"305",em#+2ss#,cap#,0); "A, ring";
+
+currentpicture := capa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille";
+
+currentpicture := capc + cedille shifted (w/2-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute";
+
+currentpicture := cape + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave";
+
+currentpicture := cape + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex";
+
+currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis";
+
+currentpicture := cape + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, acute";
+
+currentpicture := capi + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, grave";
+
+currentpicture := capi + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex";
+
+currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis";
+
+currentpicture := capi + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde";
+
+currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, acute";
+
+currentpicture := capo + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, grave";
+
+currentpicture := capo + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex";
+
+currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde";
+
+currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis";
+
+currentpicture := capo + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, acute";
+
+currentpicture := capu + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, grave";
+
+currentpicture := capu + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex";
+
+currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis";
+
+currentpicture := capu + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute";
+
+currentpicture := capy + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"361",1.2ex#+2ss#,ex#,0); "n, tilde";
+
+currentpicture := lown + tilde shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"372",1.2ex#+2ss#,ex#,0); "u, acute";
+
+currentpicture := lowu + acute shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"371",1.2ex#+2ss#,ex#,0); "u, grave";
+
+currentpicture := lowu + grave shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"373",1.2ex#+2ss#,ex#,0); "u, circumflex";
+
+currentpicture := lowu + circumflex shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"374",1.2ex#+2ss#,ex#,0); "u, diaresis";
+
+currentpicture := lowu + diaresis shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"375",1.2ex#+2ss#,ex#,dep#); "y, acute";
+
+currentpicture := lowy + acute shifted (w/2-pwid,0);
+
+endchar;
+
diff --git a/fonts/drm/mf/drmb10.mf b/fonts/drm/mf/drmb10.mf
new file mode 100644
index 0000000000..5292b174e5
--- /dev/null
+++ b/fonts/drm/mf/drmb10.mf
@@ -0,0 +1,73 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+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.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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+thinstroke#=0.6pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb11.mf b/fonts/drm/mf/drmb11.mf
new file mode 100644
index 0000000000..c8850f43c7
--- /dev/null
+++ b/fonts/drm/mf/drmb11.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb12.mf b/fonts/drm/mf/drmb12.mf
new file mode 100644
index 0000000000..0493e56e83
--- /dev/null
+++ b/fonts/drm/mf/drmb12.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb14.mf b/fonts/drm/mf/drmb14.mf
new file mode 100644
index 0000000000..b154446c9a
--- /dev/null
+++ b/fonts/drm/mf/drmb14.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb17.mf b/fonts/drm/mf/drmb17.mf
new file mode 100644
index 0000000000..686a9c4363
--- /dev/null
+++ b/fonts/drm/mf/drmb17.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb24.mf b/fonts/drm/mf/drmb24.mf
new file mode 100644
index 0000000000..479a39b69d
--- /dev/null
+++ b/fonts/drm/mf/drmb24.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb6.mf b/fonts/drm/mf/drmb6.mf
new file mode 100644
index 0000000000..979c79d7ad
--- /dev/null
+++ b/fonts/drm/mf/drmb6.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb7.mf b/fonts/drm/mf/drmb7.mf
new file mode 100644
index 0000000000..d2fa7795b7
--- /dev/null
+++ b/fonts/drm/mf/drmb7.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb8.mf b/fonts/drm/mf/drmb8.mf
new file mode 100644
index 0000000000..0f40d021cb
--- /dev/null
+++ b/fonts/drm/mf/drmb8.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmb9.mf b/fonts/drm/mf/drmb9.mf
new file mode 100644
index 0000000000..21b308194b
--- /dev/null
+++ b/fonts/drm/mf/drmb9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx10.mf b/fonts/drm/mf/drmbx10.mf
new file mode 100644
index 0000000000..4eb9e3892b
--- /dev/null
+++ b/fonts/drm/mf/drmbx10.mf
@@ -0,0 +1,73 @@
+% +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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx11.mf b/fonts/drm/mf/drmbx11.mf
new file mode 100644
index 0000000000..21f059f776
--- /dev/null
+++ b/fonts/drm/mf/drmbx11.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx12.mf b/fonts/drm/mf/drmbx12.mf
new file mode 100644
index 0000000000..507977ff41
--- /dev/null
+++ b/fonts/drm/mf/drmbx12.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx14.mf b/fonts/drm/mf/drmbx14.mf
new file mode 100644
index 0000000000..b5efd2e7e6
--- /dev/null
+++ b/fonts/drm/mf/drmbx14.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx17.mf b/fonts/drm/mf/drmbx17.mf
new file mode 100644
index 0000000000..2b6fb10aaa
--- /dev/null
+++ b/fonts/drm/mf/drmbx17.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx24.mf b/fonts/drm/mf/drmbx24.mf
new file mode 100644
index 0000000000..71e3e023d4
--- /dev/null
+++ b/fonts/drm/mf/drmbx24.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx6.mf b/fonts/drm/mf/drmbx6.mf
new file mode 100644
index 0000000000..a117e7c490
--- /dev/null
+++ b/fonts/drm/mf/drmbx6.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx7.mf b/fonts/drm/mf/drmbx7.mf
new file mode 100644
index 0000000000..88c6c78a0b
--- /dev/null
+++ b/fonts/drm/mf/drmbx7.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx8.mf b/fonts/drm/mf/drmbx8.mf
new file mode 100644
index 0000000000..a2aa6808ca
--- /dev/null
+++ b/fonts/drm/mf/drmbx8.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmbx9.mf b/fonts/drm/mf/drmbx9.mf
new file mode 100644
index 0000000000..126e046743
--- /dev/null
+++ b/fonts/drm/mf/drmbx9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmcap.mf b/fonts/drm/mf/drmcap.mf
new file mode 100644
index 0000000000..0d9e5f22bd
--- /dev/null
+++ b/fonts/drm/mf/drmcap.mf
@@ -0,0 +1,1185 @@
+% +AMDG This document was begun on 15 August 2007, the
+% Feast of the Assumption of the Blessed Virgin Mary, and it
+% is humbly offered to her for her prayers, and to the
+% Sacred Heart of Jesus for His mercy.
+
+picture capo;
+picture capa;
+picture capl;
+picture capc;
+picture capd;
+picture cape;
+picture capg;
+picture capn;
+picture capu;
+picture capr;
+picture caps;
+picture capt;
+picture capy;
+picture capz;
+picture capi;
+
+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;
+
+%%%FFF Fix W, M, A from dependence on stroke widths FFF%%%
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw+equalize/2,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw+equalize/2,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw+equalize/2,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-(userw+equalize/2),userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define T Side Serifs on Caps %%%%
+
+def tlsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j-((userh/2),0);
+z.l=z.k-(userh/2,1.5userw);
+z.m=z.l+(userh/2,0);
+enddef;
+
+def trsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j+((userh/2),0);
+z.l=z.k+(userh/2,-1.5userw);
+z.m=z.l-(userh/2,0);
+enddef;
+
+%%%% Define C Side Serifs on Caps %%%%
+
+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;
+
+def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userh/2);
+z.k=z.j-(userh,0);
+z.l=z.k+(0,-2userw);
+z.m=z.l+(userh,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define L, E, Z, and F side serifs on Caps %%%%
+
+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;
+
+def lftdownsideserif(suffix i,j,k) =
+z.j=z.i-(ssslant,2lserw);
+z.k=z.j+(lserh,lserw);
+enddef;
+
+beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+path capeye; capeye = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+fill capeye;
+
+capi := currentpicture;
+
+penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25);
+
+endchar;
+
+beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O";
+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);
+
+path fillo; path unfillo;
+fillo = z4..z3..z2..z1..cycle;
+unfillo = z5..z6..z7..z8..cycle;
+fill fillo;
+unfill unfillo;
+
+capo := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("A",em#+2ss#,cap#,0); "The Letter A";
+italcorr(ex#*slant);
+
+crossh = 1/phi;
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (w-ss-lserw,lserh);
+z4 = z3 shifted (-thickstroke,0);
+z5 = (w/2+thickstroke/2,h+o);
+z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30);
+lrserif(3,7,8,9,10)(1);
+llserif(4,11,12,13,14)(1);
+lrserif(2,15,16,17,18)(1);
+llserif(1,19,20,21,22)(1);
+z23 = crossh[z6,z1];
+z24 = z23 shifted (thinstroke,0);
+z25 = (w,y23);
+z26 = letaa[z23,z25];
+z26 = letab[z3,z5];
+z27 = z26 shifted (-thickstroke,0);
+z28 = 0.9[z27,z6];
+z29 = 0.1[z27,z28];
+z30 = 0.1[z24,z28];
+
+fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2
+ --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle;
+unfill z30--z28--z29--cycle;
+
+capa := currentpicture;
+
+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);
+endchar;
+
+beginchar("J",0.38em#+2ss#,cap#,dep#); "The Letter J";
+italcorr(ex#*slant);
+
+z1 = ((w/2-(thickstroke/2)),-lserh);
+z2 = ((w/2+(thickstroke/2)),-lserh);
+z3 = ((w/2-(thickstroke/2)),(h-userh));
+z4 = ((w/2+(thickstroke/2)),(h-userh));
+z5 = (x3-userw,-dep);
+z6 = z5 shifted (0,thinstroke);
+z8 = z5 shifted (-userw,dep/2);
+z7 = z8 shifted (-thinstroke,0);
+z9 = (x8,-dep/4);
+z10 = 0.5[z8,z9] shifted (thickstroke/2,0);
+
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15..
+ z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}..
+ {up}z8{down}..{up}z10{up}..z9..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25);
+endchar;
+
+beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q";
+italcorr(ex#*slant);
+
+depth=6d/8;
+qtailunit=em/2.5;
+z1=(ss,h/2);
+z2=(w/2,h+o);
+z3=(w-ss,h/2);
+z4=(w/2,0);
+z5=z1+(curvwid,0);
+z6=z2-(0,thinstroke);
+z7=z3-(curvwid,0);
+z8=z4+(0,thinstroke);
+z9=z4+(curvwid/2,0);
+z10=z4-(curvwid/2,0);
+z11=(em+qtailunit+thickstroke,-depth);
+z12=(em+2qtailunit,-depth);
+z13=z12+(qtailunit,depth/2);
+z14=z12+(0,2thickstroke/3);
+z15=(em+qtailunit,-depth+thickstroke);
+
+pickup pencircle;
+
+path outerring; outerring=z9..z3..z2..z1..z10;
+path innerring; innerring=z8..z5..z6..z7..cycle;
+path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13;
+path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9;
+
+unfill innerring;
+fill outerring & bottomqtail & topqtail..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar(oct"137",em#+2ss#,cap#,dep#+thickstroke#/2);
+"Short-tailed Q";
+italcorr(ex#*slant);
+
+shortqtail := 0pt;
+z1=(ss,h/2);
+z2=(w/2,h+o);
+z3=(w-ss,h/2);
+z4=(w/2,0);
+z5=z1+(curvwid,0);
+z6=z2-(0,thinstroke);
+z7=z3-(curvwid,0);
+z8=z4+(0,thinstroke);
+z9=z4+(curvwid/2,0);
+z10=z4-(curvwid/2,0);
+z11 = (x9+thickstroke,-d);
+z12 = z11 shifted (0,thickstroke);
+z13 = (w-ss,-d/2);
+
+pickup pencircle;
+
+path souterring; souterring=z9..z3..z2..z1..z10;
+path sinnerring; sinnerring=z8..z5..z6..z7..cycle;
+path shortqtail; shortqtail=z10{down}..tension 1.7..z11{right}..{up}z13;
+path topsqtail; topsqtail=z13..tension 1.5..z12..tension 1.5..z9;
+
+unfill sinnerring;
+fill souterring & shortqtail & topsqtail..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("H",em#+2ss#,cap#,0); "The Letter H";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-lserw-thickstroke,lserh);
+z6 = z5 shifted (thickstroke,0);
+z7 = (w-ss-lserw-thickstroke,h-lserh);
+z8 = z7 shifted (thickstroke,0);
+z46=(0.5)[z4,z2];
+z47=z46+(0,thinstroke/2);
+z48=z46-(0,thinstroke/2);
+z49=(0.5)[z7,z5];
+z50=z49+(0,thinstroke/2);
+z51=z49-(0,thinstroke/2);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+lrserif(6,30,31,32,33)(1);
+llserif(5,34,35,36,37)(1);
+urserif(8,38,39,40,41)(1);
+ulserif(7,42,43,44,45)(1);
+
+fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44--
+ z43..z42..z7--z50--z47--z4..z15..z16--z17--z20--
+ z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2
+ --z48--z51--z5..z34..z35--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("D",5em#/6+2ss#,cap#,0); "The Letter D";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z13 = (x4,h);
+z14 = (x4,h-thinstroke);
+z15 = (w-ss,h/2);
+z16 = z15-(curvwid,0);
+z17 = (x2,0);
+z18 = z17+(0,thinstroke);
+z19 = (w/2,h);
+z20 = z19-(0,thinstroke);
+z21 = (w/2,0);
+z22 = z21+(0,thinstroke);
+llserif(1,5,6,7,8)(1);
+ulserif(3,9,10,11,12)(1);
+
+fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle;
+unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle;
+
+capd := currentpicture;
+
+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("P",2em#/3+2ss#,cap#,0); "The Letter P";
+italcorr(ex#*slant);
+
+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);
+
+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;
+
+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("B",3em#/4+2ss#,cap#,0); "The Letter B";
+italcorr(ex#*slant);
+
+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;
+
+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("R",5em#/6+2ss#,cap#,0); "The Letter R";
+italcorr(ex#*slant);
+
+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);
+
+fill
+z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z31{right}..{up}z20{up}..{left}z18..cycle;
+unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle;
+
+capr := currentpicture;
+
+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("M",em#+2ss#,cap#,0); "The Letter M";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.1[z23,z29];
+%z28 = z23 shifted (-thinstroke/2,thinstroke/2);
+z29=z27+(2curvwid/3,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--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("U",5em#/6+2ss#,cap#,0); "The Letter U";
+italcorr(ex#*slant);
+
+z1=(ss+userw,h-userh);
+z2=z1+(thickstroke,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5 shifted (-thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z10=z9+(0,.5thickstroke);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8{down}..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle;
+
+capu := currentpicture;
+
+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("V",5em#/6+2ss#,cap#,0); "The Letter V";
+italcorr(ex#*slant);
+
+z1=(ss+userw,h-userh);
+z2=z1+(slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5-(thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,-o);
+z30=0.25[z9,z5];
+z40 = z9 shifted (-thinstroke,0);
+z41 = z9 shifted (thickstroke,0);
+z10 = (z2--z41) intersectionpoint (z6--z40);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--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("T",5em#/6+2ss#,cap#,0);"The Letter T";
+italcorr(ex#*slant);
+
+seriftail=userw/5;
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(w/2-thickstroke/2,y2);
+z6=(w/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+pickup cappen;
+
+path tpath;
+tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+fill tpath;
+
+capt := currentpicture;
+
+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("W",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0);"The Letter W";
+italcorr(ex#*slant);
+
+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,-o);
+z8 = (2w/3+thinstroke/2,-o);
+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);
+
+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;
+
+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("N",5em#/6+2ss#,cap#,0); "The Letter N";
+italcorr(ex#*slant);
+
+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);
+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);
+z28 = (z6--(z7 shifted (-thinstroke,0))) intersectionpoint
+ (z29--(x21,y7));
+
+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;
+
+capn := currentpicture;
+
+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("C",5em#/6+ss#,cap#,0); "The Letter C";
+italcorr(ex#*slant);
+
+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;
+
+fill cinbody & botserif & cbody & topserif & cycle;
+
+capc := currentpicture;
+
+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("G",em#+2ss#,cap#,0); "The Letter G";
+italcorr(ex#*slant);
+
+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;
+
+capg := currentpicture;
+
+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("L",5em#/6+2ss#,cap#,0); "The Letter L";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke);
+z6=(w-ss-ssslant,0);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+path capell; capell = z5--z4..z16..z16--z17--z20--z19..z18..z3--
+ z1..z12..z13--z14--z6--z7..z29..z30--z2--z5--z4--cycle;
+fill capell;
+
+capl := currentpicture;
+
+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("E",5em#/6+2ss#,cap#,0); "The Letter E";
+italcorr(ex#*slant);
+
+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);
+z15=.5[z4,z5];
+z16=z15+(0,thinstroke/2);
+z17=z16-(0,thinstroke);
+z21=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill
+z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle;
+
+cape := currentpicture;
+
+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("F",5em#/6+2ss#,cap#,0); "The Letter F";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = (x3+thickstroke,h-thinstroke);
+z5=(x4,lserh);
+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=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+lrserif(5,31,32,33,34)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..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("K",5em#/6+2ss#,cap#,0); "The Letter K";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z17=z3 shifted (thickstrike,0);
+z22=z2 shifted (0,h/2+thinstroke-lserh);
+z23=z2 shifted (0,h/2-lserh);
+z24=(w-userw-ss,h);
+z25=z24 shifted (-thinstroke/2-thinstroke,-userh);
+z30=z25 shifted (thinstroke,0);
+z35=0.08[z23,z30];
+z46=0.28[z23,z30];
+z37 = (w-ss-lserw,lserh);
+z36 = z37 shifted (-thickstroke,0);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,13,14,15,16)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,18,19,20,21)(1);
+ulserif(25,26,27,28,29)(1);
+urserif(30,31,32,33,34)(1);
+lrserif(37,38,39,40,41)(1);
+llserif(36,42,43,44,45)(1);
+
+fill
+z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--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);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y";
+italcorr(ex#*slant);
+
+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);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+path capwhy;
+capwhy = 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;
+fill capwhy;
+
+capy := currentpicture;
+
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z";
+italcorr(ex#*slant);
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+capz := 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("S",(3(em#+2ss#)/4),cap#,0); "The Letter S";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o/2);
+z1 = (w/2,0-o/2);
+z2 = (w-ss-userh-o,h-userh);
+z3 = (w-ss,h/4);
+z4 = (ss,3h/4);
+z5 = (ss+userh-o,userh+thickstroke+o);
+z14 = z0 shifted (0,-thinstroke);
+z15 = z1 shifted (0,thinstroke);
+z16 = z4 shifted (curvwid,0);
+z17 = z3 shifted (-curvwid,0);
+z18 = z2 shifted (0,-thickstroke);
+z19 = z11 shifted (0,-thickstroke);
+z20 = z5 shifted (0,-thickstroke);
+z21 = z18 shifted (0,-userw/2);
+z22 = z21 shifted (userh,0);
+z23 = z22 shifted (0,2userw);
+z24 = z23 shifted (-userh,0);
+z25 = (w/2,h/2+1.2thinstroke/2);
+z26 = (w/2,h/2-1.2thinstroke/2);
+
+ctbackserif(5,10,11,12,13,20)(2);
+
+pickup pencircle scaled 1;
+
+path outcurves; path incurves; path toprt;
+outcurves = z2..tension 1.1..z0..tension
+ 1.1..z4..z26..z17..z15..tension 1.1..z5;
+incurves = z20..tension 1.1..z1..tension
+ 1.1..z3..z25..z16..z14..tension 1.1..z18;
+toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2;
+
+fill outcurves & botlftserif & incurves & toprt & cycle;
+
+caps := 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("X",5em#/6+2ss#,cap#,0); "The Letter X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = aa[z1,z6];
+z41 = ab[z7,z3];
+z42 = ac[z5,z4];
+z42 = ad[z7,z3];
+z43 = ae[z8,z2];
+z43 = af[z6,z1];
+z44 = ag[z8,z2];
+z44 = ah[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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);
+endchar;
+
+beginchar(oct"306",6em#/6+ss#,cap#,0); "The ligature AE";
+italcorr(ex#*slant);
+
+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 = (ss+lserw,lserh);
+z41 = z40 shifted (thinstroke,0);
+z50 = z31 shifted (0,-1.6thinstroke);
+z100 = (0,y15);
+z101 = (0,y16);
+z102 = (0,y17);
+z51 = aaa[z50,z41];
+z51 = aab[z16,z101];
+z52 = aac[z50,z41];
+z52 = aad[z17,z102];
+
+draw z21--z24;
+
+pickup pencircle scaled 2;
+
+llserif(40,42,43,44,45)(1);
+lrserif(41,46,47,48,49)(1);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle;
+fill z51--z16--z17--z52--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;
+
+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);
+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);
+z50 = z31 shifted (0,-1.6thinstroke);
+z40 = 0.5[z31,z28];
+z41 = (0,h/2);
+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 (-thickstroke,0);
+z47 = z44 shifted (0,-thinstroke);
+z48 = z45 shifted (0,thinstroke);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z44..z15..z45..z42..cycle;
+unfill z43..z47..z46..z48..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;
+
+beginchar(oct"330",5em#/6+2ss#,cap#,0); "The Letter slash O";
+italcorr(ex#*slant);
+
+currentpicture := capo;
+
+pickup pencircle scaled thinstroke;
+bot lft z0 = (ss,0);
+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);
+endchar;
+
+beginchar(oct"336",(3(em#)/4),cap#,0); "The Letter Thorn";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+lserw,h-lserh);
+z4 = z3 shifted (thickstroke,0);
+z13=(x4,4h/5);
+z14=z13 shifted (0,-thinstroke);
+z15=(w-ss,h/2);
+z16=z15-(curvwid,0);
+z17=(x2,h/5);
+z18=z17+(0,thinstroke);
+z19=(w/2,h);
+z20=z19-(0,thinstroke);
+z21=(w/2,0);
+z22=z21+(0,thinstroke);
+z40 = z13 shifted (thickstroke,0);
+z41 = z40 shifted (0,-thinstroke);
+z42 = z17 shifted (thickstroke,0);
+z43 = z42 shifted (0,thinstroke);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,30,31,32,33)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,34,35,36,37)(1);
+
+fill
+z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle;
+unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--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"215",em#+ss#/2,cap#,dep#); "The Letter NG";
+italcorr(ex#*slant);
+
+z0 = (ss+lserw,lserh);
+z1 = z0 shifted (thickstroke,0);
+z2 = z1 shifted (ss+4lserw,0);
+z3 = z2 shifted (thickstroke,0);
+z20 = (ss+userw,h-userh);
+z21 = z20 shifted (thickstroke,0);
+z22 = z21 shifted (0,userh);
+z23 = z21 shifted (ss+4userw,0);
+z24 = z23 shifted (thickstroke,-thinstroke);
+z29 = z20 shifted (0,userh);
+z30 = z24 shifted (0,userh+thinstroke);
+z31 = 0.5[z30,z29] shifted (0,o);
+z32 = z31 shifted (0,-thinstroke);
+z33 = z28 shifted (0,-userh);
+z40 = z2;
+z41 = z3;
+%z49 = (x40-2userw,-dep);
+z49 = (w/2,-dep);
+z50 = z49 shifted (0,thinstroke);
+z51 = (x8,-dep/3);
+z56 = z21 shifted (0,-thinstroke);
+z57 = z20 shifted (0,-thinstroke);
+z58 = z23 shifted (0,-thinstroke);
+z59 = z24 shifted (0,-thinstroke);
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir
+50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"320",em#+2ss#,cap#,0); "The Letter Eth";
+italcorr(ex#*slant);
+
+currentpicture := capd;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (ss,h/2);
+rt z1 = (w/2-ss,h/2);
+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,52,53,54,55,56,57,58,59);
+endchar;
diff --git a/fonts/drm/mf/drmdigs.mf b/fonts/drm/mf/drmdigs.mf
new file mode 100644
index 0000000000..445632b0a7
--- /dev/null
+++ b/fonts/drm/mf/drmdigs.mf
@@ -0,0 +1,268 @@
+% +AMDG This document was begun on 5 May 11EX, the feast of
+% St. Pius V, 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 six;
+
+beginchar("1",digwid#+2ss#,cap#,0); "The digit 1";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,lserhl);
+z1 = z0 shifted (thickstroke,0);
+z10 = (w/2-thickstroke/2,h-2userh);
+z11 = z10 shifted (thickstroke,0);
+z12 = z11 shifted (0,2userh+o);
+z13 = z12 shifted (-thickstroke,0);
+z14 = z10 shifted (-lserwl-o,0);
+z15 = z14 shifted (0,thinl);
+
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+
+fill
+z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--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("2",digwid#+2ss#,cap#,0); "The digit 2";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+path twopath; twopath =
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}cycle;
+fill twopath;
+
+picture two; two := 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,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("3",digwid#+2ss#,cap#,0); "The digit 3";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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#,cap#,0); "The digit 4";
+italcorr(ex#*slant);
+
+z0 = (w-ss-lserwl,h+2o);
+z1 = (x0,2h/5);
+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 = zca[z3,z4];
+z5 = zcb[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 = lserhl;
+z15 = z14 shifted (thickstroke,0);
+
+llserif(14,16,17,18,19)(1);
+lrserif(15,20,21,22,23)(1);
+
+fill
+z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle;
+unfill z4--z6--z5--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,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",digwid#+2ss#,cap#,0); "The digit 5";
+italcorr(ex#*slant);
+
+z0 = (w-ss-bulbsh,h+o);
+z1 = (ss+bulbsh,h+o);
+z2 = z0 shifted (0,-thickstroke);
+z3 = z1 shifted (0,-thickstroke);
+z4 = (w/2,0);
+z5 = z4 shifted (0,thickstroke);
+z6 = z3 shifted (thinstroke,0);
+z7 = (ss+0.6bulbsh,0.55h);
+z19 = z7 shifted (thinstroke,0);
+z8 = (w-ss,2h/3);
+z9 = z7 shifted (thinstroke,thinstroke);
+z10 = (w-ss-thickstroke,h/3);
+z11 = (ss,h/3);
+z16 = z10 shifted (thickstroke,0);
+z17 = (w/2,2h/3);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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",digwid#+2ss#,cap#,0); "The digit 7";
+italcorr(ex#*slant);
+
+z0 = (ss,h+o);
+z1 = z0 shifted (0,-thickstroke);
+z2 = (w-ss,h+o);
+z3 = z2 shifted (0,-thickstroke);
+z4 = (w/4,0);
+z5 = z4 shifted (thickstroke,0);
+z6 = z3 shifted (-1.8thinstroke,0);
+z7 = (w/3,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#,cap#,0); "The digit 8";
+italcorr(ex#*slant);
+
+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("0",digwid#+2ss#,cap#,0); "The digit 0";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,-o);
+z2 = (w-ss,h/2);
+z3 = (ss,h/2);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z2 shifted (-curvwid,0);
+z7 = z3 shifted (curvwid,0);
+
+path outzero; outzero = z0{right}..{down}z2{down}..
+ {left}z1{left}..{up}z3{up}..{right}cycle;
+path inzero; inzero = z4..z6..z5..z7..cycle;
+fill outzero; unfill inzero;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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",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",digwid#+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,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/fonts/drm/mf/drmdoz10.mf b/fonts/drm/mf/drmdoz10.mf
new file mode 100644
index 0000000000..e36c8a9e33
--- /dev/null
+++ b/fonts/drm/mf/drmdoz10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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#;
+exw# = ex#; define_pixels(exw);
+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.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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz11.mf b/fonts/drm/mf/drmdoz11.mf
new file mode 100644
index 0000000000..129d65fced
--- /dev/null
+++ b/fonts/drm/mf/drmdoz11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz12.mf b/fonts/drm/mf/drmdoz12.mf
new file mode 100644
index 0000000000..45dd31fab5
--- /dev/null
+++ b/fonts/drm/mf/drmdoz12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz14.mf b/fonts/drm/mf/drmdoz14.mf
new file mode 100644
index 0000000000..eae5214097
--- /dev/null
+++ b/fonts/drm/mf/drmdoz14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz17.mf b/fonts/drm/mf/drmdoz17.mf
new file mode 100644
index 0000000000..311599bb89
--- /dev/null
+++ b/fonts/drm/mf/drmdoz17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz24.mf b/fonts/drm/mf/drmdoz24.mf
new file mode 100644
index 0000000000..b4954b6cff
--- /dev/null
+++ b/fonts/drm/mf/drmdoz24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz6.mf b/fonts/drm/mf/drmdoz6.mf
new file mode 100644
index 0000000000..1bc2d28840
--- /dev/null
+++ b/fonts/drm/mf/drmdoz6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+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);
+
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz7.mf b/fonts/drm/mf/drmdoz7.mf
new file mode 100644
index 0000000000..65749031c3
--- /dev/null
+++ b/fonts/drm/mf/drmdoz7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz8.mf b/fonts/drm/mf/drmdoz8.mf
new file mode 100644
index 0000000000..6f87970d76
--- /dev/null
+++ b/fonts/drm/mf/drmdoz8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoz9.mf b/fonts/drm/mf/drmdoz9.mf
new file mode 100644
index 0000000000..4dd5b9ee6f
--- /dev/null
+++ b/fonts/drm/mf/drmdoz9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb10.mf b/fonts/drm/mf/drmdozb10.mf
new file mode 100644
index 0000000000..04cf973887
--- /dev/null
+++ b/fonts/drm/mf/drmdozb10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb11.mf b/fonts/drm/mf/drmdozb11.mf
new file mode 100644
index 0000000000..68054ff616
--- /dev/null
+++ b/fonts/drm/mf/drmdozb11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb12.mf b/fonts/drm/mf/drmdozb12.mf
new file mode 100644
index 0000000000..fcf7d4023e
--- /dev/null
+++ b/fonts/drm/mf/drmdozb12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb14.mf b/fonts/drm/mf/drmdozb14.mf
new file mode 100644
index 0000000000..76975fb7f8
--- /dev/null
+++ b/fonts/drm/mf/drmdozb14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb17.mf b/fonts/drm/mf/drmdozb17.mf
new file mode 100644
index 0000000000..0d8cacef1f
--- /dev/null
+++ b/fonts/drm/mf/drmdozb17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb24.mf b/fonts/drm/mf/drmdozb24.mf
new file mode 100644
index 0000000000..146622248b
--- /dev/null
+++ b/fonts/drm/mf/drmdozb24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb6.mf b/fonts/drm/mf/drmdozb6.mf
new file mode 100644
index 0000000000..0866601a1d
--- /dev/null
+++ b/fonts/drm/mf/drmdozb6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb7.mf b/fonts/drm/mf/drmdozb7.mf
new file mode 100644
index 0000000000..1a1749380c
--- /dev/null
+++ b/fonts/drm/mf/drmdozb7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb8.mf b/fonts/drm/mf/drmdozb8.mf
new file mode 100644
index 0000000000..348ec1b611
--- /dev/null
+++ b/fonts/drm/mf/drmdozb8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozb9.mf b/fonts/drm/mf/drmdozb9.mf
new file mode 100644
index 0000000000..e5b6a8706c
--- /dev/null
+++ b/fonts/drm/mf/drmdozb9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx10.mf b/fonts/drm/mf/drmdozbx10.mf
new file mode 100644
index 0000000000..04cf973887
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx11.mf b/fonts/drm/mf/drmdozbx11.mf
new file mode 100644
index 0000000000..68054ff616
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx12.mf b/fonts/drm/mf/drmdozbx12.mf
new file mode 100644
index 0000000000..fcf7d4023e
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx14.mf b/fonts/drm/mf/drmdozbx14.mf
new file mode 100644
index 0000000000..76975fb7f8
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx17.mf b/fonts/drm/mf/drmdozbx17.mf
new file mode 100644
index 0000000000..0d8cacef1f
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx24.mf b/fonts/drm/mf/drmdozbx24.mf
new file mode 100644
index 0000000000..146622248b
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx6.mf b/fonts/drm/mf/drmdozbx6.mf
new file mode 100644
index 0000000000..0866601a1d
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx7.mf b/fonts/drm/mf/drmdozbx7.mf
new file mode 100644
index 0000000000..1a1749380c
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx8.mf b/fonts/drm/mf/drmdozbx8.mf
new file mode 100644
index 0000000000..348ec1b611
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozbx9.mf b/fonts/drm/mf/drmdozbx9.mf
new file mode 100644
index 0000000000..e5b6a8706c
--- /dev/null
+++ b/fonts/drm/mf/drmdozbx9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozdigs.mf b/fonts/drm/mf/drmdozdigs.mf
new file mode 100644
index 0000000000..065d159fac
--- /dev/null
+++ b/fonts/drm/mf/drmdozdigs.mf
@@ -0,0 +1,127 @@
+% +AMDG This document was begun on 17 Feb 11EE, the day
+% after the Comm. of St. Simeon, 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("X",0.8exw#+2ss#,ex#,0); "old-style digit X";
+
+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 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,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar("E",0.9exw#+2ss#,ex#,dep#); "old-style digit E";
+
+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 (1.5thickstroke,-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 rotatedaround ((w/2,(h-d)/2),180);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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("x",digwid#+2ss#,cap#,0); "The digit X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+path twopath; twopath =
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}cycle;
+fill twopath 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,19,20,21,22,23,24,25,26,27,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("e",digwid#+2ss#,cap#,0); "The digit E";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke);
+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 threepath;
+threepath =
+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 threepath 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,19,20,21,22,23,24,25,26,27,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;
diff --git a/fonts/drm/mf/drmdozit10.mf b/fonts/drm/mf/drmdozit10.mf
new file mode 100644
index 0000000000..eb5e283769
--- /dev/null
+++ b/fonts/drm/mf/drmdozit10.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit11.mf b/fonts/drm/mf/drmdozit11.mf
new file mode 100644
index 0000000000..d380779610
--- /dev/null
+++ b/fonts/drm/mf/drmdozit11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit12.mf b/fonts/drm/mf/drmdozit12.mf
new file mode 100644
index 0000000000..fbb5e84209
--- /dev/null
+++ b/fonts/drm/mf/drmdozit12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit14.mf b/fonts/drm/mf/drmdozit14.mf
new file mode 100644
index 0000000000..9840717033
--- /dev/null
+++ b/fonts/drm/mf/drmdozit14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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);
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+pickup pencircle scaled penwidth; cappen:=savepen;
+equalize=thickstroke/2-thinstroke/2;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit17.mf b/fonts/drm/mf/drmdozit17.mf
new file mode 100644
index 0000000000..d02b522980
--- /dev/null
+++ b/fonts/drm/mf/drmdozit17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit24.mf b/fonts/drm/mf/drmdozit24.mf
new file mode 100644
index 0000000000..e7bc5b306d
--- /dev/null
+++ b/fonts/drm/mf/drmdozit24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit6.mf b/fonts/drm/mf/drmdozit6.mf
new file mode 100644
index 0000000000..065ae5d13a
--- /dev/null
+++ b/fonts/drm/mf/drmdozit6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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);
+
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit7.mf b/fonts/drm/mf/drmdozit7.mf
new file mode 100644
index 0000000000..3b973c4ed1
--- /dev/null
+++ b/fonts/drm/mf/drmdozit7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit8.mf b/fonts/drm/mf/drmdozit8.mf
new file mode 100644
index 0000000000..2e57a5300c
--- /dev/null
+++ b/fonts/drm/mf/drmdozit8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozit9.mf b/fonts/drm/mf/drmdozit9.mf
new file mode 100644
index 0000000000..be4628cf6f
--- /dev/null
+++ b/fonts/drm/mf/drmdozit9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx10.mf b/fonts/drm/mf/drmdozitbx10.mf
new file mode 100644
index 0000000000..13051689c3
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx10.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx11.mf b/fonts/drm/mf/drmdozitbx11.mf
new file mode 100644
index 0000000000..f6df460bbd
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx12.mf b/fonts/drm/mf/drmdozitbx12.mf
new file mode 100644
index 0000000000..26123ab6c7
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx14.mf b/fonts/drm/mf/drmdozitbx14.mf
new file mode 100644
index 0000000000..c19c87011e
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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);
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+pickup pencircle scaled penwidth; cappen:=savepen;
+equalize=thickstroke/2-thinstroke/2;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx17.mf b/fonts/drm/mf/drmdozitbx17.mf
new file mode 100644
index 0000000000..b6b3bc1a48
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx24.mf b/fonts/drm/mf/drmdozitbx24.mf
new file mode 100644
index 0000000000..d00b1a454e
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx6.mf b/fonts/drm/mf/drmdozitbx6.mf
new file mode 100644
index 0000000000..7739178870
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx7.mf b/fonts/drm/mf/drmdozitbx7.mf
new file mode 100644
index 0000000000..d348647984
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx8.mf b/fonts/drm/mf/drmdozitbx8.mf
new file mode 100644
index 0000000000..0a68db7abd
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozitbx9.mf b/fonts/drm/mf/drmdozitbx9.mf
new file mode 100644
index 0000000000..2db2b93e2e
--- /dev/null
+++ b/fonts/drm/mf/drmdozitbx9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozitdigs.mf
+
+end;
+
diff --git a/fonts/drm/mf/drmdozitdigs.mf b/fonts/drm/mf/drmdozitdigs.mf
new file mode 100644
index 0000000000..824fba5a35
--- /dev/null
+++ b/fonts/drm/mf/drmdozitdigs.mf
@@ -0,0 +1,96 @@
+% +AMDG This document was begun on 17 Feb 11EE, the day
+% after the Comm. of St. Simeon, 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("X",digwid#+2ss#,cap#,0); "The digit X, oldstyle";
+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);
+
+path p;
+p = z3r..z0r..z1r..z2r..z4r..z5r..z6r..z8r..z7r--z7l..z8l..
+ z6l..z5l..z4l..z2l..z1l..z0l..z3l--cycle;
+path q;
+q = z7r..z9r..z10r..z11r--z11l..z10l..z9l..z7l--cycle;
+fill p rotatedaround ((w/2,h/2),180);
+fill q 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,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar("x",digwid#+2ss#,cap#,0); "The digit X, lining";
+italcorr(ex#*slant);
+fill p rotatedaround ((w/2,h/2),180);
+fill q rotatedaround ((w/2,h/2),180);
+endchar;
+
+beginchar("E",digwid#+2ss#,cap#,dep#); "The digit E, oldstyle";
+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);
+
+path throne; throne = z9l..z8l..z7l..z0l{up}..z1l..z2l..z3l--z3r..z2r..
+ z1r..z0r{down}..z7r..z8r..z9r--cycle;
+path thrtwo; thrtwo = z3r..z4r..z5r..z6r{up}..z10r..
+ z11r..z12r--z12l..z11l..z10l..z6l{down}..z5l..z4l..z3l--cycle;
+fill throne rotatedaround ((w/2,h/2),180) shifted (0,-d);
+fill thrtwo rotatedaround ((w/2,h/2),180) shifted (0,-d);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar("e",digwid#+2ss#,cap#,0); "The digit E, lining";
+italcorr(ex#*slant);
+fill throne rotatedaround ((w/2,h/2),180);
+fill thrtwo rotatedaround ((w/2,h/2),180);
+endchar;
diff --git a/fonts/drm/mf/drmdozitsc10.mf b/fonts/drm/mf/drmdozitsc10.mf
new file mode 100644
index 0000000000..1cfcfbd954
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc10.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+font_normal_space 1u#;
+font_normal_stretch 1u#;
+font_normal_shrink 1u#;
+font_x_height cap#/phi;
+font_quad em#;
+font_extra_space 2u#;
+
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc11.mf b/fonts/drm/mf/drmdozitsc11.mf
new file mode 100644
index 0000000000..7c2809e39f
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc11.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc12.mf b/fonts/drm/mf/drmdozitsc12.mf
new file mode 100644
index 0000000000..c985209107
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc12.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc14.mf b/fonts/drm/mf/drmdozitsc14.mf
new file mode 100644
index 0000000000..ab80cac6ab
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc14.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc17.mf b/fonts/drm/mf/drmdozitsc17.mf
new file mode 100644
index 0000000000..3ca8f8ddc3
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc17.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc24.mf b/fonts/drm/mf/drmdozitsc24.mf
new file mode 100644
index 0000000000..287c5afe35
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc24.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc6.mf b/fonts/drm/mf/drmdozitsc6.mf
new file mode 100644
index 0000000000..b90c59a998
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc6.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=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#=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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc7.mf b/fonts/drm/mf/drmdozitsc7.mf
new file mode 100644
index 0000000000..4c3c629b2c
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc7.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc8.mf b/fonts/drm/mf/drmdozitsc8.mf
new file mode 100644
index 0000000000..19b80c967d
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc8.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozitsc9.mf b/fonts/drm/mf/drmdozitsc9.mf
new file mode 100644
index 0000000000..ca0b41f915
--- /dev/null
+++ b/fonts/drm/mf/drmdozitsc9.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc10.mf b/fonts/drm/mf/drmdozittc10.mf
new file mode 100644
index 0000000000..eb059615d2
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc10.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+font_normal_space 1u#;
+font_normal_stretch 1u#;
+font_normal_shrink 1u#;
+font_x_height cap#/phi;
+font_quad em#;
+font_extra_space 2u#;
+
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc11.mf b/fonts/drm/mf/drmdozittc11.mf
new file mode 100644
index 0000000000..58ccb301ba
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc11.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc12.mf b/fonts/drm/mf/drmdozittc12.mf
new file mode 100644
index 0000000000..f6fd5a326e
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc12.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc14.mf b/fonts/drm/mf/drmdozittc14.mf
new file mode 100644
index 0000000000..8bce58e840
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc14.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc17.mf b/fonts/drm/mf/drmdozittc17.mf
new file mode 100644
index 0000000000..9e6db4c72a
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc17.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc24.mf b/fonts/drm/mf/drmdozittc24.mf
new file mode 100644
index 0000000000..d415f5b7e5
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc24.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc6.mf b/fonts/drm/mf/drmdozittc6.mf
new file mode 100644
index 0000000000..e29791497c
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc6.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=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#=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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc7.mf b/fonts/drm/mf/drmdozittc7.mf
new file mode 100644
index 0000000000..5ba905c0dc
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc7.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc8.mf b/fonts/drm/mf/drmdozittc8.mf
new file mode 100644
index 0000000000..15ba62d5c0
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc8.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozittc9.mf b/fonts/drm/mf/drmdozittc9.mf
new file mode 100644
index 0000000000..9254f683e8
--- /dev/null
+++ b/fonts/drm/mf/drmdozittc9.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl10.mf b/fonts/drm/mf/drmdozl10.mf
new file mode 100644
index 0000000000..dd743196a6
--- /dev/null
+++ b/fonts/drm/mf/drmdozl10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.3pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl11.mf b/fonts/drm/mf/drmdozl11.mf
new file mode 100644
index 0000000000..fdf813f29d
--- /dev/null
+++ b/fonts/drm/mf/drmdozl11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl12.mf b/fonts/drm/mf/drmdozl12.mf
new file mode 100644
index 0000000000..9fa574d17f
--- /dev/null
+++ b/fonts/drm/mf/drmdozl12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl14.mf b/fonts/drm/mf/drmdozl14.mf
new file mode 100644
index 0000000000..eca2203016
--- /dev/null
+++ b/fonts/drm/mf/drmdozl14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl17.mf b/fonts/drm/mf/drmdozl17.mf
new file mode 100644
index 0000000000..2ea8e1be20
--- /dev/null
+++ b/fonts/drm/mf/drmdozl17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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.7pt#;
+slantwid#=1.7pt#;
+thickstroke#=1.5pt#;
+thinstroke#=0.6pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl24.mf b/fonts/drm/mf/drmdozl24.mf
new file mode 100644
index 0000000000..0e0f5566aa
--- /dev/null
+++ b/fonts/drm/mf/drmdozl24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=0.9pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl6.mf b/fonts/drm/mf/drmdozl6.mf
new file mode 100644
index 0000000000..dedb2e3274
--- /dev/null
+++ b/fonts/drm/mf/drmdozl6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+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.4pt#;
+slantwid#=0.4pt#;
+thickstroke#=0.4pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl7.mf b/fonts/drm/mf/drmdozl7.mf
new file mode 100644
index 0000000000..4b0cc90acd
--- /dev/null
+++ b/fonts/drm/mf/drmdozl7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.5pt#;
+slantwid#=0.5pt#;
+thickstroke#=0.5pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl8.mf b/fonts/drm/mf/drmdozl8.mf
new file mode 100644
index 0000000000..1ee89e67a7
--- /dev/null
+++ b/fonts/drm/mf/drmdozl8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozl9.mf b/fonts/drm/mf/drmdozl9.mf
new file mode 100644
index 0000000000..b44a54ed8c
--- /dev/null
+++ b/fonts/drm/mf/drmdozl9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc10.mf b/fonts/drm/mf/drmdozsc10.mf
new file mode 100644
index 0000000000..dc3c880c47
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc11.mf b/fonts/drm/mf/drmdozsc11.mf
new file mode 100644
index 0000000000..eb7d828f2b
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc12.mf b/fonts/drm/mf/drmdozsc12.mf
new file mode 100644
index 0000000000..735480408f
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc14.mf b/fonts/drm/mf/drmdozsc14.mf
new file mode 100644
index 0000000000..d69793d390
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc17.mf b/fonts/drm/mf/drmdozsc17.mf
new file mode 100644
index 0000000000..f559938009
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc24.mf b/fonts/drm/mf/drmdozsc24.mf
new file mode 100644
index 0000000000..2dd44e3287
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc6.mf b/fonts/drm/mf/drmdozsc6.mf
new file mode 100644
index 0000000000..d92ef7d218
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc7.mf b/fonts/drm/mf/drmdozsc7.mf
new file mode 100644
index 0000000000..e8b027e868
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc8.mf b/fonts/drm/mf/drmdozsc8.mf
new file mode 100644
index 0000000000..01fcdfb830
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsc9.mf b/fonts/drm/mf/drmdozsc9.mf
new file mode 100644
index 0000000000..f5c673184a
--- /dev/null
+++ b/fonts/drm/mf/drmdozsc9.mf
@@ -0,0 +1,66 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx10.mf b/fonts/drm/mf/drmdozscbx10.mf
new file mode 100644
index 0000000000..a2cba1b885
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx11.mf b/fonts/drm/mf/drmdozscbx11.mf
new file mode 100644
index 0000000000..c1794542d2
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx12.mf b/fonts/drm/mf/drmdozscbx12.mf
new file mode 100644
index 0000000000..df8f9d2fb3
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx14.mf b/fonts/drm/mf/drmdozscbx14.mf
new file mode 100644
index 0000000000..8c0b82c4bf
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx17.mf b/fonts/drm/mf/drmdozscbx17.mf
new file mode 100644
index 0000000000..0557e85d6c
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx24.mf b/fonts/drm/mf/drmdozscbx24.mf
new file mode 100644
index 0000000000..de0c3e2f0d
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx6.mf b/fonts/drm/mf/drmdozscbx6.mf
new file mode 100644
index 0000000000..0d0f0d8c07
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx7.mf b/fonts/drm/mf/drmdozscbx7.mf
new file mode 100644
index 0000000000..ca0986440d
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx8.mf b/fonts/drm/mf/drmdozscbx8.mf
new file mode 100644
index 0000000000..403fea1cc5
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscbx9.mf b/fonts/drm/mf/drmdozscbx9.mf
new file mode 100644
index 0000000000..dd3baffa51
--- /dev/null
+++ b/fonts/drm/mf/drmdozscbx9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdozscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozscdigs.mf b/fonts/drm/mf/drmdozscdigs.mf
new file mode 100644
index 0000000000..2bcda038fd
--- /dev/null
+++ b/fonts/drm/mf/drmdozscdigs.mf
@@ -0,0 +1,66 @@
+% +AMDG This document was begun on 17 Feb 11EE, the day
+% after the Comm. of St. Simeon, 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("X",0.75digwid#+2ss#,ex#,0); "The digit X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+path twopath; twopath =
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}cycle;
+fill twopath 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,19,20,21,22,23,24,25,26,27,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("E",0.75digwid#+2ss#,ex#,0); "The digit E";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke);
+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 threepath;
+threepath =
+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 threepath 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,19,20,21,22,23,24,25,26,27,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;
diff --git a/fonts/drm/mf/drmdozsl10.mf b/fonts/drm/mf/drmdozsl10.mf
new file mode 100644
index 0000000000..9d6c2d7094
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl10.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl11.mf b/fonts/drm/mf/drmdozsl11.mf
new file mode 100644
index 0000000000..3ea8211f80
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl11.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl12.mf b/fonts/drm/mf/drmdozsl12.mf
new file mode 100644
index 0000000000..331f28863c
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl12.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl14.mf b/fonts/drm/mf/drmdozsl14.mf
new file mode 100644
index 0000000000..2a9dcfc030
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl14.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl17.mf b/fonts/drm/mf/drmdozsl17.mf
new file mode 100644
index 0000000000..364f6d124e
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl17.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl24.mf b/fonts/drm/mf/drmdozsl24.mf
new file mode 100644
index 0000000000..f6ff8e25aa
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl24.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl6.mf b/fonts/drm/mf/drmdozsl6.mf
new file mode 100644
index 0000000000..a75f2263a0
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl6.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.2cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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);
+
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl7.mf b/fonts/drm/mf/drmdozsl7.mf
new file mode 100644
index 0000000000..01b6a8fd83
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl7.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.2cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.07u#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl8.mf b/fonts/drm/mf/drmdozsl8.mf
new file mode 100644
index 0000000000..00dd5c3f6b
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl8.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdozsl9.mf b/fonts/drm/mf/drmdozsl9.mf
new file mode 100644
index 0000000000..cd4419b332
--- /dev/null
+++ b/fonts/drm/mf/drmdozsl9.mf
@@ -0,0 +1,69 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf
+input drmlowmac.mf
+input drmdozdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc10.mf b/fonts/drm/mf/drmdoztc10.mf
new file mode 100644
index 0000000000..b2c71661f7
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc11.mf b/fonts/drm/mf/drmdoztc11.mf
new file mode 100644
index 0000000000..a246161150
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc12.mf b/fonts/drm/mf/drmdoztc12.mf
new file mode 100644
index 0000000000..2b20cfe9fe
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc14.mf b/fonts/drm/mf/drmdoztc14.mf
new file mode 100644
index 0000000000..3ec482c9e2
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc17.mf b/fonts/drm/mf/drmdoztc17.mf
new file mode 100644
index 0000000000..f66089eb51
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc24.mf b/fonts/drm/mf/drmdoztc24.mf
new file mode 100644
index 0000000000..a0b8689cd1
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc6.mf b/fonts/drm/mf/drmdoztc6.mf
new file mode 100644
index 0000000000..33182df0cd
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc7.mf b/fonts/drm/mf/drmdoztc7.mf
new file mode 100644
index 0000000000..ce477c8773
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc8.mf b/fonts/drm/mf/drmdoztc8.mf
new file mode 100644
index 0000000000..989a0bb0ab
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.0exw#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztc9.mf b/fonts/drm/mf/drmdoztc9.mf
new file mode 100644
index 0000000000..b8295771b3
--- /dev/null
+++ b/fonts/drm/mf/drmdoztc9.mf
@@ -0,0 +1,66 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx10.mf b/fonts/drm/mf/drmdoztcbx10.mf
new file mode 100644
index 0000000000..525963b00c
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx10.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx11.mf b/fonts/drm/mf/drmdoztcbx11.mf
new file mode 100644
index 0000000000..5b0d57dcf0
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx11.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx12.mf b/fonts/drm/mf/drmdoztcbx12.mf
new file mode 100644
index 0000000000..c53eb909ec
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx12.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx14.mf b/fonts/drm/mf/drmdoztcbx14.mf
new file mode 100644
index 0000000000..c1ebcfbe56
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx14.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx17.mf b/fonts/drm/mf/drmdoztcbx17.mf
new file mode 100644
index 0000000000..a78ee03ff4
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx17.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx24.mf b/fonts/drm/mf/drmdoztcbx24.mf
new file mode 100644
index 0000000000..3945532f19
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx24.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx6.mf b/fonts/drm/mf/drmdoztcbx6.mf
new file mode 100644
index 0000000000..031eef078a
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx6.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx7.mf b/fonts/drm/mf/drmdoztcbx7.mf
new file mode 100644
index 0000000000..d899257836
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx7.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx8.mf b/fonts/drm/mf/drmdoztcbx8.mf
new file mode 100644
index 0000000000..e06afcfa8a
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx8.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcbx9.mf b/fonts/drm/mf/drmdoztcbx9.mf
new file mode 100644
index 0000000000..15fb7885b1
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcbx9.mf
@@ -0,0 +1,67 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdoztcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmdoztcdigs.mf b/fonts/drm/mf/drmdoztcdigs.mf
new file mode 100644
index 0000000000..b77e2a7ef3
--- /dev/null
+++ b/fonts/drm/mf/drmdoztcdigs.mf
@@ -0,0 +1,66 @@
+% +AMDG This document was begun on 17 Feb 11EE, the day
+% after the Comm. of St. Simeon, 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("X",0.75digwid#+2ss#,1.2ex#,0); "The digit X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+path twopath; twopath =
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}cycle;
+fill twopath 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,19,20,21,22,23,24,25,26,27,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("E",0.75digwid#+2ss#,1.2ex#,0); "The digit E";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke);
+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 threepath;
+threepath =
+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 threepath 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,19,20,21,22,23,24,25,26,27,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;
diff --git a/fonts/drm/mf/drmdozui10.mf b/fonts/drm/mf/drmdozui10.mf
new file mode 100644
index 0000000000..ba6d2aeb0a
--- /dev/null
+++ b/fonts/drm/mf/drmdozui10.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant := 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui11.mf b/fonts/drm/mf/drmdozui11.mf
new file mode 100644
index 0000000000..1fcaaa316d
--- /dev/null
+++ b/fonts/drm/mf/drmdozui11.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui12.mf b/fonts/drm/mf/drmdozui12.mf
new file mode 100644
index 0000000000..2e63f3aa80
--- /dev/null
+++ b/fonts/drm/mf/drmdozui12.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui14.mf b/fonts/drm/mf/drmdozui14.mf
new file mode 100644
index 0000000000..1f3bf4bb40
--- /dev/null
+++ b/fonts/drm/mf/drmdozui14.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui17.mf b/fonts/drm/mf/drmdozui17.mf
new file mode 100644
index 0000000000..bb9eeb5084
--- /dev/null
+++ b/fonts/drm/mf/drmdozui17.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui24.mf b/fonts/drm/mf/drmdozui24.mf
new file mode 100644
index 0000000000..4ce6828c13
--- /dev/null
+++ b/fonts/drm/mf/drmdozui24.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui6.mf b/fonts/drm/mf/drmdozui6.mf
new file mode 100644
index 0000000000..3a2bb9ab11
--- /dev/null
+++ b/fonts/drm/mf/drmdozui6.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui7.mf b/fonts/drm/mf/drmdozui7.mf
new file mode 100644
index 0000000000..ee45f7ca73
--- /dev/null
+++ b/fonts/drm/mf/drmdozui7.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui8.mf b/fonts/drm/mf/drmdozui8.mf
new file mode 100644
index 0000000000..42fb17d1e0
--- /dev/null
+++ b/fonts/drm/mf/drmdozui8.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozui9.mf b/fonts/drm/mf/drmdozui9.mf
new file mode 100644
index 0000000000..886d020cfe
--- /dev/null
+++ b/fonts/drm/mf/drmdozui9.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx10.mf b/fonts/drm/mf/drmdozuibx10.mf
new file mode 100644
index 0000000000..ba6d2aeb0a
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx10.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant := 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx11.mf b/fonts/drm/mf/drmdozuibx11.mf
new file mode 100644
index 0000000000..1fcaaa316d
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx11.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx12.mf b/fonts/drm/mf/drmdozuibx12.mf
new file mode 100644
index 0000000000..2e63f3aa80
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx12.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx14.mf b/fonts/drm/mf/drmdozuibx14.mf
new file mode 100644
index 0000000000..1f3bf4bb40
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx14.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx17.mf b/fonts/drm/mf/drmdozuibx17.mf
new file mode 100644
index 0000000000..bb9eeb5084
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx17.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx24.mf b/fonts/drm/mf/drmdozuibx24.mf
new file mode 100644
index 0000000000..4ce6828c13
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx24.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx6.mf b/fonts/drm/mf/drmdozuibx6.mf
new file mode 100644
index 0000000000..3a2bb9ab11
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx6.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx7.mf b/fonts/drm/mf/drmdozuibx7.mf
new file mode 100644
index 0000000000..ee45f7ca73
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx7.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx8.mf b/fonts/drm/mf/drmdozuibx8.mf
new file mode 100644
index 0000000000..42fb17d1e0
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx8.mf
@@ -0,0 +1,70 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmdozuibx9.mf b/fonts/drm/mf/drmdozuibx9.mf
new file mode 100644
index 0000000000..04aeab0953
--- /dev/null
+++ b/fonts/drm/mf/drmdozuibx9.mf
@@ -0,0 +1,71 @@
+% +AMDG
+
+font_identifier:="drmdoz"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmlowmac.mf;
+input drmdozitdigs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmfigs10.mf b/fonts/drm/mf/drmfigs10.mf
new file mode 100644
index 0000000000..20462d0daa
--- /dev/null
+++ b/fonts/drm/mf/drmfigs10.mf
@@ -0,0 +1,68 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs11.mf b/fonts/drm/mf/drmfigs11.mf
new file mode 100644
index 0000000000..3c5100d76b
--- /dev/null
+++ b/fonts/drm/mf/drmfigs11.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs12.mf b/fonts/drm/mf/drmfigs12.mf
new file mode 100644
index 0000000000..332dfd4791
--- /dev/null
+++ b/fonts/drm/mf/drmfigs12.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs14.mf b/fonts/drm/mf/drmfigs14.mf
new file mode 100644
index 0000000000..20504a6154
--- /dev/null
+++ b/fonts/drm/mf/drmfigs14.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs17.mf b/fonts/drm/mf/drmfigs17.mf
new file mode 100644
index 0000000000..a6b2e7d69a
--- /dev/null
+++ b/fonts/drm/mf/drmfigs17.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs24.mf b/fonts/drm/mf/drmfigs24.mf
new file mode 100644
index 0000000000..6d61ddf904
--- /dev/null
+++ b/fonts/drm/mf/drmfigs24.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs6.mf b/fonts/drm/mf/drmfigs6.mf
new file mode 100644
index 0000000000..6e44617e90
--- /dev/null
+++ b/fonts/drm/mf/drmfigs6.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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);
+
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs7.mf b/fonts/drm/mf/drmfigs7.mf
new file mode 100644
index 0000000000..9fab662ec6
--- /dev/null
+++ b/fonts/drm/mf/drmfigs7.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs8.mf b/fonts/drm/mf/drmfigs8.mf
new file mode 100644
index 0000000000..f0d267a0eb
--- /dev/null
+++ b/fonts/drm/mf/drmfigs8.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+slant = 0;
+font_slant 0u#;
+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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmfigs9.mf b/fonts/drm/mf/drmfigs9.mf
new file mode 100644
index 0000000000..e586e947d1
--- /dev/null
+++ b/fonts/drm/mf/drmfigs9.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drmsupfigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmgrk10.mf b/fonts/drm/mf/drmgrk10.mf
new file mode 100644
index 0000000000..7df1e92ef5
--- /dev/null
+++ b/fonts/drm/mf/drmgrk10.mf
@@ -0,0 +1,77 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "LGR";
+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#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+%currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmgrkcap.mf;
+input drmlowmac.mf;
+input drmgrkpunct.mf;
+input drmgrklow.mf;
+input drmgrkacc.mf;
+input drmgrkup.mf;
+input drmdigs.mf;
+input drmgrkacclet.mf;
+input drmgrkligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmgrkacc.mf b/fonts/drm/mf/drmgrkacc.mf
new file mode 100644
index 0000000000..75344287f0
--- /dev/null
+++ b/fonts/drm/mf/drmgrkacc.mf
@@ -0,0 +1,364 @@
+% +AMDG This document was begun on 2 May 11EX, the feast of
+% St. Athanasius, BC, 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 ringacc;
+picture hungum;
+picture roundcircum;
+picture invcircum;
+picture macron;
+picture overdot;
+picture cedille;
+picture revcid;
+picture grave;
+picture acute;
+picture diaresis;
+picture circumflex;
+picture tilde;
+
+beginchar(oct"021",2pwid#,cap#,0); "The grave accent, `";
+
+z0 = (ss,h-o);
+z1 = z0 shifted (accwid,accwid);
+z2 = z0 shifted (accwid,-accwid);
+z3 = (w-ss,h-o);
+z4 = z3 shifted (-2accwid,2accwid);
+z5 = z3 shifted (-2accwid,-2accwid);
+z6 = (w/2,h-o);
+
+path graveacc; graveacc = z0..z1--z4..z3..z5--z2..cycle;
+fill graveacc rotatedaround (z6,-250) shifted (0,-h);
+
+grave := 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"255",2pwid#,cap#,0); "The Hungarian diaresis";
+
+z0 = (w/2-accwid,h-o);
+z2 = z0 shifted (0,-pwid);
+z3 = z0 shifted (2accwid,0);
+z4 = z2 shifted (2accwid,0);
+z5 = 0.5[z0,z3] shifted (0,accwid);
+z6 = 0.5[z2,z4] shifted (0,-accwid);
+z7 = 0.5[z5,z6];
+
+path lthung; lthung = z0..z5..z3--z4..z6..z2--cycle;
+
+fill lthung rotatedaround (z7,-30);
+fill lthung rotatedaround (z7,-30) shifted (w/3,0);
+
+hungum := 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"255",2pwid#,cap#,0); "The ring accent";
+
+z0 = (w/2,h-dotwid-accwid);
+
+pickup pencircle scaled thinl;
+path ringaccent;
+ringaccent = fullcircle scaled 3dotwid shifted z0;
+draw ringaccent;
+
+ringacc := currentpicture;
+
+endchar;
+
+beginchar(oct"020",2pwid#,cap#,0); "The acute accent, '";
+
+z6 = (w/2,h-o);
+
+fill graveacc rotatedaround (z6,70) shifted (0,-h);
+
+acute := 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",2pwid#,cap#,0); "High grave accent, `";
+currentpicture := grave shifted (0,h-pwid/3);
+picture highgrave; highgrave := currentpicture;
+endchar;
+
+beginchar(oct"047",2pwid#,cap#,0); "The acute accent, '";
+z6 = (w/2,h-o);
+fill graveacc rotatedaround (z6,70) shifted (0,-pwid/2);
+picture highacute; highacute := currentpicture;
+endchar;
+
+beginchar(oct"376",2pwid#,cap#,0); "The acute accent, '";
+currentpicture := highacute;
+endchar;
+
+beginchar(oct"377",2pwid#,cap#,0); "inverted acute accent";
+currentpicture := highgrave reflectedabout ((0,h/2),(w,h/2))
+ shifted (0,-dep);
+endchar;
+
+beginchar(oct"255",2pwid#,cap#,0); "The circumflex, ^";
+
+z0 = (w/2,h-o);
+z1 = (ss,h-pwid);
+z2 = (w-ss,h-pwid);
+z3 = z0 shifted (0,-3accwid);
+z5 = z1 shifted (3accwid,0);
+z7 = z2 shifted (-3accwid,0);
+
+path circum;
+circum = z0--z2--z7--z3--z5--z1--cycle;
+fill circum;
+circumflex := 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"255",2pwid#,cap#,0); "The inverted circumflex";
+
+fill circum reflectedabout ((0,h-pwid/2-o),(w,h-pwid/2-o));
+invcircum := currentpicture;
+
+endchar;
+
+beginchar(oct"024",2pwid#,cap#,0); "The low rounded inverted circumflex";
+
+z0 = (w/2,h-pwid);
+z1 = (ss,h-o);
+z2 = (w-ss,h-o);
+z3 = z0 shifted (0,-2accwid);
+z4 = z1 shifted (accwid,0);
+z5 = z2 shifted (-accwid,0);
+z6 = 0.5[z2,z5] shifted (0,accwid/2);
+z7 = 0.5[z1,z4] shifted (0,accwid/2);
+
+fill z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle shifted (0,-h);
+
+roundcircum := 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"036",2pwid#,cap#,0); "The inverted circumflex";
+
+z0 = (w/2,h-pwid);
+z1 = (ss,h-o);
+z2 = (w-ss,h-o);
+z3 = z0 shifted (0,-2accwid);
+z4 = z1 shifted (accwid,0);
+z5 = z2 shifted (-accwid,0);
+z6 = 0.5[z2,z5] shifted (0,accwid/2);
+z7 = 0.5[z1,z4] shifted (0,accwid/2);
+
+fill
+z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle;
+
+roundcircum := 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",2pwid#,cap#,0); "The low rounded circumflex";
+
+z0 = (w/2,h-pwid);
+z1 = (ss,h-o);
+z2 = (w-ss,h-o);
+z3 = z0 shifted (0,-2accwid);
+z4 = z1 shifted (accwid,0);
+z5 = z2 shifted (-accwid,0);
+z6 = 0.5[z2,z5] shifted (0,accwid/2);
+z7 = 0.5[z1,z4] shifted (0,accwid/2);
+
+fill z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle
+reflectedabout ((0,h/2),(w,h/2)) shifted (0,-dep);
+
+roundcircum := 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"037",2pwid#,cap#,0); "The macron";
+
+z0 = (ss,h-pwid/2);
+z1 = (w-ss,h-pwid/2);
+z2 = z0 shifted (0,-accwid/2);
+z3 = z1 shifted (0,-accwid/2);
+
+fill z0---z1..z3---z2..cycle;
+
+macron := 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"012",pwid#,cap#,0); "The overdot";
+
+fill fullcircle scaled 2dotwid shifted (w/2,cap-dotwid);
+
+overdot := currentpicture;
+
+endchar;
+
+beginchar(oct"176",2pwid#,cap#,0); "The 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);
+
+fill z0..{right}z1{right}..{right}z5{right}..{dir 60}z3{dir
+ -95}..{left}z2{left}..{left}z4{left}..z0..cycle;
+
+tilde := 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"042",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;
+
+diaresis := 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"010",pwid#,cap#,0); "The capital iota subscript";
+fill capeye yscaled 0.5 xscaled 0.8;
+picture capiotasub; capiotasub := currentpicture;
+endchar;
+
+beginchar(oct"022",ex#,cap#,0); "lightning-bolt like symbol";
+
+pickup pencircle scaled 1.5thinl;
+penpos0(thickl,0);
+z0 = (w/4,h+o);
+penpos1(thinl,-45);
+z1l = (ss,h/2-thinstroke);
+penpos2(thinl,-45);
+z2r = (w-ss,h/2+thinstroke);
+penpos3(thickl,0);
+z3 = (3w/4,0-o);
+
+penstroke z0e--z1e;
+penstroke z1e--z2e;
+penstroke 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"023",ex#,cap#,0); "magnifying glass";
+
+z0 = (w/2,0-o);
+z1 = z0 shifted (1.5thinstroke,1.5thinstroke);
+z2 = z0 shifted (-1.5thinstroke,1.5thinstroke);
+path magcirc;
+magcirc = fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,3h/4);
+z3 = ((z2--(w/2,3h/4)) intersectionpoint magcirc) shifted
+ (-thinl/2,0);
+z4 = ((z1--(w/2,3h/4)) intersectionpoint magcirc) shifted
+ (thinl/2,0);
+z5 = (z0--(w/2,3h/4)) intersectionpoint magcirc;
+
+fill z0..z1---z4..z5..z3---z2..cycle;
+pickup pencircle scaled 1.5thinl;
+draw magcirc;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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#,cap#,0); "magnifying glass";
+
+pickup pencircle scaled 1.5thinl;
+draw magcirc;
+z0 = (w/2-thickl/2,lserhl);
+z1 = z0 shifted (thickl,0);
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+z10 = (z0--(x0,3h/4)) intersectionpoint magcirc;
+z11 = (z1--(x1,3h/4)) intersectionpoint magcirc;
+
+fill z0..z2..z3--z4--z8--z7..z6..z1--z11--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"040",2pwid#,cap#,0); "The tilde and diaresis";
+currentpicture := diaresis shifted (0,-0.5pwid) +
+ tilde shifted (0,0.75pwid);
+picture tildeumlaut; tildeumlaut := currentpicture;
+endchar;
+
+beginchar(oct"043",2pwid#,cap#,0); "The acute and diaresis";
+currentpicture := diaresis + acute shifted (0,h);
+picture acuteumlaut; acuteumlaut := currentpicture;
+endchar;
+
+beginchar(oct"044",2pwid#,cap#,0); "The grave and diaresis";
+currentpicture := diaresis + grave shifted (0,h);
+picture graveumlaut; graveumlaut := currentpicture;
+endchar;
+
+beginchar(oct"100",2pwid#,cap#,0); "Rough breathing and tilde";
+currentpicture := roughbreath + tilde shifted (-pwid/4,pwid);
+picture roughtilde; roughtilde := currentpicture;
+endchar;
+
+beginchar(oct"103",2pwid#,cap#,0); "Rough breathing and grave";
+currentpicture := roughbreath shifted (-pwid/4,0) +
+ grave shifted (pwid/4,h-pwid/2);
+picture roughgrave; roughgrave := currentpicture;
+endchar;
+
+beginchar(oct"126",2pwid#,cap#,0); "Rough breathing and acute";
+currentpicture := roughbreath shifted (-pwid/4,0) +
+ acute shifted (pwid/4,h-pwid/2);
+picture roughacute; roughacute := currentpicture;
+endchar;
+
+beginchar(oct"134",2pwid#,cap#,0); "Smooth breathing and tilde";
+currentpicture := smoothbreath + tilde shifted (-pwid/4,pwid);
+picture smoothtilde; smoothtilde := currentpicture;
+endchar;
+
+beginchar(oct"136",2pwid#,cap#,0); "Smooth breathing and acute";
+currentpicture := smoothbreath shifted (-pwid/4,0) +
+ acute shifted (pwid/4,h-pwid/2);
+picture smoothacute; smoothacute := currentpicture;
+endchar;
+
+beginchar(oct"137",2pwid#,cap#,0); "Smooth breathing and grave";
+currentpicture := smoothbreath shifted (-pwid/4,0) +
+ grave shifted (pwid/4,h-pwid/2);
+picture smoothgrave; smoothgrave := currentpicture;
+endchar;
+
+beginchar(oct"174",2pwid#,0,dep#); "iota subscript";
+
+z0 = (w/2-1.5thinstroke/2,-thinstroke);
+z1 = z0 shifted (1.5thinstroke,0);
+z2 = z0 shifted (0,-dep/2);
+z3 = z2 shifted (1.5thinstroke,0);
+z4 = ((x2+x3)/2,-dep);
+z5 = z3 shifted (1.5thinstroke,0);
+z6 = ((x3+x5)/2,y3-0.5thinstroke);
+
+fill z0---z2..z4{right}..{up}z5..z6..z3---z1--cycle;
+
+picture iotasub; iotasub := currentpicture;
+
+penlabels(0,1,2,3,4,5,6);
+endchar;
+
+beginchar(oct"227",cap#,cap#,0); "smile";
+fill theparen yscaled 0.70 rotatedaround ((w/2,h/2),90)
+ shifted (-0.275w,h-ex/2);
+endchar;
diff --git a/fonts/drm/mf/drmgrkacclet.mf b/fonts/drm/mf/drmgrkacclet.mf
new file mode 100644
index 0000000000..d2c328d2d3
--- /dev/null
+++ b/fonts/drm/mf/drmgrkacclet.mf
@@ -0,0 +1,651 @@
+% +AMDG This document was begun on 12 July 11EX, the feast
+% of St. Bonaventure, BCD, 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"011",em#+2ss#,cap#,0); "The Letter A, iota";
+italcorr(ex#*slant);
+
+currentpicture := capa + capiotasub shifted (w-0.25lserw,-0.25h);
+
+endchar;
+
+beginchar(oct"012",em#+2ss#,cap#,0); "The Letter H, iota";
+italcorr(ex#*slant);
+
+currentpicture := caph + capiotasub shifted (w-0.25lserw,-0.25h);
+
+endchar;
+
+beginchar(oct"013",5em#/6+2ss#,cap#,0); "The Letter Omega, iota";
+italcorr(ex#*slant);
+
+currentpicture := capiotasub shifted (w-0.25lserw,-0.25h);
+fill omega;
+
+endchar;
+
+beginchar(oct"014",em#+2ss#,cap#,0); "The Letter A";
+italcorr(ex#*slant);
+
+currentpicture := capa;
+
+endchar;
+
+beginchar(oct"015",5em#/6+2ss#,cap#,0); "Upsilon with diaresis";
+italcorr(ex#*slant);
+
+currentpicture := diaresis shifted
+ (pwid/2+ss,h-ex/2-1.5pwid);
+fill capwhy;
+
+endchar;
+
+beginchar(oct"016",ex#+2ss#,ex#,0); "The letter alpha";
+italcorr(ex#*slant);
+
+currentpicture := alpha;
+
+endchar;
+
+beginchar(oct"017",1.2ex#+2ss#,ex#,0); "upsilon with diaresis";
+italcorr(ex#*slant);
+
+currentpicture := upsilon + diaresis shifted
+ (pwid/2+ss,0);
+
+endchar;
+
+beginchar(oct"200",ex#+2ss#,ex#,0); "alpha with grave";
+italcorr(ex#*slant);
+currentpicture := alpha + highgrave;
+endchar;
+
+beginchar(oct"201",ex#+2ss#,ex#,0); "alpha with rough";
+italcorr(ex#*slant);
+currentpicture := alpha + roughbreath shifted (pwid,0);
+endchar;
+
+beginchar(oct"202",ex#+2ss#,ex#,0); "alpha with smooth";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothbreath shifted (pwid,0);
+endchar;
+
+beginchar(oct"203",ex#+2ss#,ex#,0); "alpha with roughgrave";
+italcorr(ex#*slant);
+currentpicture := alpha + roughgrave shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"204",ex#+2ss#,ex#,0); "alpha with grave iota";
+italcorr(ex#*slant);
+currentpicture := alpha + highgrave + iotasub;
+endchar;
+
+beginchar(oct"205",ex#+2ss#,ex#,0); "alpha with rough iota";
+italcorr(ex#*slant);
+currentpicture := alpha + roughbreath shifted (pwid,0) + iotasub;
+endchar;
+
+beginchar(oct"206",ex#+2ss#,ex#,0); "alpha with smooth iota";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothbreath shifted (pwid,0) + iotasub;
+endchar;
+
+beginchar(oct"207",ex#+2ss#,ex#,0); "alpha with roughacute iota";
+italcorr(ex#*slant);
+currentpicture := alpha + roughgrave shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"210",ex#+2ss#,ex#,0); "alpha with acute";
+italcorr(ex#*slant);
+currentpicture := alpha + highacute;
+endchar;
+
+beginchar(oct"211",ex#+2ss#,ex#,0); "alpha with roughacute";
+italcorr(ex#*slant);
+currentpicture := alpha + roughacute shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"212",ex#+2ss#,ex#,0); "alpha with smoothacute";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothacute shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"213",ex#+2ss#,ex#,0); "alpha with smoothgrave";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothgrave shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"214",ex#+2ss#,ex#,0); "alpha with acute iota";
+italcorr(ex#*slant);
+currentpicture := alpha + highacute + iotasub;
+endchar;
+
+beginchar(oct"215",ex#+2ss#,ex#,0); "alpha with roughacute iota";
+italcorr(ex#*slant);
+currentpicture := alpha + roughacute shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"216",ex#+2ss#,ex#,0); "alpha with smoothacute iota";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothacute shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"217",ex#+2ss#,ex#,0); "alpha with smoothgrave iota";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothgrave shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"220",ex#+2ss#,ex#,0); "alpha with tilde";
+italcorr(ex#*slant);
+currentpicture := alpha + tilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"221",ex#+2ss#,ex#,0); "alpha with roughtilde";
+italcorr(ex#*slant);
+currentpicture := alpha + roughtilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"222",ex#+2ss#,ex#,0); "alpha with smoothilde";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothtilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"224",ex#+2ss#,ex#,0); "alpha with iota and tilde";
+italcorr(ex#*slant);
+currentpicture := alpha + tilde shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"225",ex#+2ss#,ex#,0); "alpha with iota and roughtilde";
+italcorr(ex#*slant);
+currentpicture := alpha + roughtilde shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"226",ex#+2ss#,ex#,0); "alpha with iota and smoothilde";
+italcorr(ex#*slant);
+currentpicture := alpha + smoothtilde shifted (pwid/2,0) + iotasub;
+endchar;
+
+beginchar(oct"230",ex#+2ss#,ex#,dep#); "eta grave";
+currentpicture := eta + highgrave shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"231",ex#+2ss#,ex#,dep#); "eta rough";
+currentpicture := eta + roughbreath shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"232",ex#+2ss#,ex#,dep#); "eta smooth";
+currentpicture := eta + smoothbreath shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"234",ex#+2ss#,ex#,dep#); "eta grave iota";
+currentpicture := eta + highgrave shifted (pwid/4,0) +
+ iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"235",ex#+2ss#,ex#,dep#); "eta rough iota";
+currentpicture := eta + roughbreath shifted (3pwid/4,0) +
+ iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"236",ex#+2ss#,ex#,dep#); "eta smooth iota";
+currentpicture := eta + smoothbreath shifted (3pwid/4,0) +
+ iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"240",ex#+2ss#,ex#,dep#); "eta acute";
+currentpicture := eta + highacute shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"241",ex#+2ss#,ex#,dep#); "eta rough acute";
+currentpicture := eta + roughacute shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"242",ex#+2ss#,ex#,dep#); "eta smooth acute";
+currentpicture := eta + smoothacute shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"243",ex#+2ss#,ex#,dep#); "eta rough grave";
+currentpicture := eta + roughgrave shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"244",ex#+2ss#,ex#,dep#); "eta acute iota";
+currentpicture := eta + highacute shifted (pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"245",ex#+2ss#,ex#,dep#); "eta rough acute iota";
+currentpicture := eta + roughacute shifted (3pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"246",ex#+2ss#,ex#,dep#); "eta smooth acute iota";
+currentpicture := eta + smoothacute shifted (3pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"247",ex#+2ss#,ex#,dep#); "eta rough grave iota";
+currentpicture := eta + roughgrave shifted (3pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"250",ex#+2ss#,ex#,dep#); "eta tilde";
+currentpicture := eta + tilde shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"251",ex#+2ss#,ex#,dep#); "eta rough tilde";
+currentpicture := eta + roughtilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"252",ex#+2ss#,ex#,dep#); "eta smooth tilde";
+currentpicture := eta + smoothtilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"253",ex#+2ss#,ex#,dep#); "eta smooth grave";
+currentpicture := eta + smoothgrave shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"254",ex#+2ss#,ex#,dep#); "eta tilde iota";
+currentpicture := eta + tilde shifted (pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"255",ex#+2ss#,ex#,dep#); "eta rough tilde iota";
+currentpicture := eta + roughtilde shifted (pwid/2,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"256",ex#+2ss#,ex#,dep#); "eta smooth tilde iota";
+currentpicture := eta + smoothtilde shifted (pwid/2,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"257",ex#+2ss#,ex#,dep#); "eta smooth tilde iota";
+currentpicture := eta + smoothgrave shifted (3pwid/4,0)
+ + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"260",1.5ex#+2ss#,ex#,0); "omega grave";
+italcorr(ex#*slant);
+currentpicture := omlow + highgrave shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"261",1.5ex#+2ss#,ex#,0); "omega rough";
+italcorr(ex#*slant);
+currentpicture := omlow + roughbreath shifted (5pwid/4,0);
+endchar;
+
+beginchar(oct"262",1.5ex#+2ss#,ex#,0); "omega smooth";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothbreath shifted (5pwid/4,0);
+endchar;
+
+beginchar(oct"263",1.5ex#+2ss#,ex#,0); "omega roughgrave";
+italcorr(ex#*slant);
+currentpicture := omlow + roughgrave shifted (pwid,0);
+endchar;
+
+beginchar(oct"264",1.5ex#+2ss#,ex#,0); "omega grave iota";
+italcorr(ex#*slant);
+currentpicture := omlow + highgrave shifted (3pwid/4,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"265",1.5ex#+2ss#,ex#,0); "omega rough iota";
+italcorr(ex#*slant);
+currentpicture := omlow + roughbreath shifted (5pwid/4,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"266",1.5ex#+2ss#,ex#,0); "omega smooth iota";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothbreath shifted (5pwid/4,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"267",1.5ex#+2ss#,ex#,0); "omega roughgrave iota";
+italcorr(ex#*slant);
+currentpicture := omlow + roughgrave shifted (pwid,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"270",1.5ex#+2ss#,ex#,0); "omega acute";
+italcorr(ex#*slant);
+currentpicture := omlow + highacute shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"271",1.5ex#+2ss#,ex#,0); "omega rough acute";
+italcorr(ex#*slant);
+currentpicture := omlow + roughacute shifted (pwid,0);
+endchar;
+
+beginchar(oct"272",1.5ex#+2ss#,ex#,0); "omega smooth acute";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothacute shifted (pwid,0);
+endchar;
+
+beginchar(oct"273",1.5ex#+2ss#,ex#,0); "omega smoothgrave";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothgrave shifted (pwid,0);
+endchar;
+
+beginchar(oct"274",1.5ex#+2ss#,ex#,0); "omega acute iota";
+italcorr(ex#*slant);
+currentpicture := omlow + highacute shifted (3pwid/4,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"275",1.5ex#+2ss#,ex#,0); "omega rough acute";
+italcorr(ex#*slant);
+currentpicture := omlow + roughacute shifted (pwid,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"276",1.5ex#+2ss#,ex#,0); "omega smooth acute";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothacute shifted (pwid,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"277",1.5ex#+2ss#,ex#,0); "omega smoothgrave";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothgrave shifted (pwid,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"300",1.5ex#+2ss#,ex#,0); "omega tilde";
+italcorr(ex#*slant);
+currentpicture := omlow + tilde shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"301",1.5ex#+2ss#,ex#,0); "omega tilde rough";
+italcorr(ex#*slant);
+currentpicture := omlow + roughtilde shifted (7pwid/6,0);
+endchar;
+
+beginchar(oct"302",1.5ex#+2ss#,ex#,0); "omega tilde smooth";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothtilde shifted (7pwid/6,0);
+endchar;
+
+beginchar(oct"304",1.5ex#+2ss#,ex#,0); "omega tilde iota";
+italcorr(ex#*slant);
+currentpicture := omlow + tilde shifted (5pwid/6,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"305",1.5ex#+2ss#,ex#,0); "omega tilde rough iota";
+italcorr(ex#*slant);
+currentpicture := omlow + roughtilde shifted (7pwid/6,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"306",1.5ex#+2ss#,ex#,0); "omega tilde smooth iota";
+italcorr(ex#*slant);
+currentpicture := omlow + smoothtilde shifted (7pwid/6,0)
+ + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"310",0.4ex#+2ss#,ex#,0); "iota grave";
+italcorr(ex#*slant);
+currentpicture := iota + highgrave shifted (-pwid/2,0);
+endchar;
+
+beginchar(oct"311",0.4ex#+2ss#,ex#,0); "iota rough breath";
+italcorr(ex#*slant);
+currentpicture := iota + roughbreath shifted (0,0);
+endchar;
+
+beginchar(oct"312",0.4ex#+2ss#,ex#,0); "iota smooth breath";
+italcorr(ex#*slant);
+currentpicture := iota + smoothbreath shifted (0,0);
+endchar;
+
+beginchar(oct"313",0.4ex#+2ss#,ex#,0); "iota rough grave";
+italcorr(ex#*slant);
+currentpicture := iota + roughgrave shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"320",0.4ex#+2ss#,ex#,0); "iota acute";
+italcorr(ex#*slant);
+currentpicture := iota + highacute shifted (-pwid/2,0);
+endchar;
+
+beginchar(oct"321",0.4ex#+2ss#,ex#,0); "iota rough acute";
+italcorr(ex#*slant);
+currentpicture := iota + roughacute shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"322",0.4ex#+2ss#,ex#,0); "iota smooth acute";
+italcorr(ex#*slant);
+currentpicture := iota + smoothacute shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"323",0.4ex#+2ss#,ex#,0); "iota smooth grave";
+italcorr(ex#*slant);
+currentpicture := iota + smoothgrave shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"330",0.4ex#+2ss#,ex#,0); "iota tilde";
+italcorr(ex#*slant);
+currentpicture := iota + tilde shifted (-pwid/2,0);
+endchar;
+
+beginchar(oct"331",0.4ex#+2ss#,ex#,0); "iota tilde rough";
+italcorr(ex#*slant);
+currentpicture := iota + roughtilde shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"332",0.4ex#+2ss#,ex#,0); "iota tilde smooth";
+italcorr(ex#*slant);
+currentpicture := iota + smoothtilde shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"333",thickstroke#+2lserw#+2ss#,cap#,0); "Iota diaresis";
+italcorr(ex#*slant);
+currentpicture := capi + diaresis shifted (-pwid/6,ex/2);
+endchar;
+
+beginchar(oct"314",1.2ex#+2ss#,ex#,0); "upsilon grave";
+italcorr(ex#*slant);
+currentpicture := upsilon + highgrave shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"315",1.2ex#+2ss#,ex#,0); "upsilon rough";
+italcorr(ex#*slant);
+currentpicture := upsilon + roughbreath shifted (pwid,0);
+endchar;
+
+beginchar(oct"316",1.2ex#+2ss#,ex#,0); "upsilon smooth";
+italcorr(ex#*slant);
+currentpicture := upsilon + smoothbreath shifted (pwid,0);
+endchar;
+
+beginchar(oct"317",1.2ex#+2ss#,ex#,0); "upsilon roughgrave";
+italcorr(ex#*slant);
+currentpicture := upsilon + roughgrave shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"324",1.2ex#+2ss#,ex#,0); "upsilon acute";
+italcorr(ex#*slant);
+currentpicture := upsilon + highacute shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"325",1.2ex#+2ss#,ex#,0); "upsilon roughacute";
+italcorr(ex#*slant);
+currentpicture := upsilon + roughacute shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"326",1.2ex#+2ss#,ex#,0); "upsilon smoothacute";
+italcorr(ex#*slant);
+currentpicture := upsilon + smoothacute shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"327",1.2ex#+2ss#,ex#,0); "upsilon smoothgrave";
+italcorr(ex#*slant);
+currentpicture := upsilon + smoothgrave shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"334",1.2ex#+2ss#,ex#,0); "upsilon tilde";
+italcorr(ex#*slant);
+currentpicture := upsilon + tilde shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"335",1.2ex#+2ss#,ex#,0); "upsilon tilde rough";
+italcorr(ex#*slant);
+currentpicture := upsilon + roughtilde shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"336",1.2ex#+2ss#,ex#,0); "upsilon tilde smooth";
+italcorr(ex#*slant);
+currentpicture := upsilon + smoothtilde shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"337",5em#/6+2ss#,cap#,0); "Upsilon diaresis";
+italcorr(ex#*slant);
+currentpicture := capy + diaresis shifted (4pwid/6,ex/2);
+endchar;
+
+beginchar(oct"340",0.8ex#+2ss#,ex#,0); "epsilon grave";
+italcorr(ex#*slant);
+currentpicture := epsilon + highgrave;
+endchar;
+
+beginchar(oct"341",0.8ex#+2ss#,ex#,0); "epsilon rough";
+italcorr(ex#*slant);
+currentpicture := epsilon + roughbreath shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"342",0.8ex#+2ss#,ex#,0); "epsilon smooth";
+italcorr(ex#*slant);
+currentpicture := epsilon + smoothbreath shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"343",0.8ex#+2ss#,ex#,0); "epsilon roughgrave";
+italcorr(ex#*slant);
+currentpicture := epsilon + roughgrave shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"350",0.8ex#+2ss#,ex#,0); "epsilon acute";
+italcorr(ex#*slant);
+currentpicture := epsilon + highacute;
+endchar;
+
+beginchar(oct"351",0.8ex#+2ss#,ex#,0); "epsilon roughacute";
+italcorr(ex#*slant);
+currentpicture := epsilon + roughacute shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"352",0.8ex#+2ss#,ex#,0); "epsilon smoothacute";
+italcorr(ex#*slant);
+currentpicture := epsilon + smoothacute shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"353",0.8ex#+2ss#,ex#,0); "epsilon smoothgrave";
+italcorr(ex#*slant);
+currentpicture := epsilon + smoothgrave shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"344",ex#+2ss#,ex#,0); "omicron grave";
+italcorr(ex#*slant);
+currentpicture := lowo + highgrave shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"345",ex#+2ss#,ex#,0); "omicron rough";
+italcorr(ex#*slant);
+currentpicture := lowo + roughbreath shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"346",ex#+2ss#,ex#,0); "omicron smooth";
+italcorr(ex#*slant);
+currentpicture := lowo + smoothbreath shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"347",ex#+2ss#,ex#,0); "omicron rough grave";
+italcorr(ex#*slant);
+currentpicture := lowo + roughgrave shifted (pwid/3,0);
+endchar;
+
+beginchar(oct"354",ex#+2ss#,ex#,0); "omicron acute";
+italcorr(ex#*slant);
+currentpicture := lowo + highacute shifted (pwid/4,0);
+endchar;
+
+beginchar(oct"355",ex#+2ss#,ex#,0); "omicron rough acute";
+italcorr(ex#*slant);
+currentpicture := lowo + roughacute shifted (pwid/3,0);
+endchar;
+
+beginchar(oct"356",ex#+2ss#,ex#,0); "omicron smooth acute";
+italcorr(ex#*slant);
+currentpicture := lowo + smoothacute shifted (pwid/3,0);
+endchar;
+
+beginchar(oct"357",ex#+2ss#,ex#,0); "omicron smooth grave";
+italcorr(ex#*slant);
+currentpicture := lowo + smoothgrave shifted (pwid/3,0);
+endchar;
+
+beginchar(oct"360",0.4ex#+2ss#,ex#,0); "iota diaresis";
+italcorr(ex#*slant);
+currentpicture := iota + diaresis shifted (-pwid/2,-pwid/2);
+endchar;
+
+beginchar(oct"361",0.4ex#+2ss#,ex#,0); "iota diaresis grave";
+italcorr(ex#*slant);
+currentpicture := iota + graveumlaut shifted (-pwid/2,-pwid/2);
+endchar;
+
+beginchar(oct"362",0.4ex#+2ss#,ex#,0); "iota diaresis acute";
+italcorr(ex#*slant);
+currentpicture := iota + acuteumlaut shifted (-pwid/2,-pwid/2);
+endchar;
+
+beginchar(oct"363",0.4ex#+2ss#,ex#,0); "iota tilde diaresis";
+italcorr(ex#*slant);
+currentpicture := iota + tildeumlaut shifted (-pwid/2,0);
+endchar;
+
+beginchar(oct"364",1.2ex#+2ss#,ex#,0); "upsilon diaresis";
+italcorr(ex#*slant);
+currentpicture := upsilon + diaresis shifted (3pwid/4,-pwid/2);
+endchar;
+
+beginchar(oct"365",1.2ex#+2ss#,ex#,0); "upsilon diaresis grave";
+italcorr(ex#*slant);
+currentpicture := upsilon + graveumlaut shifted (3pwid/4,-pwid/2);
+endchar;
+
+beginchar(oct"366",1.2ex#+2ss#,ex#,0); "upsilon diaresis acute";
+italcorr(ex#*slant);
+currentpicture := upsilon + acuteumlaut shifted (3pwid/4,-pwid/2);
+endchar;
+
+beginchar(oct"367",1.2ex#+2ss#,ex#,0); "upsilon diaresis acute";
+italcorr(ex#*slant);
+currentpicture := upsilon + tildeumlaut shifted (3pwid/4,0);
+endchar;
+
+beginchar(oct"370",ex#+2ss#,ex#,0); "alpha with iota";
+italcorr(ex#*slant);
+currentpicture := alpha + iotasub;
+endchar;
+
+beginchar(oct"371",ex#+2ss#,ex#,dep#); "eta iota";
+currentpicture := eta + iotasub shifted (-pwid/4,0);
+endchar;
+
+beginchar(oct"372",1.5ex#+2ss#,ex#,0); "omega iota";
+italcorr(ex#*slant);
+currentpicture := omlow + iotasub shifted (5pwid/6,0);
+endchar;
+
+beginchar(oct"373",ex#+2ss#,ex#,dep#); "rho rough";
+italcorr(ex#*slant);
+currentpicture := rho + roughbreath shifted (pwid/2,0);
+endchar;
+
+beginchar(oct"374",ex#+2ss#,ex#,dep#); "rho smooth";
+italcorr(ex#*slant);
+currentpicture := rho + smoothbreath shifted (pwid/2,0);
+endchar;
diff --git a/fonts/drm/mf/drmgrkcap.mf b/fonts/drm/mf/drmgrkcap.mf
new file mode 100644
index 0000000000..b62befd27a
--- /dev/null
+++ b/fonts/drm/mf/drmgrkcap.mf
@@ -0,0 +1,759 @@
+% +AMDG This document was begun on 15 August 2007, the
+% Feast of the Assumption of the Blessed Virgin Mary, and it
+% is humbly offered to her for her prayers, and to the
+% Sacred Heart of Jesus for His mercy.
+
+picture capo;
+picture capa;
+picture capl;
+picture capc;
+picture capd;
+picture cape;
+picture capg;
+picture capn;
+picture capu;
+picture capr;
+picture caps;
+picture capt;
+picture capy;
+picture capz;
+picture capi;
+
+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;
+
+%%%FFF Fix W, M, A from dependence on stroke widths FFF%%%
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw+equalize/2,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw+equalize/2,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw+equalize/2,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-(userw+equalize/2),userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define T Side Serifs on Caps %%%%
+
+def tlsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j-((userh/2),0);
+z.l=z.k-(userh/2,1.5userw);
+z.m=z.l+(userh/2,0);
+enddef;
+
+def trsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j+((userh/2),0);
+z.l=z.k+(userh/2,-1.5userw);
+z.m=z.l-(userh/2,0);
+enddef;
+
+%%%% Define C Side Serifs on Caps %%%%
+
+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;
+
+def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userh/2);
+z.k=z.j-(userh,0);
+z.l=z.k+(0,-2userw);
+z.m=z.l+(userh,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define L, E, Z, and F side serifs on Caps %%%%
+
+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;
+
+def lftdownsideserif(suffix i,j,k) =
+z.j=z.i-(ssslant,2lserw);
+z.k=z.j+(lserh,lserw);
+enddef;
+
+beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+path capeye; capeye = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+fill capeye;
+
+capi := currentpicture;
+
+penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25);
+
+endchar;
+
+beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O";
+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);
+
+path fillo; path unfillo;
+fillo = z4..z3..z2..z1..cycle;
+unfillo = z5..z6..z7..z8..cycle;
+fill fillo;
+unfill unfillo;
+
+capo := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("A",em#+2ss#,cap#,0); "The Letter A";
+italcorr(ex#*slant);
+
+crossh = 1/phi;
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (w-ss-lserw,lserh);
+z4 = z3 shifted (-thickstroke,0);
+z5 = (w/2+thickstroke/2,h+o);
+z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30);
+lrserif(3,7,8,9,10)(1);
+llserif(4,11,12,13,14)(1);
+lrserif(2,15,16,17,18)(1);
+llserif(1,19,20,21,22)(1);
+z23 = crossh[z6,z1];
+z24 = z23 shifted (thinstroke,0);
+z25 = (w,y23);
+z26 = letaa[z23,z25];
+z26 = letab[z3,z5];
+z27 = z26 shifted (-thickstroke,0);
+z28 = 0.9[z27,z6];
+z29 = 0.1[z27,z28];
+z30 = 0.1[z24,z28];
+
+fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2
+ --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle;
+unfill z30--z28--z29--cycle;
+
+capa := currentpicture;
+
+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);
+endchar;
+
+beginchar("H",em#+2ss#,cap#,0); "The Letter H";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-lserw-thickstroke,lserh);
+z6 = z5 shifted (thickstroke,0);
+z7 = (w-ss-lserw-thickstroke,h-lserh);
+z8 = z7 shifted (thickstroke,0);
+z46=(0.5)[z4,z2];
+z47=z46+(0,thinstroke/2);
+z48=z46-(0,thinstroke/2);
+z49=(0.5)[z7,z5];
+z50=z49+(0,thinstroke/2);
+z51=z49-(0,thinstroke/2);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+lrserif(6,30,31,32,33)(1);
+llserif(5,34,35,36,37)(1);
+urserif(8,38,39,40,41)(1);
+ulserif(7,42,43,44,45)(1);
+
+path capeta; capeta = z36--z32--z31..z30..z6--z8..z38..z39--z40--z44--
+ z43..z42..z7--z50--z47--z4..z15..z16--z17--z20--
+ z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2
+ --z48--z51--z5..z34..z35--cycle;
+fill capeta;
+
+picture caph; caph := currentpicture;
+
+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"122",2em#/3+2ss#,cap#,0); "The Letter P";
+italcorr(ex#*slant);
+
+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);
+
+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;
+
+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("B",3em#/4+2ss#,cap#,0); "The Letter B";
+italcorr(ex#*slant);
+
+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;
+
+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("M",em#+2ss#,cap#,0); "The Letter M";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.1[z23,z29];
+%z28 = z23 shifted (-thinstroke/2,thinstroke/2);
+z29=z27+(2curvwid/3,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+path capem; capem =
+z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle;
+fill capem;
+
+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("T",5em#/6+2ss#,cap#,0);"The Letter T";
+italcorr(ex#*slant);
+
+seriftail=userw/5;
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(w/2-thickstroke/2,y2);
+z6=(w/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+pickup cappen;
+
+path tpath;
+tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+fill tpath;
+
+capt := currentpicture;
+
+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("N",5em#/6+2ss#,cap#,0); "The Letter N";
+italcorr(ex#*slant);
+
+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,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);
+
+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;
+
+capn := currentpicture;
+
+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("L",5em#/6+2ss#,cap#,0); "The Letter L";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke);
+z6=(w-ss-ssslant,0);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+%pickup pencircle scaled 2;
+%draw z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle;
+path capell; capell = z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle;
+fill capell;
+
+capl := currentpicture;
+
+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("E",5em#/6+2ss#,cap#,0); "The Letter E";
+italcorr(ex#*slant);
+
+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);
+z15=.5[z4,z5];
+z16=z15+(0,thinstroke/2);
+z17=z16-(0,thinstroke);
+z21=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill
+z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle;
+
+cape := currentpicture;
+
+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("K",5em#/6+2ss#,cap#,0); "The Letter K";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z17=z3 shifted (thickstrike,0);
+z22=z2 shifted (0,h/2+thinstroke-lserh);
+z23=z2 shifted (0,h/2-lserh);
+z24=(w-userw-ss,h);
+z25=z24 shifted (-thinstroke/2-thinstroke,-userh);
+z30=z25 shifted (thinstroke,0);
+z35=0.08[z23,z30];
+z46=0.28[z23,z30];
+z37 = (w-ss-lserw,lserh);
+z36 = z37 shifted (-thickstroke,0);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,13,14,15,16)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,18,19,20,21)(1);
+ulserif(25,26,27,28,29)(1);
+urserif(30,31,32,33,34)(1);
+lrserif(37,38,39,40,41)(1);
+llserif(36,42,43,44,45)(1);
+
+fill
+z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--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);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y";
+italcorr(ex#*slant);
+
+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);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+path capwhy;
+capwhy = 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;
+fill capwhy;
+
+capy := currentpicture;
+
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z";
+italcorr(ex#*slant);
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+capz := 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"121",5em#/6+2ss#,cap#,0); "The Letter X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = aa[z1,z6];
+z41 = ab[z7,z3];
+z42 = ac[z5,z4];
+z42 = ad[z7,z3];
+z43 = ae[z8,z2];
+z43 = af[z6,z1];
+z44 = ag[z8,z2];
+z44 = ah[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+path capchi; capchi =
+z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle;
+fill capchi;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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",7em#/6+2ss#,cap#,0); "OT ligature";
+italcorr(ex#*slant);
+
+z1=(ss+3em/6+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(4.5em/6-thickstroke/2,y2);
+z6=(4.5em/6+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+z25 = (x5,h);
+z50 = (x7,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+path halftpath;
+halftpath = z50--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z25--cycle;
+fill halftpath;
+
+z31=(ss,h/2);
+z32=((ss+x6)/2,h);
+z33=(x5+thickstroke,h/2);
+z34=((ss+x6)/2,0-o);
+z35=z31 shifted (curvwid,0);
+z36=z32 shifted (0,-thinstroke);
+z37=z33 shifted (-curvwid,0);
+z38=z34 shifted (0,thinstroke);
+
+path fillot; path unfillot;
+fillot = z34..{up}z33---z6--z25---z32..z31..cycle;
+unfillot = z38..{up}z37---z5---z36..z35..cycle;
+fill fillot;
+unfill unfillot;
+
+fill z25--z32--z36--z5--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"027",2ss#+2thinstroke#+thickstroke#+6lserw#+2hair#,cap#,0);
+"Three lines down, straight";
+italcorr(ex#*slant);
+
+z0 = (ss+lserw,lserh);
+z1 = z0 shifted (thinstroke,0);
+z2 = (x1+2lserw+hair,lserh);
+z3 = z2 shifted (thinstroke,0);
+z4 = (w-ss-lserw,lserh);
+z5 = z4 shifted (-thickstroke,0);
+llserif(0,6,7,8,9)(1);
+lrserif(1,10,11,12,13)(1);
+llserif(2,14,15,16,17)(1);
+lrserif(3,18,19,20,21)(1);
+llserif(5,22,23,24,25)(1);
+lrserif(4,26,27,28,29)(1);
+z30 = (ss,h+o);
+z31 = z30 shifted (0,-thickstroke);
+z32 = z4 rotatedaround (z3,70);
+z33 = z5 rotatedaround (z2,70);
+z34 = z4 rotatedaround (z1,70);
+z35 = z5 rotatedaround (z0,70);
+z36 = (z0--z35) intersectionpoint (z5--z31);
+z37 = (z1--z34) intersectionpoint (z5--z31);
+z38 = (z2--z33) intersectionpoint (z5--z31);
+z39 = (z3--z32) intersectionpoint (z5--z31);
+
+fill
+z0..z6..z7--z8--z12--z11..z10..z1--z37--z38--z2..z14..z15--z16--z20--z19..z18..z3--z39--z5..z22..z23--z24--z28--z27..z26..z4--z30--z31--z36--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"030",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"303",5em#/6+2ss#,cap#,0); "Digamma";
+italcorr(ex#*slant);
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = (x3+thickstroke,h-thinstroke);
+z5=(x4,lserh);
+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=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+lrserif(5,31,32,33,34)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..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;
diff --git a/fonts/drm/mf/drmgrkligs.mf b/fonts/drm/mf/drmgrkligs.mf
new file mode 100644
index 0000000000..e5afc154f5
--- /dev/null
+++ b/fonts/drm/mf/drmgrkligs.mf
@@ -0,0 +1,167 @@
+% +AMDG This document was begun on 20 Jul 11EX, the feast
+% of St. Christina, VM, and it is humbly dedicated to her
+% and to the Immaculate Heart of Mary for their prayers, and
+% to the Sacred Heart of Jesus for His mercy.
+
+ligtable "A" : "L" : "D" : "J" kern-0.1u#,"O" kern-0.1u#,
+ "T" kern-0.1u#,"U" kern-0.2u#,"F" kern-0.1u#,
+ "Y" kern-0.1u#,"g" kern-0.1u#,"d" kern-0.1u#,
+ "e" kern-0.05u#,"z" kern-0.05u#,"h" kern-0.1u#,
+ "j" kern-0.2u#,"n" kern-0.2u#,"x" kern-0.05u#,
+ "o" kern-0.05u#,"p" kern-0.05u#,"s" kern-0.05u#,
+ "t" kern-0.05u#,"u" kern-0.2u#,"f" kern-0.2u#,
+ "q" kern-0.1u#,"y" kern-0.2u#;
+ligtable "B" : "J" kern 0.05u#,"O" kern 0.05u#,
+ "W" kern 0.05u#,"a" kern 0.05u#,"b" kern 0.05u#,
+ "g" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"r" kern 0.05u#,
+ "s" kern 0.05u#,"c" kern 0.05u#,"w" kern 0.05u#;
+ligtable "G" : "A" kern-0.2u#,"D" kern-0.2u#,
+ "L" kern-0.2u#,"F" kern-0.05u#,"a" kern-0.2u#,
+ "g" kern-0.2u#,"e" kern-0.2u#,"h" kern-0.2u#,
+ "i" kern-0.2u#,"k" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.3u#,"o" kern-0.2u#,"p" kern-0.1u#,
+ "r" kern-0.2u#,"s" kern-0.2u#,"c" kern-0.2u#,
+ "t" kern-0.2u#,"u" kern-0.2u#,"f" kern-0.2u#,
+ "q" kern-0.2u#,"y" kern-0.2u#,"w" kern-0.2u#;
+ligtable "E" : "g" kern-0.05u#,"n" kern -0.2u#,
+ "j" kern-0.05u#,"u" kern-0.2u#,"f" kern-0.1u#;
+ligtable "Z" : "g" kern-0.05u#,"j" kern-0.05u#,
+ "n" kern-0.2u#,"u" kern-0.1u#,"f" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "H" : "i" kern 0.1u#,"n" kern-0.05u#,
+ "u" kern-0.05u#,"y" kern-0.05u#;
+ligtable "J" : "O" : "A" kern-0.1u#,"B" kern-0.05u#,
+ "L" kern-0.1u#,"M" kern-0.05u#,"P" kern-0.05u#,
+ "U" kern-0.05u#,"X" kern-0.05u#,"a" kern 0.05u#,
+ "b" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#,
+ "z" kern 0.05u#,"i" kern 0.05u#,"k" kern 0.05u#,
+ "m" kern 0.05u#,"x" kern 0.05u#,"o" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "w" kern 0.05u#;
+ligtable "I" : "j" kern-0.05u#,"n" kern-0.05u#,
+ "u" kern-0.05u#,"y" kern-0.05u#;
+ligtable "K" : "Q" : "J" kern-0.1u#,"O" kern-0.1u#,
+ "F" kern-0.1u#,"Y" kern-0.05u#,"g" kern-0.1u#,
+ "d" kern-0.05u#,"j" kern-0.2u#,"n" kern-0.2u#,
+ "t" kern-0.1u#,"u" kern-0.2u#,"f" kern-0.2u#,
+ "q" kern-0.1u#,"u" kern-0.2u#,"y" kern-0.2u#,
+ "w" kern-0.05u#,"p" kern-0.1u#,"s" kern-0.1u#,
+ "c" kern-0.1u#,"o" kern-0.05u#;
+ligtable "X" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.1u#;
+ligtable "R" : "A" kern-0.1u#,"D" kern-0.1u#,
+ "L" kern-0.1u#,"a" kern-0.05u#,"d" kern-0.05u#,
+ "j" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.05u#,
+ "r" kern-0.05u#,"s" kern-0.05u#,"c" kern-0.05u#,
+ "u" kern-0.01u#,"y" kern-0.05u#,"w" kern-0.05u#;
+ligtable "S" : "g" kern-0.2u#,"j" kern-0.2u#,
+ "n" kern-0.2u#,"t" kern-0.1u#,"u" kern-0.2u#,
+ "f" kern-0.1u#,"q" kern-0.1u#,"y" kern-0.1u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"l" kern 0.05u#,
+ "m" kern 0.05u#;
+ligtable "T" : "A" kern-0.2u#,"D" kern-0.2u#,
+ "L" kern-0.2u#,"F" kern-0.05u#,"a" kern-0.1u#,
+ "g" kern-0.2u#,"e" kern-0.1u#,"h" kern-0.1u#,
+ "l" kern 0.05u#,"n" kern-0.2u#,"o" kern-0.2u#,
+ "u" kern-0.2u#,"f" kern-0.1u#,"q" kern-0.1u#,
+ "y" kern-0.1u#,"w" kern-0.1u#;
+ligtable "U" : "A" kern-0.2u#,"D" kern-0.2u#,
+ "J" kern-0.1u#,"L" kern-0.2u#,"O" kern-0.1u#,
+ "F" kern-0.1u#,"a" kern-0.1u#,"g" kern-0.2u#,
+ "e" kern-0.1u#,"h" kern-0.1u#,"j" kern-0.2u#,
+ "l" kern 0.05u#,"n" kern-0.2u#,"o" kern-0.2u#,
+ "p" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#,
+ "c" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.2u#,
+ "f" kern-0.2u#,"y" kern-0.2u#,"w" kern-0.2u#;
+ligtable "F" : "A" kern-0.05u#,"Z" kern-0.05u#,
+ "L" kern-0.05u#,"S" kern-0.05u#,"T" kern-0.05u#,
+ "U" kern-0.05u#,"Q" kern-0.1u#,"a" kern 0.05u#,
+ "b" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"w" kern 0.05u#;
+ligtable "Y" : "A" kern-0.1u#,"L" kern-0.1u#;
+ligtable "W" : "J" kern 0.1u#,"O" kern 0.1u#,
+ "F" kern 0.1u#,"W" kern 0.1u#;
+ligtable "a" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#;
+ligtable "b" : "j" kern-0.1u#,"n" kern-0.1u#;
+ligtable "g" : "i" kern 0.1u#,"k" kern 0.1u#,
+ "m" kern 0.1u#,"x" kern 0.1u#;
+ligtable "d" : "a" kern 0.1u#,"b" kern 0.1u#,
+ "g" kern-0.1u#,"d" kern 0.1u#,"e" kern 0.1u#,
+ "z" kern 0.1u#,"j" kern-0.1u#,"i" kern 0.1u#,
+ "k" kern 0.1u#,"m" kern 0.1u#,"n" kern-0.1u#,
+ "x" kern 0.1u#,"o" kern 0.1u#,"r" kern 0.1u#,
+ "s" kern 0.1u#,"c" kern 0.1u#,"u" kern-0.1u#,
+ "y" kern-0.1u#;
+ligtable "e" : "j" kern-0.1u#,"m" kern 0.1u#,
+ "n" kern-0.1u#,"u" kern-0.1u#;
+ligtable "z" : "g" kern-0.1u#,"h" kern-0.1u#,
+ "j" kern-0.1u#,"n" kern-0.1u#,"s" kern-0.05u#,
+ "t" kern-0.05u#,"u" kern-0.1u#,"f" kern-0.1u#,
+ "y" kern-0.1u#;
+ligtable "h" : "j" kern-0.1u#,"n" kern-0.05u#,
+ "u" kern-0.1u#;
+ligtable "j" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#;
+ligtable "i" : "h" kern 0.1u#,"j" kern-0.1u#,
+ "i" kern 0.1u#,"k" kern 0.1u#,"m" kern 0.1u#,
+ "x" kern 0.1u#,"o" kern 0.1u#;
+ligtable "k" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#;
+ligtable "l" : "a" kern 0.1u#,"b" kern 0.1u#,
+ "g" kern-0.05u#,"i" kern 0.1u#,"k" kern 0.1u#,
+ "m" kern 0.1u#,"n" kern-0.1u#,"r" kern 0.1u#,
+ "u" kern-0.05u#;
+ligtable "n" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"f" kern 0.05u#,"w" kern 0.05u#;
+ligtable "x" : "g" kern-0.1u#,"j" kern-0.1u#,
+ "n" kern-0.1u#,"o" kern-0.05u#,"u" kern-0.1u#,
+ "f" kern-0.05u#,"y" kern-0.05u#;
+ligtable "o" : "n" kern-0.1u#,"u" kern-0.1u#,
+ "y" kern-0.05u#;
+ligtable "p" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.1u#;
+ligtable "r" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.1u#;
+ligtable "s" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "s" kern 0.05u#,"c" kern 0.05u#,"w" kern 0.05u#;
+ligtable "t" : "j" kern-0.1u#,"n" kern-0.1u#,
+ "u" kern-0.1u#;
+ligtable "u" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"w" kern 0.05u#;
+ligtable "f" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"w" kern 0.05u#;
+ligtable "q" : "b" kern 0.05u#,"m" kern 0.05u#,
+ "n" kern-0.05u#,"u" kern-0.05u#,"y" kern-0.05u#;
+ligtable "y" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"w" kern 0.05u#;
+ligtable "w" : "a" kern 0.05u#,"b" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#,
+ "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#,
+ "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#,
+ "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#,
+ "t" kern 0.05u#,"w" kern 0.05u#;
diff --git a/fonts/drm/mf/drmgrklow.mf b/fonts/drm/mf/drmgrklow.mf
new file mode 100644
index 0000000000..4b0982e827
--- /dev/null
+++ b/fonts/drm/mf/drmgrklow.mf
@@ -0,0 +1,796 @@
+% +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.
+
+def topcurl(suffix i,j,k) =
+ top z.j = z.i shifted (-curlw,curlh);
+ z.k = z.j shifted (-curlw/2,-curlh);
+ penpos.j(thickl/2,90);
+ penpos.k(thinl,180);
+enddef;
+def botcurl(suffix i,j,k) =
+ bot z.j = z.i shifted (curlw,-curlh);
+ z.k = z.j shifted (curlw/2,curlh);
+ penpos.j(thickl/2,90);
+ penpos.k(thinl,180);
+enddef;
+
+beginchar(oct"141",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;
+
+picture alpha; alpha := 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"142",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"147",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"144",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"145",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"172",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"150",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;
+
+picture eta; eta := 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"152",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"151",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;
+
+picture iota; iota := 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"153",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"154",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"155",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"156",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"170",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"160",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"162",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;
+
+picture rho; rho := 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"163",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"164",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"165",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;
+
+picture upsilon; upsilon := 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"146",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"161",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"171",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"167",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;
+
+picture omlow; omlow := 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",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;
+
+picture epsilon; epsilon := 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"152",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"255",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"143",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"146",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;
+
+beginchar(oct"157",ex#+2ss#,ex#,0); "The Letter omicron";
+
+z0 = (w/2,h+o);
+z1 = (w/2,-o);
+z2 = (ss,h/2);
+z3 = (w-ss,h/2);
+z4 = z3 shifted (-curvl,0);
+z5 = z2 shifted (curvl,0);
+z6 = z0 shifted (0,-thinl);
+z7 = z1 shifted (0,thinl);
+
+fill z1..z3..z0..z2..cycle;
+unfill z4..z6..z5..z7..cycle;
+
+picture lowo; lowo := 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"032",ex#+2ss#,ex#,0); "schwa";
+
+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);
+
+path lowepath; lowepath =
+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;
+fill lowepath 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,19,20,21,22,23,24,25,26,27,28,29,30,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",ex#+2ss#,ex#,dep#); "Lowercase digamma";
+italcorr(ex#*slant);
+
+penpos0(thickl,90);
+z0r = (w-ss,h+o);
+penpos1(thinl,135);
+x1r = w/6; y1r = h;
+penpos2(thickl,180);
+z2r = (w/6,-dep);
+penpos3(thinstroke,75);
+penpos4(1.5thinstroke,75);
+z5 = (w/2,(y1+y2)/2);
+z3l = (z5--(0,y5)) intersectionpoint (z0..tension 4..z1..tension 4..z2);
+z4r = (3w/4,y3r);
+
+penstroke z0e..tension 4..z1e..tension 4..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;
diff --git a/fonts/drm/mf/drmgrkpunct.mf b/fonts/drm/mf/drmgrkpunct.mf
new file mode 100644
index 0000000000..3866010abe
--- /dev/null
+++ b/fonts/drm/mf/drmgrkpunct.mf
@@ -0,0 +1,803 @@
+% +AMDG This document was begun on 26 April 11EX, the feast
+% of St. Catherine of Siena, and it is humbly dedicated to
+% her and the Immaculate Heart of Mary for their prayers,
+% and to the Sacred Heart of Jesus for His mercy.
+
+picture hyphen;
+picture paren;
+picture period;
+picture opendoublequote;
+picture questionmark;
+picture bang;
+picture leftsinguill;
+picture leftdoubguill;
+picture slash;
+picture lessthan;
+picture opensquare;
+
+beginchar(oct"056",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;
+
+%period := 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"046",pwid#,pwid#,0); "Raised, smaller dot";
+
+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 scaled 0.75 shifted (0,ex-2dotwid);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar(oct"073",pwid#,pwid#,0); "Raised, period-sized dot";
+
+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 shifted (0,ex-2dotwid);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+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,-3dotwid);
+z6 = z1 shifted (-o,-2.0dotwid);
+
+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"035",pwid#,cap#,0); "The apostrophe";
+
+fill commapost shifted (0,h-2dotwid+o/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"074",pwid#,cap#,0); "rough breathing";
+
+fill commapost shifted (0,h-2dotwid+o/2)
+ reflectedabout ((w/2,h),(w/2,0));
+picture roughbreath;
+roughbreath := 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"076",pwid#,cap#,0); "The apostrophe";
+
+fill commapost shifted (0,h-2dotwid+o/2);
+
+picture smoothbreath; smoothbreath := 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;
+
+thinwid# = 0.4pt#;
+define_pixels(thinwid);
+
+beginchar("-",2pwid#,ex#,0); "The hyphen, -";
+
+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;
+
+hyphen := 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"177",2pwid#,ex#,0); "The break hyphen, -";
+currentpicture := hyphen;
+endchar;
+
+beginchar(oct"000",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"177",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"050",1.5pwid#,cap#,dep#); "The open parenthesis, (";
+
+z0 = (w,h+o);
+z1 = (w,-dep-o);
+z2 = (ss,(h-dep)/2);
+z3 = z2 shifted (thickl,0);
+
+path theparen; theparen = z1{dir 150}..{up}z3{up}..{dir 30}z0{dir
+ 200}..{down}z2{down}..{dir -20}z1..cycle;
+fill theparen;
+
+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"051",1.5pwid#,cap#,dep#); "The close parenthesis, )";
+
+currentpicture := paren rotatedaround ((w/2,(h-dep)/2),180);
+
+endchar;
+
+beginchar(oct"072",pwid#,ex#,0); "The colon, :";
+
+fill period;
+fill period shifted (0,ex-2dotwid-o);
+
+endchar;
+
+beginchar(oct"077",pwid#,ex#,0); "The semicolon, ;";
+
+fill period shifted (0,ex-2dotwid-o);
+fill commapost;
+
+endchar;
+
+beginchar(oct"034",pwid#,cap#,0); "The open quote, `";
+
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (0,-0.5pwid);
+
+endchar;
+
+beginchar(oct"020",1.75pwid#,cap#,0); "The open double quote, ``";
+
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (0,-2dotwid);
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (-0.75pwid,-2dotwid);
+
+opendoublequote := currentpicture;
+
+endchar;
+
+beginchar(oct"021",1.75pwid#,cap#,0); "The close double quote, ''";
+
+fill commapost shifted (0pwid,h-2dotwid);
+fill commapost shifted (0.75pwid,h-2dotwid);
+
+endchar;
+
+beginchar(oct"255",1.75pwid#,cap#,0); "The baseline open double quote, ,,";
+
+fill commapost shifted (0pwid,0);
+fill commapost shifted (0.75pwid,0);
+
+endchar;
+
+beginchar(oct"041",1.5pwid#,cap#,0); "The exclamation point, !";
+
+z0 = (w/2-thickl/2,h);
+z1 = z0 shifted (thickl/2,o);
+z2 = z0 shifted (thickl,0);
+z3 = (x0+o,3dotwid);
+z4 = (x2-o,y3);
+z5 = 0.5[z3,z4] shifted (0,-o);
+
+fill z0..z1..z2--z4..z5..z3--cycle;
+fill fullcircle scaled 2dotwid shifted (x5,dotwid);
+
+
+bang := 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"275",1.5pwid#,cap#,dep#); "The reverse exclamation point";
+
+currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180);
+
+endchar;
+
+beginchar(oct"255",pwid#+2ss#,ex#,0); "Left single guillemet";
+
+z0 = (o,h/2);
+z1 = (w-3o,7h/8);
+z2 = (w-3o,h/8);
+z3 = 0.5[z0,z1];
+z4 = 0.5[z0,z2];
+z5 = 0.1[z3,z2];
+z6 = 0.1[z4,z1];
+z7 = z0 shifted (curvl,0);
+z8 = 0.5[z3,z12];
+z9 = 0.5[z4,z12];
+z10 = z1 shifted (2o,0);
+z11 = z2 shifted (2o,0);
+z12 = (w,h/2);
+
+path guillone; path guilltwo;
+guillone = z0{dir 10}..z5..{dir 60}z1..z10{dir -100}..z8..z7--cycle;
+guilltwo = z0{dir -10}..z6..{dir -60}z2..z11{dir 100}..z9..z7--cycle;
+fill guillone; fill guilltwo;
+
+leftsinguill := 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"255",pwid#+2ss#,ex#,0); "Right single guillemet";
+
+fill guillone reflectedabout ((w/2,0),(w/2,h));
+fill guilltwo reflectedabout ((w/2,0),(w/2,h));
+
+endchar;
+
+beginchar(oct"173",1.5pwid#+2ss#,ex#,0); "Left double guillemet";
+
+fill guillone shifted (-o/2,0);
+fill guillone shifted (pwid/2+o/2,0);
+fill guilltwo shifted (-o/2,0);
+fill guilltwo shifted (pwid/2+o/2,0);
+
+leftdoubguill := currentpicture;
+
+endchar;
+
+beginchar(oct"175",1.5pwid#+2ss#,ex#,0); "Right double guillemet";
+
+fill guillone shifted (-o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guillone shifted (pwid/2+o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guilltwo shifted (-o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guilltwo shifted (pwid/2+o/2,0)
+ rotatedaround ((w/2,h/2),180);
+
+endchar;
+
+beginchar(oct"255",1.4pwid#+2ss#,3ex#/4,0); "Lower 0 for pertriqua";
+
+zeroh = 1.2pwid;
+zerohh = 3ex/4;
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinl);
+z2 = (w/2,0);
+z3 = z2 shifted (0,thinl);
+z4 = (w-ss,h/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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar(oct"053",ex#,ex#,0); "Plus (addition) sign, +";
+
+pickup pencircle scaled thinl;
+top z0 = (w/2,h-o);
+bot z1 = (w/2,o);
+lft z2 = (o,h/2);
+rt z3 = (w-o,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"057",ex#/2+2ss#,cap#,0); "The forward slash, /";
+
+pickup pencircle scaled thinl;
+lft z0 = (o,o);
+rt z1 = (w-o,h-o);
+
+draw z0--z1;
+
+slash := 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"134",ex#/2+2ss#,cap#,0); "The backslash, \";
+
+currentpicture := slash reflectedabout ((w/2,h),(w/2,0));
+
+endchar;
+
+beginchar(oct"042",1.75pwid#,cap#,0); "straight 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("#",em#+ss#,cap#,dep#); "The pound sign, #";
+
+full = h+d;
+
+z0 = (0.33w-hair,0.25full-dep+hair) shifted (ss,ss);
+z1 = (0.57w-hair,0.25full-dep+hair) shifted (ss,ss);
+z2 = (0.33w+hair,0.5full-dep+hair) shifted (ss,ss);
+z3 = (0.57w+hair,0.5full-dep+hair) shifted (ss,ss);
+z4 = 2[z0,z2];
+z5 = 2[z2,z0];
+z6 = 2[z1,z3];
+z7 = 2[z3,z1];
+z8 = 2[z2,z3];
+z9 = 2[z3,z2];
+z10 = 2[z0,z1];
+z11 = 2[z1,z0];
+
+pickup pencircle scaled thinl;
+
+draw z4--z5; draw z7--z6; draw z9--z8; draw z11--z10;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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("$",3em#/4+2ss#,cap#,0); "The dollar sign, $";
+
+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-3thickl/4,h+o);
+z21 = (w/2-3thickl/4,-o);
+z22 = (w/2+3thickl/4,h+o);
+z23 = (w/2+3thickl/4,-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("<",ex#,ex#,0); "The less than sign, <";
+%
+%z0 = (2o,h/2);
+%z1 = (w-2o,h-o);
+%z2 = (w-2o,o);
+%
+%pickup pencircle scaled thinl;
+%
+%draw z1--z0--z2;
+%
+%lessthan := 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(">",ex#,ex#,0); "The greater than sign, >";
+%currentpicture := lessthan reflectedabout ((w/2,h),(w/2,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"075",ex#,ex#,0); "The equals sign, =";
+
+z0 = (2o,h/3);
+z1 = (w-2o,h/3);
+z2 = (2o,2h/3);
+z3 = (w-2o,2h/3);
+
+pickup pencircle scaled thinl;
+
+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"045",5em#/6,cap#,0); "The perbiqua 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 = (w-0.6zeroh,zerohh);
+z11 = z10 shifted (0,-thinl);
+z12 = (w-0.6zeroh,0);
+z13 = z12 shifted (0,thinl);
+z14 = (w-ss,zerohh/2);
+z15 = z14 shifted (-1.7thinl,0);
+z16 = (w-1.2zeroh,zerohh/2);
+z17 = z16 shifted (thinl,0);
+
+fill z10..z14..z12..z16..cycle;
+unfill z11..z15..z13..z17..cycle;
+
+z22 = (w-ss,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,0.75thinl);
+z26 = z24 shifted (0.75thinl,0);
+z27 = z23 shifted (-1.5thinl,-hair);
+
+fill z0..z20..z22--z23--z26..z24..z25--z27..z21..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;
+
+beginchar("[",2pwid#,cap#+ss#,dep#); "The open square 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);
+
+path squarebrack;
+squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle;
+fill squarebrack;
+
+opensquare := 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("]",2pwid#,cap#+ss#,dep#); "The close square bracket, ]";
+fill squarebrack rotatedaround ((w/2,(h-dep)/2),180);
+endchar;
+
+beginchar("|",pwid#/2,cap#+ss#,dep#); "The pipe, |";
+
+z0 = (w/2,h-o);
+z1 = (w/2,-dep+o);
+
+pickup pencircle scaled thinl;
+draw z0--z1;
+
+endchar;
+
+%beginchar("{",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("}",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"255",4ex#/5,cap#,dep#); "The section symbol";
+
+toth = h+d;
+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"277",5em#/6+2ss#,cap#,0); "The British pound sign";
+
+z0 = (3w/4,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (w-ss-hair,4h/5);
+z3 = z2 shifted (-thinl,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/4);
+z8 = z7 shifted (-thickl,0);
+z9 = (x8-thickl,-hair/4);
+z10 = z9 shifted (0,thinl);
+z12 = (ss,h/5);
+z13 = z12 shifted (thickl,0);
+z14 = 0.5[z8,z7] shifted (0,-thinl);
+z15 = z14 shifted (0,1.3thinl);
+z16 = (3w/4,-hair/4);
+z17 = z16 shifted (0,thinl);
+z18 = (w-ss-hair,userw);
+z19 = z18 shifted (0,thinl);
+z20 = 0.5[z18,z19] shifted (hair,0);
+
+z21 = (2ss,0.6h);
+z22 = (w-2ss,0.6h);
+
+fill
+z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z14..{right}z16{right}..z18..z20..z19{dir
+200}..{left}z17{left}..z15..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle;
+
+pickup pencircle scaled thinl;
+
+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"100",em#,cap#,0); "The at sign, @";
+
+z0 = (w/4-o,h/2);
+z1 = (3w/4-o,h/2);
+z2 = (w/2-o,3h/4);
+z3 = (w/2-o,h/4);
+z4 = z2 shifted (0,-thinl);
+z5 = z3 shifted (0,thinl);
+z6 = z0 shifted (thickl,0);
+z7 = z1 shifted (-0.8thickl,0);
+z8 = (x7,y5+2thinl);
+z9 = (x1,y5+2thinl);
+z10 = (x7,y3+2thinl);
+z11 = (x1,y3+2thinl);
+z12 = z11 shifted (thinl,-thinl);
+z13 = z12 shifted (0,-thinl);
+z14 = (w-o,h/2);
+z15 = z14 shifted (-thinl,0);
+z16 = (w/2,h);
+z17 = z16 shifted (0,-thinl);
+z18 = (o,h/2);
+z19 = z18 shifted (thinl,0);
+z20 = (w/2,0);
+z21 = z20 shifted (0,thinl);
+z22 = z12 shifted (thickl,-thickl);
+z23 = z22 shifted (0,-thinl);
+z24 = 0.5[z22,z23] shifted (o,0);
+z25 = (x7,y2-thinl/2);
+z26 = (x1,y2-thinl/2);
+
+fill z0..z2..z1..z3..cycle;
+unfill z6..z4..z7..z5..cycle;
+fill
+z26--z1--z11..z12..{up}z15{up}..{left}z17{left}..{down}z19{down}..{right}z21{right}..z22{dir
+30}..z24..z23{dir -150}..{left}z20{left}..{up}z18{up}..{right}z16{right}..{down}z14{down}..{left}z13{left}..z10--z7--z25--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"031",7.5em#/6,cap#,0); "The pertriqua sign, %";
+
+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"006",3em#/4,cap#,0); "sort of backwards questionmark";
+
+penpos0(thickl,90);
+z0r = (w-ss,h+o);
+penpos1(thickl,90);
+z1r = (w/2,h+o);
+penpos2(thinl,180);
+z2r = (ss,3h/4);
+penpos3(thickl,-90);
+z3 = (w/2,h/2);
+penpos4(thinl,-90);
+z4 = (3w/4,h/2);
+penpos5(thinl,0);
+z5 = z3;
+penpos6(thickl,0);
+z6 = (w/2,h/6);
+penpos7(thinl,0);
+z7 = (w/2,0-o);
+
+penstroke z0e..z1e..z2e..z3e..z4e;
+penstroke 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,100);
+endchar;
+
+beginchar(oct"007",3em#/4,cap#,dep#); "S with leg";
+
+penpos0(thinl,0);
+z0r = (w-ss,h+thickstroke);
+penpos1(thickl,-90);
+z1l = (3w/4,h+o);
+penpos2(thickl,-90);
+z2l = (w/4,h+o);
+penpos3(thinl,0);
+z3l = (ss,3h/4);
+penpos4(thickl,90);
+z4 = (w/2,h/2);
+penpos5(thinl,0);
+z5l = (w-ss,h/4);
+penpos6(thinl,-90);
+z6r = (w/2,0-o);
+penpos7(thickl,-90);
+z7r = (w/4,0-o);
+penpos8(1.5thinl,0);
+z8 = z6;
+penpos9(1.5thinl,0);
+z9 = (x8,-d);
+penpos10(1.5thinl,-90);
+z10r = (3w/4,-dep);
+penpos11(1.5thinl,-90);
+z11r = z9;
+
+penstroke z0e..z1e..z2e..z3e..z4e..z5e..{left}z6e..z7e;
+penstroke z8e--z9e; penstroke 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,100);
+endchar;
diff --git a/fonts/drm/mf/drmgrkup.mf b/fonts/drm/mf/drmgrkup.mf
new file mode 100644
index 0000000000..5db3719543
--- /dev/null
+++ b/fonts/drm/mf/drmgrkup.mf
@@ -0,0 +1,293 @@
+% +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"107",5em#/6+2ss#,cap#,0); "The letter Gamma";
+italcorr(ex#*slant);
+
+fill capell reflectedabout ((0,h/2),(w,h/2));
+
+endchar;
+
+beginchar(oct"104",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);
+
+path deltfill; deltfill = z0--z2--z4--cycle;
+fill deltfill;
+path deltunfill; deltunfill = z1--z3--z5--cycle;
+unfill deltunfill;
+path deltfilltwo; deltfilltwo = z2--z6--z7--z4--cycle;
+fill deltfilltwo;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18);
+endchar;
+
+beginchar(oct"112",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"114",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"130",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"120",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"123",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"125",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"106",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"131",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"127",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;
+
+beginchar(oct"033",2ss#+2thinstroke#+thickstroke#+6lserw#+2hair#,cap#,0);
+"Three legs down, curved";
+italcorr(ex#*slant);
+
+penpos0(thickl,90);
+z0r = (ss,h+o);
+penpos1(thickl,0);
+z1r = (w-ss,0-o);
+penpos2(thickl,0);
+z2l = (ss,0);
+penpos3(thickl,0);
+z3l = (w/2,0);
+z4 = z1 rotatedaround (z2,70);
+z5 = (w+thickstroke,0) rotatedaround (z3,70);
+penpos4(thinl,-15);
+penpos5(thinl,-45);
+
+penstroke z0e{right}..z1e;
+penstroke z2e{up}..z4e;
+penstroke z3e{up}..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;
+
+def letbox =
+ pickup pensquare scaled 1.5thinstroke;
+ bot lft z100 = (0,0);
+ top lft z101 = (0,h);
+ top rt z102 = (w,h);
+ bot rt z103 = (w,0);
+ draw z100--z101--z102--z103;
+enddef;
+
+beginchar(oct"002",5em#/6+2ss#,cap#,0); "Delta boxed";
+italcorr(ex#*slant);
+
+fill deltfill scaled 0.9 shifted (0.1w-2ss,0);
+unfill deltunfill scaled 0.9 shifted (0.1w-2ss,0);
+fill deltfilltwo scaled 0.9 shifted (0.1w-2ss,0);
+letbox;
+endchar;
+
+beginchar(oct"003",em#+2ss#,cap#,0); "Eta boxed";
+italcorr(ex#*slant);
+fill capeta scaled 0.9 shifted (0.1w-2ss,0);
+letbox;
+endchar;
+
+beginchar(oct"004",5em#/6+2ss#,cap#,0); "Chi boxed";
+italcorr(ex#*slant);
+fill capchi scaled 0.9 shifted (0.1w-2ss,0);
+letbox;
+endchar;
+
+beginchar(oct"005",em#+2ss#,cap#,0); "Mu boxed";
+italcorr(ex#*slant);
+fill capem scaled 0.9 shifted (0.1w-2ss,0);
+letbox;
+endchar;
diff --git a/fonts/drm/mf/drminf10.mf b/fonts/drm/mf/drminf10.mf
new file mode 100644
index 0000000000..49a8b8624e
--- /dev/null
+++ b/fonts/drm/mf/drminf10.mf
@@ -0,0 +1,68 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf11.mf b/fonts/drm/mf/drminf11.mf
new file mode 100644
index 0000000000..4ee9e55387
--- /dev/null
+++ b/fonts/drm/mf/drminf11.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf12.mf b/fonts/drm/mf/drminf12.mf
new file mode 100644
index 0000000000..898b1676bc
--- /dev/null
+++ b/fonts/drm/mf/drminf12.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf14.mf b/fonts/drm/mf/drminf14.mf
new file mode 100644
index 0000000000..7249d1fa92
--- /dev/null
+++ b/fonts/drm/mf/drminf14.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf17.mf b/fonts/drm/mf/drminf17.mf
new file mode 100644
index 0000000000..2d21dd8644
--- /dev/null
+++ b/fonts/drm/mf/drminf17.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf24.mf b/fonts/drm/mf/drminf24.mf
new file mode 100644
index 0000000000..8a55e15e06
--- /dev/null
+++ b/fonts/drm/mf/drminf24.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf6.mf b/fonts/drm/mf/drminf6.mf
new file mode 100644
index 0000000000..ab0aaac33e
--- /dev/null
+++ b/fonts/drm/mf/drminf6.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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);
+
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf7.mf b/fonts/drm/mf/drminf7.mf
new file mode 100644
index 0000000000..8987e2e428
--- /dev/null
+++ b/fonts/drm/mf/drminf7.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf8.mf b/fonts/drm/mf/drminf8.mf
new file mode 100644
index 0000000000..9712a2bbb6
--- /dev/null
+++ b/fonts/drm/mf/drminf8.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+slant = 0;
+font_slant 0u#;
+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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminf9.mf b/fonts/drm/mf/drminf9.mf
new file mode 100644
index 0000000000..8acf469a56
--- /dev/null
+++ b/fonts/drm/mf/drminf9.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#; define_pixels(digwid);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf
+input drmlowmac.mf
+input drmdigs.mf
+input drminffigs.mf
+
+end;
diff --git a/fonts/drm/mf/drminffigs.mf b/fonts/drm/mf/drminffigs.mf
new file mode 100644
index 0000000000..90ba7cb8ad
--- /dev/null
+++ b/fonts/drm/mf/drminffigs.mf
@@ -0,0 +1,335 @@
+% +AMDG This document was begun on 1X September 11EX, the
+% feast of St. Thomas of Villanova, EC, and the
+% commemoration of Ss. Maurice and Companions, 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("1",0.7digwid#+ss#,cap#,0); "Superior digit 1";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,h);
+z1 = z0 shifted (thickstroke,0);
+z2 = (w/2-thickstroke/2,h/2+lserh);
+z3 = z2 shifted (thickstroke,0);
+lrserif(3,4,5,6,7)(1);
+llserif(2,9,10,11,12)(1);
+z13 = (x10,y0-thinstroke);
+z14 = z13 shifted (0,-thinstroke);
+z15 = (z14--(w,y14)) intersectionpoint (z0--z2);
+y6 := y11 := h/2;
+
+path supone; supone = z13{right}..z0--z1--z3..z4..z5--z6--
+ z11--z10..z9..z2--z15--z14--cycle;
+fill supone shifted (0,-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("2",0.7digwid#+ss#,cap#,0); "Superior digit 2";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w-ss/2,5h/6);
+z3 = z2 shifted (-thickstroke,0);
+z4 = (ss/2,5h/6);
+ulftbulb(4,5,6,7,8);
+z9 = (z5--z7) intersectionpoint (z6--z4) shifted
+ (thinstroke/2,thinstroke/2);
+z10 = (ss/2,h/2);
+z11 = z10 shifted (0,thickstroke/2);
+z12 = (w-ss/2,y10);
+z13 = (x12,y11+thinstroke);
+z14 = z13 shifted (-thinstroke,0);
+z15 = (x14,y11);
+z16 = z11 shifted (thickstroke,0);
+
+path suptwo; suptwo = z15--z14--z13--z12--z10--z11{dir 45}..
+ z3..z1{left}..{dir -135}z5{right}..z6..z7..z4..z0..z2..
+ {dir -135}z16--cycle;
+fill suptwo shifted (0,-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("3",0.7digwid#+ss#,cap#,0); "Superior digit 3";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,h/2);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,7h/8);
+z5 = z4 shifted (-thickstroke,0);
+z6 = (w-ss/2,5h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = (ss/2,5h/8);
+ulftbulb(8,10,11,12,13);
+y10 := y10 - bulbsh/2;
+z14 = z9 shifted (bulbsh,bulbsh);
+z15 = z9 shifted (2bulbsh,0);
+z16 = z9 shifted (bulbsh,-bulbsh);
+y16 := y16 + bulbsh/2;
+z17 = (x0-thinstroke,3h/4+thinstroke/2);
+z18 = z17 shifted (0,-thinstroke);
+z19 = 0.5[z17,z18] shifted (thickstroke,0);
+
+path supthree; supthree = z8{up}..{right}z0{right}..
+ {down}z4{down}..{left}z19{right}..{down}z6{down}..
+ {left}z2{left}..{up}z9..z14..z15{down}..
+ {left}z16{dir -30}..z3..z7..{left}z18--z17{right}..
+ z5..z1..{dir -135}z10{right}..{down}z11..z12..cycle;
+pickup pencircle scaled 2;
+fill supthree shifted (0,-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("4",0.7digwid#+ss#,cap#,0); "Superior digit 4";
+italcorr(ex#*slant);
+
+z0 = (5w/6,h+o);
+z1 = (x0,h/2+lserh);
+z2 = z1 shifted (-thickstroke,0);
+lrserif(1,3,4,5,6)(1);
+llserif(2,7,8,9,10)(1);
+y9 := y5 := h/2;
+x8 := x9 := (x8 + lserw/2);
+x4 := x5 := (x4 - lserw/2);
+z11 = (x2,4h/6);
+z12 = (ss/2,y11);
+z13 = z11 shifted (0,thinstroke);
+z14 = z12 shifted (thinstroke,0);
+z15 = z0 shifted (0,-thinstroke);
+z16 = (z14--z15) intersectionpoint (z13--(0,y13));
+z17 = (z14--z15) intersectionpoint (z13--(x13,h));
+
+pickup pencircle scaled 2;
+path supfour; supfour = z0--z1{down}..{right}z4--z5--z9--
+ z8{right}..{up}z2--z11--z12--cycle;
+path insidefour; insidefour = z16--z17--z13--cycle;
+fill supfour shifted (0,-h/2);
+unfill insidefour shifted (0,-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("5",0.7digwid#+ss#,cap#,0); "Superior digit 5";
+italcorr(ex#*slant);
+
+z0 = (7w/8,h);
+z1 = (w/8,h);
+z2 = z0 shifted (0,-3thinstroke);
+z3 = z1 shifted (0,-4.5thinstroke);
+z4 = z2 shifted (-thinstroke,0);
+z5 = z4 shifted (0,thinstroke);
+z6 = (w-ss/2,0.63h);
+z7 = (w/2,h/2);
+z8 = (ss/2,y6);
+ulftbulb(8,9,10,11,12);
+z13 = z7 shifted (0,thinstroke);
+z14 = z6 shifted (-thickstroke,0);
+z15 = z3 shifted (thinstroke,2.5thinstroke);
+z16 = z3 shifted (thinstroke,thinstroke);
+
+pickup pencircle scaled 2;
+path supfive; supfive = z5--z4--z2--z0--z1--z3{right}..
+ z14..z13..{dir 150}z11{right}..z10..z9..z8..z7..z6..
+ {left}z16--z15--cycle;
+fill supfive shifted (0,-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("7",0.7digwid#+ss#,cap#,0); "Superior digit 7";
+italcorr(ex#*slant);
+
+z0 = (ss/2,h);
+z1 = (x0,y0-thickstroke-thinstroke);
+z2 = z1 shifted (thinstroke,0);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,y3);
+z5 = (w-ss/2,h);
+z6 = (w/2-thickstroke,h/2);
+z7 = z6 shifted (thickstroke,0);
+z8 = z4 shifted (-thinstroke,0);
+
+path supsev; supsev = z6{up}..z8--z3--z2--z1--z0--z5--
+ z4..{down}z7--cycle;
+fill supsev shifted (0,-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("8",0.7digwid#+ss#,cap#,0); "Superior digit 8";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,3h/4+thinstroke);
+z3 = z2 shifted (0,-thinstroke);
+z4 = (w/2,h/2);
+z5 = z4 shifted (0,thinstroke);
+z6 = (w-ss/2,7h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = z8 shifted (thickstroke,0);
+z10 = (w-ss/2,5h/8);
+z11 = z10 shifted (-thickstroke,0);
+z12 = (ss/2,5h/8);
+z13 = z12 shifted (thickstroke,0);
+
+path upperloop; upperloop = z0..z6..z3..z8..cycle;
+path unupperloop; unupperloop = z1..z7..z2..z9..cycle;
+path lowerloop; lowerloop = z2..z10..z4..z12..cycle;
+path unlowerloop; unlowerloop = z3..z11..z5..z13..cycle;
+
+fill upperloop shifted (0,-h/2);
+fill lowerloop shifted (0,-h/2);
+unfill unupperloop shifted (0,-h/2);
+unfill unlowerloop shifted (0,-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("0",0.7digwid#+1.4ss#,cap#,0); "Superior digit 0";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = (0.7ss,3h/4);
+z2 = (w/2,h/2);
+z3 = (w-0.7ss,3h/4);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z3 shifted (-thickstroke,0);
+z6 = z2 shifted (0,thinstroke);
+z7 = z1 shifted (thickstroke,0);
+
+path supzero; supzero = z0..z3..z2..z1..cycle;
+path unsupzero; unsupzero = z4..z5..z6..z7..cycle;
+fill supzero shifted (0,-h/2);
+unfill unsupzero shifted (0,-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("6",0.7digwid#+ss#,cap#,0); "Superior digit 6";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+z0r = (2w/3,h);
+penpos1(2thinl,180);
+z1r = (ss+thinl,h/2+h/3);
+penpos2(thickl,180);
+z2r = (ss,5h/8);
+penpos3(thinl,-90);
+z3r = (w/2,h/2);
+penpos4(thickl,0);
+z4r = (w-ss,5h/8);
+penpos5(thinl,90);
+z5r = (w/2,0.8h);
+penpos6(thinl,0);
+z6l = z0l;
+penpos7(thinl,-90);
+z7l = z6l;
+penpos8(thinl,180);
+z8l = z7l;
+
+penstroke (z5e..z2e..z3e..z4e..cycle) shifted (0,-h/2);
+penstroke (z0e..z1e..z2e) shifted (0,-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("9",0.7digwid#+ss#,cap#,0); "Superior digit 9";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+z0r = (2w/3,h);
+penpos1(2thinl,180);
+z1r = (ss+thinl,h/2+h/3);
+penpos2(thickl,180);
+z2r = (ss,5h/8);
+penpos3(thinl,-90);
+z3r = (w/2,h/2);
+penpos4(thickl,0);
+z4r = (w-ss,5h/8);
+penpos5(thinl,90);
+z5r = (w/2,0.8h);
+penpos6(thinl,0);
+z6l = z0l;
+penpos7(thinl,-90);
+z7l = z6l;
+penpos8(thinl,180);
+z8l = z7l;
+
+penstroke ((z5e..z2e..z3e..z4e..cycle) reflectedabout
+ ((0,3h/4),(w,3h/4))) shifted (0,-h/2);
+penstroke ((z0e..z1e..z2e) reflectedabout
+ ((0,3h/4),(w,3h/4)) reflectedabout
+ ((w/2,h),(w/2,0))) shifted (0,-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("X",0.7digwid#+ss#,cap#,0); "Superior digit X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w-ss/2,5h/6);
+z3 = z2 shifted (-thickstroke,0);
+z4 = (ss/2,5h/6);
+ulftbulb(4,5,6,7,8);
+z9 = (z5--z7) intersectionpoint (z6--z4) shifted
+ (thinstroke/2,thinstroke/2);
+z10 = (ss/2,h/2);
+z11 = z10 shifted (0,thickstroke/2);
+z12 = (w-ss/2,y10);
+z13 = (x12,y11+thinstroke);
+z14 = z13 shifted (-thinstroke,0);
+z15 = (x14,y11);
+z16 = z11 shifted (thickstroke,0);
+
+path suptwo; suptwo = z15--z14--z13--z12--z10--z11{dir 45}..
+ z3..z1{left}..{dir -135}z5{right}..z6..z7..z4..z0..z2..
+ {dir -135}z16--cycle;
+fill suptwo rotatedaround ((w/2,3h/4),180) shifted (0,-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("E",0.7digwid#+ss#,cap#,0); "Superior digit E";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,h/2);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,7h/8);
+z5 = z4 shifted (-thickstroke,0);
+z6 = (w-ss/2,5h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = (ss/2,5h/8);
+ulftbulb(8,10,11,12,13);
+y10 := y10 - bulbsh/2;
+z14 = z9 shifted (bulbsh,bulbsh);
+z15 = z9 shifted (2bulbsh,0);
+z16 = z9 shifted (bulbsh,-bulbsh);
+y16 := y16 + bulbsh/2;
+z17 = (x0-thinstroke,3h/4+thinstroke/2);
+z18 = z17 shifted (0,-thinstroke);
+z19 = 0.5[z17,z18] shifted (thickstroke,0);
+
+path supthree; supthree = z8{up}..{right}z0{right}..
+ {down}z4{down}..{left}z19{right}..{down}z6{down}..
+ {left}z2{left}..{up}z9..z14..z15{down}..
+ {left}z16{dir -30}..z3..z7..{left}z18--z17{right}..
+ z5..z1..{dir -135}z10{right}..{down}z11..z12..cycle;
+pickup pencircle scaled 2;
+fill supthree rotatedaround ((w/2,3h/4),180) shifted (0,-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;
diff --git a/fonts/drm/mf/drmit10.mf b/fonts/drm/mf/drmit10.mf
new file mode 100644
index 0000000000..d8d79e39b9
--- /dev/null
+++ b/fonts/drm/mf/drmit10.mf
@@ -0,0 +1,79 @@
+% +AMDG
+
+font_identifier:="drmdoz"; 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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit11.mf b/fonts/drm/mf/drmit11.mf
new file mode 100644
index 0000000000..da4ff64c36
--- /dev/null
+++ b/fonts/drm/mf/drmit11.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit12.mf b/fonts/drm/mf/drmit12.mf
new file mode 100644
index 0000000000..bcb77760f2
--- /dev/null
+++ b/fonts/drm/mf/drmit12.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit14.mf b/fonts/drm/mf/drmit14.mf
new file mode 100644
index 0000000000..a1178a7c64
--- /dev/null
+++ b/fonts/drm/mf/drmit14.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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);
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+pickup pencircle scaled penwidth; cappen:=savepen;
+equalize=thickstroke/2-thinstroke/2;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit17.mf b/fonts/drm/mf/drmit17.mf
new file mode 100644
index 0000000000..6b5a92e1c4
--- /dev/null
+++ b/fonts/drm/mf/drmit17.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit24.mf b/fonts/drm/mf/drmit24.mf
new file mode 100644
index 0000000000..d65c825e24
--- /dev/null
+++ b/fonts/drm/mf/drmit24.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit6.mf b/fonts/drm/mf/drmit6.mf
new file mode 100644
index 0000000000..3a9323f4a0
--- /dev/null
+++ b/fonts/drm/mf/drmit6.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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);
+
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit7.mf b/fonts/drm/mf/drmit7.mf
new file mode 100644
index 0000000000..1f03b22db8
--- /dev/null
+++ b/fonts/drm/mf/drmit7.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit8.mf b/fonts/drm/mf/drmit8.mf
new file mode 100644
index 0000000000..d382d24f0c
--- /dev/null
+++ b/fonts/drm/mf/drmit8.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmit9.mf b/fonts/drm/mf/drmit9.mf
new file mode 100644
index 0000000000..d7e254d9c9
--- /dev/null
+++ b/fonts/drm/mf/drmit9.mf
@@ -0,0 +1,81 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmitacclet.mf b/fonts/drm/mf/drmitacclet.mf
new file mode 100644
index 0000000000..d77320545b
--- /dev/null
+++ b/fonts/drm/mf/drmitacclet.mf
@@ -0,0 +1,686 @@
+% +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(oct"350",exw#+2ss#,ex#,0); "The letter egrave";
+
+currentpicture := lowe + grave shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"351",exw#+2ss#,ex#,0); "The letter eacute";
+
+currentpicture := lowe + acute shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"354",0.6exw#+2ss#,ex#,0); "the letter igrave";
+currentpicture := dotlessi + grave shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"355",0.6exw#+2ss#,ex#,0); "the letter iacute";
+currentpicture := dotlessi + acute shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"356",0.6exw#+2ss#,ex#,0); "the letter icirc";
+currentpicture := dotlessi + circumflex shifted
+ (w/2-1.5pwid,-(cap-ex)+1.5pwid);
+endchar;
+
+beginchar(oct"357",0.6exw#+2ss#,ex#,0); "dotless i with diaresis";
+
+currentpicture := dotlessi + diaresis shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"352",exw#+2ss#,ex#,0); "e with circumflex";
+
+currentpicture := lowe + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"353",exw#+2ss#,ex#,0); "e with diaresis";
+
+currentpicture := lowe + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"362",exw#+2ss#,ex#,0); "the letter ograve";
+
+currentpicture := lowo + grave shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"363",exw#+2ss#,ex#,0); "the letter oacute";
+
+currentpicture := lowo + acute shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"366",exw#+2ss#,ex#,0); "o with diaresis";
+
+currentpicture := lowo + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"365",exw#+2ss#,ex#,0); "o with tilde";
+
+currentpicture := lowo + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"364",exw#+2ss#,ex#,0); "o with circumflex";
+
+currentpicture := lowo + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"340",1.3exw#+2ss#,ex#,0); "The letter agrave";
+
+currentpicture := lowa + grave shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"341",1.3exw#+2ss#,ex#,0); "The letter aacute";
+
+currentpicture := lowa + acute shifted
+ (w/2-1.5pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"342",1.3exw#+2ss#,ex#,0); "a with circumflex";
+
+currentpicture := lowa + circumflex shifted
+ (w/2-1.5pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"343",1.3exw#+2ss#,ex#,0); "a with tilde";
+
+currentpicture := lowa + tilde shifted
+ (w/2-1.5pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"344",1.3exw#+2ss#,ex#,0); "a with diaresis";
+
+currentpicture := lowa + diaresis shifted
+ (w/2-pwid-lserwl/2,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"345",1.3exw#+2ss#,ex#,0); "a with ring";
+
+currentpicture := lowa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"267",1.4exw#+2ss#,ex#,0); "u with ring";
+
+currentpicture := lowu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"347",exw#+2ss#,ex#,1.5pwid#); "c cedille";
+
+currentpicture := lowc + cedille shifted (w-1.7pwid,0);
+
+endchar;
+
+beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex";
+
+currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla";
+
+currentpicture := capa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent";
+
+currentpicture := capc + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex";
+
+currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex";
+
+currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex";
+
+currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla";
+
+currentpicture := cape + revcid shifted (2w/3-8o,0);
+
+endchar;
+
+beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex";
+
+currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent";
+
+currentpicture := capl + acute shifted (w/2-1.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent";
+
+currentpicture := capl;
+fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L";
+
+currentpicture := capl;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (-2hair,h/2);
+z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)--
+ (ss+userw+thickstroke/2,0));
+z1 = 2[z0,z2] shifted (thickstroke,0);
+path intline; intline = z0--z1;
+
+draw intline rotatedaround(z2,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"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent";
+
+currentpicture := capn + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex";
+
+currentpicture := capn + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis";
+
+currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent";
+
+currentpicture := capr + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex";
+
+currentpicture := capr + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent";
+
+currentpicture := caps + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum";
+
+currentpicture := caps + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla";
+
+currentpicture := caps + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum";
+
+currentpicture := capt + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla";
+
+currentpicture := capt + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut";
+
+currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid);
+
+endchar;
+
+beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent";
+
+currentpicture := capu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut";
+
+currentpicture := capy + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent";
+
+currentpicture := capz + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum";
+
+currentpicture := capz + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot";
+
+currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot";
+
+currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"240",exw#+2ss#,ex#,0); "The letter a, inverse circum";
+
+currentpicture := lowa + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"241",exw#+2ss#,ex#,0); "The letter a, reverse cedilla";
+
+currentpicture := lowa + revcid shifted (2w/3-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"242",exw#+2ss#,ex#,0); "c with acute";
+
+currentpicture := lowc + acute shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"243",exw#+2ss#,ex#,0); "c inverse circum";
+
+currentpicture := lowc + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"244",1.2exw#+2ss#,asch#,0); "d apostrophe";
+
+currentpicture := lowd;
+fill commapost shifted (w-0.2pwid-ss,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"245",exw#+2ss#,ex#,0); "e, inverse circumflex";
+
+currentpicture := lowe + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"246",exw#+2ss#,ex#,0); "e, reverse cedilla";
+
+currentpicture := lowe + revcid shifted (w/2-0.3pwid,0);
+
+endchar;
+
+beginchar(oct"247",exw#+2ss#,ex#,dep#); "g, inverse circum";
+
+currentpicture := lowg + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"250",0.6exw#+2ss#,asch#,0); "l, with acute";
+
+currentpicture := lowl + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"251",0.6exw#+2ss#,asch#,0); "l, with apostrophe";
+
+currentpicture := lowl;
+fill commapost shifted (w-0.2pwid-ss,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"252",0.6exw#+2ss#,asch#,0); "l, with crossbar";
+
+currentpicture := lowl;
+
+%z0 = (2o,h/3);
+%z1 = (w-2o,2h/3);
+pickup pencircle scaled thinl;
+z0 = (0,h/2);
+z1 = (w,h/2);
+z2 = 0.5[z0,z1];
+path crossbar; crossbar = z0--z1;
+draw crossbar rotatedaround (z2,30);
+
+endchar;
+
+beginchar(oct"253",1.2exw#+2ss#,ex#,0); "n, acute accent";
+
+currentpicture := lown + acute shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"254",1.2exw#+2ss#,ex#,0); "n, inverse circum";
+
+currentpicture := lown + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"256",exw#+2ss#,ex#,0); "o, Hungarian umlaut";
+
+currentpicture := lowo + hungum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"257",exw#+2ss#,ex#,0); "r, with acute accent";
+
+currentpicture := lowr + acute shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"260",exw#+2ss#,ex#,0); "r, reverse circum";
+
+currentpicture := lowr + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"261",0.8exw#+2ss#,ex#,0); "s, with acute accent";
+
+currentpicture := lows + acute shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"262",0.8exw#+2ss#,ex#,0); "s, reverse circum";
+
+currentpicture := lows + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"263",0.8exw#+2ss#,ex#,0); "s, cedilla";
+
+currentpicture := lows + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"264",exw#/phi+2.5ss#,theight#,0); "t, with apostrophe";
+
+currentpicture := lowt;
+fill commapost shifted (w-0.2pwid,h-pwid/2);
+
+endchar;
+
+beginchar(oct"265",exw#/phi+2ss#,theight#,0); "t, with cedilla";
+
+currentpicture := lowt + cedille shifted (w/2-pwid/4,0);
+
+endchar;
+
+beginchar(oct"266",1.4exw#+2ss#,ex#,0); "u with Hungarian umlaut";
+
+currentpicture := lowu + hungum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"270",1.2exw#+2ss#,ex#,dep#); "y, with diaresis";
+
+currentpicture := lowy + diaresis shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"271",exw#+2ss#,ex#,0); "z, acute accent";
+
+currentpicture := lowz + acute shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"272",exw#+2ss#,ex#,0); "z, inverse circum";
+
+currentpicture := lowz + invcircum shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"273",exw#+2ss#,ex#,0); "z, overdot";
+
+currentpicture := lowz + overdot shifted (w/2-1.5dotwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"301",em#+2ss#,cap#,0); "A, acute accent";
+
+currentpicture := capa + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"300",em#+2ss#,cap#,0); "A, grave accent";
+
+currentpicture := capa + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex";
+
+currentpicture := capa + circumflex shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde";
+
+currentpicture := capa + tilde shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis";
+
+currentpicture := capa + diaresis shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"305",em#+2ss#,cap#,0); "A, ring";
+
+currentpicture := capa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille";
+
+currentpicture := capc + cedille shifted (w/2-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute";
+
+currentpicture := cape + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave";
+
+currentpicture := cape + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex";
+
+currentpicture := cape + circumflex shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis";
+
+currentpicture := cape + diaresis shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, acute";
+
+currentpicture := capi + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, grave";
+
+currentpicture := capi + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex";
+
+currentpicture := capi + circumflex shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis";
+
+currentpicture := capi + diaresis shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde";
+
+currentpicture := capn + tilde shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, acute";
+
+currentpicture := capo + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, grave";
+
+currentpicture := capo + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex";
+
+currentpicture := capo + circumflex shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde";
+
+currentpicture := capo + tilde shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis";
+
+currentpicture := capo + diaresis shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, acute";
+
+currentpicture := capu + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, grave";
+
+currentpicture := capu + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex";
+
+currentpicture := capu + circumflex shifted (w/2-0.5pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis";
+
+currentpicture := capu + diaresis shifted (w/2-0.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute";
+
+currentpicture := capy + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"361",1.2exw#+2ss#,ex#,0); "n, tilde";
+
+currentpicture := lown + tilde shifted (w/2-1.5pwid,0);
+
+endchar;
+
+beginchar(oct"372",1.4exw#+2ss#,ex#,0); "u, acute";
+
+currentpicture := lowu + acute shifted (w/2-1.5pwid,0);
+
+endchar;
+
+beginchar(oct"371",1.4exw#+2ss#,ex#,0); "u, grave";
+
+currentpicture := lowu + grave shifted (w/2-1.5pwid,0);
+
+endchar;
+
+beginchar(oct"373",1.4exw#+2ss#,ex#,0); "u, circumflex";
+
+currentpicture := lowu + circumflex shifted (w/2-1.5pwid,0);
+
+endchar;
+
+beginchar(oct"374",1.4exw#+2ss#,ex#,0); "u, diaresis";
+
+currentpicture := lowu + diaresis shifted (w/2-1.5pwid,0);
+
+endchar;
+
+beginchar(oct"375",1.2exw#+2ss#,ex#,dep#); "y, acute";
+
+currentpicture := lowy + acute shifted (w/2-pwid,0);
+
+endchar;
diff --git a/fonts/drm/mf/drmitbx10.mf b/fonts/drm/mf/drmitbx10.mf
new file mode 100644
index 0000000000..0d8d3b2697
--- /dev/null
+++ b/fonts/drm/mf/drmitbx10.mf
@@ -0,0 +1,79 @@
+% +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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx11.mf b/fonts/drm/mf/drmitbx11.mf
new file mode 100644
index 0000000000..5c58aeebc4
--- /dev/null
+++ b/fonts/drm/mf/drmitbx11.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx12.mf b/fonts/drm/mf/drmitbx12.mf
new file mode 100644
index 0000000000..78f04b5866
--- /dev/null
+++ b/fonts/drm/mf/drmitbx12.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx14.mf b/fonts/drm/mf/drmitbx14.mf
new file mode 100644
index 0000000000..3f80a4f5ed
--- /dev/null
+++ b/fonts/drm/mf/drmitbx14.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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);
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+pickup pencircle scaled penwidth; cappen:=savepen;
+equalize=thickstroke/2-thinstroke/2;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx17.mf b/fonts/drm/mf/drmitbx17.mf
new file mode 100644
index 0000000000..f3bf24b348
--- /dev/null
+++ b/fonts/drm/mf/drmitbx17.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx24.mf b/fonts/drm/mf/drmitbx24.mf
new file mode 100644
index 0000000000..8fa709ee29
--- /dev/null
+++ b/fonts/drm/mf/drmitbx24.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx6.mf b/fonts/drm/mf/drmitbx6.mf
new file mode 100644
index 0000000000..e6aaf941f7
--- /dev/null
+++ b/fonts/drm/mf/drmitbx6.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx7.mf b/fonts/drm/mf/drmitbx7.mf
new file mode 100644
index 0000000000..736b75e964
--- /dev/null
+++ b/fonts/drm/mf/drmitbx7.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx8.mf b/fonts/drm/mf/drmitbx8.mf
new file mode 100644
index 0000000000..521802e961
--- /dev/null
+++ b/fonts/drm/mf/drmitbx8.mf
@@ -0,0 +1,80 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmitbx9.mf b/fonts/drm/mf/drmitbx9.mf
new file mode 100644
index 0000000000..1bec91c638
--- /dev/null
+++ b/fonts/drm/mf/drmitbx9.mf
@@ -0,0 +1,81 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmitcap.mf b/fonts/drm/mf/drmitcap.mf
new file mode 100644
index 0000000000..f5bdadbf19
--- /dev/null
+++ b/fonts/drm/mf/drmitcap.mf
@@ -0,0 +1,264 @@
+% +AMDG This document was begun on 4 June 11EX, the feast
+% of St. Francis Caracciolo, 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.
+
+def topcurl(suffix i,j,k) =
+ top z.j = z.i shifted (-curlw,curlh);
+ z.k = z.j shifted (-curlw/2,-curlh);
+ penpos.j(thickstroke/2,90);
+ penpos.k(thinstroke,180);
+enddef;
+
+def botcurl(suffix i,j,k) =
+ bot z.j = z.i shifted (curlw,-curlh);
+ z.k = z.j shifted (curlw/2,curlh);
+ penpos.j(thickstroke/2,90);
+ penpos.k(thinstroke,180);
+enddef;
+
+beginchar("J",0.75em#+2ss#,cap#,dep#); "The Letter J";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinstroke;
+penpos0(thickstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thickstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(0.75thickstroke,-90);
+z2l = (w/2,y1);
+penpos3(thinstroke,-90);
+z3l = (2w/3,y2);
+penpos4(thickstroke,0);
+z4r = (w-ss,h+o);
+penpos5(thickstroke,0);
+z5 = (5w/6,h/2);
+penpos6(thickstroke,0);
+z6 = (3w/4,0);
+penpos7(thinstroke,-90);
+z7r = (w/3,-d);
+penpos8(thickstroke,180);
+z8r = (ss,-d/2);
+penpos9(1.5thinstroke,90);
+z9l = z8l;
+penpos10(1.5thinstroke,0);
+z10l = z9l;
+penpos11(1.5thinstroke,-90);
+z11l = z10l;
+z12 = z5;
+penpos13(1.5thinstroke,45);
+z13 = (x2,y12);
+penpos14(1.5thinstroke,45);
+z14 = 2[z13,z12];
+
+penstroke z0e..z1e..z2e..z3e..z4e;
+penstroke z4e..z5e..z6e..{left}z7e..z8e..z9e..z10e..z11e;
+penstroke z13e--z14e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinstroke;
+penpos0(thinstroke,0);
+z0 = (w/2,0.60h);
+penpos1(thinstroke,90);
+z1l = z0l;
+penpos2(thinstroke,180);
+z2l = z1l;
+penpos3(thinstroke,-90);
+z3l = z2l;
+penpos4(thinstroke,0);
+z4 = (x0 + 0.1w,y0);
+penpos5(thinstroke,-90);
+z5 = (x1,y1 - 0.2w);
+penpos6(thinstroke,180);
+z6 = (x0 - 0.2w,y2);
+penpos7(1.25thinstroke,90);
+z7 = (x1,y1 + 0.15w);
+penpos8(1.5thinstroke,0);
+z8 = (x4r + 0.1w,y0);
+penpos9(1.75thinstroke,-90);
+z9 = (x5,y5-0.15w);
+penpos10(2thinstroke,180);
+z10r = (ss,y6);
+penpos11(thickstroke,90);
+z11r = (x7,h+o);
+penpos12(thickstroke,0);
+z12r = (w-ss,y8);
+penpos13(0.8thickstroke,-90);
+z13 = (2w/3,0-o);
+penpos14(thinstroke,-90);
+z14l = (ss+1.5curlw,0-curlh);
+penpos15(thickstroke,180);
+z15r = (ss,0-curlh/2);
+penpos16(thinstroke,90);
+z16 = (x14,0+o);
+penpos17(thickstroke,60);
+z17 = (2w/3,-d/2);
+penpos18(thickstroke,90);
+z18l = (w-ss,-d);
+penpos19(0.7thickstroke,120);
+z19 = (x18 + 2qtailunit + thickstroke,-2d/3);
+penpos20(thinstroke,120);
+z20 = z19 shifted (thickstroke,curlh/3);
+penpos21(0.5thinstroke,120);
+z21 = z20 shifted (thickstroke,curlh/3);
+penpos22(0.1thinstroke,120);
+z22 = z21 shifted (thickstroke,curlh/3);
+penpos23(thickstroke,90);
+z23l = (x18 + qtailunit+2thickstroke,-d);
+penpos24(0.5thickstroke,-90);
+z24l = (z16r--z17l) intersectionpoint (z14--z13);
+
+penstroke
+z2e..z1e..z0e..z3e..z2e{up}..z4e..z5e..z6e..z7e..z8e..z9e..z10e..z11e..z12e..z13e..z24e..z14e..z15e..{right}z16e..z17e..z18e..z23e..z19e..z20e..z21e..z22e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24);
+endchar;
+
+beginchar("T",5em#/6+2ss#,cap#,0);"The Letter T";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,lserh);
+z1 = z0 shifted (thickstroke,0);
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+z10 = (x0,h-thickstroke);
+z11 = z10 shifted (thickstroke,0);
+fill z0..z2..z3--z4--z8--z7..z6..z1--z11--z10--cycle;
+penpos12(thickstroke,90);
+z12l = z10;
+penpos13(thickstroke,90);
+z13l = z11;
+penpos14(thickstroke,90);
+z14r = (ss+curlw,h);
+penpos15(thickstroke,90);
+z15r = (w-ss-curlw,h);
+penpos16(0.8thickstroke,180);
+z16r = (ss,y14l-hair);
+penpos17(0.5thickstroke,-90);
+z17l = z16l shifted (0,-thinstroke);
+penpos18(0.8thinstroke,-90);
+z18 = ((x12+x14)/2,y17);
+penpos19(0.8thickstroke,180);
+z19l = (w-ss,y15r+hair);
+penpos20(0.5thickstroke,-90);
+z20r = z19r shifted (0,thinstroke);
+penpos21(0.8thinstroke,-90);
+z21 = ((x15+x13)/2,y20);
+
+penstroke z18e..z17e..z16e..z14e--z15e..z19e..z20e..z21e;
+
+capt := 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);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinstroke;
+z0 = (w/2-thickstroke/2,lserh);
+z1 = z0 shifted (thickstroke,0);
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+z10 = (x0,h/2);
+z11 = z10 shifted (thickstroke,0);
+fill z0..z2..z3--z4--z8--z7..z6..z1--z11--z10--cycle;
+penpos12(thickstroke,0);
+z12l = z10;
+penpos13(thickstroke,0);
+z13 = (w-2curlw,h-curlh);
+penpos14(thickstroke,0);
+z14 = (2curlw,h-curlh);
+topcurl(14,15,16);
+penpos17(thickstroke/2,-90);
+z17 = (x13 + curlw,y15);
+penpos18(thinstroke,180);
+z18 = (x17 + curlw/2,y16);
+penpos19(thinstroke,0);
+z19r = z12r;
+
+penstroke z12e---z14e..z15e..z16e;
+penstroke z12e---z13e..z17e..z18e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24);
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,dep#); "The Letter Z";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinstroke;
+penpos0(thickstroke,90);
+z0r = (ss,h-o);
+penpos1(thickstroke,180);
+z1l = (w-ss,h);
+penpos2(0.7thickstroke,90);
+z2 = 0.666[z0,z1] shifted (-thinstroke,-thinstroke);
+penpos3(thickstroke,180);
+z3r = (ss,0-o);
+penpos4(thinstroke,70);
+z4r = (x0l+thinstroke/2,y0l);
+penpos5(0.8thickstroke,90);
+z5r = ((x0+x2)/2,h+o);
+penpos6(thickstroke,-90);
+z6r = (w-ss,-2d/3);
+penpos7(0.7thickstroke,-90);
+z7 = (w/2,0);
+penpos8(0.8thickstroke,-90);
+z8 = 0.5[(x7,0),(x6,0)] shifted (0,-d/3);
+penpos9(1.5thinstroke,230);
+z9l = z3l;
+
+penstroke z4e--z0e;
+penstroke z0e..z5e..z2e..z1e;
+penstroke z1e--z3e;
+penstroke z3e..z9e{right}..z7e..z8e..z6e;
+
+capz := 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);
+endchar;
+
+beginchar("G",em#+2ss#,cap#,dep#); "The Letter G";
+italcorr(ex#*slant);
+
+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);
+z30 = (x3,-dep/2);
+z31 = ((x4+x8)/2,-dep);
+z32 = (x8,-2dep/3);
+z33 = z32 shifted (dotwidth/2,dotwidth/2);
+z34 = z33 shifted (dotwidth/2,-dotwidth/2);
+z35 = z34 shifted (-dotwidth/2,-dotwidth/4);
+z36 = z30 shifted (-thickstroke,0);
+z37 = z31 shifted (0,thinstroke);
+
+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;
+
+fill z11---z3---z30..z31..z32..z33..z34..z35..z37..
+ z36--z4--z12--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;
diff --git a/fonts/drm/mf/drmitdigs.mf b/fonts/drm/mf/drmitdigs.mf
new file mode 100644
index 0000000000..2f31560ab1
--- /dev/null
+++ b/fonts/drm/mf/drmitdigs.mf
@@ -0,0 +1,283 @@
+% +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",digwid#+2ss#,cap#,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#,0); "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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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",digwid#+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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",digwid#+2ss#,cap#,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/fonts/drm/mf/drmitligs.mf b/fonts/drm/mf/drmitligs.mf
new file mode 100644
index 0000000000..29a08ea02e
--- /dev/null
+++ b/fonts/drm/mf/drmitligs.mf
@@ -0,0 +1,235 @@
+% +AMDG This document was begun on 19 August 2007, the Feast of St. John
+% Eudes, 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.
+
+% "j" =: oct"027";
+ligtable "f" : "f" =: oct"033","i" =: oct"034",
+ "l" =: oct"035","t" =: oct"040","e" kern-0.05u#;
+ligtable oct"033" : "i" =: oct"036","l" =: oct"037";
+ligtable "-" : "-" =: oct"025";
+ligtable oct"025" : "-" =: oct"026";
+ligtable "`" : "`" =: oct"020";
+ligtable "'" : "'" =: oct"021";
+ligtable "?" : "`" =: oct"276";
+ligtable "!" : "`" =: oct"275";
+ligtable ">" : ">" =: oct"024";
+ligtable "<" : "<" =: oct"023";
+
+ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" :
+ oct"302" : oct"303" : oct"304" : oct"305" :
+ "A" kern-0.1u#,"B" kern-0.1u#,
+ "C" kern-0.1u#,"D" kern-0.1u#,"E" kern-0.1u#,
+ "F" kern-0.1u#, "G" kern-0.2u#,"H" kern-0.1u#,
+ "I" kern-0.1u#,"J" kern-0.1u#,"K" kern-0.1u#,
+ "L" kern-0.1u#,"M" kern-0.1u#,"N" kern-0.1u#,
+ "O" kern-0.2u#,"P" kern-0.1u#,"Q" kern-0.1u#,
+ "R" kern-0.1u#,"S" kern-0.05u#,"T" kern-0.2u#,
+ "U" kern-0.2u#,"V" kern-0.2u#,"W" kern-0.2u#,
+ "X" kern-0.1u#,"Y" kern-0.2u#,"Z" kern-0.05u#,
+ "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#,
+ "g" kern-0.1u#,"h" kern-0.2u#,"i" kern-0.05u#,
+ "j" kern-0.05u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#,
+ "p" kern-0.15u#,"q" kern-0.1u#,"r" kern-0.2u#,
+ "s" kern-0.1u#,"t" kern-0.2u#,"u" kern-0.2u#,
+ "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.2u#,
+ "y" kern-0.2u#;
+ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#,
+ "c" kern 0.05u#,"d" kern 0.1u#,"e" kern 0.1u#,
+ "f" kern-0.05u#,"g" kern 0.1u#,"o" kern 0.1u#,
+ "q" kern 0.1u#,"s" kern 0.1u#,"c" kern 0.1u#,
+ "u" kern 0.1u#;
+ligtable "C" : oct"202" : oct"203" : oct"307" :
+ "Z" kern 0.01u#,"f" kern-0.05u#,
+ "y" kern -0.1u#;
+ligtable "D" : oct"204" : oct"320" : oct"336" :
+ "G" kern 0.05u#,"V" kern-0.05u#,
+ "W" kern-0.05u#,"X" kern-0.05u#,"Y" kern-0.05u#,
+ "b" kern-0.05u#,"f" kern-0.05u#,"h" kern-0.05u#,
+ "k" kern-0.05u#,"l" kern-0.05u#,"x" kern-0.05u#;
+ligtable "E" : oct"205" : oct"206" : oct"306" :
+ oct"310" : oct"311" : oct"312" : oct"313" :
+ oct"327" : "f" kern-0.05u#;
+ligtable "F" : "A" kern-0.1u#,"a" kern-0.1u#,
+ "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#,
+ "f" kern-0.1u#,"g" kern-0.05u#,"m" kern-0.2u#,
+ "n" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.1u#,
+ "r" kern-0.2u#,"s" kern-0.1u#,"t" kern-0.1u#,
+ "u" kern-0.2u#,"x" kern-0.1u#,"y" kern-0.1u#;
+ligtable "G" : oct"207" : "A" kern-0.1u#,"J" kern-0.05u#,
+ "b" kern-0.1u#,"f" kern-0.1u#,"h" kern-0.05u#,
+ "k" kern-0.1u#,"l" kern-0.05u#,"p" kern-0.05u#,
+ "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#,
+ "t" kern-0.05u#,"u" kern-0.1u#,"x" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "H" : "f" kern-0.2u#,"m" kern-0.05u#,"e" kern-0.05u#,
+ "o" kern-0.05u#,"p" kern-0.1u#,"r" kern-0.05u#,
+ "s" kern-0.05u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "x" kern-0.05u#,"y" kern-0.05u#;
+ligtable "K" : "a" kern-0.05u#,"c" kern-0.05u#,
+ "d" kern-0.05u#,"e" kern-0.05u#,"f" kern-0.1u#,
+ "g" kern-0.05u#,"m" kern-0.06u#,"p" kern-0.05u#,
+ "r" kern-0.05u#,"s" kern-0.05u#,"t" kern-0.05u#,
+ "u" kern-0.05u#,"y" kern-0.2u#;
+ligtable "M" : "m" kern-0.05u#,"r" kern-0.05u#;
+ligtable "P" : "A" kern-0.1u#,"g" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "R" : "V" kern-0.05u#,"W" kern-0.05u#,
+ "b" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.05u#,
+ "h" kern-0.1u#,"k" kern-0.1u#,"m" kern-0.1u#,
+ "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.1u#;
+ligtable "S" : oct"221" : oct"222" : oct"223" :
+ "a" kern 0.05u#,"b" kern 0.05u#,
+ "c" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#,
+ "g" kern 0.05u#,"i" kern 0.05u#,"j" kern 0.05u#,
+ "k" kern 0.05u#,"l" kern 0.05u#,"n" kern 0.05u#,
+ "o" kern 0.05u#,"p" kern 0.05u#,"q" kern 0.05u#,
+ "s" kern 0.05u#,"t" kern 0.05u#,"v" kern 0.05u#,
+ "w" kern 0.05u#,"x" kern 0.05u#,"z" kern 0.05u#;
+ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#,
+ "a" kern-0.2u#,
+ "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#,
+ "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#,
+ "t" kern-0.05u#,"u" kern-0.2u#,"v" kern-0.2u#,
+ "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#,
+ "z" kern-0.2u#;
+ligtable "U" : oct"331" : oct"332" : oct"333" :
+ oct"334" : oct"226" : oct"227" :
+ "A" kern-0.05u#,"f" kern-0.05u#;
+ligtable "V" : "A" kern-0.2u#,"O" kern-0.05u#,
+ "a" kern-0.05u#,"c" kern-0.05u#,"d" kern-0.05u#,
+ "e" kern-0.05u#,"f" kern-0.05u#,"g" kern-0.05u#,
+ "p" kern-0.05u#,"q" kern-0.05u#,"x" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "W" : "A" kern-0.2u#,"O" kern-0.05u#,
+ "a" kern-0.05u#,"c" kern-0.05u#,"d" kern-0.05u#,
+ "e" kern-0.05u#,"f" kern-0.05u#,"g" kern-0.05u#,
+ "p" kern-0.05u#,"q" kern-0.05u#,"x" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "X" : "O" kern-0.1u#,"a" kern-0.05u#,
+ "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#,
+ "f" kern-0.05u#,"g" kern-0.05u#,"m" kern-0.05u#,
+ "n" kern-0.05u#,"p" kern-0.05u#,"q" kern-0.05u#,
+ "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#,
+ "y" kern-0.2u#;
+ligtable "Y" : oct"335" : oct"230" :
+ "A" kern-0.1u#,"O" kern-0.05u#,"a" kern-0.2u#,
+ "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#,
+ "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#,
+ "t" kern-0.1u#,"u" kern-0.2u#,"v" kern-0.2u#,
+ "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#,
+ "z" kern-0.2u#;
+ligtable "Z" : oct"231" : oct"232" : oct"233" :
+ "A" kern-0.1u#,"a" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"m" kern-0.1u#,
+ "o" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.05u#,
+ "s" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#,
+ "x" kern-0.1u#;
+ligtable "o" : "o" kern0.05u#,"e" kern0.05u#,"c" kern0.05u#,
+ "d" kern0.05u#,"e" kern0.05u#,"q" kern0.05u#,
+ "k" kern-0.2u#,"f" kern-0.05u#,"h" kern-0.2u#,
+ "r" kern-0.1u#;
+ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" :
+ oct"342" : oct"343" : oct"344" : oct"345" :
+ "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#,
+ "g" kern-0.1u#, "h" kern-0.2u#,"i" kern-0.1u#,
+ "j" kern-0.05u#, "k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#,
+ "t" kern-0.2u#,"u" kern-0.2u#,"v" kern-0.1u#,
+ "w" kern-0.1u#,"x" kern-0.2u#,"y" kern-0.2u#;
+ligtable "b" : oct"376" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"o" kern0.05u#,"l" kern-0.2u#,
+ "e" kern0.05u#,"c" kern0.05u#,"d" kern0.05u#,
+ "q" kern0.05u#,"k" kern-0.2u#;
+ligtable "c" : oct"347" : oct"242" : oct"243" :
+ "h" kern-0.2u#,"b" kern-0.2u#,"k" kern-0.2u#,
+ "l" kern-0.2u#;
+ligtable "d" : oct"244" : oct"236" :
+ "b" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.1u#,
+ "k" kern-0.1u#,"l" kern-0.05u#,"m" kern-0.1u#,
+ "n" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#,
+ "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.1u#;
+ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" :
+ oct"351" : oct"352" : oct"353" : "b" kern-0.2u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.1u#;
+ligtable "g" : oct"247" : "b" kern-0.2u#,"k" kern-0.2u#,
+ "h" kern-0.2u#,"l" kern-0.2u#;
+ligtable "h" : oct"136" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "p" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#,
+ "u" kern-0.1u#,"x" kern-0.1u#,"y" kern-0.1u#;
+ligtable "i" : "f" kern-0.1u#;
+ligtable "k" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#;
+ligtable "m" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.1u#;
+ligtable "n" : oct"253" : oct"254" : oct"255" :
+ oct"361" : "f" kern-0.1u#,"h" kern-0.2u#,
+ "k" kern-0.2u#,"p" kern-0.05u#,"u" kern-0.05u#,
+ "y" kern-0.05u#,"m" kern-0.1u#,"h" kern-0.2u#,
+ "l" kern-0.2u#;
+ligtable "p" : "b" kern-0.2u#,"f" kern-0.05u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"x" kern-0.05u#,
+ "l" kern-0.2u#;
+ligtable "q" : "a" kern-0.2u#,"b" kern-0.4u#,
+ "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#,
+ "h" kern-0.4u#,"k" kern-0.4u#,"l" kern-0.4u#,
+ "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.1u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#,"t" kern-0.2u#,
+ "u" kern-0.2u#,"v" kern-0.2u#,"w" kern-0.2u#,
+ "x" kern-0.2u#,"i" kern-0.1u#,"z" kern-0.2u#;
+ligtable "r" : "b" kern-0.2u#,"h" kern-0.2u#,
+ "k" kern-0.2u#,"l" kern-0.2u#;
+ligtable "s" : "k" kern-0.2u#,"h" kern-0.2u#,
+ "b" kern-0.2u#,"l" kern-0.2u#;
+ligtable "t" : "b" kern-0.1u#,"h" kern-0.1u#,
+ "k" kern-0.1u#;
+ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" :
+ oct"266" : oct"267" : "b" kern-0.2u#,"c" kern-0.1u#,"d" kern-0.1u#,
+ "f" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.1u#,"j" kern-0.05u#,
+ "k" kern-0.2u#,"l" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#,"q" kern-0.1u#,
+ "r" kern-0.2u#,"t" kern-0.15u#,"u" kern-0.2u#,"v" kern-0.05u#,
+ "x" kern-0.1u#,"y" kern-0.2u#;
+ligtable "v" : "a" kern 0.1u#,"b" kern-0.2u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"h" kern-0.2u#,"k" kern-0.2u#,
+ "l" kern-0.2u#, "o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#,
+ "e" kern 0.1u#;
+ligtable "w" : "a" kern 0.1u#,"b" kern-0.2u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"h" kern-0.2u#,"k" kern-0.2u#,
+ "l" kern-0.2u#, "o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#,
+ "e" kern 0.1u#;
+ligtable "x" : "f" kern-0.1u#,"h" kern-0.2u#,"b" kern-0.2u#,
+ "k" kern-0.2u#,"l" kern-0.2u#,"t" kern-0.1u#;
+ligtable "y" : oct"375" : oct"270" : "a" kern 0.05u#,
+ "g" kern 0.05u#,"b" kern-0.2u#,"h" kern-0.2u#,
+ "k" kern-0.2u#,"l" kern-0.2u#,
+ "n" kern 0.05u#,"m" kern 0.05u#,"o" kern 0.05u#,
+ "q" kern 0.05u#,"r" kern 0.05u#,"s" kern 0.05u#,
+ "v" kern 0.05u#,"w" kern 0.05u#,"z" kern 0.05u#;
+ligtable "z" : oct"271" : oct"272" : oct"273" :
+ "a" kern-0.05u#,"b" kern-0.2u#,
+ "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#;
+ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#,
+ "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#,
+ "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#,
+ "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#,
+ "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#,
+ "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#,
+ "z" kern-0.15u#;
diff --git a/fonts/drm/mf/drmitlow.mf b/fonts/drm/mf/drmitlow.mf
new file mode 100644
index 0000000000..d60493a954
--- /dev/null
+++ b/fonts/drm/mf/drmitlow.mf
@@ -0,0 +1,1095 @@
+% +AMDG This document was begun on 26 May 11EX, the
+% commemoration of St. Felix I, PM, 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.
+
+def lftupbulb(suffix i,j,k,m) =
+ z.j.l = z.i.l;
+ z.k.l = z.i.l;
+ z.m.l = z.i.l;
+ penpos.j(bulbsh,90);
+ penpos.k(bulbsh,0);
+ penpos.m(bulbsh,-90);
+enddef;
+
+def topcurl(suffix i,j,k) =
+ top z.j = z.i shifted (-curlw,curlh);
+ z.k = z.j shifted (-curlw/2,-curlh);
+ penpos.j(thickl/2,90);
+ penpos.k(thinl,180);
+enddef;
+
+def botcurl(suffix i,j,k) =
+ bot z.j = z.i shifted (curlw,-curlh);
+ z.k = z.j shifted (curlw/2,curlh);
+ penpos.j(thickl/2,90);
+ penpos.k(thinl,180);
+enddef;
+
+def backbotcurl(suffix i,j,k) =
+ bot z.j = z.i shifted (-curlw/2,1.5curlh);
+ z.k = z.j shifted (curlw/2,curlh/2);
+ penpos.j(thickl/2,180);
+ penpos.k(thinl,90);
+enddef;
+
+def frontbotcurl(suffix i,j,k) =
+ bot z.j = z.i shifted (curlw/2,curlh/2);
+ z.k = z.j shifted (-curlw/2,curlh/2);
+ penpos.j(thickl/2,0);
+ penpos.k(thinl,90);
+enddef;
+
+beginchar("i",0.6exw#+2ss#,ex#,0); "The Letter i";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+z0 = (w/2,curlh);
+z1 = (w/2,h-curlh);
+penpos0(thickl,0);
+penpos1(thickl,0);
+topcurl(1,2,3);
+botcurl(0,4,5);
+penstroke z5e..z4e..z0e--z1e..z2e..z3e;
+dotlessi := currentpicture;
+% dot
+z17 = (w/2,h+2userh+dotwid);
+z18 = z17 shifted (0,dotwid);
+z19 = z17 shifted (0,-dotwid);
+z20 = z17 shifted (dotwid,0);
+z21 = z17 shifted (-dotwid,0);
+fill z18..z20..z19..z21..cycle;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("l",0.6exw#+2ss#,asch#,0); "The Letter l";
+italcorr(asch#*slant);
+
+pickup pencircle yscaled thinl;
+z0 = (w/2,curlh);
+z1 = (w/2,h-curlh);
+penpos0(thickl,0);
+penpos1(thickl,0);
+topcurl(1,2,3);
+botcurl(0,4,5);
+penstroke z5e..z4e..z0e--z1e..z2e..z3e;
+
+lowl := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("a",1.3exw#+2ss#,ex#,0); "The Letter a";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(curvl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+top z0 = (w/2-curlw+thickl/2,h+o);
+bot z1 = (w/2-curlw+thickl/2,0-o);
+lft z2r = (ss,h/2);
+rt z3r = (w-ss-hair-curlw,h/2);
+rt z4r = (w-ss-hair-curlw,curlh);
+rt z8r = (w-ss-hair-curlw,h);
+botcurl(4,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z8e--z3e{down}..z4e..z5e..z6e;
+
+lowa := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("q",1.3exw#+2ss#,ex#,dep#); "The Letter q";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2-curlw+2ss,h+o);
+bot z1 = (w/2-curlw+2ss,0-o);
+lft z2r = (ss,h/2);
+rt z3r = (w-2ss-curlw,h/2);
+rt z4r = (w-2ss-curlw,curlh);
+rt z8r = (w-2ss-curlw,h);
+z9 = (x4,-d+curlh);
+botcurl(9,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z8e--z3e{down}..z4e..z9e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("p",1.3exw#+2ss#,ex#,dep#); "The Letter p";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2+curlw-2ss,h+o);
+bot z1 = (w/2+curlw-2ss,0-o);
+lft z2r = (2ss+curlw,h/2);
+rt z3r = (w-ss,h/2);
+lft z4r = (x2l,curlh);
+lft z8r = (x2l,h-curlh);
+z9 = (x4,-d);
+topcurl(8,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z9e--z4e---z8e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("u",1.4exw#+2ss#,ex#,0); "The Letter u";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+penpos1(thickl,0);
+penpos2(thinl,90);
+penpos3(thickl,180);
+penpos4(thickl,180);
+penpos5(thickl,0);
+penpos6(thickl,0);
+penpos9(thickl,0);
+lft z0l = (ss+hair+curlw,h-curlh);
+lft z1l = (ss+hair+curlw,2curlh);
+z2l = (w/2,0-o);
+rt z3l = (w-curlw-2ss,curlh);
+rt z4l = (w-curlw-2ss,h);
+z5 = z4; z6 = z3;
+botcurl(3,7,8);
+topcurl(0,10,11);
+penstroke z11e..z10e..z0e{down}..{down}z1e..{right}z2e{right}..z3e{up}..{up}z4e;
+penstroke z6e..z7e..z8e;
+
+lowu := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("d",1.3exw#+2ss#,asch#,0); "The Letter d";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2-curlw+2ss,ex+o);
+bot z1 = (w/2-curlw+2ss,0-o);
+lft z2r = (ss,ex/2);
+rt z3r = (w-2ss-curlw,ex/2);
+rt z4r = (w-2ss-curlw,curlh);
+rt z8r = (w-2ss-curlw,h);
+z9 = (x4,curlh);
+botcurl(9,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z8e--z3e{down}..z4e..z9e..z5e..z6e;
+
+lowd := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("b",1.3exw#+2ss#,asch#,0); "The Letter b";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2+curlw-2ss,ex+o);
+bot z1 = (w/2+curlw-2ss,0-o);
+lft z2r = (2ss+curlw,ex/2);
+rt z3r = (w-ss,ex/2);
+lft z4r = (x2l,curlh);
+lft z8r = (x2l,h-curlh);
+z9 = (x4,0);
+topcurl(8,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z9e--z4e---z8e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("h",1.2exw#+2ss#,asch#,0); "The Letter h";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+penpos10(thickl,180);
+penpos11(thickl,180);
+top z0 = (w/2+curlw-2ss,ex+o);
+bot z1 = (w/2+curlw+hair,0-o);
+lft z2r = (2ss+curlw,ex/2);
+rt z3r = (w-ss,ex/2);
+lft z4r = (x2l,curlh);
+lft z8r = (x2l,h-curlh);
+z9 = (x4,0);
+z10 = z9;
+z11 = z4;
+topcurl(8,5,6);
+backbotcurl(1,12,13);
+penstroke z10e..z11e..z2e..z0e..z3e..z1e..z12e..z13e;
+penstroke z9e--z4e---z8e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("o",1exw#+2ss#,ex#,0); "The Letter o";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(curvl,180);
+penpos3(curvl,0);
+top z0r = (w/2,h+o);
+bot z1r = (w/2,0-o);
+lft z2r = (ss,h/2);
+rt z3r = (w-ss,h/2);
+
+penstroke z0e..z3e..z1e..z2e..cycle;
+
+lowo := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("j",0.6exw#+2ss#,ex#,dep#); "The Letter j";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+z0 = (w/2,-d+curlh);
+z1 = (w/2,h-curlh);
+bot z4 = z0 shifted (-curlw,-curlh);
+z5 = z4 shifted (-curlw,curlh);
+penpos0(thickl,0);
+penpos1(thickl,0);
+penpos4(thinl,-90);
+penpos5(bulbsh,-180);
+topcurl(1,2,3);
+lftupbulb(5,6,7,8);
+penstroke z8e..z7e..z6e..z5e..z4e..z0e---z1e..z2e..z3e;
+dotlessj := currentpicture;
+% dot
+z17 = (w/2,h+2userh+dotwid);
+z18 = z17 shifted (0,dotwid);
+z19 = z17 shifted (0,-dotwid);
+z20 = z17 shifted (dotwid,0);
+z21 = z17 shifted (-dotwid,0);
+fill z18..z20..z19..z21..cycle;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("k",1.3exw#+2ss#,asch#,0); "The Letter k";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(1.5thinl,20);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thinl,-90);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+penpos11(thinl,225);
+rt z0r = (w-ss-thinl,ex+o-curlh);
+bot z1 = (w-ss-curlw,0-o);
+lft z2r = (2ss+curlw,ex/2);
+rt z3r = (2w/3,0.4ex);
+lft z4r = (x2l,curlh);
+lft z8r = (x2l,h-curlh);
+z9 = (x4,0);
+z10 = z2;
+z12 = (w,y2) rotatedaround (z2,45);
+z11 = (z3--z10) intersectionpoint (z2--z12);
+topcurl(8,5,6);
+frontbotcurl(1,13,14);
+penstroke z9e--z4e---z8e..z5e..z6e;
+penstroke z2e{dir 45}..z0e..z3e..z11e;
+penstroke z11e{dir -0}..z1e{right}..z1e..z13e..z14e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,12);
+endchar;
+
+beginchar("g",exw#+2ss#,ex#,dep#); "The Letter g";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos5(thinl,-90);
+penpos6(1thinl,180);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2,h+o);
+bot z1 = (w/2,0-o);
+lft z2r = (ss,h/2);
+rt z3r = (w-ss,h/2);
+rt z4r = (w-ss,curlh);
+rt z8r = (w-ss,h);
+z9 = (x4,-d/2);
+bot z5 = (w/2,-d);
+lft z6r = (ss,-d/2);
+lftupbulb(6,10,11,12);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke
+z8e--z3e{down}--z4e--z9e..{left}z5e{left}..z6e..z10e..z11e..z12e;
+
+lowg := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("c",exw#+2ss#,ex#,0); "The Letter c";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+rt z0r = (w-ss,3h/4);
+z1r = (w/2,h+o);
+lft z2r = (ss,h/2);
+z3r = (w/2,0-o);
+rt z4r = (w-ss,h/4);
+penpos0(thinl,0);
+penpos1(thinl,90);
+penpos2(curvl,180);
+penpos3(thinl,270);
+penpos4(thinl,0);
+
+penstroke z0e..z1e..z2e..z3e..z4e;
+
+lowc := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("e",exw#+2ss#,ex#,0); "The Letter e";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(curvl,0);
+penpos1(thinl,90);
+penpos2(curvl,180);
+penpos3(thinl,270);
+penpos4(thickl,0);
+penpos5(thinl,-90);
+penpos6(thinl,-90);
+rt z0r = (w-ss,3h/4);
+z1r = (w/2,h+o);
+lft z2r = (ss,h/2);
+z3r = (w/2,0-o);
+rt z4r = (w-ss,h/4);
+z5 = (x1,h/2);
+z6 = z2;
+
+penstroke z6e{right}..z5e{right}..z0e..z1e{left}..z2e..z3e..z4e;
+
+lowe := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("f",exw#+2ss#,asch#,dep#); "The Letter f";
+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;
+penstroke z7e--z8e;
+
+picture lowf;
+lowf := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("m",1.3em#+2ss#,ex#,0); "The Letter m";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+z0 = (ss+2curlw,h-curlh);
+penpos1(thickl,0);
+z1 = (ss+2curlw,0);
+penpos2(thinl,-90);
+z2l = (x0 + 0.2em,h+o);
+penpos3(thickl,-180);
+z3 = (x2 + 0.2em,y0);
+penpos4(thickl,-180);
+z4 = (x3,0);
+penpos5(thinl,90);
+z5r = (x3 + 0.2em,h+o);
+penpos6(thickl,0);
+z6 = (x5 + 0.2em,y3);
+penpos7(thickl,0);
+z7 = (x6,curlh);
+
+topcurl(0,11,12);
+botcurl(7,8,9);
+penstroke z12e..z11e..z0e---z1e;
+penstroke z1e---z0e..z2e..z3e---z4e;
+penstroke z4e---z3e..z5e..z6e---z7e..z8e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("n",0.7em#+2ss#,ex#,0); "The Letter n";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+z0 = (ss+hair+curlw,h-curlh);
+penpos1(thickl,0);
+z1 = (ss+hair+curlw,0);
+penpos3(thickl,0);
+z3 = (w-ss-hair-curlw,y0);
+penpos4(thickl,0);
+z4 = (w-ss-hair-curlw,curlh);
+penpos2(thinl,90);
+z2r = ((x0+x3)/2,h+o);
+penpos5(thickl,180);
+z5 = z1;
+penpos6(thickl,180);
+z6 = z0;
+
+topcurl(0,11,12);
+botcurl(4,8,9);
+penstroke z12e..z11e..z0e---z1e;
+penstroke z5e---z6e..z2e..z3e---z4e..z8e..z9e;
+
+lown := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("r",1.3exw#+2ss#,ex#,0); "The Letter r";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+z0 = (ss+2curlw,0);
+penpos1(thickl,0);
+z1 = (ss+2curlw,h-curlh);
+topcurl(1,2,3);
+penpos4(1.5thinl,180);
+z4l = (w-ss,y1-hair);
+penpos5(thinl,-90);
+z5l = (((x1+x4)/2),h+o);
+penpos6(1.5thinl,90);
+z6r = z4r;
+penpos7(1.5thinl,0);
+z7r = z6r;
+penpos8(1.5thinl,-60);
+z8r = z7r;
+
+penstroke z3e..z2e..z1e---z0e;
+penstroke z1e..{right}z5e{right}..z4e..z6e..z7e..z8e;
+
+lowr := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("s",exw#+2ss#,ex#,0); "The Letter s";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(1.5thinl,0);
+z0r = (w-ss,3h/4);
+penpos1(thinl,90);
+z1r = (w/2,h+o);
+penpos2(curvl,180);
+z2r = (ss,3h/4);
+penpos3(curvl,-180);
+z3l = (w-ss,h/4);
+penpos4(thinl,90);
+z4l = (w/2,0-o);
+penpos5(1.5thinl,0);
+z5l = (ss,h/4);
+penpos6(thinl,-90);
+z6 = (w/2,h/2);
+penpos7(thinl,-90);
+z7l = z0l;
+penpos8(thinl,-180);
+z8l = z7l;
+penpos9(thinl,90);
+z9l = z8l;
+penpos10(thinl,90);
+z10r = z5r;
+penpos11(thinl,180);
+z11r = z10r;
+penpos12(thinl,-90);
+z12r = z11r;
+
+penstroke z9e..z8e..z7e..
+z0e{up}..{left}z1e{left}..{down}z2e{down}..z6e..{down}z3e{down}..{left}z4e{left}..{up}z5e..z12e..z11e..z10e;
+
+lows := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("t",exw#/phi+2ss#,theight#,0); "The Letter t";
+italcorr(ex#*slant);
+
+z0 = (ss+hair,ex);
+z1 = z0 shifted (0,-thinl);
+z2 = (w-ss/2-hair,ex);
+z3 = z2 shifted (0,-thinl);
+z4 = (w/2+thickl/2,h+o);
+z5 = (w/2,0-o);
+z6 = z5 shifted (-thickl/2,2lserh);
+z7 = z6 shifted (thickl,0);
+z8 = (x7,y2);
+z9 = (x7,y3);
+z10 = (x6,y1);
+z11 = (w-ss,y7);
+z12 = z11 shifted (-thinl/2,0);
+z13 = 0.5[z7,z12] shifted (0,-y7/2);
+z14 = (x7,y5);
+z15 = 0.5[z2,z3] shifted (hair,0);
+z16 = 0.5[z0,z1] shifted (-hair,0);
+z17 = (x10,y0);
+z18 = 0.5[z0,z17];
+z19 = z4 shifted (-hair/4,0);
+
+pickup pencircle scaled 2;
+fill
+z4--z8--z2..z15..z3--z9--z7{down}..{right}z13{right}..{up}z12..z11{down}..{left}z14{left}..{up}z6--z10--z1..z16..z0--z18{right}..{dir
+80}z19--z4--cycle;
+
+lowt := 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("v",exw#+2ss#,ex#,0); "The Letter v";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,180);
+z0r = (ss,h-curlh/2);
+penpos1(1.5thinl,90);
+z1r = (x0+curlw/3,h+o);
+penpos2(thinl,45);
+z2 = (x1+curlw/3,h-curlh/2);
+penpos3(thinl,180);
+z3r = (x2+curlw/2,h+o);
+penpos4(thickl,0);
+z4 = (x2,h/3);
+penpos5(thinl,90);
+z5l = (w/2,0-o);
+penpos6(thickl,180);
+z6l = (w-ss,h/3);
+penpos7(thinl,-90);
+z7l = (w-x2,h+o);
+penpos8(thinl,0);
+z8 = z3;
+penpos9(thinl,0);
+z9r = z7r;
+penpos10(thinl,120);
+z10r = z9r;
+penpos11(thinl,180);
+z11r = z10r;
+
+penstroke z0e..z1e..z2e..{up}z3e;
+penstroke z8e{down}..z4e..{right}z5e{right}..z6e..z7e;
+penstroke z7e..z9e..z10e..z11e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("w",1em#+2ss#,ex#,0); "The Letter w";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,180);
+z0r = (ss,h-curlh/2);
+penpos1(1.5thinl,90);
+z1r = (x0+curlw/3,h+o);
+penpos2(thinl,45);
+z2 = (x1+curlw/3,h-curlh/2);
+penpos3(thinl,180);
+z3r = (x2+curlw/2,h+o);
+penpos4(thickl,0);
+z4 = (x2,h/3);
+penpos5(thinl,90);
+z5l = (w/4,0-o);
+penpos6(thickl,180);
+z6 = (w/2,h/3);
+penpos7(thickl,180);
+z7r = (w/2,h+o);
+penpos8(thinl,0);
+z8 = z3;
+penpos9(thinl,90);
+z9l = (x6 + ((x5-x4)),0-o);
+penpos10(thinl,180);
+z10l = (w-x8,h+o);
+penpos11(thickl,0);
+z11 = z6;
+penpos12(thickl,180);
+z12l = (w-ss,h/3);
+penpos13(thinl,0);
+z13 = z7;
+
+penstroke z0e..z1e..z2e..{up}z3e;
+penstroke z8e{down}..z4e..{right}z5e{right}..z6e..{up}z7e;
+penstroke z11e{down}..{right}z9e{right}..z12e..tension 1.2..z10e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("x",1.2exw#+2ss#,ex#,0); "The Letter x";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(slantl,0);
+z0 = (ss+2curlw,h-curlh);
+penpos1(slantl,0);
+z1 = (w-ss-2curlw,curlh);
+topcurl(0,2,3);
+botcurl(1,4,5);
+penpos6(1.5thinl,0);
+z6r = (w-ss-curlw/2,h);
+penpos7(1.5thinl,0);
+z7l = (ss+curlw/2,0);
+
+penstroke z3e..z2e..z0e---z1e..z4e..z5e;
+penstroke z6e--z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("y",1.2exw#+2ss#,ex#,dep#); "The Letter y";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+z0r = (w-ss,h);
+penpos1(thickl,-30);
+z1 = (3w/4,curlh/2);
+penpos2(thinl,-90);
+z2r = (2curlw,-d);
+penpos3(1.5thinl,-180);
+z3r = (ss,-d+curlh);
+penpos4(1.5thinl,90);
+z4l = z3l;
+penpos5(1.5thinl,0);
+z5l = z4l;
+penpos6(1.5thinl,-90);
+z6l = z5l;
+penpos7(1.5thinl,0);
+z7 = (ss+2curlw,h-curlh);
+penpos8(1.5thinl,45);
+z8 = (x1,0);
+topcurl(7,9,10);
+
+penstroke z0e..z1e..{left}z2e..z3e..z4e..z5e..z6e;
+penstroke z10e..z9e..z7e..z8e;
+
+lowy := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar("z",1exw#+2ss#,ex#,dep#); "The Letter z";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,90);
+z0r = (ss,h-o);
+penpos1(2thinl,180);
+z1l = (w-ss,h);
+penpos2(thickl/2,90);
+z2 = 0.666[z0,z1] shifted (-thinl,-thinl);
+penpos3(2thinl,180);
+z3r = (ss,0-o);
+penpos4(thinl,70);
+z4r = (x0l+thinl/2,y0l);
+penpos5(3thickl/4,90);
+z5r = ((x0+x2)/2,h+o);
+penpos6(thickl,-90);
+z6r = (w-ss,-2d/3);
+penpos7(thickl/2,-90);
+z7 = (w/2,0);
+penpos8(3thickl/4,-90);
+z8 = 0.5[(x7,0),(x6,0)] shifted (0,-d/3);
+penpos9(thinl,230);
+z9l = z3l;
+
+penstroke z4e--z0e;
+penstroke z0e..z5e..z2e..z1e;
+penstroke z1e--z3e;
+penstroke z3e..z9e{right}..z7e..z8e..z6e;
+
+lowz := currentpicture;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
+
+beginchar(oct"031",0.6exw#+2ss#,ex#,0); "dotless i";
+italcorr(ex#*slant);
+
+currentpicture := dotlessi;
+
+endchar;
+
+beginchar(oct"032",0.6exw#+2ss#,ex#,dep#); "dotless j";
+italcorr(ex#*slant);
+
+currentpicture := dotlessj;
+
+endchar;
+
+beginchar(oct"360",exw#+2ss#,asch#,0); "The Letter eth";
+italcorr(ex#*slant);
+
+z0 = (ss,h);
+z1 = z0 shifted (0,-thinl);
+z2 = 0.5[z0,z1] shifted (-o,0);
+z3 = (w/2,ex+o/2);
+z4 = z3 shifted (0,-thinl);
+z5 = (w/2,-o/2);
+z6 = z5 shifted (0,thinl);
+z7 = (ss,ex/2);
+z8 = z7 shifted (thickl,0);
+z9 = (w-ss,ex/2);
+z10 = z9 shifted (-thickl,0);
+
+fill
+z7{up}..{right}z3{right}..{down}z9{down}..{left}z5{left}..{up}cycle;
+unfill
+z8{up}..{right}z4{right}..{down}z10{down}..{left}z6{left}..{up}cycle;
+fill z9{up}..{left}z0..z2..z1{right}..{down}z10--cycle;
+
+pickup pencircle scaled thinl;
+top rt z11 = (3w/4,h);
+z13 = (0,h/2);
+bot lft z14 = (z11--z13) intersectionpoint
+ (z10{up}..{left}z1);
+z12 = 2.5[z11,z14];
+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"370",1exw#+2ss#,ex#,0); "The slashed o";
+italcorr(ex#*slant);
+
+currentpicture := lowo;
+
+pickup pencircle scaled thinl;
+bot lft z0 = (ss,0-o);
+top rt z1 = (w-ss,h+o);
+draw z0--z1;
+
+penlabels(0,1,2,3,4);
+endchar;
+
+beginchar(oct"033",1.6exw#+2ss#,asch#,0); "The ligature ff";
+italcorr(ex#*slant);
+
+currentpicture := lowf + lowf shifted (0.5ex,0);
+
+endchar;
+
+beginchar(oct"034",1.1exw#+2ss#,asch#,0); "The ligature fi";
+italcorr(ex#*slant);
+
+currentpicture := lowf;
+pickup pencircle yscaled thinl;
+z0 = (w/2,curlh) shifted (0.45ex,0);
+z1 = (w/2,ex) shifted (0.45ex,0);
+penpos0(thickl,0);
+penpos1(thickl,0);
+botcurl(0,4,5);
+penstroke z5e..z4e..z0e--z1e;
+
+picture filig; filig := 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"036",1.85exw#+2ss#,asch#,0); "The ligature ffi";
+italcorr(ex#*slant);
+
+currentpicture := lowf + filig shifted (0.5ex,0);
+
+endchar;
+
+beginchar(oct"035",1.2exw#+2ss#,asch#,0); "The ligature fl";
+italcorr(ex#*slant);
+
+currentpicture := lowf;
+pickup pencircle yscaled thinl;
+z0 = (w/2,curlh) shifted (0.39ex,0);
+z1 = (w/2,h-curlh) shifted (0.39ex,0);
+penpos0(thickl,0);
+penpos1(thickl,0);
+botcurl(0,4,5);
+penstroke z5e..z4e..z0e--z1e;
+
+picture fllig; fllig := 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"037",1.85exw#+2ss#,asch#,0); "The ligature ffl";
+italcorr(ex#*slant);
+
+currentpicture := lowf + fllig shifted (0.5ex,0);
+
+endchar;
+
+beginchar(oct"040",((exw#/phi)*2)+ss#+2o#,asch#,0); "The ligature ft";
+italcorr(ex#*slant);
+
+currentpicture := lowf + lowt shifted (0.68ex,0);
+pickup pencircle scaled thinl;
+penpos0(1.6thinl,45);
+lft z0r = (ss,ex);
+penpos1(1.6thinl,45);
+z1r = (w-thickl,ex);
+penstroke z0e--z1e;
+
+penlabels(0,1);
+endchar;
+
+beginchar(oct"377",1exw#+2ss#,asch#,dep#); "The Letter Eszett";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thickl,0);
+z0r = (w-ss,3h/4);
+penpos1(thinl,90);
+z1r = (w/2,h+o);
+penpos2(thickl,180);
+z2r = (ss,3h/4);
+penpos3(thickl,180);
+z3r = (ss,-d+curlh);
+penpos4(1.5thinl,90);
+z4l = (x3r-curlw,-d-o);
+penpos5(1.5thinl,0);
+z5 = (x4-curlw,y4+curlh);
+penpos6(thinl,-90);
+z6l = ((x2l+x1)/2,3h/5);
+penpos7(thickl,180);
+z7l = (w-ss,h/4);
+penpos8(thinl,90);
+z8l = (x6+thinl,0-o);
+penpos9(thinl,0);
+z9r = z8r shifted (-thinl,thinl);
+penpos10(thinl,-90);
+z10r = z9r shifted (thinl,thinl);
+
+penstroke z5e..z4e..z3e---z2e..z1e..z0e..{left}z6e;
+penstroke z6e{right}..z7e..{left}z8e..z9e..z10e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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",1.4exw#+2ss#,ex#,0); "the ligature oe";
+italcorr(ex#*slant);
+
+hw = w/2;
+z30 = (hw+hw/2-ss,h+o);
+z31 = (w-ss,h/2);
+z33 = z30 shifted (0,-thinl);
+z34 = (w/2-thickl/2,h/2);
+z35 = z34 shifted (thickl,0);
+z36 = z30 shifted (0,-h-o);
+z37 = z36 shifted (0,thinl);
+z38 = z31 shifted (0,-h/4);
+z39 = z38 shifted (0,hair/2);
+z40 = z39 shifted (-hair/2,0);
+z41 = z31 shifted (-thickl,thinl);
+z42 = z35 shifted (0,thinl);
+% o part
+z0 = (ss,h/2);
+z1 = (hw/2+ss,h+o);
+z2 = z0 shifted (thickl,0);
+z3 = z1 shifted (0,-thinl);
+z4 = (hw/2+ss,-o/2);
+z5 = z4 shifted (0,thinl);
+
+fill z1..z35..z4..z0..cycle;
+unfill z3..z34..z5..z2..cycle;
+
+fill
+z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--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"346",1.4exw#+2ss#,ex#,0); "the ligature ae (aesc)";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(curvl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+top z0 = (hw/2+thickl/2,h+o);
+bot z1 = (hw/2+thickl/2,0-o);
+lft z2r = (ss,h/2);
+rt z3r = (hw+thickl/2,h/2);
+rt z4r = (hw+thickl/2,curlh);
+rt z8r = (hw+thickl/2,h);
+penpos9(thickl,0);
+z9 = (x8,0);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z8e--z9e;
+% e part
+pickup pencircle yscaled thinl;
+penpos10(thickl,0);
+penpos11(thinl,90);
+penpos12(thickl,180);
+penpos13(thinl,270);
+penpos14(thickl,0);
+penpos15(thinl,-90);
+penpos16(thinl,-90);
+rt z10r = (w-ss,3h/4);
+z11r = (hw+hw/2,h+o);
+z12l = z3r;
+z13r = (hw+hw/2,0-o);
+rt z14r = (w-ss,h/4);
+z15 = (x11,h/2);
+z16 = z12;
+
+penstroke z16e{right}..z15e{right}..z10e..z11e{left}..
+ z12e..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"255",exw#+2ss#,ex#,dep#); "The Letter ng";
+italcorr(ex#*slant);
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = z1 shifted (o+2lserwl,0);
+z3 = z2 shifted (thickl,0);
+z20 = (ss+userwl,h-userhl);
+z21 = z20 shifted (thickl,0);
+z22 = z21 shifted (0,userhl);
+z23 = z21 shifted (o+2userwl,0);
+z24 = z23 shifted (thickl,-thinl);
+z29 = z20 shifted (0,userhl);
+z30 = z24 shifted (0,userhl+thinl);
+z31 = 0.5[z30,z29] shifted (0,o/2);
+z32 = z31 shifted (0,-0.8thinl);
+z33 = z28 shifted (0,-userhl);
+z40 = z2;
+z41 = z3;
+z49 = (x40-6o,-dep);
+z50 = z49 shifted (0,thinl);
+z51 = (x1,-dep/2);
+z56 = 0.5[z2,(x2,-dep)];
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3{down}..z49..{up}z51..z52..z53..{left}z54{down}..z50..z56..{up}z2--z23..z32..z21--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"376",1.3exw#+2ss#,asch#,dep#); "The Letter thorn";
+italcorr(ex#*slant);
+
+pickup pencircle yscaled thinl;
+penpos0(thinl,90);
+penpos1(thinl,-90);
+penpos2(thickl,180);
+penpos3(thickl,0);
+penpos4(thickl,0);
+penpos7(thickl,0);
+penpos8(thickl,0);
+penpos9(thickl,0);
+top z0 = (w/2+curlw-2ss,ex+o);
+bot z1 = (w/2+curlw-2ss,0-o);
+lft z2r = (2ss+curlw,ex/2);
+rt z3r = (w-ss,ex/2);
+lft z4r = (x2l,curlh);
+lft z8r = (x2l,h-curlh);
+z9 = (x4,-d);
+topcurl(8,5,6);
+penstroke z1e..z2e..z0e..z3e..cycle;
+penstroke z9e--z4e---z8e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+endchar;
diff --git a/fonts/drm/mf/drmitoldstydigs.mf b/fonts/drm/mf/drmitoldstydigs.mf
new file mode 100644
index 0000000000..05fbf1643e
--- /dev/null
+++ b/fonts/drm/mf/drmitoldstydigs.mf
@@ -0,0 +1,297 @@
+% +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-dep);
+penpos1(thinl,-90);
+z1l = (w/2,h+o-dep);
+penpos2(thickl,180);
+z2l = (w-ss,3h/4-dep);
+penpos3(thinl,90);
+z3 = (w/2,h/2-dep);
+penpos4(thickl,0);
+z4r = (w-ss,h/4-dep);
+penpos5(thinl,-90);
+z5r = (w/2,0-o-dep);
+penpos6(thickl,180);
+z6r = (ss,h/4-dep);
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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#,dep#); "The digit 4";
+italcorr(ex#*slant);
+
+penpos0(thickl,0);
+z0r = (5w/6,h+o-dep);
+penpos1(thickl,0);
+z1r = (5w/6,0-dep);
+penpos2(thickl,0);
+z2r = (0.6w,h+o-dep);
+penpos3(thickl,0);
+z3l = (ss,h/3-dep);
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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#,dep#); "The digit 5";
+italcorr(ex#*slant);
+
+penpos0(thickl,90);
+z0r = (w-ss-thickl/2,h+o-dep);
+penpos1(thickl,90);
+z1r = (ss+thickl/2,h+o-dep);
+penpos2(thickl,90);
+z2 = (ss+thickl/3,h/2-dep);
+penpos3(thickl,0);
+z3r = (w-ss,h/3-dep);
+penpos4(thinl,-90);
+z4r = (w/2,0-o-dep);
+penpos5(thickl,180);
+z5r = (ss,h/5-dep);
+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",digwid#+3ss#,cap#,dep#); "The digit 9";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+z0l = (w/3,0-o-dep);
+penpos1(2thinl,180);
+z1l = (w-2ss-thinl,h/3-dep);
+penpos2(thickl,180);
+z2l = (w-2ss,h-ex/2-dep);
+penpos3(thinl,90);
+z3l = (w/2,h-ex-o-dep);
+penpos4(thickl,0);
+z4l = (ss,h-ex/2-dep);
+penpos5(thinl,-90);
+z5l = (w/2,h+o-dep);
+
+penstroke z5e..z2e..z3e..z4e..cycle;
+penstroke z0e..z1e..z2e;
+
+picture nine; nine := currentpicture;
+currentpicture := nine;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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#,dep#); "The digit 7";
+italcorr(ex#*slant);
+
+penpos0(thickl,90);
+z0r = (ss,h+o-dep);
+penpos1(thickl,90);
+z1r = (w-ss,h+o-dep);
+penpos2(1.5thinl,180);
+z2 = (w/3,h/2-dep);
+penpos3(thickl,180);
+z3r = (w/3,0-dep);
+penpos4(thinl,45);
+z4 = (ss,h/2-dep);
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,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.9digwid#+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/fonts/drm/mf/drmitpunct.mf b/fonts/drm/mf/drmitpunct.mf
new file mode 100644
index 0000000000..7010075be0
--- /dev/null
+++ b/fonts/drm/mf/drmitpunct.mf
@@ -0,0 +1,82 @@
+% +AMDG This document was begun on 8 June 11EX, the feast
+% of Pentecost, and it is humbly dedicated to the Immaculate
+% Heart of Mary, for her prayers, and to the Sacred Heart of
+% Jesus and the Holy Spirit, for their mercy.
+
+beginchar("&",3em#/4,cap#,0); "The italic ampersand, &";
+italcorr(ex#*slant);
+
+penpos0(thickl,0);
+z0l = (ss,3ex/4);
+penpos1(thickl,180);
+z1r = (ss,ex/4);
+penpos2(thinl,-90);
+z2r = (w/3,ex+o);
+penpos3(thinl,90);
+z3 = (x5r,ex/2);
+penpos4(thinl,-90);
+z4r = (x3,0-o);
+penpos5(thinl,180);
+z5 = (1w/2,(y2+y0)/2);
+penpos6(thickl,0);
+z6 = (3w/4,y1);
+penpos7(thickl,0);
+z7r = (x6,h);
+penpos8(1.5thinl,45);
+z8l = (x5l,ex);
+z10 = (w,y8);
+z11 = (z8--z10) intersectionpoint (z6r--z7r);
+penpos9(1.5thinl,45);
+z9 = 2[z8,z11] shifted (0.5thickstroke,0);
+
+penstroke z5e..z2e..z0e..{right}z3e;
+penstroke z3e{left}..z1e..z4e..z6e..tension 1.5..z7e;
+penstroke 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,100);
+endchar;
+
+beginchar("?",digwid#+2ss#,cap#,0); "The italic question mark, ?";
+italcorr(ex#*slant);
+
+penpos0(thinl,-90);
+z0l = (w/2,h);
+penpos1(thickl,0);
+z1l = (ss,3h/4);
+penpos2(thinl,90);
+z2l = (w/2,h/2);
+penpos3(curvl,180);
+z3l = (w-ss,3h/4);
+penpos4(thickl,0);
+z4 = (2w/3,h/3);
+penpos5(1.5thinl,-90);
+z5 = (w/2,h/4);
+penpos6(thickl,180);
+z6 = (w/3,h/3);
+penpos7(1.5thinl,90);
+z7r = z1r;
+penpos8(1.5thinl,180);
+z8r = z7r;
+penpos9(1.5thinl,-90);
+z9r = z8r;
+
+penstroke z9e..z8e..z7e..z1e{up}..z0e..z3e..z2e..z6e..z5e..z4e;
+fill period shifted (w/2-2dotwid+ss,-o);
+
+questionmark := 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"276",digwid#+2ss#,cap#,dep#); "The reverse question mark";
+
+currentpicture := questionmark rotatedaround ((w/2,(h-dep)/2),180);
+
+endchar;
+
+beginchar(oct"275",1.5pwid#,cap#,dep#); "The reverse exclamation point";
+
+currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180)
+ shifted (0.75pwid,0);
+
+endchar;
diff --git a/fonts/drm/mf/drmitsc10.mf b/fonts/drm/mf/drmitsc10.mf
new file mode 100644
index 0000000000..0d83bbcf4b
--- /dev/null
+++ b/fonts/drm/mf/drmitsc10.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+font_normal_space 1u#;
+font_normal_stretch 1u#;
+font_normal_shrink 1u#;
+font_x_height cap#/phi;
+font_quad em#;
+font_extra_space 2u#;
+
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc11.mf b/fonts/drm/mf/drmitsc11.mf
new file mode 100644
index 0000000000..5891b9f1e7
--- /dev/null
+++ b/fonts/drm/mf/drmitsc11.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc12.mf b/fonts/drm/mf/drmitsc12.mf
new file mode 100644
index 0000000000..627a214f95
--- /dev/null
+++ b/fonts/drm/mf/drmitsc12.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc14.mf b/fonts/drm/mf/drmitsc14.mf
new file mode 100644
index 0000000000..82a12ccb41
--- /dev/null
+++ b/fonts/drm/mf/drmitsc14.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc17.mf b/fonts/drm/mf/drmitsc17.mf
new file mode 100644
index 0000000000..acf0ba5681
--- /dev/null
+++ b/fonts/drm/mf/drmitsc17.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc24.mf b/fonts/drm/mf/drmitsc24.mf
new file mode 100644
index 0000000000..ba52acefdb
--- /dev/null
+++ b/fonts/drm/mf/drmitsc24.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc6.mf b/fonts/drm/mf/drmitsc6.mf
new file mode 100644
index 0000000000..e23a66fbe6
--- /dev/null
+++ b/fonts/drm/mf/drmitsc6.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=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#=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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc7.mf b/fonts/drm/mf/drmitsc7.mf
new file mode 100644
index 0000000000..285c0924fb
--- /dev/null
+++ b/fonts/drm/mf/drmitsc7.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc8.mf b/fonts/drm/mf/drmitsc8.mf
new file mode 100644
index 0000000000..5ff13ff7a7
--- /dev/null
+++ b/fonts/drm/mf/drmitsc8.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmitsc9.mf b/fonts/drm/mf/drmitsc9.mf
new file mode 100644
index 0000000000..2d9b22d7ef
--- /dev/null
+++ b/fonts/drm/mf/drmitsc9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant=1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc10.mf b/fonts/drm/mf/drmittc10.mf
new file mode 100644
index 0000000000..454ac07ae2
--- /dev/null
+++ b/fonts/drm/mf/drmittc10.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+font_normal_space 1u#;
+font_normal_stretch 1u#;
+font_normal_shrink 1u#;
+font_x_height cap#/phi;
+font_quad em#;
+font_extra_space 2u#;
+
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc11.mf b/fonts/drm/mf/drmittc11.mf
new file mode 100644
index 0000000000..dba4098cec
--- /dev/null
+++ b/fonts/drm/mf/drmittc11.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc12.mf b/fonts/drm/mf/drmittc12.mf
new file mode 100644
index 0000000000..09123b56f4
--- /dev/null
+++ b/fonts/drm/mf/drmittc12.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc14.mf b/fonts/drm/mf/drmittc14.mf
new file mode 100644
index 0000000000..f9c3e68902
--- /dev/null
+++ b/fonts/drm/mf/drmittc14.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc17.mf b/fonts/drm/mf/drmittc17.mf
new file mode 100644
index 0000000000..c4e31b4ecf
--- /dev/null
+++ b/fonts/drm/mf/drmittc17.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc24.mf b/fonts/drm/mf/drmittc24.mf
new file mode 100644
index 0000000000..3675af54a6
--- /dev/null
+++ b/fonts/drm/mf/drmittc24.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc6.mf b/fonts/drm/mf/drmittc6.mf
new file mode 100644
index 0000000000..7a409effb6
--- /dev/null
+++ b/fonts/drm/mf/drmittc6.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=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#=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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc7.mf b/fonts/drm/mf/drmittc7.mf
new file mode 100644
index 0000000000..f949cea001
--- /dev/null
+++ b/fonts/drm/mf/drmittc7.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc8.mf b/fonts/drm/mf/drmittc8.mf
new file mode 100644
index 0000000000..02dd12e4dc
--- /dev/null
+++ b/fonts/drm/mf/drmittc8.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmittc9.mf b/fonts/drm/mf/drmittc9.mf
new file mode 100644
index 0000000000..c7f8a72603
--- /dev/null
+++ b/fonts/drm/mf/drmittc9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drml10.mf b/fonts/drm/mf/drml10.mf
new file mode 100644
index 0000000000..503987cd63
--- /dev/null
+++ b/fonts/drm/mf/drml10.mf
@@ -0,0 +1,73 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.3pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml11.mf b/fonts/drm/mf/drml11.mf
new file mode 100644
index 0000000000..4009ddf34e
--- /dev/null
+++ b/fonts/drm/mf/drml11.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml12.mf b/fonts/drm/mf/drml12.mf
new file mode 100644
index 0000000000..280daa3f4a
--- /dev/null
+++ b/fonts/drm/mf/drml12.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml14.mf b/fonts/drm/mf/drml14.mf
new file mode 100644
index 0000000000..812a00608e
--- /dev/null
+++ b/fonts/drm/mf/drml14.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+thinstroke#=0.4pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml17.mf b/fonts/drm/mf/drml17.mf
new file mode 100644
index 0000000000..c948827ec3
--- /dev/null
+++ b/fonts/drm/mf/drml17.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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.7pt#;
+slantwid#=1.7pt#;
+thickstroke#=1.5pt#;
+thinstroke#=0.6pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml24.mf b/fonts/drm/mf/drml24.mf
new file mode 100644
index 0000000000..a0f038fda6
--- /dev/null
+++ b/fonts/drm/mf/drml24.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=0.9pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml6.mf b/fonts/drm/mf/drml6.mf
new file mode 100644
index 0000000000..a45ea0692a
--- /dev/null
+++ b/fonts/drm/mf/drml6.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+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.7cap#;
+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.4pt#;
+slantwid#=0.4pt#;
+thickstroke#=0.4pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml7.mf b/fonts/drm/mf/drml7.mf
new file mode 100644
index 0000000000..0fe0e945e9
--- /dev/null
+++ b/fonts/drm/mf/drml7.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.5pt#;
+slantwid#=0.5pt#;
+thickstroke#=0.5pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml8.mf b/fonts/drm/mf/drml8.mf
new file mode 100644
index 0000000000..a8001e530f
--- /dev/null
+++ b/fonts/drm/mf/drml8.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drml9.mf b/fonts/drm/mf/drml9.mf
new file mode 100644
index 0000000000..902b3d7f22
--- /dev/null
+++ b/fonts/drm/mf/drml9.mf
@@ -0,0 +1,73 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmligs.mf b/fonts/drm/mf/drmligs.mf
new file mode 100644
index 0000000000..aa20300e71
--- /dev/null
+++ b/fonts/drm/mf/drmligs.mf
@@ -0,0 +1,242 @@
+% +AMDG This document was begun on 19 August 2007, the Feast of St. John
+% Eudes, 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.
+
+ligtable "f" : "l" =: oct"035", "f" =: oct"033",
+ "i" =: oct"034", "t" =: oct"040", "j" =: oct"027";
+ligtable oct"033" : "i" =: oct"036", "l" =: oct"037";
+ligtable "-" : "-" =: oct"025";
+ligtable oct"025" : "-" =: oct"026";
+ligtable "`" : "`" =: oct"020";
+ligtable "'" : "'" =: oct"021";
+ligtable "?" : "`" =: oct"276";
+ligtable "!" : "`" =: oct"275";
+ligtable ">" : ">" =: oct"024";
+ligtable "<" : "<" =: oct"023";
+
+ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" :
+ oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#,
+ "G" kern-0.1u#,"J" kern-0.1u#,
+ "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#,
+ "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#,
+ "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#,
+ "j" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.05u#,
+ "q" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "v" kern-.2u#,"w" kern-0.2u#,"y" kern-0.2u#,
+ "f" kern-0.1u#;
+ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#,
+ "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#,
+ "c" kern 0.1u#,"u" kern 0.05u#;
+ligtable "C" : oct"202" : oct"203" : oct"307" : "v" kern -0.10u#,
+ "w" kern -0.10u#,"y" kern -0.10u#;
+ligtable "D" : oct"204" : oct"320" : oct"336" : "C" kern 0.1u#,
+ "G" kern 0.2u#,"O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#,
+ "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#,
+ "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#,
+ "V" kern -0.05u#,"W" kern -0.05u#,
+ "a" kern 0.1u#, "d" kern 0.1u#,"e" kern 0.1u#,
+ "g" kern 0.1u#, "o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#, "c" kern 0.1u#;
+ligtable "E" : oct"205" : oct"206" : oct"306" :
+ oct"310" : oct"311" : oct"312" : oct"313" :
+ oct"327" : "a" kern 0.1u#,"b" kern 0.1u#,
+ "c" kern 0.1u#,"d" kern 0.1u#,"f" kern 0.1u#,
+ "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#,
+ "k" kern 0.1u#,"l" kern 0.1u#,"m" kern 0.1u#,
+ "n" kern 0.1u#,"o" kern 0.1u#,"p" kern 0.1u#,
+ "q" kern 0.1u#,"r" kern 0.1u#,"s" kern 0.1u#,
+ "t" kern 0.1u#,"u" kern 0.1u#,"x" kern 0.1u#,
+ "z" kern 0.1u#;
+ligtable "F" : "A" kern -0.2u#,"a" kern -0.2u#,
+ "c" kern -0.2u#,"d" kern -0.2u#,"e" kern -0.2u#,
+ "g" kern -0.2u#,"m" kern -0.2u#,"n" kern -0.2u#,
+ "o" kern -0.2u#,"p" kern -0.2u#,"q" kern -0.2u#,
+ "r" kern -0.2u#,"t" kern -0.2u#,"v" kern -0.2u#,
+ "w" kern -0.2u#,"x" kern -0.2u#,"y" kern -0.2u#,
+ "z" kern -0.2u#;
+ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#,
+ "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#,
+ "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#,
+ "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#,
+ "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#,
+ "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#,
+ "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#,
+ "b" kern -0.1u#,"h" kern -0.1u#,"k" kern -0.1u#,
+ "l" kern -0.1u#,"t" kern -0.1u#;
+ligtable "I" : oct"314" : oct"315" : oct"316" :
+ oct"317" : oct"235" : "t" kern-0.1u#;
+ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#,
+ "O" kern -0.1u#,"Q" kern -0.1u#,"u" kern -0.1u#,
+ "v" kern -0.2u#,"w" kern -0.2u#,"y" kern -0.2u#;
+ligtable "O" : oct"216" : oct"323" : oct"324" :
+ oct"325" : oct"326" : oct"330" : "A" kern -0.05u#,
+ "C" kern 0.1u#,"G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#,"c" kern 0.2u#,
+ "d" kern 0.2u#,"e" kern 0.2u#,
+ "g" kern 0.2u#,"o" kern 0.2u#,"q" kern 0.2u#,
+ "s" kern 0.2u#;
+ligtable "P" : "A" kern -0.1u#,"d" kern -0.05u#,
+ "o" kern -0.05u#;
+ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#,
+ "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#,"c" kern 0.2u#,
+ "d" kern 0.2u#,"e" kern 0.2u#,
+ "g" kern 0.2u#,"o" kern 0.2u#,"q" kern 0.2u#,
+ "s" kern 0.2u#;
+ligtable "S" : oct"221" : oct"222" : oct"223" :
+ "A" kern -0.1u#,"o" kern 0.1u#,
+ "q" kern 0.1u#,"s" kern 0.1u#,"a" kern 0.1u#,
+ "c" kern 0.1u#,"d" kern 0.1u#,"e" kern 0.1u#,
+ "g" kern 0.1u#,"y" kern-0.1u#;
+ligtable "T" : oct"224" : oct"225" : "A" kern -0.2u#,
+ "a" kern -0.1u#,
+ "c" kern -0.1u#,"d" kern -0.1u#,"e" kern -0.1u#,
+ "g" kern -0.1u#,"m" kern -0.1u#,"n" kern -0.1u#,
+ "o" kern -0.1u#,"p" kern -0.1u#,"q" kern -0.1u#,
+ "r" kern -0.1u#,"s" kern -0.1u#,"u" kern -0.1u#,
+ "v" kern -0.1u#,"w" kern -0.1u#,"x" kern -0.1u#,
+ "y" kern -0.2u#,"z" kern -0.1u#,"h" =: oct"136";
+ligtable "U" : oct"331" : oct"332" : oct"333" :
+ oct"334" : oct"226" : oct"227" : "A" kern -0.05u#;
+ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#,
+ "a" kern -0.05u#,"c" kern -0.05u#,"d" kern -0.05u#,
+ "e" kern -0.05u#,"g" kern -0.05u#,"m" kern -0.05u#,
+ "n" kern -0.05u#,"o" kern -0.05u#,"p" kern -0.05u#,
+ "q" kern -0.05u#,"s" kern -0.05u#,"u" kern -0.05u#,
+ "v" kern -0.05u#,"w" kern -0.05u#,"x" kern -0.05u#,
+ "y" kern -0.05u#,"z" kern -0.05u#;
+ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#,
+ "a" kern -0.05u#,"c" kern -0.05u#,"d" kern -0.05u#,
+ "e" kern -0.05u#,"g" kern -0.05u#,"m" kern -0.05u#,
+ "n" kern -0.05u#,"o" kern -0.05u#,"p" kern -0.05u#,
+ "q" kern -0.05u#,"s" kern -0.05u#,"u" kern -0.05u#,
+ "v" kern -0.05u#,"w" kern -0.05u#,"x" kern -0.05u#,
+ "y" kern -0.05u#,"z" kern -0.05u#;
+ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#,
+ "O" kern -0.05u#,"Q" kern -0.05u#,"v" kern -0.05u#,
+ "w" kern -0.05u#,"y" kern -0.05u#;
+ligtable "Y" : oct"335" : oct"230" : "A" kern -0.2u#,
+ "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#,
+ "Q" kern -0.05u#, "a" kern -0.05u#,"c" kern -0.05u#,
+ "d" kern -0.05u#,"e" kern -0.05u#,"g" kern -0.05u#,
+ "m" kern -0.05u#,"n" kern -0.05u#,"o" kern -0.05u#,
+ "p" kern -0.05u#,"q" kern -0.05u#,"s" kern -0.05u#,
+ "u" kern -0.05u#,"v" kern -0.05u#,"w" kern -0.05u#,
+ "x" kern -0.05u#,"y" kern -0.05u#,"z" kern -0.05u#,
+ "r" kern -0.1u#,"t" kern -0.1u#;
+ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" :
+ oct"342" : oct"343" : oct"344" : oct"345" :
+ "c" kern -0.05u#,"d" kern -0.05u#,
+ "e" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#,
+ "t" kern -0.1u#,"u" kern -0.1u#,"v" kern -0.1u#,
+ "w" kern -0.1u#,"y" kern -0.2u#,"p" kern -0.1u#,
+ "l" kern -0.1u#,"n" kern-0.1u#,"m" kern-0.05u#,
+ "k" kern-0.05u#;
+ligtable "b" : oct"376" : "o" kern 0.05u#,"c" kern 0.05u#,
+ "d" kern 0.05u#,"e" kern 0.05u#,"g" kern 0.05u#,"q" kern 0.05u#,
+ "s" kern 0.1u#,"x" kern -0.1u#,"y" kern -0.1u#,
+ "a" kern0.05u#;
+ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" :
+ oct"351" : oct"352" : oct"353" : "c" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.05u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"x" kern -0.1u#,
+ "s" kern 0.1u#,"a" kern 0.05u#,"l" kern-0.05u#,
+ "y" kern-0.1u#,"t" kern -0.05u#,"m" kern-0.05u#,
+ "n" kern-0.05u#,"r" kern-0.05u#,"v" kern-0.1u#;
+ligtable "c" : oct"242" : oct"243" : oct"347" :
+ "e" kern 0.1u#,"d" kern 0.1u#,"e" kern 0.1u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"x" kern -0.1u#,
+ "s" kern 0.1u#,"a" kern 0.1u#;
+ligtable "d" : oct"244" : oct"236" : "v" kern -0.1u#,
+ "y" kern-0.2u#,"i" kern-0.1u#,"u" kern-0.05u#,
+ "t" kern-0.1u#;
+ligtable "p" : "e" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#,
+ "g" kern 0.05u#,"o" kern 0.05u#,"x" kern -0.1u#,
+ "s" kern 0.1u#,"c" kern 0.05u#,"a" kern 0.1u#,
+ "w" kern-0.05u#,"v" kern-0.05u#;
+ligtable "o" : oct"370" : oct"362" : oct"363" : oct"364" :
+ oct"365" : oct"366" : "a" kern 0.1u#, "c" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#,
+ "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#,
+ "v" kern -0.05u#,"m" kern -0.05u#,"n" kern-0.05u#,
+ "w" kern -0.05u#,"l" kern-0.05u#,"i" kern-0.05u#;
+ligtable "s" : oct"261" : oct"262" : oct"263" :
+ "a" kern 0.1u#, "c" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#,
+ "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#,
+ "i" kern 0.05u#;
+ligtable "m" : "e" kern-0.05u#,"o" kern-0.05u#,
+ "c" kern-0.05u#,"q" kern-0.05u#,"p" kern-0.1u#,
+ "b" kern-0.05u#,"y" kern-0.05u#;
+ligtable "g" : oct"247" : "a" kern 0.1u#,"b" kern 0.1u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.1u#,"f" kern 0.1u#,
+ "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#,
+ "j" kern 0.1u#,"k" kern 0.1u#,"l" kern 0.1u#,
+ "m" kern 0.1u#,"n" kern 0.1u#,"o" kern 0.1u#,
+ "p" kern 0.1u#,"q" kern 0.1u#,"r" kern 0.1u#,
+ "s" kern 0.1u#,"t" kern 0.1u#,"u" kern 0.1u#,
+ "v" kern 0.1u#,"w" kern 0.1u#,"x" kern 0.1u#,
+ "y" kern 0.1u#,"z" kern 0.1u#;
+ligtable "h" : oct"136" : "a" kern 0.0u#, "b" kern -0.1u#,
+ "c" kern -0.05u#, "d" kern -0.1u#,"e" kern -0.05u#,
+ "f" kern -0.1u#, "g" kern -0.05u#,"h" kern -0.1u#,
+ "i" kern -0.1u#, "j" kern -0.1u#,"k" kern -0.1u#,
+ "l" kern -0.1u#, "m" kern -0.1u#,"n" kern -0.1u#,
+ "o" kern 0.00u#, "p" kern -0.1u#,"q" kern -0.05u#,
+ "r" kern -0.1u#, "s" kern -0.0u#,"t" kern -0.1u#,
+ "u" kern -0.1u#, "v" kern -0.1u#,"w" kern -0.1u#,
+ "x" kern -0.1u#, "y" kern -0.1u#,"z" kern -0.1u#;
+ligtable "j" : "a" kern 0.1u#,"b" kern 0.1u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"e" kern 0.1u#,"f" kern 0.1u#,
+ "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#,
+ "j" kern 0.1u#,"k" kern 0.1u#,"l" kern 0.1u#,
+ "m" kern 0.1u#,"n" kern 0.1u#,"o" kern 0.1u#,
+ "p" kern 0.1u#,"q" kern 0.1u#,"r" kern 0.1u#,
+ "s" kern 0.1u#,"t" kern 0.1u#,"u" kern 0.1u#,
+ "v" kern 0.1u#,"w" kern 0.1u#,"x" kern 0.1u#,
+ "y" kern 0.1u#,"z" kern 0.1u#;
+ligtable "k" : "c" kern -0.1u#,"d" kern -0.1u#,
+ "e" kern -0.1u#,"o" kern -0.1u#,"q" kern -0.1u#,
+ "k" kern -0.1u#,"l" kern-0.1u#,"m" kern-0.1u#,
+ "t" kern-0.1u#,"u" kern-0.1u#,"v" kern-0.1u#,
+ "w" kern-0.1u#,"y" kern-0.1u#;
+ligtable "l" : oct"250" : oct"251" : oct"252" :
+ "l" kern -0.05u#,"y" kern-0.2u#,
+ "i" kern-0.05u#,"d" kern-0.05u#;
+ligtable "n" : oct"253" : oct"254" : oct"255" :
+ oct"361" : "g" kern 0.05u#, "a" kern 0.1u#,
+ "d" kern -0.05u#,"e" kern 0.0u#,"s" kern 0.1u#,
+ "t" kern-0.1u#,"w" kern-0.1u#,"v" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.2u#;
+ligtable "q" : "u" kern -0.1u#;
+ligtable "r" : oct"257" : "e" kern 0.05u#,"s" kern 0.02u#,
+ "g" kern 0.1u#,"k" kern-0.05u#,"b" kern-0.05u#,
+ "n" kern-0.05u#,"m" kern-0.05u#,"a" kern 0.05u#;
+ligtable "i" : oct"354" : oct"355" : oct"356" : oct"357" :
+ "s" kern 0.05u#,"t" kern -0.1u#,
+ "n" kern-0.1u#,"l" kern-0.05u#,"v" kern-0.05u#;
+ligtable "t" : oct"040" : oct"264" : oct"265" :
+ "h" kern -0.05u#,"e" kern 0.00u#,
+ "o" kern 0.05u#,"s" kern 0.05u#,"a" kern 0.1u#,
+ "y" kern-0.05u#;
+ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" :
+ oct"266" : oct"267" : "n" kern -0.1u#,"t" kern -0.05u#,
+ "p" kern-0.05u#, "h" kern-0.1u#;
+ligtable "v" : "e" kern -0.1u#,"o" kern-0.1u#;
+ligtable "w" : "e" kern -0.1u#,"a" kern-0.05u#,
+ "o" kern-0.1u#,"q" kern-0.1u#,"c" kern-.1u#;
+ligtable "y" : oct"375" : oct"270" : "p" kern -0.1u#,"m" kern -0.05u#,
+ "o" kern-0.05u#,"e" kern-0.1u#;
+ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#,
+ "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#,
+ "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#,
+ "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#,
+ "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#,
+ "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#,
+ "z" kern-0.15u#;
diff --git a/fonts/drm/mf/drmlow.mf b/fonts/drm/mf/drmlow.mf
new file mode 100644
index 0000000000..ecd1ed1da3
--- /dev/null
+++ b/fonts/drm/mf/drmlow.mf
@@ -0,0 +1,1359 @@
+% +AMDG This document was begun on 1X April 11EX, Easter
+% Tuesday, and it is humbly dedicated to Our Risen Lord
+% Jesus Christ, for His mercy.
+
+beginchar("a",exw#+2ss#,ex#,0); "The Letter a";
+
+z0 = (ss,3h/4);
+z1 = (x3/2,h+o);
+z2 = (w-ss-lserwl,3h/4);
+z3 = (x2,lserhl);
+z8 = z7 shifted (0,lserhl);
+z9 = 0.5[z18,z19]; y9 := 0-o;
+z10 = (ss-o,h/4);
+z15 = z2 shifted (-thickl,0);
+z16 = z1 shifted (0,-thinl);
+z17 = z9 shifted (0,thinl);
+z18 = z10 shifted (thickl,0);
+z19 = z3 shifted (-thickl,lserhl);
+z20 = (w/2-thickl,h/2);
+z21 = z20 shifted (thickl/2,-thinl);
+z22 = 0.2[z15,z19];
+z23 = z19 shifted (-thinl,0);
+z24 = z22 shifted (0,-thickl/2);
+z25 = z16 shifted (.5thickl,0);
+
+lrserif(3,4,5,6,7)(1);
+drtbulb(0,11,12,13,14);
+
+fill
+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;
+unfill z18..z21..z24--z19..z17..cycle;
+
+lowa := 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("b",1.2exw#+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+endchar;
+
+beginchar("d",1.2exw#+2ss#,asch#,0); "The Letter d";
+
+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;
+
+lowd := 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("l",0.6exw#+2ss#,asch#,0); "The Letter l";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,h-userhl);
+z3 = z2 shifted (thickl,0);
+z16 = z3 shifted (0,userhl);
+
+ulserif(2,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+lrserif(1,12,13,14,15)(1);
+
+fill
+z0--z2..z4..z5--z6--z7--z16--z1..z12..z13--z14--z10--z9..z8..z0..cycle;
+
+lowl := 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("h",exw#+2ss#+5hair#,asch#,0); "The Letter h";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,h-userhl);
+z3 = z2 shifted (thickl,0);
+z16 = z3 shifted (0,userhl);
+z50 = 0.5[z0,z19];
+z17 = (x50,ex+o);
+z18 = z17 shifted (0,-thinl);
+z44 = z17;
+z45 = z44 shifted (0,-thinl);
+z19 = (w-ss-lserwl,lserhl);
+z20 = z19 shifted (-thickl,0);
+z25 = z20 shifted (0,-lserhl);
+z26 = z1 shifted (0,-lserhl);
+z27 = z19 shifted (0,w/3);
+z28 = z27 shifted (-thickl,0);
+z29 = z1 shifted (0,w/3);
+z30 = z29 shifted (-thickl,0);
+z35 = (x28,ex-thickl-thinl);
+z36 = (x27,ex-thickl-thinl);
+z37 = (x30,ex-thickl);
+z38 = (x29,ex-thickl);
+
+ulserif(2,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+lrserif(19,21,22,23,24)(1);
+llserif(20,40,41,42,43)(1);
+lrserif(1,31,32,33,34)(1);
+
+path hone; path htwo;
+hone =
+z26--z10--z9..z8..z0--z2..z4..z5--z6--z16--z1..z31..z32--z33--cycle;
+htwo =
+z1--z29--z38{up}..{right}z18{right}..{right}z45{right}..{down}z35---z28--z20..z40..z41--z42--z23--z22..z21..z19--z27---z36{up}..{left}z44{left}..{left}z17{left}..{down}z37--z30--z0--cycle;
+fill hone; fill htwo;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar("p",1.2exw#+2ss#,ex#,dep#); "The Letter p";
+
+z0 = (ss+lserwl,-d+lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,h-userhl);
+z3 = z2 shifted (thickl,0);
+z16 = z3 shifted (0,userhl);
+z22 = z1 shifted (0,userhl);
+z23 = z3 shifted (0,-lserhl);
+z50 = 0.5[z2,(w-ss,y2)];
+z24 = (x50,h);
+z25 = z24 shifted (0,-thinl);
+z26 = (x50,0);
+z27 = z26 shifted (0,thinl);
+z29 = 0.5[z25,z27];
+z30 = (w-ss,y29);
+z31 = (x0,y30);
+z32 = z31 shifted (thickl,0);
+z33 = z30 shifted (-curvl,0);
+
+ulserif(2,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+lrserif(1,12,13,14,15)(1);
+
+fill z0..z8..z9--z10--z14--z13..z12..z1--z16--z6--z5..z4..z2--cycle;
+fill
+z31{up}..{right}z24{right}..{down}z30{down}..{left}z26{left}..{up}z31..cycle;
+unfill
+z32{up}..{right}z25{right}..{down}z33{down}..{left}z27{left}..{up}z32..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("q",1.2exw#+2ss#,ex#,dep#); "The Letter q";
+
+z0 = (w-(ss+lserwl),-d+lserhl);
+z1 = z0 shifted (-thickl,0);
+z2 = (w-(ss+userwl),h-userhl);
+z3 = z2 shifted (-thickl,0);
+z16 = z3 shifted (0,userhl);
+z17 = 0.5[z16 shifted (thickl,0),(ss,y16)];
+z18 = z17 shifted (0,-thinl);
+z19 = (x17,0);
+z20 = z19 shifted (0,thinl);
+z21 = 0.5[z18,z20];
+z22 = (ss,h/2);
+z23 = z22 shifted (curvl,0);
+z24 = z16 shifted (0,-h/2);
+z25 = z24 shifted (thickl,0);
+
+lrserif(0,4,5,6,7)(1);
+llserif(1,8,9,10,11)(1);
+urserif(2,12,13,14,15)(1);
+
+fill
+z16--z14--z13..z12..z2--z0..z4..z5--z6--z10--z9..z8..z1--z16--cycle;
+fill
+z22{up}..{right}z17{right}..{down}z25{down}..{left}z19{left}..{up}z22..cycle;
+unfill
+z23{up}..{right}z18{right}..{down}z24{down}..{left}z20{left}..{up}z23..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("t",exw#/phi+2ss#,theight#,0); "The Letter t";
+
+z0 = (ss+hair,ex);
+z1 = z0 shifted (0,-thinl);
+z2 = (w-ss/2-hair,ex);
+z3 = z2 shifted (0,-thinl);
+z4 = (w/2+thickl/2,h+o);
+z5 = (w/2,0-o);
+z6 = z5 shifted (-thickl/2,2lserh);
+z7 = z6 shifted (thickl,0);
+z8 = (x7,y2);
+z9 = (x7,y3);
+z10 = (x6,y1);
+z11 = (w-ss,y7);
+z12 = z11 shifted (-thinl/2,0);
+z13 = 0.5[z7,z12] shifted (0,-y7/2);
+z14 = (x7,y5);
+z15 = 0.5[z2,z3] shifted (hair,0);
+z16 = 0.5[z0,z1] shifted (-hair,0);
+z17 = (x10,y0);
+z18 = 0.5[z0,z17];
+z19 = z4 shifted (-hair/4,0);
+
+pickup pencircle scaled 2;
+fill
+z4--z8--z2..z15..z3--z9--z7{down}..{right}z13{right}..{up}z12..z11{down}..{left}z14{left}..{up}z6--z10--z1..z16..z0--z18{right}..{dir
+80}z19--z4--cycle;
+
+lowt := 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("f",exw#/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);
+z29 = 0.5[z25,z23];
+z30 = (z29..z28..z3) intersectionpoint
+ (z24..z23..z22..z25);
+
+fill
+z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..{up}z22{up}..{dir 0}z30{dir 160}..z28..{down}z3--z15--z19..z21..z17--z13--cycle;
+%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("o",exw#+2ss#,ex#,0); "The Letter o";
+
+z0 = (w/2,h+o);
+z1 = (w/2,-o);
+z2 = (ss,h/2);
+z3 = (w-ss,h/2);
+z4 = z3 shifted (-curvl,0);
+z5 = z2 shifted (curvl,0);
+z6 = z0 shifted (0,-thinl);
+z7 = z1 shifted (0,thinl);
+
+fill z1..z3..z0..z2..cycle;
+unfill z4..z6..z5..z7..cycle;
+
+lowo := 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("u",1.2exw#+2ss#,ex#,0); "The Letter u";
+
+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/3);
+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/3);
+z23 = z22 shifted (thickl,0);
+z24 = 0.5[z23,z14] shifted (-2o,-lserwl);
+z29 = z20 shifted (0,userhl);
+z30 = z24 shifted (0,lserhl);
+
+ulserif(0,4,5,6,7)(1);
+lrserif(2,8,9,10,11)(1);
+ulserif(21,25,26,27,28)(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;
+
+lowu := 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("i",0.6exw#+2ss#,ex#,0); "The Letter i";
+
+z0 = (w/2-thickl/2,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (w/2-thickl/2,h-userhl);
+z3 = z2 shifted (thickl,0);
+z16 = z3 shifted (0,userhl);
+% dot
+z17 = (w/2,h+2userh+dotwid);
+z18 = z17 shifted (0,dotwid);
+z19 = z17 shifted (0,-dotwid);
+z20 = z17 shifted (dotwid,0);
+z21 = z17 shifted (-dotwid,0);
+
+ulserif(2,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+lrserif(1,12,13,14,15)(1);
+
+fill z0..z8..z9--z10--z14--z13..z12..z1--z16--z6--z5..z4..z2--cycle;
+dotlessi := currentpicture;
+fill z18..z20..z19..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("j",0.4exw#+2ss#,ex#,dep#); "The Letter j";
+
+z0 = (w-thickl-ss,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (w-thickl-ss,h-userhl);
+z3 = z2 shifted (thickl,0);
+z8 = z3 shifted (0,userhl);
+z9 = (x0-lserwl,-dep);
+z10 = z9 shifted (0,thinl);
+z11 = (x0-2lserwl,-dep/2);
+% dot
+z17 = (w-thickl+userw/3-ss,h+2userh+dotwid);
+z18 = z17 shifted (0,dotwid);
+z19 = z17 shifted (0,-dotwid);
+z20 = z17 shifted (dotwid,0);
+z21 = z17 shifted (-dotwid,0);
+
+ulserif(2,4,5,6,7)(1);
+ulftbulb(11,12,13,14,15);
+
+fill
+z5--z6--z8--z1{down}..z9..z11..z12..z13..z14..z10..{up}z0--z2..z4..cycle;
+dotlessj := currentpicture;
+fill z18..z20..z19..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"031",exw#/phi+2ss#,ex#,0); "dotless i";
+
+currentpicture := dotlessi;
+
+endchar;
+
+beginchar(oct"032",0.4exw#+2ss#,ex#,dep#); "dotless j";
+
+currentpicture := dotlessj;
+
+endchar;
+
+beginchar("c",exw#+2ss#,ex#,0); "The Letter c";
+
+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);
+
+fill
+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;
+
+lowc := 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("e",exw#+2ss#,ex#,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;
+
+lowe := 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"034",(exw#/phi)*2+2ss#,asch#,0); "The ligature fi";
+
+singwid = (ex/phi)/2;
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,h-1.5userhl);
+z3 = z2 shifted (thickl,0);
+z12 = (x2,ex-thinl);
+z13 = z12 shifted (thickl,0);
+z14 = z12 shifted (0,thinl);
+z15 = z12 shifted (thickl,thinl);
+z16 = z12 shifted (-lserwl,0);
+z17 = z13 shifted (lserwl+2thickl,0);
+z18 = z16 shifted (0,thinl);
+z19 = z17 shifted (0,thinl);
+z20 = z16 shifted (-hair/2,hair/2);
+z21 = z17 shifted (o,o);
+z22 = z17 shifted (-thickl+o,h/3-userhl); x22 := x32;
+z27 = 0.5[z13,z32]; y27 := h+o;
+z28 = z27 shifted (0,-thinl);
+z30 = z1 shifted (2lserwl+hair,0);
+z31 = z30 shifted (thickl,0);
+z32 = (x30,y12);
+z33 = z32 shifted (thickl,0);
+z46 = (x31,ex);
+
+lrserif(1,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+dlftbulb(22,23,24,25,26);
+ulserif(32,34,35,36,37)(1);
+llserif(30,38,39,40,41)(1);
+lrserif(31,42,43,44,45)(1);
+
+y34 := y13;
+y46 := y15;
+y32 := y34;
+
+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
+120}..{left}z28{left}..{down}z3--z15--z46--z31..z42..z43--z44--z40--z39..z38..z30--z32..z34--z13--cycle;
+
+filig := 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("g",exw#+2ss#,ex#,dep#); "The Letter g";
+
+gtailwid = thinl/2;
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (w/2,1.5lserwl);
+z3 = z2 shifted (0,thinl);
+z4 = 0.5[z1,z3];
+z5 = (ss,y4);
+z7 = z5 shifted (curvl,0);
+z6 = (w-ss,y4);
+z8 = z6 shifted (-curvl,0);
+z10 = (w-ss,h+o);
+z9 = (z0{right}..{down}z6) intersectionpoint (z10--z4);
+z11 = z10 shifted (thinl,-1.5thinl);
+z12 = z11 shifted (-gtailwid,0);
+z13 = z10 shifted (0,-gtailwid);
+z14 = z9 shifted (0,-gtailwid);%FFF
+z15 = (ss+lserwl/2,lserhl);
+z16 = z15 shifted (1.3thinl,0);
+z17 = (z5{down}..{right}z2) intersectionpoint (z15--z4);
+z21 = (w/2,thinl);
+z22 = (w/2,-dep);
+z23 = (ss,-dep/2);
+z24 = (w-ss,-dep/2);
+z25 = z21 shifted (0,-thinl);
+z26 = z22 shifted (0,thinl);
+z27 = z23 shifted (curvl,0);
+z28 = z24 shifted (-curvl,0);
+z29 = 0.5[z26,z25];
+z30 = (z23{up}..{right}z21) intersectionpoint (z15--z29);
+z31 = (4w/7,y21);
+z32 = (3w/7,y21);
+z33 = (4w/7,y22);
+z34 = (3w/7,y22);
+z35 = 0.3[z29,z8];
+z36 = (x35,y25);
+z37 = (x35,y26);
+z38 = 0.7[z27,z29];
+z39 = (x38,y25);
+z40 = (x38,y26);
+
+fill
+z21{right}..{right}z31..z24..z33{left}..{left}z22{left}..{left}z34{left}..z23..{right}z32{right}..cycle;
+unfill
+z25{right}..{right}z36..z28..z37{left}..{left}z26{left}..{left}z40..z27..{right}z39..cycle;
+fill z5..z0..z6..z2..cycle;
+unfill z7..z1..z8..z3..cycle;
+fill z9..z10..{down}z11..z12..z13{dir 140}..z14..cycle;
+fill z17{up}..z15..{up}z30..z16..z17..cycle;
+
+lowg := 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("m",1.1em#+2ss#,ex#,0); "The Letter m";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (w/2-thickl/2,lserhl);
+z3 = z2 shifted (thickl,0);
+z4 = (w-ss-lserwl-thickl,lserhl);
+z5 = z4 shifted (thickl,0);
+z30 = (ss+userwl,h-userhl);
+z31 = z30 shifted (thickl,0);
+z32 = z31 shifted (hair+2userwl,0);
+z33 = z32 shifted (thickl/2,0);
+z34 = z33 shifted (hair+2userwl+thickl/2,-thinl);
+z35 = z34 shifted (thickl,0);
+z40 = z31 shifted (0,userhl);
+x35 := x5;
+x32 := x2;
+x34 := x4;
+z45 = 0.5[z32,z33];
+z46 = 0.5[z34,z35] shifted (0,thinl);
+z41 = 0.5[z40,z45];
+z42 = 0.5[z45,z46] shifted (0,userhl);
+z43 = z41 shifted (0,-thinl);
+z44 = z42 shifted (0,-thinl);
+z47 = 0.5[z31,z33] shifted (0,userhl+o);
+z48 = 0.5[z55,(x34,y34+thinl)] shifted (0,userhl+o);
+z49 = z33 shifted (0,-thinl);
+z50 = z31 shifted (0,-thinl);
+looph = y47-y41;
+z51 = z48 shifted (0,-looph);
+z52 = z47 shifted (0,-0.8thinl);
+z53 = z49 shifted (-hair/2,hair);
+z54 = z49 shifted (-thickl/2,hair);
+z55 = z33 shifted (thickl/2,0);
+x54 := x2;
+x55 := x3;
+y31 := y31 + thinl/2;
+
+llserif(0,6,7,8,9)(1);
+lrserif(1,10,11,12,13)(1);
+llserif(2,14,15,16,17)(1);
+lrserif(3,18,19,20,21)(1);
+llserif(4,22,23,24,25)(1);
+lrserif(5,26,27,28,29)(1);
+ulserif(30,36,37,38,39)(1);
+
+fill
+z1..z10..z11--z12--z8--z7..z6..z0--z30..z36..z37--z38--z40--z31{dir
+60}..{right}z47{right}..z55--z32..{right}z48{right}..{down}z35--z5..z26..z27--z28--z24--z23..z22..z4--z34{up}..{left}z51{left}..z55--z3..z18..z19--z20--z16--z15..z14..z2--z54..z41..z50--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);
+endchar;
+
+beginchar("n",1.2exw#+2ss#,ex#,0); "The Letter n";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (w-ss-lserwl-thickstroke,lserhl);
+z3 = z2 shifted (thickl,0);
+z20 = (ss+userwl,h-userhl);
+z21 = z20 shifted (thickl,0);
+z22 = z21 shifted (0,userhl);
+z23 = (x2,y21);
+z24 = z23 shifted (thickl,-thinl);
+z29 = z20 shifted (0,userhl);
+z30 = z24 shifted (0,userhl+thinl);
+z31 = 0.5[z30,z29] shifted (0,o);
+z32 = z31 shifted (0,-0.8thinl);
+z33 = z28 shifted (0,-userhl);
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+llserif(2,12,13,14,15)(1);
+lrserif(3,16,17,18,19)(1);
+ulserif(20,25,26,27,28)(1);
+y21 := y23 := (y21 - thinl);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3..z16..z17--z18--z14--z13..z12..z2--z23..z32..z21--z1..z8..z9--z10--z6--cycle;
+
+lown := 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,52,53,54,55,56);
+endchar;
+
+beginchar("r",exw#+2ss#,ex#,0); "The Letter r";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z10 = (ss+userwl,h-userhl);
+z11 = z10 shifted (thickl,-thinl);
+z16 = 0.5[(x11,y10),z10];
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+ulserif(10,12,13,14,15)(1);
+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 = 0.5[z17,z20];
+z25 = z16 shifted (thickl/2,-thinl);
+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}..z26..{down}z24{dir
+160}..z23..z11--cycle;
+
+lowr := 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,52,53,54,55,56);
+endchar;
+
+beginchar("k",1.2exw#+2ss#,asch#,0); "The Letter k";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,h-userhl);
+z3 = z2 shifted (thickl,0);
+z16 = z3 shifted (0,userhl);
+z17 = (w-ss-lserwl,lserhl);
+z18 = z17 shifted (-slantl,0);
+z27 = (w-ss-hair-userwl,ex-userhl);
+z41 = (x17,y27);
+z28 = z27 shifted (-1.5thinl,0);
+z37 = 0.5[z41,z17]; x37 := x1;
+z38 = z37 shifted (0,slantl-o/2);
+z39 = 0.25[z38,z17];
+z40 = 0.30[z39,z38];
+z42 = z37 shifted (0,thinl);
+z43 = 0.1[z37,z27];
+z44 = 0.3[z43,z27];
+
+ulserif(2,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+lrserif(1,12,13,14,15)(1);
+llserif(18,19,20,21,22)(1);
+lrserif(17,23,24,25,26)(1);
+urserif(27,29,30,31,32)(1);
+ulserif(28,33,34,35,36)(1);
+
+fill
+z3--z16--z6--z5..z4..z2--z0..z8..z9--z10--z14--z13..z12..z1--z37--z43--z18..z19..z20--z21--z25--z24..z23..z17--z44--z27..z29..z30--z31--z35--z34..z33..z28--z42--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);
+endchar;
+
+beginchar("x",1.2exw#+2ss#,ex#,0); "The Letter x";
+
+z0 = (w/2,h/2);
+z1 = (ss+userwl,h-userhl);
+z2 = (w-ss-userwl,h-userhl);
+z3 = (ss+lserwl,lserhl);
+z4 = (w-ss-lserwl,lserhl);
+z5 = z1 shifted (curvl,0);
+z6 = z4 shifted (-curvl,0);
+z7 = z2 shifted (-thinl,0);
+z8 = z3 shifted (thinl,0);
+z41 = ba[z1,z6];
+z41 = bb[z7,z3];
+z42 = bc[z5,z4];
+z42 = bd[z7,z3];
+z43 = be[z8,z2];
+z43 = bf[z6,z1];
+z44 = bg[z8,z2];
+z44 = bh[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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,52,53,54,55,56);
+endchar;
+
+beginchar("s",0.8exw#+2ss#,ex#,0); "The Letter s";
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (w-ss-userhl,h-userhl/2);
+z3 = (w-ss,h/4);
+z4 = (ss,3h/4);
+z5 = (userhl+ss,curvl+userhl/2-o);
+z14 = z0 shifted (0,-thinstroke);
+z15 = z1 shifted (0,thinstroke);
+z16 = z4 shifted (curvl,0);
+z17 = z3 shifted (-curvl,0);
+z18 = z2 shifted (0,-curvl);
+z19 = z11 shifted (0,-curvl);
+z20 = z5 shifted (0,-curvl);
+z21 = z18 shifted (0,-userwl/3);
+z22 = z21 shifted (userhl,0);
+z24 = z2 shifted (0,userhl/2);
+z23 = z24 shifted (userhl,0);
+z25 = (w/2,h/2+1.3thinstroke/2);
+z26 = (w/2,h/2-1.3thinstroke/2);
+z10 = z5 shifted (0,userhl/2);
+z11 = z10 shifted (-userhl,0);
+z12 = z11 shifted (0,-0.5userhl-curvl-userwl/3);
+z13 = z12 shifted (userhl,0);
+
+%sctbackserif(5,10,11,12,13,20)(2);
+
+pickup pencircle scaled 1;
+
+fill
+z2..{left}z0{left}..{down}z4{down}..z26..{down}z17{down}..{left}z15{left}..z5--z10..z11--z12..z13--z20..{right}z1{right}..{up}z3{up}..z25..{up}z16{up}..{right}z14{right}..z18--z21..z22--z23..z24--cycle;
+
+%path outcurves; path incurves; path toprt;
+%outcurves = z2..tension 1.1..z0..tension
+% 1.1..z4..z26..z17..z15..tension 1.1..z5;
+%incurves = z20..tension 1.1..z1..tension
+% 1.1..z3..z25..z16..z14..tension 1.1..z18;
+%toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2;
+
+%fill outcurves & botlftserif & incurves & toprt & cycle;
+
+lows := 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("v",1.2exw#+2ss#,ex#,0); "The Letter v";
+
+z1=(ss+userwl,h-userhl);
+z2=z1 shifted (slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickl,0);
+z5=(w-ss-userwl,h-userhl);
+z6=z5 shifted (-thinl,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinl,0);
+z9=(w/2,-o);
+z30=0.25[z9,z5];
+z10=z30-(thinl,0);
+z31 = 0.1[z9,z1];
+z32 = da[z2,z30];
+z32 = db[z6,z31];
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+pickup cappen;
+
+fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z32--z2..z15..z16--z17--z13--z12--z11..z1--z9--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("z",exw#+2ss#,ex#,0); "The Letter z";
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+lowz := 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("w",1.05em#+ss#,ex#,0); "The Letter w";
+
+dubbots=w/3;
+
+z1=(ss+userwl,h-userhl);
+z2=z1+(slantwid,0);
+z5=(w-ss-userwl,h-userhl);
+z6=z5 shifted (-thinl,0);
+z3 = 0.5[z2,z6] shifted (-thickl/2,0);
+z4 = z3 shifted (thickl,0);
+z7=(dubbots,-o);
+z8=(2dubbots,-o);
+z33=(w/2-o/2,3h/4-2.5o);
+pair lined; lined = z4-z33;
+%z44 = z8 shifted lined;
+z44 = z8 shifted (thickl,0) rotatedaround (z8,60);
+z45 = z8 shifted (-thinl,0);
+z34 = (z4--z44) intersectionpoint (z6..z45);
+lined := z1-z2;
+z46 = z7 shifted lined rotatedaround (z7,-120);
+z47 = z7 shifted (-thinl,0);
+z35 = (z3--z47) intersectionpoint (z2--z46);
+z36=0.94[z8,z3];
+
+pickup cappen;
+
+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);
+
+fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--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("y",1.2exw#+2ss#,ex#,dep#); "The Letter y";
+
+z0 = (ss+userwl,h-userhl);
+z1 = z0 shifted (slantl,0);
+z2 = (w-ss-userwl,h-userhl);
+z3 = z2 shifted (-thinl,0);
+z4 = 0.6[z0,z2] shifted (0,-h+2lserhl);
+z21 = z4 shifted (-slantl,0);
+z23 = z4 shifted (-thinl,0);
+z22 = ca[z1,z4];
+z22 = cb[z3,z23];
+z24 = 1.4[z2,z4] shifted (-1.5thinl,0);
+x25 = x24-lserwl;
+y25 = -dep;
+z26 = z25 shifted (-1.5lserwl,2lserhl);
+z29 = z26 shifted (bulbsh,bulbsh);
+z30 = z26 shifted (2bulbsh,0);
+z31 = z29 shifted (0,-2bulbsh-hair);
+z33 = z31 shifted (0,bulbsh);
+z27 = z25 shifted (0,1.3thinl);
+z28 = z24 shifted (1.5thinl,0);
+
+ulserif(0,5,6,7,8)(1);
+urserif(1,9,10,11,12)(1);
+ulserif(3,13,14,15,16)(1);
+urserif(2,17,18,19,20)(1);
+
+fill
+z22--z1..z9..z10--z11--z7--z6..z5..z0---z21..z24..{left}z27{left}..{up}z33{down}..z30..z29..z26..z31..{right}z25{right}..z28---z4--z2..z17..z18--z19--z15--z14..z13..z3--cycle;
+
+lowy := 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,52,53,54,55,56);
+endchar;
+
+beginchar(oct"370",exw#+2ss#,ex#,0); "The Letter slash o";
+
+pickup pencircle scaled thinl;
+bot lft z0 = (o,0);
+top rt z1 = (w-o,h);
+
+currentpicture := lowo;
+
+draw z0--z1;
+
+penlabels(0,1);
+endchar;
+
+beginchar(oct"033",1.3exw#+2ss#,asch#,0); "The ligature ff";
+
+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 = z12 shifted (thickl,thinl);
+z16 = (ss+o,y12);
+z17 = z13 shifted (lserwl,0);
+z18 = z16 shifted (0,thinl);
+z19 = z17 shifted (0,thinl);
+z20 = 0.5[z18,z16] shifted (-o,0);
+z21 = z17 shifted (o,o);
+z22 = z33 shifted (-3bulbsh,0);
+z27 = 0.5[z3,z32]; 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);
+
+z30 = z1 shifted (2lserwl+hair,0);
+z31 = z30 shifted (thickl,0);
+z33 = (x31,y2);
+z32 = z33 shifted (-thickl,0);
+z42 = (x30,y12);
+z43 = z42 shifted (thickl,0);
+z44 = z42 shifted (0,thinl);
+z45 = z43 shifted (0,thinl);
+z46 = z42 shifted (-lserwl,0);
+z47 = z43 shifted (lserwl,0);
+z48 = z46 shifted (0,thinl);
+z49 = z47 shifted (0,thinl);
+z50 = z46 shifted (-o,o);
+z51 = z47 shifted (o,o);
+z52 = z47 shifted (o,h/3-o);
+z57 = 0.5[z33,z52]; y57 := (h+o);
+z58 = z57 shifted (0,-thinl);
+
+lrserif(31,34,35,36,37)(1);
+llserif(30,38,39,40,41)(1);
+dlftbulb(52,53,54,55,56);
+
+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{down}..{left}z28{left}..{down}z3--z15--
+ z19..z45--z43--z13--cycle;
+flig := currentpicture;
+fill z31..z34..z35--z36--z40--z39..z38..z30--z42--z13--z15--
+ z44--z32{up}..{right}z57{right}..{down}z54..z53..z52..
+ {right}z55{down}..{left}z58{left}..{down}z33--z45--z49..
+ z51..z47--z43--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);
+endchar;
+
+beginchar(oct"035",1.2exw#+2ss#,asch#,0); "The ligature fl";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,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 = z12 shifted (-lserwl,0);
+z17 = z13 shifted (lserwl,0);
+z18 = z16 shifted (0,thinl);
+z19 = z17 shifted (0,thinl);
+z20 = 0.5[z18,z16] shifted (-o,0);
+z21 = z17 shifted (o,o);
+z27 = z3 shifted (userwl,thickl);
+z28 = z27 shifted (0,-thinl);
+% the l part
+z30 = z1 shifted (2lserwl+hair,0);
+z31 = z30 shifted (thickl,0);
+z32 = (x30,h-userhl);
+z33 = z32 shifted (thickl,0);
+z46 = z33 shifted (0,userhl);
+z47 = aca[z32,z30];
+z47 = acb[z19,(w,y19)];
+z48 = acc[z32,z30];
+z48 = acd[z17,(w,y17)];
+z49 = z47 shifted (2o,0);
+z50 = z48 shifted (2o,0);
+z22 = (x47-(2bulbsh-thickl),y3);
+llserif(30,38,39,40,41)(1);
+lrserif(31,42,43,44,45)(1);
+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--z22--z32..{left}z28{left}..{down}z3--z15--
+ z49--z50--z13--cycle;
+
+fill z30--z32--z33--z31..z42..z43--z44--z40--z39..z38..
+ z30..cycle;
+
+fllig := 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,52,53,54,55,56);
+endchar;
+
+beginchar(oct"036",1.85exw#+2ss#,asch#,0); "The ligature ffi";
+
+currentpicture := flig + filig shifted (hair+2lserwl+thickl,0);
+
+endchar;
+
+beginchar(oct"040",((exw#/phi)*2)+ss#+2o#,asch#,0); "The ligature ft";
+
+currentpicture := flig + lowt shifted (1.5lserwl+thickl,0);
+
+endchar;
+
+beginchar(oct"037",1.85exw#+2ss#,asch#,0); "The ligature ffl";
+
+currentpicture := flig + fllig shifted
+ (hair+2lserwl+thickl,0);
+
+endchar;
+
+beginchar(oct"376",1.2exw#+2ss#,asch#,dep#); "The Letter thorn";
+
+z0 = (ss+userwl,h-userhl);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+userwl,lserhl);
+z3 = z2 shifted (thickl,0);
+z12 = z1 shifted (0,userhl);
+z13 = z3 shifted (0,-lserhl);
+x19 = (w-x13); y19 = ex/2;
+z20 = (w-ss,y19);
+z21 = (x2,y19);
+z22 = z21 shifted (thickl,0);
+z23 = z20 shifted (-curvl,0);
+x24 = x2; y24 = -dep+lserhl;
+x25 = x3; y25 = -dep+lserhl;
+z26 = z25 shifted (0,-lserhl);
+z14 = 0.5[z21,z20]; y14 := ex+o;
+z15 = z14 shifted (0,-thinl);
+z16 = (x14,0-o);
+z17 = z16 shifted (0,thinl);
+
+ulserif(0,4,5,6,7)(1);
+llserif(24,8,9,10,11)(1);
+lrserif(25,27,28,29,30)(1);
+
+fill z0..z4..z5--z6--z12--z25..z27..z28--z29--z10--z9..z8..z24--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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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",exw#+2ss#,asch#,dep#); "The ligature fj";
+
+z0 = (ss+lserwl,lserh);
+z1 = z0 shifted (thickl,0);
+z2 = (ss+lserwl,h-1.5userhl);
+z3 = z2 shifted (thickl,0);
+z12 = z2 shifted (0,-h/3+o);
+z13 = z12 shifted (thickl,0);
+z14 = z12 shifted (0,thinl);
+z15 = z13 shifted (0,thinl);
+z16 = z12 shifted (-lserwl,0);
+z17 = z13 shifted (lserwl+2thickl-o,0);
+z18 = z16 shifted (0,thinl);
+z19 = z17 shifted (0,thinl);
+z20 = z16 shifted (-o,o);
+z21 = z17 shifted (o,o);
+z22 = z17 shifted (-2bulbsh,h/3-userhl);
+z27 = z3 shifted (thickl+2o,thickl);
+z28 = z27 shifted (0,-thinl);
+z30 = (w-ss-thickl,lserhl);
+z31 = z30 shifted (thickl,0);
+z32 = (w-ss-thickl,y13);
+z33 = z32 shifted (thickl,0);
+z46 = z33 shifted (0,userhl);
+z49 = (x30-thickl,-dep);
+z50 = z49 shifted (0,thinl);
+z51 = (x30-2.5thickl,-dep/2);
+
+lrserif(1,4,5,6,7)(1);
+llserif(0,8,9,10,11)(1);
+dlftbulb(22,23,24,25,26);
+ulserif(32,34,35,36,37)(1);
+ulftbulb(51,52,53,54,55);
+
+y34 := y13;
+y46 := y15;
+
+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}..{left}z28{left}..{down}z3--z15--z46--z31{down}..z49..z51..z52..z53..{left}z54{down}..z50..{up}z30--z32..z34--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,52,53,54,55,56,57);
+
+endchar;
+
+beginchar(oct"255",exw#+2ss#,ex#,dep#); "The Letter ng";
+
+z0 = (ss+lserwl,lserhl);
+z1 = z0 shifted (thickl,0);
+z2 = z1 shifted (o+2lserwl,0);
+z3 = z2 shifted (thickl,0);
+z20 = (ss+userwl,h-userhl);
+z21 = z20 shifted (thickl,0);
+z22 = z21 shifted (0,userhl);
+z23 = z21 shifted (o+2userwl,0);
+z24 = z23 shifted (thickl,-thinl);
+z29 = z20 shifted (0,userhl);
+z30 = z24 shifted (0,userhl+thinl);
+z31 = 0.5[z30,z29] shifted (0,o/2);
+z32 = z31 shifted (0,-0.8thinl);
+z33 = z28 shifted (0,-userhl);
+z40 = z2;
+z41 = z3;
+z49 = (x40-6o,-dep);
+z50 = z49 shifted (0,thinl);
+z51 = (x1,-dep/2);
+z56 = 0.5[z2,(x2,-dep)];
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3{down}..z49..{up}z51..z52..z53..{left}z54{down}..z50..z56..{up}z2--z23..z32..z21--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"236",1.2exw#+2ss#,asch#,0); "The Letter d-bar";
+
+currentpicture := lowd;
+
+pickup pencircle scaled thinl;
+lft z24 = (w/2,h-2userw);
+rt z25 = (w-ss,h-2userw);
+
+draw z24--z25;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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",1.1exw#+2ss#,asch#,0); "The Letter Eszett";
+
+z0 = (w/2,h+o/2);
+z1 = (w-ss-thickl/2,3h/4);
+z2 = (w-ss,h/4);
+z3 = (ss+lserwl,lserhl);
+z4 = (x3,h-userwl);
+z5 = z3 shifted (thickl,0);
+z6 = z2 shifted (-thickl,0);
+z7 = z1 shifted (-thickl,0);
+z8 = z0 shifted (0,-thinl);
+z9 = z5 shifted (0,-lserhl);
+z14 = z4 shifted (thickl,0);
+z15 = (w/2,h/2+thinl);
+z16 = z15 shifted (0,-thinl);
+z17 = (x14,y15);
+z18 = (x5,y16);
+z19 = (x5+thickl,y5);
+z20 = z19 shifted (bulbsh,bulbsh);
+z21 = z20 shifted (-bulbsh,bulbsh);
+z22 = z21 shifted (-bulbsh,-bulbsh);
+z23 = (x19,0);
+
+llserif(3,10,11,12,13)(1);
+
+pickup pencircle scaled 1;
+
+fill
+z9--z12--z11..z10..z3--z4{up}..{right}z0{right}..{down}z1{down}..{left}z16--z15{right}..{down}z2{down}..{left}z23..z22..z21..z20{down}..{left}z19{right}..{up}z6{up}..{left}z16--z18--z17--z15{right}..{up}z7{up}..{left}z8{left}..{down}z14---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"360",exw#+2ss#,asch#,0); "The Letter eth";
+
+z0 = (ss,h);
+z1 = z0 shifted (0,-thinl);
+z2 = 0.5[z0,z1] shifted (-o,0);
+z3 = (w/2,ex+o/2);
+z4 = z3 shifted (0,-thinl);
+z5 = (w/2,-o/2);
+z6 = z5 shifted (0,thinl);
+z7 = (ss,ex/2);
+z8 = z7 shifted (thickl,0);
+z9 = (w-ss,ex/2);
+z10 = z9 shifted (-thickl,0);
+
+fill
+z7{up}..{right}z3{right}..{down}z9{down}..{left}z5{left}..{up}cycle;
+unfill
+z8{up}..{right}z4{right}..{down}z10{down}..{left}z6{left}..{up}cycle;
+fill z9{up}..{left}z0..z2..z1{right}..{down}z10--cycle;
+
+pickup pencircle scaled thinl;
+top rt z11 = (3w/4,h);
+z13 = (0,h/2);
+bot lft z14 = (z11--z13) intersectionpoint
+ (z10{up}..{left}z1);
+z12 = 2.5[z11,z14];
+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"346",1.4exw#+2ss#,ex#,0); "the ligature ae (aesc)";
+
+hw = w/2;
+z0 = (ss,3h/4);
+z1 = (hw/2+ss/2,h+o);
+z2 = (hw+thickl/2,2h/3);
+z3 = (hw+thickl/2,lserhl);
+z8 = z3 shifted (-thickl/2,0);
+z9 = (hw/2+ss,-o);
+z10 = (ss-o,h/4);
+z15 = z2 shifted (-thickl,0);
+z16 = z1 shifted (0,-thinl);
+z17 = z9 shifted (0,thinl);
+z18 = z10 shifted (thickl,0);
+z19 = z3 shifted (-thickl,lserhl);
+z20 = (hw/2-thickl,3h/8);
+z21 = z20 shifted (thickl/2,-thinl);
+z22 = 0.2[z15,z19];
+z23 = z19 shifted (-thinl,0);
+z24 = z22 shifted (0,-thickl/2);
+z25 = z16 shifted (.5thickl,0);
+% e part
+z30 = (w-hw/2-ss,h+o);
+z31 = (w-ss,h/2);
+z33 = z30 shifted (0,-thinl);
+z34 = (hw-thickl/2,h/2);
+z35 = z34 shifted (thickl,0);
+z36 = z30 shifted (0,-h-o);
+z37 = z36 shifted (0,thinl);
+z38 = z31 shifted (0,-h/4);
+z39 = z38 shifted (0,hair/2);
+z40 = z39 shifted (-hair/2,0);
+z41 = z31 shifted (-thickl,thinl);
+z42 = z35 shifted (0,thinl);
+
+drtbulb(0,11,12,13,14);
+
+fill
+z13..z12..z11..z0{up}..z1..{down}z2--z3--z8..z9..{up}z10..z22--z15{up}..z25{left}..z16..z13..cycle;
+unfill z18{up}..z24--z19..{left}z17..cycle;
+
+fill
+z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--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"367",1.4exw#+2ss#,ex#,0); "the ligature oe";
+
+z30 = (hw+hw/2-ss,h+o);
+z31 = (w-ss,h/2);
+z33 = z30 shifted (0,-thinl);
+z34 = (w/2-thickl/2,h/2);
+z35 = z34 shifted (thickl,0);
+z36 = z30 shifted (0,-h-o);
+z37 = z36 shifted (0,thinl);
+z38 = z31 shifted (0,-h/4);
+z39 = z38 shifted (0,hair/2);
+z40 = z39 shifted (-hair/2,0);
+z41 = z31 shifted (-thickl,thinl);
+z42 = z35 shifted (0,thinl);
+% o part
+z0 = (ss,h/2);
+z1 = (hw/2+ss,h+o);
+z2 = z0 shifted (thickl,0);
+z3 = z1 shifted (0,-thinl);
+z4 = (hw/2+ss,-o/2);
+z5 = z4 shifted (0,thinl);
+
+fill z1..z35..z4..z0..cycle;
+unfill z3..z34..z5..z2..cycle;
+
+fill
+z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--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"136",exw#+ss#+5em#/6,cap#,0);"The ligature Th";
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(5em/6-ss,h);
+z4=z3-(0,thinstroke);
+z5=((5em/6)/2-thickstroke/2,y2);
+z6=((5em/6)/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+y11 := 0; y15 := 0;
+
+fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4--z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+fill hone shifted (x3-userwl-ss,0);
+fill htwo shifted (x3-userwl-ss,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;
diff --git a/fonts/drm/mf/drmlowmac.mf b/fonts/drm/mf/drmlowmac.mf
new file mode 100644
index 0000000000..a9c10385ad
--- /dev/null
+++ b/fonts/drm/mf/drmlowmac.mf
@@ -0,0 +1,140 @@
+% +AMDG This document was begun on 18 May 11EX, the feast
+% of St Bernardine of Siena, 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.
+
+lserhl := 5lserh/6;
+lserwl := 5lserw/6;
+userhl := 5userh/6;
+userwl := 5userw/6;
+lsercl := 5lserc/6;
+usercl := 5userc/6;
+lserstepl := 5lserstep/6;
+userstepl := 5userstep/6;
+curvl := curvwid;
+slantl := slantwid;
+thickl := thickstroke;
+thinl := thinstroke;
+dotwid := 0.7dotwidth;
+
+picture lowz;
+picture lowy;
+picture lows;
+picture lowt;
+picture lowr;
+picture lowg;
+picture lowo;
+picture lowe;
+picture lowa;
+picture lowu;
+picture lowc;
+picture lowd;
+picture lowl;
+picture lown;
+picture dotlessi;
+picture dotlessj;
+picture filig;
+picture flig;
+picture fllig;
+
+%%%% the back serif for the "s" %%%%
+
+def sctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userhl/2);
+z.k=z.j-(userhl,0);
+z.l=z.k+(0,-1.5userwl);
+z.m=z.l+(userhl,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserwl/3,-lsercl/2);
+z.k=z.i+(lserwl,-lsercl);
+z.l=z.k-(0,lserstepl);
+z.m=z.l-(lserwl+thickl/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserwl/3,-lsercl/2);
+z.k=z.i+(lserwl+equalize/2,-lsercl);
+z.l=z.k-(0,lserstepl);
+z.m=z.l-(lserwl+thickl/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserwl/3,lsercl/2);
+z.k=z.i-(lserwl,lsercl);
+z.l=z.k-(0,lserstepl);
+z.m=z.l+(lserwl+thickl/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserwl/3,lsercl/2);
+z.k=z.i-(lserwl+equalize/2,lsercl);
+z.l=z.k-(0,lserstepl);
+z.m=z.l+(lserwl+thickl/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userwl/3,lsercl/2);
+z.k=z.i+(userwl,usercl);
+z.l=z.k+(0,userstepl);
+z.m=z.l-(userwl+thickl/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userwl/3,lsercl/2);
+z.k=z.i+(userwl+equalize/2,usercl);
+z.l=z.k+(0,userstepl);
+z.m=z.l-(userwl+thickl/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userwl/3,lsercl/2);
+z.k=z.i+(-userwl,usercl);
+z.l=z.k+(0,userstepl);
+z.m=z.l+(userwl+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userwl/3,lsercl/2);
+z.k=z.i+(-(userwl+equalize/2),usercl);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userwl+thickstroke/2,0);
+fi
+enddef;
+
+def rbulb(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 drtbulb(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 urtbulb(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 dlftbulb(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;
diff --git a/fonts/drm/mf/drmmatharrows.mf b/fonts/drm/mf/drmmatharrows.mf
new file mode 100644
index 0000000000..66eeef38f1
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmmathcal.mf b/fonts/drm/mf/drmmathcal.mf
new file mode 100644
index 0000000000..af7d8a9ab7
--- /dev/null
+++ b/fonts/drm/mf/drmmathcal.mf
@@ -0,0 +1,712 @@
+% +AMDG This document was begun on 7 July 11EX, the feast
+% of Sts. Cyril and Methodius, EEMM, 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"101",em#+2ss#,cap#,0); "Calligraphic A";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,0);
+z0l = (ss,h/4);
+penpos1(thinstroke,90);
+z1l = (w/5,0-o);
+penpos2(thinstroke,135);
+z2r = (w/3,h+o);
+penpos3(thinstroke,180);
+z3 = (x2,h/2);
+penpos4(thickstroke,180);
+z4r = z2r;
+penpos5(thickstroke,180);
+z5 = (2w/3,h/2);
+penpos6(thinstroke,-90);
+z6r = (w-ss,0-o);
+penpos7(thinstroke,-90);
+z7 = z3;
+penpos8(thinstroke,-90);
+z8 = z5;
+
+penstroke z0e{down}..z1e{right}..{up}z3e..{up}z2e;
+penstroke z4e..z5e..{right}z6e;%..z7e;
+penstroke z7e--z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"102",3em#/4+2ss#,cap#,0); "Calligraphic B";
+italcorr(ex#*slant);
+
+penpos0(curvwid,-30);
+x0l = ss; y0 = h+o;
+penpos1(0.75curvwid,0);
+z1r = (x0r,0-o);
+penpos2(1.5thinstroke,0);
+z2 = (x0,3h/4);
+penpos3(thinstroke,-90);
+z3l = (w/2,h+o);
+penpos4(curvwid,180);
+z4l = (w-ss-3hair,3h/4);
+penpos5(curvwid,0);
+z5r = (w-ss,h/4);
+penpos6(thinstroke,-90);
+z6 = (x2r,h/2);
+penpos7(thinstroke,-90);
+z7r = (x1r+thinstroke,curlh);
+penpos8(thinstroke,90);
+z8 = z6;
+
+penstroke z0e--z1e;
+penstroke z2e{up}..z3e..z4e..{left}z8e;
+penstroke z8e{right}..z5e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"103",5em#/6+ss#,cap#,0); "Calligraphic Letter C";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,h-2.5curlh);
+penpos1(curvwid,0);
+z1r = (w-ss,h-1.5curlh);
+penpos2(thinstroke,90);
+z2r = (w/2,h+o);
+penpos3(curvwid,180);
+z3r = (ss,h/2);
+penpos4(thinstroke,-90);
+z4r = (w/2,0-o);
+penpos5(thinstroke,0);
+z5r = (w-ss,h/4);
+
+penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"104",5em#/6+2ss#,cap#,0); "Calligraphic Letter D";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(curvwid,180);
+z2l = (w-ss,h/2);
+penpos3(thinstroke,90);
+z3l = (w/2,0-o);
+penpos4(thinstroke,90);
+z4l = (x1,0.5curlh);
+penpos5(thinstroke,-90);
+z5l = (w/2,h+o);
+penpos6(thickstroke,0);
+z6l = z1;
+penpos7(thickstroke,0);
+z7l = (x1,0);
+penpos8(thinstroke,0);
+z8l = (ss,curlh);
+
+penstroke z0e..z1e{right}..z5e..z2e..z3e{left}..z4e..z8e;
+penstroke z6e--z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"105",4em#/6+2ss#,cap#,0); "Calligraphic Letter E";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,3h/4);
+penpos1(thinstroke,90);
+z1r = (w/2,h+o);
+penpos2(curvwid,180);
+z2r = (ss,3h/4);
+penpos3(thinstroke,-90);
+z3 = (2w/3,h/2+thickstroke/2);
+penpos4(curvwid,0);
+z4l = (ss,h/4);
+penpos5(thinstroke,90);
+z5l = (w/2,0-o);
+penpos6(curvwid,180);
+z6l = (w-ss,h/4);
+
+penstroke z0e..{left}z1e..z2e..{right}z3e;
+penstroke z3e{left}..z4e..z5e{right}..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("F",5em#/6+2ss#,cap#,0); "Calligraphic Letter F";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(0.8thickstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(0.8thickstroke,-90);
+z2l = (w-ss-curlw,h+o);
+penpos3(thinstroke,180);
+z3l = (w-ss,y2r-curlh/2);
+penpos4(thickstroke,0);
+z4 = (w/3,h-thickstroke/2);
+penpos5(thickstroke,0);
+z5 = (x4,curlh);
+penpos6(thinstroke,-90);
+z6r = (x5-curlw,0-o);
+penpos7(thinstroke,180);
+z7r = (ss,curlh);
+penpos8(1.5thinstroke,45);
+z8 = (x4,h/2+thinstroke/2);
+penpos9(1.5thinstroke,45);
+x9r = x2; y9 = h/2+thinstroke/2;
+
+penstroke z0e..z1e---z2e..z3e;
+penstroke z4e---z5e..z6e..z7e;
+penstroke z8e--z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("G",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter G";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,h-1.5curlh);
+penpos1(curvwid,0);
+z1r = (w-ss,h-1.5curlh);
+penpos2(thinstroke,90);
+z2r = (w/2,h+o);
+penpos3(curvwid,180);
+z3r = (ss,h/2);
+penpos4(thinstroke,-90);
+z4r = (w/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,h/2-thickstroke/2);
+penpos6(1.5thinstroke,-45);
+z6l = z5;
+penpos7(1.5thinstroke,-45);
+z7 = (x2,y6);
+penpos8(thickstroke,0);
+z8 = (x5,0);
+penpos9(thickstroke,0);
+z9 = (x5,-d/2);
+penpos10(thinstroke,-90);
+z10r = (3w/4,-d);
+penpos11(thinstroke,180);
+z11r = (w/2,-d/2);
+penpos12(thinstroke,90);
+z12l = z11l;
+penpos13(thinstroke,0);
+z13l = z12l;
+penpos14(thinstroke,-90);
+z14l = z13l;
+penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e;
+penstroke z6e--z7e;
+penstroke z5e--z8e---z9e..z10e..z11e..z12e..z13e..z14e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("H",em#+2ss#,cap#,0); "Calligraphic Letter H";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,45);
+z0l = (ss+curlw/2,h-2curlh);
+penpos1(thinstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (ss+2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,curlh);
+penpos4(thinstroke,90);
+z4l = (x1,0-o);
+penpos5(thickstroke,-45);
+z5l = (ss+curlw/2,2curlh);
+penpos6(1.5thinl,90);
+z6 = (x2,h/2+thickstroke/2);
+penpos7(1.5thinl,90);
+z7 = (w/2+thickstroke,y6);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e;
+penstroke z6e--z7e;
+penstroke (z0e..z1e..z2e---z3e..z4e..z5e) reflectedabout
+ ((w/2,h),(w/2,0));
+penstroke (z6e--z7e) reflectedabout ((w/2,h),(w/2,0));
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("I",0.75em#+2ss#,cap#,0); "Calligraphic Letter I";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(1.5thinstroke,-90);
+z1l = (w/4,h+o);
+penpos2(1.5thinstroke,-90);
+z2l = (w-ss,h+o);
+penpos3(thickstroke,0);
+z3 = (w/2,h);
+penpos4(thickstroke,0);
+z4 = (x3,0);
+
+penstroke z0e..z1e---z2e;
+penstroke z3e--z4e;
+penstroke (z0e..z1e---z2e) reflectedabout ((w/2,h),(w/2,0))
+ 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);
+endchar;
+
+beginchar("J",0.75em#+2ss#,cap#,dep#); "Calligraphic Letter J";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(1.5thinstroke,-90);
+z1l = (w/4,h+o);
+penpos2(1.5thinstroke,-90);
+z2l = (w-ss,h+o);
+penpos3(thickstroke,0);
+z3 = (w/2,h);
+penpos4(thickstroke,0);
+z4 = (x3,-d/2);
+penpos5(thinstroke,-90);
+z5r = (w/4,-d);
+penpos6(thinstroke,180);
+z6r = (ss,-d/2);
+penpos7(thinstroke,90);
+z7l = z6l;
+penpos8(thinstroke,0);
+z8l = z7l;
+penpos9(thinstroke,-90);
+z9l = z8l;
+
+penstroke z0e..z1e---z2e;
+penstroke 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);
+endchar;
+
+beginchar("K",0.75em#+2ss#,cap#,0); "Calligraphic Letter K";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h+o);
+penpos1(thickstroke,0);
+z1r = (w/4,h/2);
+penpos2(thinstroke,0);
+z2l = (ss,0-o);
+penpos3(thinstroke,0);
+z3r = (w-ss,h-curlh);
+penpos4(thinstroke,90);
+z4 = (w-ss-curlw,h+o);
+penpos5(thinstroke,180);
+z5 = (h/2,5h/6);
+penpos6(thickstroke,180);
+z6 = z1;
+penpos7(1.5thinstroke,90);
+z7 = z6;
+penpos8(1.5thinstroke,45);
+z8 = (w/2,0.4h);
+penpos9(1.5thinstroke,0);
+z9r = (w-ss,0-o);
+
+penstroke z0e..z1e..z2e;
+penstroke z3e..z4e..z5e..z6e;
+penstroke z7e..z8e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("L",5em#/6+2ss#,cap#,0); "Calligraphic Letter L";
+italcorr(ex#*slant);
+
+penpos0(2thinstroke,0);
+z0 = (w/2,h-2curlh);
+penpos1(thinstroke,90);
+z1r = (w/4,h+o);
+penpos2(thickstroke,180);
+z2r = (ss,h-curlh);
+penpos3(thickstroke,180);
+z3l = (w/4,h/4);
+penpos4(thinstroke,135);
+x4r = ss; y4l = 0-o;
+penpos5(thickstroke,90);
+z5l = (3w/4,0-o);
+penpos6(thinstroke,135);
+x6r = w-ss; y6l = curlh;
+penpos7(thickstroke,90);
+z7 = (w/3,curlh);
+
+penstroke z0e..z1e..z2e..z3e..z4e;
+penstroke z4e..z7e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("M",em#+2ss#,cap#,0); "Calligraphic Letter M";
+italcorr(ex#*slant);
+
+penpos0(thinl,0);
+z0l = (ss,h-curlh);
+penpos1(thinl,-90);
+z1l = (curlw,h+o);
+penpos2(thickl,-180);
+z2 = (2curlw,y0);
+penpos3(thickl,-180);
+z3 = (x2,0);
+penpos4(thinl,90);
+z4r = (x2+w/6,h+o);
+penpos5(thickl,0);
+z5 = (x4+w/6,y2);
+penpos6(thickl,0);
+z6 = (x5,0);
+penpos7(thinl,-90);
+z7l = (x5+w/6,h+o);
+penpos8(thickl,-180);
+z8 = (x7+w/6,y5);
+penpos9(thickl,-180);
+z9 = (x8,0);
+
+penstroke z0e..z1e..z2e---z3e;
+penstroke z3e---z2e..z4e..z5e---z6e;
+penstroke z6e---z5e..z7e..z8e---z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("N",0.75em#+2ss#,cap#,0); "Calligraphic Letter N";
+italcorr(ex#*slant);
+
+penpos0(thinl,0);
+z0l = (ss,h-curlh);
+penpos1(thinl,-90);
+z1l = (curlw,h+o);
+penpos2(thickl,-180);
+z2 = (2curlw,y0);
+penpos3(thickl,-180);
+z3 = (x2,0);
+penpos4(thinl,90);
+z4r = (x2+w/4,h+o);
+penpos5(thickl,0);
+z5 = (x4+w/4,y2);
+penpos6(thickl,0);
+z6 = (x5,0);
+
+penstroke z0e..z1e..z2e---z3e;
+penstroke z3e---z2e..z4e..z5e---z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("O",5em#/6+2ss#,cap#,0); "Calligraphic Letter O";
+italcorr(ex#*slant);
+
+penpos0(thinl,-90);
+z0l = (w/2,h-curlh);
+penpos1(curvl,0);
+z1l = (ss,h/2);
+penpos2(thinl,90);
+z2l = (w/2,0-o);
+penpos3(curvl,180);
+z3l = (w-ss,h/2);
+penpos4(1.5thinl,-90);
+z4l = (w/2,h+o);
+penpos5(1.5thinl,-90);
+z5l = (w/4,h+o);
+penpos6(thinl,180);
+z6 = 0.5[z0,z3];
+
+penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("P",5em#/6+2ss#,cap#,0); "Calligraphic Letter P";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thickstroke,-90);
+z1l = (2curlw,h+o);
+penpos2(thickstroke,-90);
+z2l = (w/2,h+o);
+penpos3(1.5thinstroke,180);
+z3l = (w-ss,3h/4);
+penpos4(thinstroke,90);
+z4 = (x1+thickstroke,h/2);
+penpos5(thickstroke,0);
+z5 = z1;
+penpos6(thickstroke,0);
+z6 = z1 shifted (thinstroke,-h/2);
+penpos7(thickstroke,0);
+z7 = (x1,0);
+
+penstroke z0e..z1e---z2e..z3e..{left}z4e;
+penstroke z5e..z6e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Q",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Q";
+italcorr(ex#*slant);
+
+penpos0(thinl,-90);
+z0l = (w/2,h-curlh);
+penpos1(curvl,0);
+z1l = (ss,h/2);
+penpos2(thinl,90);
+z2l = (w/2,0-o);
+penpos3(curvl,180);
+z3l = (w-ss,h/2);
+penpos4(1.5thinl,-90);
+z4l = (w/2,h+o);
+penpos5(1.5thinl,-90);
+z5l = (w/4,h+o);
+penpos6(thinl,180);
+z6 = 0.5[z0,z3];
+penpos7(1.5thinstroke,90);
+z7l = (ss,curlh);
+penpos8(1.5thinstroke,90);
+z8 = ((x7+x2)/2,2curlh);
+penpos9(1.5thinstroke,90);
+z9l = (w-ss,-dep/2);
+penpos10(1.5thinstroke,90);
+z10 = ((x2+x9)/2,-dep/2);
+
+penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e;
+penstroke z7e..z8e..z10e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("R",5em#/6+2ss#,cap#,0); "Calligraphic Letter R";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thickstroke,-90);
+z1l = (2curlw,h+o);
+penpos2(thickstroke,-90);
+z2l = (w/2,h+o);
+penpos3(1.5thinstroke,180);
+z3l = (w-ss,3h/4);
+penpos4(thinstroke,90);
+z4 = (x1+thickstroke,h/2);
+penpos5(thickstroke,0);
+z5 = z1;
+penpos6(thickstroke,0);
+z6 = z1 shifted (thinstroke,-h/2);
+penpos7(thickstroke,0);
+z7 = (x1,0);
+penpos9(thickstroke,0);
+z9r = (w-ss,0);
+penpos8(thickstroke,15);
+z8 = (z3..{left}z4) intersectionpoint (z9--z2);
+
+penstroke z0e..z1e---z2e..z3e..{left}z4e;
+penstroke z5e..z6e..z7e;
+penstroke z8e{down}..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("S",2em#/3+2ss#,cap#,0); "Calligraphic Letter S";
+italcorr(ex#*slant);
+
+penpos0(curvwid,45);
+z0r = (w-ss,3h/4);
+penpos1(thinstroke,90);
+z1r = (w/2,h+o);
+penpos2(curvwid,180);
+z2r = (ss,3h/4);
+penpos3(thinstroke,-90);
+z3 = (w/2,h/2+thinstroke);
+penpos4(curvwid,180);
+z4r = (w-ss,h/4);
+penpos5(thinstroke,90);
+z5l = (w/2,0-o);
+penpos6(curvwid,-30);
+z6l = (ss,h/4);
+
+penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("T",5em#/6+2ss#,cap#,0); "Calligraphic Letter T";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(0.8thickstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(0.8thickstroke,-90);
+z2l = (w-ss-curlw,h+o);
+penpos3(thinstroke,180);
+z3l = (w-ss,y2r-curlh/2);
+penpos4(thickstroke,0);
+z4 = (w/2,h);
+penpos5(thickstroke,0);
+z5 = (w/2-thickstroke,0);
+
+penstroke z0e..z1e---z2e..z3e;
+penstroke z4e{down}..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("U",5em#/6+2ss#,cap#,0); "Calligraphic Letter U";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,2curlh);
+penpos4(thinstroke,-90);
+z4r = (w/2+curlw/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,2curlh);
+penpos6(thickstroke,0);
+z6r = (w-ss,h);
+penpos7(thinstroke,90);
+z7l = (x5r,0-o);
+penpos8(thinstroke,180);
+z8 = z7 shifted (curlw,curlh);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e;
+penstroke z5e{down}..z7e..z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("V",2em#/3+2ss#,cap#,0); "Calligraphic Letter V";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,135);
+z0r = (ss-thickstroke,h-curlh);
+penpos1(thickstroke,45);
+z1r = (ss+curlw,h+o);
+penpos2(thickstroke,45);
+z2l = (w/2,0-o);
+penpos3(1.5thinstroke,-45);
+z3 = (3w/4,3h/4);
+penpos4(thinstroke,-45);
+x4r = w-ss; y4 = h+o;
+
+penstroke z0e{up}..z1e;
+penstroke z1e--z2e;
+penstroke z2e..z3e..z4e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("W",em#+2ss#,cap#,0); "Calligraphic Letter W";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,135);
+z0r = (ss-thickstroke,h-curlh);
+penpos1(thickstroke,45);
+z1r = (ss+curlw,h+o);
+penpos2(thickstroke,45);
+z2l = ((w/2)/2,0-o);
+penpos3(1.5thinstroke,-45);
+z3 = ((3w/4)/2,3h/4);
+penpos4(thinstroke,-45);
+x4r = (w-ss)/2; y4 = h+o;
+penpos5(thickstroke,45);
+z5l = (w/2,0-o);
+penpos6(1.5thinstroke,-45);
+z6 = (3w/4,3h/4);
+penpos7(thinstroke,-45);
+x7r = w-ss; y7 = h+o;
+
+penstroke z0e{up}..z1e;
+penstroke z1e--z2e;
+penstroke z2e..z3e..z4e;
+penstroke z4e..z5e;
+penstroke z5e..z6e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("X",2em#/3+2ss#,cap#,0); "Calligraphic Letter X";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,y0);
+penpos4(thinstroke,0);
+z4r = (w-ss,curlh);
+penpos5(thinstroke,-90);
+z5r = (w-ss-curlw,0-o);
+penpos3(thickstroke,180);
+z3 = (w-2curlw,y4);
+penpos6(1.5thinstroke,0);
+z6r = (w-ss,h+o);
+penpos7(1.5thinstroke,0);
+z7l = (ss,0-o);
+
+penstroke z0e..z1e..z2e---z3e..z5e..z4e;
+penstroke z6e--z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Y";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,2curlh);
+penpos4(thinstroke,-90);
+z4r = (w/2+curlw/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,2curlh);
+penpos6(thickstroke,0);
+z6r = (w-ss,h);
+penpos7(thickstroke,0);
+z7r = (w-ss,-dep/2);
+penpos8(thinstroke,180);
+z8r = (x3r,-dep/2);
+penpos9(thinstroke,-90);
+z9r = (w/2,-dep);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e;
+penstroke z6e---z7e..z9e..z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,0); "Calligraphic Letter Z";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,-90);
+z0l = (ss,h-curlh);
+penpos1(thickstroke,-90);
+z1l = (w/4,h+o);
+penpos2(thickstroke,-90);
+z2l = (2w/3,h-curlh);
+penpos3(1.5thinstroke,0);
+z3r = (w-ss,h+o);
+penpos4(1.5thinstroke,0);
+z4l = (ss,0-o);
+
+penstroke z0e..z1e..z2e..z3e;
+penstroke z3e--z4e;
+penstroke (z0e..z1e..z2e..z3e) shifted (0,-h+curlh);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
diff --git a/fonts/drm/mf/drmmathcursell.mf b/fonts/drm/mf/drmmathcursell.mf
new file mode 100644
index 0000000000..12e91e232a
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmmathfrac.mf b/fonts/drm/mf/drmmathfrac.mf
new file mode 100644
index 0000000000..f39810d08d
--- /dev/null
+++ b/fonts/drm/mf/drmmathfrac.mf
@@ -0,0 +1,85 @@
+% +AMDG This document was begun on 7 July 11EX, the feast
+% of Sts. Cyril and Methodius, EEMM, 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"074",em#,cap#,0); "Fraktur R";
+
+pickup pencircle scaled 1.5thinl;
+penpos0(thinl,90);
+z0 = (w/4,h/2);
+penpos1(thinl,0);
+z1l = (ss,3h/4);
+penpos2(thickl,-90);
+z2l = (x0,h+o);
+penpos3(thickl,180);
+z3 = (w/2,h/2);
+penpos4(thickl,45);
+x4 = x2; y4l = 0-o;
+penpos5(thickl,45);
+x5l = ss; y5r = h/4;
+penpos6(thinl,180);
+z6 = (x3,y1);
+penpos7(1.5thinl,90);
+z7r = (3w/4,h+o);
+penpos8(thickl,0);
+z8r = (w-ss,y6l);
+z9r = z3l; z9l = z3r;
+penpos10(thickl,0);
+z10r = (w-ss,h/2+thickl);
+penpos11(thickl,20);
+z11l = z3;
+penpos12(thickl,0);
+z12l = (x7,h/4);
+penpos13(thickl,0);
+z13l = (x12r,h/12);
+penpos14(thickl,0);
+z14r = (w-ss,0-o);
+
+penstroke z0e..z1e..z2e..z3e..z4e--z5e;
+penstroke z6e..z7e..z8e..z10e--z9e;
+penstroke z11e..{down}z12e..{down}z14e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
+penlabels(13,14,15,16,17,18);
+endchar;
+
+beginchar(oct"075",0.75em#,cap#,0); "Fraktur I";
+
+pickup pencircle scaled 1.5thinl;
+penpos0(thinl,90);
+z0 = (w/4,h/2);
+penpos1(thinl,0);
+z1l = (ss,3h/4);
+penpos2(thickl,-90);
+z2l = (x0,h+o);
+penpos3(thickl,-135);
+z3 = (w/2,11h/12);
+penpos4(thickl,-90);
+z4 = (3w/4,10h/12);
+penpos5(thinl,0);
+z5r = (w-ss,h);
+penpos6(thinl,0);
+z6r = (w-ss,h/2);
+penpos7(thickl,90);
+z7r = (x4,y4r-1.5thinl);
+penpos8(thickl,180);
+z8 = (7w/12,h/2);
+penpos9(thinl,-90);
+z9 = (x7,h/3);
+penpos10(thinl,180);
+z10l = (w-ss,h/6);
+penpos11(thickl,90);
+z11l = (x9,0-o);
+penpos12(thickl,90);
+z12 = (x0,h/4);
+penpos13(thinl,180);
+z13r = (ss,0-o);
+
+penstroke z0e..z1e..z2e..z3e..z4e..z5e;
+penstroke z6e{up}..z7e..z8e..z9e..z10e..z11e..z12e..z13e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
+penlabels(13,14,15,16,17,18);
+endchar;
diff --git a/fonts/drm/mf/drmmathgrklow.mf b/fonts/drm/mf/drmmathgrklow.mf
new file mode 100644
index 0000000000..50bfd0fec5
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmmathgrkup.mf b/fonts/drm/mf/drmmathgrkup.mf
new file mode 100644
index 0000000000..1d47b82327
--- /dev/null
+++ b/fonts/drm/mf/drmmathgrkup.mf
@@ -0,0 +1,231 @@
+% +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;
+currentpicture := currentpicture 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/fonts/drm/mf/drmmathheb.mf b/fonts/drm/mf/drmmathheb.mf
new file mode 100644
index 0000000000..47e4cf3ac1
--- /dev/null
+++ b/fonts/drm/mf/drmmathheb.mf
@@ -0,0 +1,38 @@
+% +AMDG This document was begun on 7 July 11EX, the feast
+% of Sts. Cyril and Methodius, EEMM, 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"100",0.75em#+2ss#,cap#,0); "Aleph";
+
+pickup pencircle scaled 1.5thinl;
+lft z0 = (ss,h-0.75thinl);
+bot rt z1 = (w-ss,0-o);
+draw z0--z1;
+penpos2(thinl,90);
+z2l = (ss,0);
+penpos3(thinl,90);
+z3l = (w/6,0);
+penpos4(thickl,180);
+z4 = (w/3,curlh);
+penpos5(1.5thinl,180);
+z5r = (ss+hair,0.4h);
+z6 = (w/2,h);
+z7 = (z5--z6) intersectionpoint (z0--z1);
+penpos7(thinl,135);
+penpos8(thickl,90);
+z8r = (2w/3,h+o);
+penpos9(thickl,90);
+z9 = (w-ss,2h/3);
+z10 = ((w/2,h/2)--(w,h)) intersectionpoint (z8--z9);
+z11 = (z10--(x10,0)) intersectionpoint (z0--z1);
+
+penstroke z2e---z3e..z4e..z5e..z7e;
+penstroke z8e..z9e;
+pickup pencircle scaled thinl;
+draw z10--z11;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
+penlabels(13,14,15,16,17,18);
+endchar;
diff --git a/fonts/drm/mf/drmmathoms.mf b/fonts/drm/mf/drmmathoms.mf
new file mode 100644
index 0000000000..5ccbebddd7
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmmathomx.mf b/fonts/drm/mf/drmmathomx.mf
new file mode 100644
index 0000000000..8056cd64b3
--- /dev/null
+++ b/fonts/drm/mf/drmmathomx.mf
@@ -0,0 +1,1464 @@
+% +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#,0.4pt#,cap#); "square root";
+
+z0 = (ss,cap/3);
+z1 = (w/8,cap/3+thickl);
+z2 = (w/3,0-o);
+z3 = (w-ss,cap+0.4pt);
+z4 = z0 shifted (0,-thinl/2);
+z5 = z1 shifted (0,-1.5thickl);
+z6 = z2 shifted (0,1.5thickl);
+z7 = z3 shifted (0,-0.4pt);
+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#,0.4pt#,2cap#); "second square root";
+
+z0 = (ss,2cap/3);
+z1 = (w/8,2cap/3+2thickl);
+z2 = (w/3,0-o);
+z3 = (w-ss-thinl,2cap+0.4pt);
+z4 = z0 shifted (0,-thinl);
+z5 = z1 shifted (0,-3thickl);
+z6 = z2 shifted (0,3thickl);
+z7 = z3 shifted (thinl,-0.4pt);
+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);
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
+endchar;
+
+beginchar(oct"162",em#+2ss#,0.4pt#,3cap#); "third square root";
+z0 = (ss,3cap/3);
+z1 = (w/8,3cap/3+3thickl);
+z2 = (w/3,0-o);
+z3 = (w-ss-2thinl,3cap+0.4pt);
+z4 = z0 shifted (0,-thinl);
+z5 = z1 shifted (0,-3thickl);
+z6 = z2 shifted (0,5thickl);
+z7 = z3 shifted (2thinl,-0.4pt);
+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#,0.4pt#,4cap#); "fourth square root";
+z0 = (ss,4cap/3);
+z1 = (w/8,4cap/3+4thickl);
+z2 = (w/3,0-o);
+z3 = (w-ss-2thinl,4cap+0.4pt);
+z4 = z0 shifted (0,-thinl);
+z5 = z1 shifted (0,-4thickl);
+z6 = z2 shifted (0,7thickl);
+z7 = z3 shifted (2thinl,-0.4pt);
+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#,0.4pt#,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,-0.4pt);
+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/fonts/drm/mf/drmmathsym.mf b/fonts/drm/mf/drmmathsym.mf
new file mode 100644
index 0000000000..91155c685c
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmmi10.mf b/fonts/drm/mf/drmmi10.mf
new file mode 100644
index 0000000000..7637702daf
--- /dev/null
+++ b/fonts/drm/mf/drmmi10.mf
@@ -0,0 +1,84 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OML";
+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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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#=thinstroke#/2;
+
+%%%% Define Dimensions for Letters %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio
+ scaled granularity;
+input drmcap.mf
+input drmlowmac.mf
+currenttransform:=identity slanted 0 yscaled aspect_ratio
+ scaled granularity;
+input drmmathgrkup.mf
+input drmpunct.mf
+currenttransform:=identity slanted slant yscaled aspect_ratio
+ scaled granularity;
+input drmitlow.mf
+input drmmathgrklow.mf
+input drmmathcursell.mf
+currenttransform:=identity slanted 0 yscaled 1 scaled 1;
+input drmdigs.mf
+input drmmatharrows.mf
+input drmmathsym.mf
+
+end;
diff --git a/fonts/drm/mf/drmoe.mf b/fonts/drm/mf/drmoe.mf
new file mode 100644
index 0000000000..792d276a1c
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmoldstyfracs.mf b/fonts/drm/mf/drmoldstyfracs.mf
new file mode 100644
index 0000000000..b08bb87ba1
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmoldstynums.mf b/fonts/drm/mf/drmoldstynums.mf
new file mode 100644
index 0000000000..a35aa40294
--- /dev/null
+++ b/fonts/drm/mf/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 (1.5thickstroke,-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/fonts/drm/mf/drmomx10.mf b/fonts/drm/mf/drmomx10.mf
new file mode 100644
index 0000000000..fe67512d05
--- /dev/null
+++ b/fonts/drm/mf/drmomx10.mf
@@ -0,0 +1,68 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OMS";
+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#;
+slant := 1/3;
+font_slant slant;
+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#=thinstroke#/2;
+
+%%%% Define Dimensions for Letters %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmlowmac.mf
+input drmmathomx.mf
+
+end;
diff --git a/fonts/drm/mf/drmornaments.mf b/fonts/drm/mf/drmornaments.mf
new file mode 100644
index 0000000000..f257cc1764
--- /dev/null
+++ b/fonts/drm/mf/drmornaments.mf
@@ -0,0 +1,1019 @@
+% +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));
+beginchar(oct"114",cap#,2(9.8em#/5),0);
+"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/fonts/drm/mf/drmornbars.mf b/fonts/drm/mf/drmornbars.mf
new file mode 100644
index 0000000000..eac6eb7f49
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmornfont.mf b/fonts/drm/mf/drmornfont.mf
new file mode 100644
index 0000000000..5bcbf43256
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmorns.mf b/fonts/drm/mf/drmorns.mf
new file mode 100644
index 0000000000..1c582139f7
--- /dev/null
+++ b/fonts/drm/mf/drmorns.mf
@@ -0,0 +1,51 @@
+% +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.
+
+font_identifier:="drmorns"; font_size:=10pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+% This file defines the parameters for the ornaments of the
+% DRM font.
+
+phi = (1+sqrt5)/2;
+%ornshort# = 2in#;
+%ornheight# = ornshort#/phi;
+%centerwid# = ornshort#/12;
+%centerht# = centerwid#/2;
+%ccurvrad# = centerht#/2;
+cap#=8pt#;
+ex#=0.6cap#;
+doubex#=2ex#;
+borderwid# = 0.02pt;
+extrathin# = 0.001pt;
+thinline# = 0.01pt;
+thinerase# = 2thinline#;
+thickline# = 2thinline#;
+smallspace# = thinline#;
+medspace# = 2smallspace#;
+bigspace# = 2medspace#;
+extbigspace# = 2bigspace#;
+ss# = 0.2pt#;
+dotwid#=0.6pt#;
+define_pixels(ornshort,ornheight,centerwid,centerht,ccurvrad,ss);
+define_pixels(thinline,thickline,smallspace,borderwid,thinerase);
+define_pixels(medspace,extrathin,bigspace,extbigspace);
+define_pixels(dotwid,cap,ex,doubex);
+
+pen borderpen; borderpen = pensquare scaled borderwid;
+pen thinpen; thinpen = pensquare scaled thinline;
+pen extthinpen; extthinpen = pensquare scaled extrathin;
+pen thinerasepen; thinerasepen = pensquare scaled thinerase;
+pen thickpen; thickpen = pensquare scaled thickline;
+pen extthickpen; extthickpen = pensquare scaled 2thickline;
+pen semiextextthickpen; semiextextthickpen = pensquare scaled 3thickline;
+pen extextthickpen; extextthickpen = pensquare scaled 4thickline;
+pen medpen; medpen = pensquare scaled 1.5thinline;
+
+%input drmornbars.mf;
+input drmornfont.mf;
+
+end;
diff --git a/fonts/drm/mf/drmpunct.mf b/fonts/drm/mf/drmpunct.mf
new file mode 100644
index 0000000000..71d0556b00
--- /dev/null
+++ b/fonts/drm/mf/drmpunct.mf
@@ -0,0 +1,692 @@
+% +AMDG This document was begun on 26 April 11EX, the feast
+% of St. Catherine of Siena, and it is humbly dedicated to
+% her and the Immaculate Heart of Mary for their prayers,
+% and to the Sacred Heart of Jesus for His mercy.
+
+path hyphenpath;
+picture paren;
+picture period;
+picture opendoublequote;
+picture questionmark;
+picture bang;
+picture leftsinguill;
+picture leftdoubguill;
+picture slash;
+picture lessthan;
+picture opensquare;
+
+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;
+
+%period := 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(",",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,-3dotwid);
+z6 = z1 shifted (-o,-2.0dotwid);
+
+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"047",pwid#,cap#,0); "The apostrophe";
+
+fill commapost shifted (0,h-2dotwid+o/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;
+
+thinwid# = 0.5pt#;
+define_pixels(thinwid);
+
+beginchar("-",2pwid#,ex#,0); "The hyphen, -";
+
+z0 = (ss,h/2);
+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);
+
+hyphenpath = z2..z0..z3--z5..z1..z4--cycle;
+fill hyphenpath;
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,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",1.5pwid#,ex#,0); "The break hyphen, -";
+fill hyphenpath xscaled 0.75;
+endchar;
+
+beginchar(oct"025",3pwid#,ex#,0); "The en-dash, --";
+fill hyphenpath xscaled 1.5;
+endchar;
+
+beginchar(oct"026",em#+2ss#,ex#,0); "The em-dash, ---";
+fill hyphenpath xscaled 2;
+endchar;
+
+beginchar("(",1.5pwid#,cap#,dep#); "The open parenthesis, (";
+
+z0 = (w,h+o);
+z1 = (w,-dep-o);
+z2 = (ss,(h-dep)/2);
+z3 = z2 shifted (thickl,0);
+
+path parenpath;
+parenpath = z1{dir 150}..{up}z3{up}..{dir 30}z0{dir
+ 200}..{down}z2{down}..{dir -20}z1..cycle;
+fill parenpath;
+
+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(")",1.5pwid#,cap#,dep#); "The close parenthesis, )";
+pair center; center = (w/2,(h-dep)/2);
+fill parenpath rotatedaround (center,180);
+
+endchar;
+
+beginchar(":",pwid#,ex#,0); "The colon, :";
+
+fill period;
+fill period shifted (0,ex-2dotwid-o);
+
+endchar;
+
+beginchar(";",pwid#,ex#,0); "The semicolon, ;";
+
+fill period shifted (0,ex-2dotwid-o);
+fill commapost;
+
+endchar;
+
+beginchar(oct"140",pwid#,cap#,0); "The open quote, `";
+
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (0,-0.5pwid);
+
+endchar;
+
+beginchar(oct"020",1.75pwid#,cap#,0); "The open double quote, ``";
+
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (0,-2dotwid);
+fill commapost rotatedaround ((w/2,h/2),180)
+ shifted (-0.75pwid,-2dotwid);
+
+opendoublequote := currentpicture;
+
+endchar;
+
+beginchar(oct"021",1.75pwid#,cap#,0); "The close double quote, ''";
+
+fill commapost shifted (0pwid,h-2dotwid);
+fill commapost shifted (0.75pwid,h-2dotwid);
+
+endchar;
+
+beginchar(oct"022",1.75pwid#,cap#,0); "The baseline open double quote, ,,";
+
+fill commapost shifted (0pwid,0);
+fill commapost shifted (0.75pwid,0);
+
+endchar;
+
+beginchar("?",digwid#+2ss#,cap#,0); "The question mark, ?";
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (w-ss,3h/4);
+z3 = z2 shifted (-curvl,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);
+
+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;
+z16 = 0.5[z5,z6]; y16 := dotwid;
+fill fullcircle scaled 2dotwid shifted z16;
+
+questionmark := 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",1.5pwid#,cap#,0); "The exclamation point, !";
+
+z0 = (w/2-thickl/2,h);
+z1 = z0 shifted (thickl/2,o);
+z2 = z0 shifted (thickl,0);
+z3 = (x0+o,3dotwid);
+z4 = (x2-o,y3);
+z5 = 0.5[z3,z4] shifted (0,-o);
+
+fill z0..z1..z2--z4..z5..z3--cycle;
+fill fullcircle scaled 2dotwid shifted (x5,dotwid);
+
+
+bang := 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"275",1.5pwid#,cap#,dep#); "The reverse exclamation point";
+
+currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180);
+
+endchar;
+
+beginchar(oct"276",digwid#+2ss#,cap#,dep#); "The reverse question mark";
+
+currentpicture := questionmark rotatedaround ((w/2,(h-dep)/2),180);
+
+endchar;
+
+beginchar(oct"016",pwid#+2ss#,ex#,0); "Left single guillemet";
+
+z0 = (o,h/2);
+z1 = (w-3o,7h/8);
+z2 = (w-3o,h/8);
+z3 = 0.5[z0,z1];
+z4 = 0.5[z0,z2];
+z5 = 0.1[z3,z2];
+z6 = 0.1[z4,z1];
+z7 = z0 shifted (curvl,0);
+z8 = 0.5[z3,z12];
+z9 = 0.5[z4,z12];
+z10 = z1 shifted (2o,0);
+z11 = z2 shifted (2o,0);
+z12 = (w,h/2);
+
+path guillone; path guilltwo;
+guillone = z0{dir 10}..z5..{dir 60}z1..z10{dir -100}..z8..z7--cycle;
+guilltwo = z0{dir -10}..z6..{dir -60}z2..z11{dir 100}..z9..z7--cycle;
+fill guillone; fill guilltwo;
+
+leftsinguill := 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"017",pwid#+2ss#,ex#,0); "Right single guillemet";
+
+fill guillone reflectedabout ((w/2,0),(w/2,h));
+fill guilltwo reflectedabout ((w/2,0),(w/2,h));
+
+endchar;
+
+beginchar(oct"023",1.5pwid#+2ss#,ex#,0); "Left double guillemet";
+
+fill guillone shifted (-o/2,0);
+fill guillone shifted (pwid/2+o/2,0);
+fill guilltwo shifted (-o/2,0);
+fill guilltwo shifted (pwid/2+o/2,0);
+
+leftdoubguill := currentpicture;
+
+endchar;
+
+beginchar(oct"024",1.5pwid#+2ss#,ex#,0); "Right double guillemet";
+
+fill guillone shifted (-o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guillone shifted (pwid/2+o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guilltwo shifted (-o/2,0)
+ rotatedaround ((w/2,h/2),180);
+fill guilltwo shifted (pwid/2+o/2,0)
+ rotatedaround ((w/2,h/2),180);
+%fill guillone reflectedabout ((w/2,0),(w/2,h))
+% shifted (-o/2,0);
+%fill guillone reflectedabout ((w/2,0),(w/2,h))
+% shifted (pwid/2+o/2,0);
+%fill guilltwo reflectedabout ((w/2,0),(w/2,h))
+% shifted (-o/2,0);
+%fill guilltwo reflectedabout ((w/2,0),(w/2,h))
+% shifted (pwid/2+o/2,0);
+
+endchar;
+
+beginchar(oct"030",1.4pwid#+2ss#,3ex#/4,0); "Lower 0 for pertriqua";
+
+zeroh = 1.2pwid;
+zerohh = 3ex/4;
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinl);
+z2 = (w/2,0);
+z3 = z2 shifted (0,thinl);
+z4 = (w-ss,h/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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar(oct"053",ex#,ex#,0); "Plus (addition) sign, +";
+
+pickup pencircle scaled thinl;
+top z0 = (w/2,h-o);
+bot z1 = (w/2,o);
+lft z2 = (o,h/2);
+rt z3 = (w-o,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"057",ex#/2+2ss#,cap#,0); "The forward slash, /";
+
+pickup pencircle scaled thinl;
+lft z0 = (o,o);
+rt z1 = (w-o,h-o);
+
+draw z0--z1;
+
+slash := 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"134",ex#/2+2ss#,cap#,0); "The backslash, \";
+
+currentpicture := slash reflectedabout ((w/2,h),(w/2,0));
+
+endchar;
+
+beginchar(oct"042",1.75pwid#,cap#,0); "straight 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("#",em#+ss#,cap#,dep#); "The pound sign, #";
+
+full = h+d;
+
+z0 = (0.33w-hair,0.25full-dep+hair) shifted (ss,ss);
+z1 = (0.57w-hair,0.25full-dep+hair) shifted (ss,ss);
+z2 = (0.33w+hair,0.5full-dep+hair) shifted (ss,ss);
+z3 = (0.57w+hair,0.5full-dep+hair) shifted (ss,ss);
+z4 = 2[z0,z2];
+z5 = 2[z2,z0];
+z6 = 2[z1,z3];
+z7 = 2[z3,z1];
+z8 = 2[z2,z3];
+z9 = 2[z3,z2];
+z10 = 2[z0,z1];
+z11 = 2[z1,z0];
+
+pickup pencircle scaled thinl;
+
+draw z4--z5; draw z7--z6; draw z9--z8; draw z11--z10;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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("$",0.7em#+2ss#,cap#,0); "The dollar sign, $";
+
+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-2thickl/4,h+o);
+z21 = (w/2-2thickl/4,-o);
+z22 = (w/2+2thickl/4,h+o);
+z23 = (w/2+2thickl/4,-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("<",ex#,ex#,0); "The less than sign, <";
+
+z0 = (2o,h/2);
+z1 = (w-2o,h-o);
+z2 = (w-2o,o);
+
+pickup pencircle scaled thinl;
+
+draw z1--z0--z2;
+
+lessthan := 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(">",ex#,ex#,0); "The greater than sign, >";
+currentpicture := lessthan reflectedabout ((w/2,h),(w/2,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("=",ex#,ex#,0); "The equals sign, =";
+
+z0 = (2o,h/3);
+z1 = (w-2o,h/3);
+z2 = (2o,2h/3);
+z3 = (w-2o,2h/3);
+
+pickup pencircle scaled thinl;
+
+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("%",5em#/6,cap#,0); "The perbiqua 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 = (w-0.6zeroh,zerohh);
+z11 = z10 shifted (0,-thinl);
+z12 = (w-0.6zeroh,0);
+z13 = z12 shifted (0,thinl);
+z14 = (w-ss,zerohh/2);
+z15 = z14 shifted (-1.7thinl,0);
+z16 = (w-1.2zeroh,zerohh/2);
+z17 = z16 shifted (thinl,0);
+
+fill z10..z14..z12..z16..cycle;
+unfill z11..z15..z13..z17..cycle;
+
+z22 = (w-ss,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,0.75thinl);
+z26 = z24 shifted (0.75thinl,0);
+z27 = z23 shifted (-1.5thinl,-hair);
+
+fill z0..z20..z22--z23--z26..z24..z25--z27..z21..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;
+
+beginchar("&",3em#/4,cap#,0); "The ampersand, &";
+
+z0 = (w-userw/2,4h/9);
+z1 = z0 shifted (-thickl,0);
+z2 = (w/2,0-o);
+z3 = z2 shifted (0,thinl);
+z4 = (ss,h/3);
+z5 = z4 shifted (thickl,0);
+z6 = (w/2-thickl/2-hair/2,h-2userh);
+z7 = z6 shifted (thickl-o,0);
+z8 = (w/2-hair/2,h+o);
+z9 = (w-ss,0);
+z10 = z9 shifted (-thinl,0);
+z11 = z6 shifted (-thinl,0);
+z12 = z7 shifted (thinl,0);
+z13 = z8 shifted (0,-thinl);
+z14 = z1 shifted (-hair,hair/2);
+z15 = z0 shifted (hair,hair/2);
+z16 = z14 shifted (0,hair/2);
+z17 = z15 shifted (0,hair/2);
+z18 = 0.5[z1,z14];
+z19 = 0.5[z0,z15];
+
+pickup pencircle scaled 1;
+fill
+z10..z11..{right}z8{right}..z12..z5..{right}z3{right}..{up}z1..z18..z14--z16--z17--z15..z19..z0{down}..{left}z2{left}..{up}z4{up}..z7..{left}z13{left}..z6..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,100);
+endchar;
+
+beginchar("[",2pwid#,cap#+ss#,dep#); "The open square 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);
+
+path squarebrack;
+squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle;
+fill squarebrack;
+
+opensquare := 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("]",2pwid#,cap#+ss#,dep#); "The close square bracket, ]";
+fill squarebrack rotatedaround ((w/2,(h-dep)/2),180);
+endchar;
+
+beginchar("|",pwid#/2,cap#+ss#,dep#); "The pipe, |";
+
+z0 = (w/2,h-o);
+z1 = (w/2,-dep+o);
+
+pickup pencircle scaled thinl;
+draw z0--z1;
+
+endchar;
+
+beginchar("{",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("}",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"237",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"277",5em#/6+2ss#,cap#,0); "The British pound sign";
+
+z0 = (3w/4,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (w-ss-hair,4h/5);
+z3 = z2 shifted (-thinl,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/4);
+z8 = z7 shifted (-thickl,0);
+z9 = (x8-thickl,-hair/4);
+z10 = z9 shifted (0,thinl);
+z12 = (ss,h/5);
+z13 = z12 shifted (thickl,0);
+z14 = 0.5[z8,z7] shifted (0,-thinl);
+z15 = z14 shifted (0,1.3thinl);
+z16 = (3w/4,-hair/4);
+z17 = z16 shifted (0,thinl);
+z18 = (w-ss-hair,userw);
+z19 = z18 shifted (0,thinl);
+z20 = 0.5[z18,z19] shifted (hair,0);
+
+z21 = (2ss,0.6h);
+z22 = (w-2ss,0.6h);
+
+fill
+z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z14..{right}z16{right}..z18..z20..z19{dir
+200}..{left}z17{left}..z15..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle;
+
+pickup pencircle scaled thinl;
+
+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"100",em#,cap#,0); "The at sign, @";
+
+z0 = (w/4-o,h/2);
+z1 = (3w/4-o,h/2);
+z2 = (w/2-o,3h/4);
+z3 = (w/2-o,h/4);
+z4 = z2 shifted (0,-thinl);
+z5 = z3 shifted (0,thinl);
+z6 = z0 shifted (thickl,0);
+z7 = z1 shifted (-0.8thickl,0);
+z8 = (x7,y5+2thinl);
+z9 = (x1,y5+2thinl);
+z10 = (x7,y3+2thinl);
+z11 = (x1,y3+2thinl);
+z12 = z11 shifted (thinl,-thinl);
+z13 = z12 shifted (0,-thinl);
+z14 = (w-o,h/2);
+z15 = z14 shifted (-thinl,0);
+z16 = (w/2,h);
+z17 = z16 shifted (0,-thinl);
+z18 = (o,h/2);
+z19 = z18 shifted (thinl,0);
+z20 = (w/2,0);
+z21 = z20 shifted (0,thinl);
+z22 = z12 shifted (thickl,-thickl);
+z23 = z22 shifted (0,-thinl);
+z24 = 0.5[z22,z23] shifted (o,0);
+z25 = (x7,y2-thinl/2);
+z26 = (x1,y2-thinl/2);
+
+fill z0..z2..z1..z3..cycle;
+unfill z6..z4..z7..z5..cycle;
+fill
+z26--z1--z11..z12..{up}z15{up}..{left}z17{left}..{down}z19{down}..{right}z21{right}..z22{dir
+30}..z24..z23{dir -150}..{left}z20{left}..{up}z18{up}..{right}z16{right}..{down}z14{down}..{left}z13{left}..z10--z7--z25--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/fonts/drm/mf/drmromannums.mf b/fonts/drm/mf/drmromannums.mf
new file mode 100644
index 0000000000..f0ccadf511
--- /dev/null
+++ b/fonts/drm/mf/drmromannums.mf
@@ -0,0 +1,203 @@
+% +AMDG This document was begun on 11 June 11EX, the feast
+% of St. Anthony of Padua, 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.
+
+def topbotbars =
+penpos50(thinl,90);
+z50r = (0,h);
+penpos51(thinl,90);
+z51r = (w,h);
+penpos52(thinl,90);
+z52l = (0,0);
+penpos53(thinl,90);
+z53l = (w,0);
+penstroke z50e--z51e; penstroke z52e--z53e;
+enddef;
+
+beginchar(oct"100",thickstroke#+2lserw#+2ss#+2hair#,cap#,0);
+"Roman numeral I";
+
+topbotbars;
+z1 = (ss+hair+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+hair+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+path romone; romone = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+fill romone shifted (-ss/2,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,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"101",5em#/6+2ss#,cap#,0);
+"Roman numeral V";
+
+z1=(ss+userw,h-userh);
+z2=z1+(slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=((5em/6)-ss-userw,h-userh);
+z6=z5-(thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=((5em/6)/2,0);
+z30=0.25[z9,z5];
+z10=z30 shifted (-0.7thinstroke,1.3thinstroke);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+path romfive; romfive = z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle;
+
+topbotbars;
+fill romfive shifted (ss/2,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,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"102",5em#/6+2ss#,cap#,0); "Roman numeral X";
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = aa[z1,z6];
+z41 = ab[z7,z3];
+z42 = ac[z5,z4];
+z42 = ad[z7,z3];
+z43 = ae[z8,z2];
+z43 = af[z6,z1];
+z44 = ag[z8,z2];
+z44 = ah[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+topbotbars;
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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);
+endchar;
+
+beginchar(oct"103",5em#/6+2ss#,cap#,0); "Roman numeral L";
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke+thinl);
+z6=(w-ss-ssslant,thinl);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle;
+
+topbotbars;
+
+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"104",5em#/6+2ss#,cap#,0); "Roman numeral C";
+
+z1=(w-ss-hair-userh,h-userh);
+z2=z1-(0,thickstroke);
+z3=(w-ss-hair-userh,userh);
+z4=z3+(0,thickstroke+o);
+z5=(w/2,h);
+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;
+
+fill cinbody & botserif & cbody & topserif & cycle;
+
+topbotbars;
+
+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"105",em#+2ss#,cap#,0); "Roman numeral D";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z13 = (x4,h);
+z14 = (x4,h-thinstroke);
+z15 = (w-ss,h/2);
+z16 = z15-(curvwid,0);
+z17 = (x2,0);
+z18 = z17+(0,thinstroke);
+z19 = (w/2,h);
+z20 = z19-(0,thinstroke);
+z21 = (w/2,0);
+z22 = z21+(0,thinstroke);
+llserif(1,5,6,7,8)(1);
+ulserif(3,9,10,11,12)(1);
+
+topbotbars;
+fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle;
+unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--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"106",em#+2ss#,cap#,0); "Roman numeral M";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.1[z23,z29];
+z29=z27+(2curvwid/3,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle;
+
+topbotbars;
+
+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;
diff --git a/fonts/drm/mf/drmsc10.mf b/fonts/drm/mf/drmsc10.mf
new file mode 100644
index 0000000000..990e38453c
--- /dev/null
+++ b/fonts/drm/mf/drmsc10.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc11.mf b/fonts/drm/mf/drmsc11.mf
new file mode 100644
index 0000000000..fcbfd0a210
--- /dev/null
+++ b/fonts/drm/mf/drmsc11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc12.mf b/fonts/drm/mf/drmsc12.mf
new file mode 100644
index 0000000000..a4bd0efd8b
--- /dev/null
+++ b/fonts/drm/mf/drmsc12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc14.mf b/fonts/drm/mf/drmsc14.mf
new file mode 100644
index 0000000000..e816c7c45b
--- /dev/null
+++ b/fonts/drm/mf/drmsc14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc17.mf b/fonts/drm/mf/drmsc17.mf
new file mode 100644
index 0000000000..84317183a3
--- /dev/null
+++ b/fonts/drm/mf/drmsc17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc24.mf b/fonts/drm/mf/drmsc24.mf
new file mode 100644
index 0000000000..0b99a39104
--- /dev/null
+++ b/fonts/drm/mf/drmsc24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc6.mf b/fonts/drm/mf/drmsc6.mf
new file mode 100644
index 0000000000..bd670108c2
--- /dev/null
+++ b/fonts/drm/mf/drmsc6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant slant;
+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#=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#=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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc7.mf b/fonts/drm/mf/drmsc7.mf
new file mode 100644
index 0000000000..1c3ef5e519
--- /dev/null
+++ b/fonts/drm/mf/drmsc7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc8.mf b/fonts/drm/mf/drmsc8.mf
new file mode 100644
index 0000000000..0ca5ae049f
--- /dev/null
+++ b/fonts/drm/mf/drmsc8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmsc9.mf b/fonts/drm/mf/drmsc9.mf
new file mode 100644
index 0000000000..bcf1b7bddb
--- /dev/null
+++ b/fonts/drm/mf/drmsc9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+input drmscdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmscacclet.mf b/fonts/drm/mf/drmscacclet.mf
new file mode 100644
index 0000000000..6ec84c172d
--- /dev/null
+++ b/fonts/drm/mf/drmscacclet.mf
@@ -0,0 +1,686 @@
+% +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(oct"350",7em#/12+2ss#,ex#,0); "The letter egrave";
+
+currentpicture := lowe + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"351",7em#/12+2ss#,ex#,0); "The letter eacute";
+
+currentpicture := lowe + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"354",0.28em#+2ss#,ex#,0); "the letter igrave";
+currentpicture := dotlessi + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"355",0.28em#+2ss#,ex#,0); "the letter iacute";
+currentpicture := dotlessi + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"356",0.28em#+2ss#,ex#,0); "the letter icirc";
+currentpicture := dotlessi + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+endchar;
+
+beginchar(oct"357",0.28em#+2ss#,ex#,0); "dotless i with diaresis";
+
+currentpicture := dotlessi + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"352",7em#/12+2ss#,ex#,0); "e with circumflex";
+
+currentpicture := lowe + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"353",7em#/12+2ss#,ex#,0); "e with diaresis";
+
+currentpicture := lowe + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"362",4em#/6+2ss#,ex#,0); "the letter ograve";
+
+currentpicture := lowo + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"363",4em#/6+2ss#,ex#,0); "the letter oacute";
+
+currentpicture := lowo + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"366",4em#/6+2ss#,ex#,0); "o with diaresis";
+
+currentpicture := lowo + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"365",4em#/6+2ss#,ex#,0); "o with tilde";
+
+currentpicture := lowo + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"364",4em#/6+2ss#,ex#,0); "o with circumflex";
+
+currentpicture := lowo + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"340",2em#/3+2ss#,ex#,0); "The letter agrave";
+
+currentpicture := lowa + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"341",2em#/3+2ss#,ex#,0); "The letter aacute";
+
+currentpicture := lowa + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"342",2em#/3+2ss#,ex#,0); "a with circumflex";
+
+currentpicture := lowa + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"343",2em#/3+2ss#,ex#,0); "a with tilde";
+
+currentpicture := lowa + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"344",2em#/3+2ss#,ex#,0); "a with diaresis";
+
+currentpicture := lowa + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"345",2em#/3+2ss#,ex#,0); "a with ring";
+
+currentpicture := lowa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"267",7em#/12+2ss#,ex#,0); "u with ring";
+
+currentpicture := lowu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille";
+
+currentpicture := lowc + cedille shifted (w-1.7pwid,0);
+
+endchar;
+
+beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex";
+
+currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla";
+
+currentpicture := capa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent";
+
+currentpicture := capc + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex";
+
+currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex";
+
+currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex";
+
+currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla";
+
+currentpicture := cape + revcid shifted (2w/3-8o,0);
+
+endchar;
+
+beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex";
+
+currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent";
+
+currentpicture := capl + acute shifted (w/2-1.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent";
+
+currentpicture := capl;
+fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L";
+
+currentpicture := capl;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (-2hair,h/2);
+z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)--
+ (ss+userw+thickstroke/2,0));
+z1 = 2[z0,z2] shifted (thickstroke,0);
+path intline; intline = z0--z1;
+
+draw intline rotatedaround(z2,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"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent";
+
+currentpicture := capn + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex";
+
+currentpicture := capn + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis";
+
+currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent";
+
+currentpicture := capr + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex";
+
+currentpicture := capr + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent";
+
+currentpicture := caps + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum";
+
+currentpicture := caps + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla";
+
+currentpicture := caps + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum";
+
+currentpicture := capt + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla";
+
+currentpicture := capt + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut";
+
+currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid);
+
+endchar;
+
+beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent";
+
+currentpicture := capu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut";
+
+currentpicture := capy + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent";
+
+currentpicture := capz + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum";
+
+currentpicture := capz + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot";
+
+currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot";
+
+currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"240",2em#/3+2ss#,ex#,0); "The letter a, inverse circum";
+
+currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"241",2em#/3+2ss#,ex#,0); "The letter a, reverse cedilla";
+
+currentpicture := lowa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"242",8em#/12+2ss#,ex#,0); "c with acute";
+
+currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"243",8em#/12+2ss#,ex#,0); "c inverse circum";
+
+currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"244",7em#/12+2ss#,asch#,0); "d apostrophe";
+
+currentpicture := lowd;
+fill commapost shifted (w-0.2pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"245",7em#/12+2ss#,ex#,0); "e, inverse circumflex";
+
+currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"246",7em#/12+2ss#,ex#,0); "e, reverse cedilla";
+
+currentpicture := lowe + revcid shifted (w/2-0.3pwid,0);
+
+endchar;
+
+beginchar(oct"247",2em#/3+2ss#,ex#,dep#); "g, inverse circum";
+
+currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"250",7em#/12+2ss#,asch#,0); "l, with acute";
+
+currentpicture := lowl + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"251",7em#/12+2ss#,asch#,0); "l, with apostrophe";
+
+currentpicture := lowl;
+fill commapost shifted (w-pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"252",7em#/12+2ss#,ex#,0); "slashed l";
+
+currentpicture := lowl;
+
+pickup pencircle scaled thinl;
+z0 = (0,h/2);
+z1 = z0 shifted (3thickstroke,0);
+z2 = 0.5[z0,z1];
+path crossbar; crossbar = z0--z1;
+draw crossbar rotatedaround (z2,30);
+
+penlabels(0,1,2);
+endchar;
+
+beginchar(oct"253",7em#/12+2ss#,ex#,0); "n, acute accent";
+
+currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"254",7em#/12+2ss#,ex#,0); "n, inverse circum";
+
+currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"256",4em#/6+2ss#,ex#,0); "o, Hungarian umlaut";
+
+currentpicture := lowo + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"257",8em#/12+2ss#,ex#,0); "r, with acute accent";
+
+currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"260",8em#/12+2ss#,ex#,0); "r, reverse circum";
+
+currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"261",3em#/6+2ss#,ex#,0); "s, with acute accent";
+
+currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"262",3em#/6+2ss#,ex#,0); "s, reverse circum";
+
+currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"263",3em#/6+2ss#,ex#,0); "s, cedilla";
+
+currentpicture := lows + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"264",5em#/6+2ss#,theight#,0); "t, with apostrophe";
+
+currentpicture := lowt;
+fill commapost shifted (w-0.5pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"265",4em#/6+2ss#,theight#,0); "t, with cedilla";
+
+currentpicture := lowt + cedille shifted (w/2-pwid/4,0);
+
+endchar;
+
+beginchar(oct"266",7em#/12+2ss#,ex#,0); "u with Hungarian umlaut";
+
+currentpicture := lowu + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"270",7em#/12+2ss#,ex#,dep#); "y, with diaresis";
+
+currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"271",6em#/12+2ss#,ex#,0); "z, acute accent";
+
+currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"272",6em#/12+2ss#,ex#,0); "z, inverse circum";
+
+currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"273",6em#/12+2ss#,ex#,0); "z, overdot";
+
+currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"301",em#+2ss#,cap#,0); "A, acute accent";
+
+currentpicture := capa + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"300",em#+2ss#,cap#,0); "A, grave accent";
+
+currentpicture := capa + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex";
+
+currentpicture := capa + circumflex shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde";
+
+currentpicture := capa + tilde shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis";
+
+currentpicture := capa + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"305",em#+2ss#,cap#,0); "A, ring";
+
+currentpicture := capa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille";
+
+currentpicture := capc + cedille shifted (w/2-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute";
+
+currentpicture := cape + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave";
+
+currentpicture := cape + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex";
+
+currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis";
+
+currentpicture := cape + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, acute";
+
+currentpicture := capi + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, grave";
+
+currentpicture := capi + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex";
+
+currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis";
+
+currentpicture := capi + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde";
+
+currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, acute";
+
+currentpicture := capo + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, grave";
+
+currentpicture := capo + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex";
+
+currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde";
+
+currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis";
+
+currentpicture := capo + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, acute";
+
+currentpicture := capu + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, grave";
+
+currentpicture := capu + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex";
+
+currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis";
+
+currentpicture := capu + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute";
+
+currentpicture := capy + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"361",7em#/12+2ss#,ex#,0); "n, tilde";
+
+currentpicture := lown + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"372",7em#/12+2ss#,ex#,0); "u, acute";
+
+currentpicture := lowu + acute shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"371",7em#/12+2ss#,ex#,0); "u, grave";
+
+currentpicture := lowu + grave shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"373",7em#/12+2ss#,ex#,0); "u, circumflex";
+
+currentpicture := lowu + circumflex shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"374",7em#/12+2ss#,ex#,0); "u, diaresis";
+
+currentpicture := lowu + diaresis shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"375",7em#/12+2ss#,ex#,dep#); "y, acute";
+
+currentpicture := lowy + acute shifted (w/2-pwid,0);
+
+endchar;
diff --git a/fonts/drm/mf/drmscap.mf b/fonts/drm/mf/drmscap.mf
new file mode 100644
index 0000000000..a023651c3d
--- /dev/null
+++ b/fonts/drm/mf/drmscap.mf
@@ -0,0 +1,1125 @@
+% +AMDG This document was begun on 15 August 2007, the
+% Feast of the Assumption of the Blessed Virgin Mary, and it
+% is humbly offered to her for her prayers, and to the
+% Sacred Heart of Jesus for His mercy.
+
+picture lowo;
+picture lowa;
+picture lowl;
+picture lowc;
+picture lowd;
+picture lowe;
+picture lowg;
+picture lown;
+picture lowu;
+picture lowr;
+picture lows;
+picture lowt;
+picture lowy;
+picture lowz;
+picture lowi;
+lserw := 0.1u;
+userw := 0.1u;
+
+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;
+
+%%%FFF Fix W, M, A from dependence on stroke widths FFF%%%
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw+equalize/2,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw+equalize/2,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw+equalize/2,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-(userw+equalize/2),userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define T Side Serifs on Caps %%%%
+
+def tlsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j-((userh/2),0);
+z.l=z.k-(userh/2,1.5userw);
+z.m=z.l+(userh/2,0);
+enddef;
+
+def trsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j+((userh/2),0);
+z.l=z.k+(userh/2,-1.5userw);
+z.m=z.l-(userh/2,0);
+enddef;
+
+%%%% Define C Side Serifs on Caps %%%%
+
+def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userw/4);
+z.k=z.j+(0.5userh,0);
+z.l=z.k-(0,2.5userw);
+z.m=z.l-(0.5userh,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;
+
+def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userh/2);
+z.k=z.j-(userh,0);
+z.l=z.k+(0,-2.7userw);
+z.m=z.l+(userh,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define L, E, Z, and F side serifs on Caps %%%%
+
+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;
+
+def lftdownsideserif(suffix i,j,k) =
+z.j=z.i-(ssslant,2lserw);
+z.k=z.j+(lserh,lserw);
+enddef;
+
+beginchar("i",2ss#+thickstroke#+0.2u#,ex#,0); "The Letter I";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+
+lowi := currentpicture;
+dotlessi := currentpicture;
+
+penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25);
+
+endchar;
+
+beginchar("o",4em#/6+2ss#,ex#,0); "The Letter O";
+
+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;
+
+lowo := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("a",2em#/3+2ss#,ex#,0); "The Letter A";
+
+scrossh = 3/4;
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (w-ss-lserw,lserh);
+z4 = z3 shifted (-thickstroke,0);
+z5 = (w/2+thickstroke/2,h+o);
+z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30);
+lrserif(3,7,8,9,10)(1);
+llserif(4,11,12,13,14)(1);
+lrserif(2,15,16,17,18)(1);
+llserif(1,19,20,21,22)(1);
+z23 = scrossh[z6,z1];
+z24 = z23 shifted (thinstroke,0);
+z25 = (w,y23);
+z26 = letba[z23,z25];
+z26 = letbb[z3,z5];
+z27 = z26 shifted (-thickstroke,0);
+z28 = 0.8[z27,z6];
+z29 = 0.2[z27,z28];
+z30 = 0.2[z24,z28];
+
+fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2
+ --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle;
+unfill z30--z28--z29--cycle;
+
+lowa := currentpicture;
+
+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);
+endchar;
+
+beginchar("j",0.28em#+2ss#,ex#,dep#); "The Letter J";
+
+z1 = ((w/2-(thickstroke/2)),-lserh);
+z2 = ((w/2+(thickstroke/2)),-lserh);
+z3 = ((w/2-(thickstroke/2)),(h-userh));
+z4 = ((w/2+(thickstroke/2)),(h-userh));
+z5 = (x3-userw,-dep);
+z6 = z5 shifted (0,thinstroke);
+z8 = z5 shifted (-userw,dep/2);
+z7 = z8 shifted (-thinstroke,0);
+z9 = (x8,-dep/4);
+z10 = 0.5[z8,z9] shifted (thickstroke/2,0);
+
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15..
+ z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}..
+ {up}z8{down}..{up}z10{up}..z9..cycle;
+
+dotlessj := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25);
+endchar;
+
+beginchar("q",4em#/6+2ss#,ex#,dep#+thickstroke#/2); "The Letter Q";
+
+z1=(ss,h/2);
+z2=(w/2,h+o);
+z3=(w-ss,h/2);
+z4=(w/2,0);
+z5=z1+(curvwid,0);
+z6=z2-(0,thinstroke);
+z7=z3-(curvwid,0);
+z8=z4+(0,thinstroke);
+z9=z4+(curvwid/2,0);
+z10=z4-(curvwid/2,0);
+z11=(em+qtailunit+thickstroke,-depth);
+z12=(em+2qtailunit,-depth);
+z13=z12+(qtailunit,depth/2);
+z14=z12+(0,2thickstroke/3);
+z15=(em+qtailunit,-depth+thickstroke);
+
+pickup pencircle;
+
+path outerring; outerring=z9..z3..z2..z1..z10;
+path innerring; innerring=z8..z5..z6..z7..cycle;
+path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13;
+path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9;
+
+unfill innerring;
+fill outerring & bottomqtail & topqtail..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("h",2em#/3+2ss#,ex#,0); "The Letter H";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-lserw-thickstroke,lserh);
+z6 = z5 shifted (thickstroke,0);
+z7 = (w-ss-lserw-thickstroke,h-lserh);
+z8 = z7 shifted (thickstroke,0);
+z46=(0.5)[z4,z2];
+z47=z46+(0,thinstroke/2);
+z48=z46-(0,thinstroke/2);
+z49=(0.5)[z7,z5];
+z50=z49+(0,thinstroke/2);
+z51=z49-(0,thinstroke/2);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+lrserif(6,30,31,32,33)(1);
+llserif(5,34,35,36,37)(1);
+urserif(8,38,39,40,41)(1);
+ulserif(7,42,43,44,45)(1);
+
+fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44--
+ z43..z42..z7--z50--z47--z4..z15..z16--z17--z20--
+ z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2
+ --z48--z51--z5..z34..z35--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("d",7em#/12+2ss#,ex#,0); "The Letter D";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z13 = (x4,h);
+z14 = (x4,h-thinstroke);
+z15 = (w-ss,h/2);
+z16 = z15-(curvwid,0);
+z17 = (x2,0);
+z18 = z17+(0,thinstroke);
+z19 = (w/2,h);
+z20 = z19-(0,thinstroke);
+z21 = (w/2,0);
+z22 = z21+(0,thinstroke);
+llserif(1,5,6,7,8)(1);
+ulserif(3,9,10,11,12)(1);
+
+fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle;
+unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle;
+
+lowd := currentpicture;
+
+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("p",7em#/12+2ss#,ex#,0); "The Letter P";
+
+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);
+
+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;
+
+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("b",7em#/12+2ss#,ex#,0); "The Letter B";
+
+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 = 0.5[z32,z2]; x27 := w-ss;
+z28=z27-(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;
+
+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("r",8em#/12+2ss#,ex#,0); "The Letter R";
+
+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);
+
+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;
+
+lowr := currentpicture;
+
+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("m",3em#/4+2ss#,ex#,0); "The Letter M";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.15[z23,z29];
+z29=z27+(1curvwid/2,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--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("u",7em#/12+2ss#,ex#,0); "The Letter U";
+
+z1=(ss+userw,h-userh);
+z2=z1+(thickstroke,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5 shifted (-thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z10=z9+(0,.5thickstroke);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill
+z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle;
+
+lowu := currentpicture;
+
+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("v",4em#/6+2ss#,ex#,0); "The Letter V";
+
+z1=(ss+userw,h-userh);
+z2=z1+(slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5-(thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z30=0.25[z9,z5];
+z31 = z9 shifted (-thinstroke,0);
+z10 = 0.30[z31,z6];
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--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("t",4em#/6+2ss#,ex#,0);"The Letter T";
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(w/2-thickstroke/2,y2);
+z6=(w/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+pickup cappen;
+
+fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+
+lowt := currentpicture;
+
+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("w",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,ex#,0);"The Letter W";
+beginchar("w",2ss#+5em#/6,ex#,0);"The Letter W";
+
+z1 = (ss+userw,h-userh);
+z2 = z1 shifted (thickstroke,0);
+z3 = 0.5[z2,z6] shifted (-thickstroke/2,0);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-userw,h-userh);
+z6 = z5 shifted (-thinstroke,0);
+z7 = (w/3+thinstroke/2,0);
+z8 = (2w/3-thinstroke/2,0);
+z33=(w/2,3h/4);
+z34=z8+(thinstroke,1.8thickstroke);
+z35=z7+(0.4thinstroke,2.0thickstroke);
+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);
+
+fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--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("n",7em#/12+2ss#,ex#,0); "The Letter N";
+
+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);
+
+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;
+
+lown := currentpicture;
+
+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("c",8em#/12+ss#,ex#,0); "The Letter C";
+
+z1=(w-ss-0.5userh,h-0.5userh);
+z2=z1-(0,thickstroke);
+z3=(w-ss-0.5userh,0.5userh);
+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;
+
+fill cinbody & botserif & cbody & topserif & cycle;
+
+lowc := currentpicture;
+
+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("g",2em#/3+2ss#,ex#,0); "The Letter G";
+
+z1=(w-ss-userw-thickstroke/2,h-0.5userh);
+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;
+
+lowg := currentpicture;
+
+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("l",7em#/12+2ss#,ex#,0); "The Letter L";
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke);
+z6=(w-ss-ssslant,0);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--z4..cycle;
+
+lowl := currentpicture;
+
+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("e",7em#/12+2ss#,ex#,0); "The Letter E";
+
+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);
+z15=.5[z4,z5];
+z16=z15+(0,thinstroke/2);
+z17=z16-(0,thinstroke);
+z21=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+ulserif(3,18,19,20,28)(1);
+
+y11 := y9;
+y29 := y30;
+
+fill
+z1--z3..z18..z19--z20--z8--z10---z11--z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30--z29---z7--z6--z14--z13..z12..z1..cycle;
+
+lowe := currentpicture;
+
+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("f",7em#/12+2ss#,ex#,0); "The Letter F";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = (x3+thickstroke,h-thinstroke);
+z5=(x4,lserh);
+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=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+lrserif(5,31,32,33,34)(1);
+ulserif(3,18,19,20,28)(1);
+
+y4 := y9 := y11;
+
+fill
+z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9--z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5--z17--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("k",7em#/12+2ss#,ex#,0); "The Letter K";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z17=z3 shifted (thickstrike,0);
+z22=z2 shifted (0,h/2+thinstroke-lserh);
+z23=z2 shifted (0,h/2-lserh);
+z24=(w-userw-ss,h);
+z25=z24 shifted (-thinstroke/2-thinstroke,-userh);
+z30=z25 shifted (thinstroke,0);
+z35=0.08[z23,z30];
+z46=0.34[z23,z30];
+z37 = (w-ss-lserw,lserh);
+z36 = z37 shifted (-thickstroke,0);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,13,14,15,16)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,18,19,20,21)(1);
+ulserif(25,26,27,28,29)(1);
+urserif(30,31,32,33,34)(1);
+lrserif(37,38,39,40,41)(1);
+llserif(36,42,43,44,45)(1);
+
+fill
+z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--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);
+endchar;
+
+beginchar("y",7em#/12+2ss#,ex#,0); "The Letter Y";
+
+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);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+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;
+
+lowy := currentpicture;
+
+endchar;
+
+beginchar("z",6em#/12+2ss#,ex#,0); "The Letter Z";
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+if (y6 > y9):
+ y6 := y9;
+fi
+if (y8 < y12):
+ y8 := y12;
+fi
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+lowz := 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("s",3em#/6+2ss#,ex#,0); "The Letter S";
+
+z0 = (w/2,h+o/2);
+z1 = (w/2,0-o/2);
+z2 = (w-ss-userh-o,h-0.5userh);
+z3 = (w-ss,h/4);
+z4 = (ss,3h/4);
+z5 = (ss+userh,0.5userh+thickstroke);
+z14 = z0 shifted (0,-thinstroke);
+z15 = z1 shifted (0,thinstroke);
+z16 = z4 shifted (curvwid,0);
+z17 = z3 shifted (-curvwid,0);
+z18 = z2 shifted (0,-thickstroke);
+z19 = z11 shifted (0,-2thickstroke);
+z20 = z5 shifted (0,-thickstroke);
+z21 = z18 shifted (0,-userw/2);
+z22 = z21 shifted (userh,0);
+z23 = z22 shifted (0,2.5userw);
+z24 = z23 shifted (-userh,0);
+z25 = (w/2,h/2+1.2thinstroke/2);
+z26 = (w/2,h/2-1.2thinstroke/2);
+
+ctbackserif(5,10,11,12,13,20)(2);
+
+pickup pencircle scaled 1;
+
+path outcurves; path incurves; path toprt;
+outcurves = z2..tension 1.1..z0..tension
+ 1.1..z4..z26..z17..z15..tension 1.1..z5;
+incurves = z20..tension 1.1..z1..tension
+ 1.1..z3..z25..z16..z14..tension 1.1..z18;
+toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2;
+
+fill outcurves & botlftserif & incurves & toprt & cycle;
+
+lows := 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("x",7em#/12+2ss#,ex#,0); "The Letter X";
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = ba[z1,z6];
+z41 = bb[z7,z3];
+z42 = bc[z5,z4];
+z42 = bd[z7,z3];
+z43 = be[z8,z2];
+z43 = bf[z6,z1];
+z44 = bg[z8,z2];
+z44 = bh[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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);
+endchar;
+
+beginchar(oct"346",5em#/6+ss#,ex#,0); "The ligature ae";
+
+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 = (ss+lserw,lserh);
+z41 = z40 shifted (thinstroke,0);
+z50 = z31 shifted (0,-1.6thinstroke);
+z100 = (0,y15);
+z101 = (0,y16);
+z102 = (0,y17);
+z51 = aba[z50,z41];
+z51 = abb[z16,z101];
+z52 = abc[z50,z41];
+z52 = abd[z17,z102];
+
+draw z21--z24;
+
+pickup pencircle scaled 2;
+
+llserif(40,42,43,44,45)(1);
+lrserif(41,46,47,48,49)(1);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle;
+fill z51--z16--z17--z52--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;
+
+beginchar(oct"367",5em#/6+ss#,ex#,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-o-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);
+z50 = z31 shifted (0,-1.6thinstroke);
+z40 = 0.5[z31,z28];
+z41 = (0,h/2);
+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);
+z47 = z44 shifted (0,-thinstroke);
+z48 = z45 shifted (0,thinstroke);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z44..z15..z45..z42..cycle;
+unfill z43..z47..z46..z48..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;
+
+beginchar(oct"370",4em#/6+2ss#,ex#,0); "The Letter slash o";
+
+currentpicture := lowo;
+
+pickup pencircle scaled thinstroke;
+bot lft z0 = (ss,0);
+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);
+endchar;
+
+beginchar(oct"376",3em#/6+2ss#,ex#,0); "The Letter thorn";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+lserw,h-lserh);
+z4 = z3 shifted (thickstroke,0);
+z13=(x4,4h/5);
+z14=z13 shifted (0,-thinstroke);
+z15=(w-ss,h/2);
+z16=z15-(curvwid,0);
+z17=(x2,h/5);
+z18=z17+(0,thinstroke);
+z19=(w/2,h);
+z20=z19-(0,thinstroke);
+z21=(w/2,0);
+z22=z21+(0,thinstroke);
+z40 = z13 shifted (thickstroke,0);
+z41 = z40 shifted (0,-thinstroke);
+z42 = z17 shifted (thickstroke,0);
+z43 = z42 shifted (0,thinstroke);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,30,31,32,33)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,34,35,36,37)(1);
+
+fill
+z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle;
+unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--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"255",4em#/6+2ss#,ex#,dep#); "The Letter ng";
+
+z0 = (ss+lserw,lserh);
+z1 = z0 shifted (thickstroke,0);
+z2 = z1 shifted (ss+4lserw,0);
+z3 = z2 shifted (thickstroke,0);
+z20 = (ss+userw,h-userh);
+z21 = z20 shifted (thickstroke,0);
+z22 = z21 shifted (0,userh);
+z23 = z21 shifted (ss+4userw,0);
+z24 = z23 shifted (thickstroke,-thinstroke);
+z29 = z20 shifted (0,userh);
+z30 = z24 shifted (0,userh+thinstroke);
+z31 = 0.5[z30,z29] shifted (0,o);
+z32 = z31 shifted (0,-thinstroke);
+z33 = z28 shifted (0,-userh);
+z40 = z2;
+z41 = z3;
+%z49 = (x40-2userw,-dep);
+z49 = (w/2,-dep);
+z50 = z49 shifted (0,thinstroke);
+z51 = (x8,-dep/3);
+z56 = z21 shifted (0,-thinstroke);
+z57 = z20 shifted (0,-thinstroke);
+z58 = z23 shifted (0,-thinstroke);
+z59 = z24 shifted (0,-thinstroke);
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir
+50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"360",7em#/12+2ss#,ex#,0); "The Letter eth";
+
+currentpicture := lowd;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (ss,h/2);
+rt z1 = (w/2-ss,h/2);
+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,52,53,54,55,56,57,58,59);
+endchar;
+
+beginchar(oct"377",em#+2ss#,ex#,0); "The Letter Eszett";
+
+currentpicture := lows + lows shifted (em/2+hair,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;
diff --git a/fonts/drm/mf/drmscbx10.mf b/fonts/drm/mf/drmscbx10.mf
new file mode 100644
index 0000000000..5a35ec3af7
--- /dev/null
+++ b/fonts/drm/mf/drmscbx10.mf
@@ -0,0 +1,72 @@
+% +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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx11.mf b/fonts/drm/mf/drmscbx11.mf
new file mode 100644
index 0000000000..2f1b333c85
--- /dev/null
+++ b/fonts/drm/mf/drmscbx11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx12.mf b/fonts/drm/mf/drmscbx12.mf
new file mode 100644
index 0000000000..277c1716a8
--- /dev/null
+++ b/fonts/drm/mf/drmscbx12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx14.mf b/fonts/drm/mf/drmscbx14.mf
new file mode 100644
index 0000000000..e90e996467
--- /dev/null
+++ b/fonts/drm/mf/drmscbx14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx17.mf b/fonts/drm/mf/drmscbx17.mf
new file mode 100644
index 0000000000..9d99c895e3
--- /dev/null
+++ b/fonts/drm/mf/drmscbx17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx24.mf b/fonts/drm/mf/drmscbx24.mf
new file mode 100644
index 0000000000..1a7877fcc7
--- /dev/null
+++ b/fonts/drm/mf/drmscbx24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx6.mf b/fonts/drm/mf/drmscbx6.mf
new file mode 100644
index 0000000000..1110208c40
--- /dev/null
+++ b/fonts/drm/mf/drmscbx6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx7.mf b/fonts/drm/mf/drmscbx7.mf
new file mode 100644
index 0000000000..31ae88f347
--- /dev/null
+++ b/fonts/drm/mf/drmscbx7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx8.mf b/fonts/drm/mf/drmscbx8.mf
new file mode 100644
index 0000000000..20661ba22b
--- /dev/null
+++ b/fonts/drm/mf/drmscbx8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscbx9.mf b/fonts/drm/mf/drmscbx9.mf
new file mode 100644
index 0000000000..f24923a3f1
--- /dev/null
+++ b/fonts/drm/mf/drmscbx9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmscap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmscacclet.mf
+input drmscdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmscdigs.mf b/fonts/drm/mf/drmscdigs.mf
new file mode 100644
index 0000000000..fa74cd5dfe
--- /dev/null
+++ b/fonts/drm/mf/drmscdigs.mf
@@ -0,0 +1,265 @@
+% +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.
+
+picture six;
+
+beginchar("1",0.65digwid#+2ss#,ex#,0); "The digit 1";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,lserhl);
+z1 = z0 shifted (thickstroke,0);
+z10 = (w/2-thickstroke/2,h-2userh);
+z11 = z10 shifted (thickstroke,0);
+z12 = z11 shifted (0,2userh+o);
+z13 = z12 shifted (-thickstroke,0);
+z14 = z10 shifted (-lserwl-o,0);
+z15 = z14 shifted (0,thinl);
+
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+
+fill
+z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--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("2",0.75digwid#+2ss#,ex#,0); "The digit 2";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+fill
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}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("3",0.75digwid#+2ss#,ex#,0); "The digit 3";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke/2);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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",0.75digwid#+2ss#,ex#,0); "The digit 4";
+italcorr(ex#*slant);
+
+z0 = (w-ss-lserwl,h+2o);
+z1 = (x0,2h/5);
+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 = zca[z3,z4];
+z5 = zcb[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 = lserhl;
+z15 = z14 shifted (thickstroke,0);
+
+llserif(14,16,17,18,19)(1);
+lrserif(15,20,21,22,23)(1);
+
+fill
+z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle;
+unfill z4--z6--z5--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,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.75digwid#+2ss#,ex#,0); "The digit 5";
+italcorr(ex#*slant);
+
+z0 = (w-ss-bulbsh,h+o);
+z1 = (ss+bulbsh,h+o);
+z2 = z0 shifted (0,-thickstroke);
+z3 = z1 shifted (0,-thickstroke);
+z4 = (w/2,0);
+z5 = z4 shifted (0,thinstroke);
+z6 = z3 shifted (thinstroke,0);
+z7 = (ss+0.6bulbsh,0.55h);
+z19 = z7 shifted (thinstroke,0);
+z8 = (w-ss,2h/3);
+z9 = z7 shifted (thinstroke,thinstroke);
+z10 = (w-ss-thickstroke,h/3);
+z11 = (ss,h/3);
+z16 = z10 shifted (thickstroke,0);
+z17 = (w/2,2h/3);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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.65digwid#+2ss#,ex#,0); "The digit 7";
+italcorr(ex#*slant);
+
+z0 = (ss,h+o);
+z1 = z0 shifted (0,-thickstroke);
+z2 = (w-ss,h+o);
+z3 = z2 shifted (0,-thickstroke);
+z4 = (w/4,0);
+z5 = z4 shifted (thickstroke,0);
+z6 = z3 shifted (-1.8thinstroke,0);
+z7 = (w/3,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",0.75digwid#+2ss#,ex#,0); "The digit 8";
+italcorr(ex#*slant);
+
+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("0",0.75digwid#+2ss#,ex#,0); "The digit 0";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,-o);
+z2 = (w-ss,h/2);
+z3 = (ss,h/2);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z2 shifted (-curvwid,0);
+z7 = z3 shifted (curvwid,0);
+
+fill z0{right}..{down}z2{down}..{left}z1{left}..{up}z3{up}..{right}cycle;
+unfill z4..z6..z5..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,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.75digwid#+2ss#,ex#,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/4);
+penpos3(thinl,-90);
+z3r = (w/2,0-o);
+penpos4(thickl,0);
+z4r = (w-ss,ex/4);
+penpos5(thinl,90);
+z5l = (w/2,ex/2+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.75digwid#+2ss#,ex#,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/4);
+penpos3(thinl,90);
+z3r = (w/2,h-ex/2-o);
+penpos4(thickl,0);
+z4l = (ss,h-ex/4);
+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/fonts/drm/mf/drmscdol.mf b/fonts/drm/mf/drmscdol.mf
new file mode 100644
index 0000000000..b84aafc370
--- /dev/null
+++ b/fonts/drm/mf/drmscdol.mf
@@ -0,0 +1,36 @@
+% +AMDG This document was begun on 13 February 11EE,
+% Quinquegesima Sunday, and it is humbly dedicated to Our
+% Sorrowful Lord Jesus, for His mercy.
+
+beginchar("$",0.5em#+2ss#,ex#,0); "The dollar sign, $";
+
+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-1.5thickl/4,h+o);
+z21 = (w/2-1.5thickl/4,-o);
+z22 = (w/2+1.5thickl/4,h+o);
+z23 = (w/2+1.5thickl/4,-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;
diff --git a/fonts/drm/mf/drmscligs.mf b/fonts/drm/mf/drmscligs.mf
new file mode 100644
index 0000000000..e9b1e75787
--- /dev/null
+++ b/fonts/drm/mf/drmscligs.mf
@@ -0,0 +1,127 @@
+% +AMDG This document was begun on 19 August 2007, the Feast of St. John
+% Eudes, 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.
+
+ligtable "-" : "-" =: oct"025";
+ligtable oct"025" : "-" =: oct"026";
+ligtable "`" : "`" =: oct"020";
+ligtable "'" : "'" =: oct"021";
+ligtable "?" : "`" =: oct"276";
+ligtable "!" : "`" =: oct"275";
+ligtable ">" : ">" =: oct"024";
+ligtable "<" : "<" =: oct"023";
+
+ligtable "A" : oct"200" : oct"201" : oct"300" : oct"301" :
+ oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#,
+ "G" kern-0.1u#,"J" kern-0.1u#,
+ "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#,
+ "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#;
+ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#;
+ligtable "D" : oct"204" : oct"320" : oct"336" :
+ "C" kern 0.1u#,"G" kern 0.2u#,
+ "O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#,
+ "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#,
+ "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#,
+ "V" kern -0.05u#,"W" kern -0.05u#;
+ligtable "F" : "A" kern -0.2u#,
+ "a" kern-0.1u#,"b" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.2u#,
+ "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#,
+ "m" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.1u#,
+ "p" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.1u#,
+ "s" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "v" kern-0.1u#,"w" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.1u#,"z" kern-0.1u#;
+ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#,
+ "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#,
+ "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#,
+ "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#,
+ "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#,
+ "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#,
+ "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#;
+ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#,
+ "O" kern -0.1u#,"Q" kern -0.1u#;
+ligtable "O" : oct"216" : oct"322" : oct"323" : oct"324" :
+ oct"325" : oct"326" : "A" kern -0.05u#,"C" kern 0.1u#,
+ "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#;
+ligtable "P" : "A" kern -0.1u#;
+ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#,
+ "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#;
+ligtable "S" : oct"221" : oct"222" : oct"223" :
+ "A" kern -0.1u#;
+ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#,
+ "h" kern -0.2u#,
+ "a" kern-0.2u#,"b" kern-0.2u#,"c" kern-0.2u#,
+ "d" kern-0.2u#,"e" kern-0.2u#,"f" kern-0.2u#,
+ "g" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.2u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#,
+ "p" kern-0.2u#,"q" kern-0.2u#,"r" kern-0.2u#,
+ "s" kern-0.2u#,"t" kern-0.2u#,"u" kern-0.2u#,
+ "v" kern-0.2u#,"w" kern-0.2u#,"x" kern-0.2u#,
+ "y" kern-0.2u#,"z" kern-0.2u#;
+ligtable "U" : oct"226" : oct"227" : oct"331" : oct"332" :
+ oct"333" : oct"334" : "A" kern -0.05u#;
+ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#;
+ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#,
+ "a" kern -0.3u#;
+ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#,
+ "O" kern -0.05u#,"Q" kern -0.05u#;
+ligtable "Y" : oct"230" : oct"335" : "A" kern -0.2u#,
+ "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#,
+ "Q" kern -0.05u#;
+ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" :
+ oct"342" : oct"343" : oct"344" : oct"345" : "c" kern-0.1u#,
+ "g" kern-0.1u#,"j" kern-0.1u#,"o" kern-0.1u#,"q" kern-0.1u#,
+ "t" kern-0.2u#,"u" kern-0.2u#,"y" kern-0.2u#,
+ "v" kern-0.2u#,"w" kern-0.1u#,"r" kern-0.1u#;
+ligtable "b" : "g" kern 0.1u#,"o" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#;
+ligtable "c" : oct"242" : oct"243" : "v" kern -0.10u#,
+ oct"347" : "w" kern -0.10u#, "y" kern -0.10u#;
+ligtable "d" : oct"244" : oct"360" : "c" kern 0.1u#,"g" kern 0.2u#,
+ "o" kern 0.1u#, "q" kern 0.2u#,"s" kern 0.1u#,
+ "h" kern 0.1u#, "m" kern 0.1u#,"p" kern 0.1u#,
+ "s" kern 0.1u#,"x" kern -0.05u#,"y" kern -0.05u#,
+ "v" kern -0.05u#,"w" kern -0.05u#;
+ligtable "f" : "a" kern -0.2u#;
+ligtable "g" : oct"247" : "a" kern -0.1u#,"b" kern -0.1u#,
+ "d" kern -0.1u#, "e" kern -0.1u#, "f" kern -0.1u#,
+ "h" kern -0.1u#, "i" kern -0.1u#, "j" kern -0.1u#,
+ "k" kern -0.1u#, "l" kern -0.1u#, "m" kern -0.1u#,
+ "n" kern -0.1u#, "p" kern -0.1u#, "r" kern -0.1u#,
+ "t" kern -0.1u#, "u" kern -0.1u#, "v" kern -0.1u#,
+ "w" kern -0.1u#,"x" kern -0.1u#,"y" kern -0.1u#;
+ligtable "h" : "C" kern -0.1u#,"G" kern -0.1u#,
+ "O" kern -0.1u#,"Q" kern -0.1u#;
+ligtable "o" : oct"256" : oct"362" : oct"363" : oct"364" :
+ oct"365" : oct"366" : "a" kern -0.05u#,"c" kern 0.1u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#,
+ "x" kern -0.05u#,"y" kern -0.05u#;
+ligtable "p" : "A" kern -0.1u#;
+ligtable "q" : "a" kern -0.05u#,"c" kern 0.1u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#,
+ "x" kern -0.05u#,"y" kern -0.05u#;
+ligtable "r" : oct"257" : "n" kern -0.1u#,"t" kern -0.1u#;
+ligtable "s" : oct"261" : oct"262" : oct"263" : "a" kern -0.1u#;
+ligtable "t" : "a" kern -0.2u#;
+ligtable "u" : "a" kern -0.05u#;
+ligtable "v" : "a" kern -0.2u#,"c" kern -0.05u#,
+ "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "w" : "a" kern -0.2u#,"c" kern -0.05u#,
+ "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "x" : "c" kern -0.05u#,"g" kern -0.05u#,
+ "o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "y" : oct"270" : oct"375" : "a" kern -0.2u#,
+ "c" kern -0.05u#,"g" kern -0.05u#,"o" kern -0.05u#,
+ "q" kern -0.05u#;
diff --git a/fonts/drm/mf/drmsl10.mf b/fonts/drm/mf/drmsl10.mf
new file mode 100644
index 0000000000..65ddc2e9ce
--- /dev/null
+++ b/fonts/drm/mf/drmsl10.mf
@@ -0,0 +1,75 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl11.mf b/fonts/drm/mf/drmsl11.mf
new file mode 100644
index 0000000000..ea3cc7c271
--- /dev/null
+++ b/fonts/drm/mf/drmsl11.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl12.mf b/fonts/drm/mf/drmsl12.mf
new file mode 100644
index 0000000000..c5e2aeb117
--- /dev/null
+++ b/fonts/drm/mf/drmsl12.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl14.mf b/fonts/drm/mf/drmsl14.mf
new file mode 100644
index 0000000000..1bca6ba507
--- /dev/null
+++ b/fonts/drm/mf/drmsl14.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl17.mf b/fonts/drm/mf/drmsl17.mf
new file mode 100644
index 0000000000..a179743af1
--- /dev/null
+++ b/fonts/drm/mf/drmsl17.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl24.mf b/fonts/drm/mf/drmsl24.mf
new file mode 100644
index 0000000000..3840eddee9
--- /dev/null
+++ b/fonts/drm/mf/drmsl24.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl6.mf b/fonts/drm/mf/drmsl6.mf
new file mode 100644
index 0000000000..c2a6d269b6
--- /dev/null
+++ b/fonts/drm/mf/drmsl6.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.2cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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);
+
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl7.mf b/fonts/drm/mf/drmsl7.mf
new file mode 100644
index 0000000000..735f043a3d
--- /dev/null
+++ b/fonts/drm/mf/drmsl7.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.2cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.07u#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl8.mf b/fonts/drm/mf/drmsl8.mf
new file mode 100644
index 0000000000..d651a03910
--- /dev/null
+++ b/fonts/drm/mf/drmsl8.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsl9.mf b/fonts/drm/mf/drmsl9.mf
new file mode 100644
index 0000000000..3b0a686fcd
--- /dev/null
+++ b/fonts/drm/mf/drmsl9.mf
@@ -0,0 +1,75 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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;
+
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+
+input drmligs
+input drmcap.mf
+input drmlowmac.mf
+input drmlow.mf
+input drmpunct.mf
+input drmacc.mf
+input drmacclet.mf
+input drmdigs.mf
+input drmoldstynums.mf
+
+end;
diff --git a/fonts/drm/mf/drmsupfigs.mf b/fonts/drm/mf/drmsupfigs.mf
new file mode 100644
index 0000000000..7c36f794cc
--- /dev/null
+++ b/fonts/drm/mf/drmsupfigs.mf
@@ -0,0 +1,335 @@
+% +AMDG This document was begun on 1X September 11EX, the
+% feast of St. Thomas of Villanova, EC, and the
+% commemoration of Ss. Maurice and Companions, 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("1",0.7digwid#+ss#,cap#,0); "Superior digit 1";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,h);
+z1 = z0 shifted (thickstroke,0);
+z2 = (w/2-thickstroke/2,h/2+lserh);
+z3 = z2 shifted (thickstroke,0);
+lrserif(3,4,5,6,7)(1);
+llserif(2,9,10,11,12)(1);
+z13 = (x10,y0-thinstroke);
+z14 = z13 shifted (0,-thinstroke);
+z15 = (z14--(w,y14)) intersectionpoint (z0--z2);
+y6 := y11 := h/2;
+
+path supone; supone = z13{right}..z0--z1--z3..z4..z5--z6--
+ z11--z10..z9..z2--z15--z14--cycle;
+fill supone shifted (0,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("2",0.7digwid#+ss#,cap#,0); "Superior digit 2";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w-ss/2,5h/6);
+z3 = z2 shifted (-thickstroke,0);
+z4 = (ss/2,5h/6);
+ulftbulb(4,5,6,7,8);
+z9 = (z5--z7) intersectionpoint (z6--z4) shifted
+ (thinstroke/2,thinstroke/2);
+z10 = (ss/2,h/2);
+z11 = z10 shifted (0,thickstroke/2);
+z12 = (w-ss/2,y10);
+z13 = (x12,y11+thinstroke);
+z14 = z13 shifted (-thinstroke,0);
+z15 = (x14,y11);
+z16 = z11 shifted (thickstroke,0);
+
+path suptwo; suptwo = z15--z14--z13--z12--z10--z11{dir 45}..
+ z3..z1{left}..{dir -135}z5{right}..z6..z7..z4..z0..z2..
+ {dir -135}z16--cycle;
+fill suptwo shifted (0,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("3",0.7digwid#+ss#,cap#,0); "Superior digit 3";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,h/2);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,7h/8);
+z5 = z4 shifted (-thickstroke,0);
+z6 = (w-ss/2,5h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = (ss/2,5h/8);
+ulftbulb(8,10,11,12,13);
+y10 := y10 - bulbsh/2;
+z14 = z9 shifted (bulbsh,bulbsh);
+z15 = z9 shifted (2bulbsh,0);
+z16 = z9 shifted (bulbsh,-bulbsh);
+y16 := y16 + bulbsh/2;
+z17 = (x0-thinstroke,3h/4+thinstroke/2);
+z18 = z17 shifted (0,-thinstroke);
+z19 = 0.5[z17,z18] shifted (thickstroke,0);
+
+path supthree; supthree = z8{up}..{right}z0{right}..
+ {down}z4{down}..{left}z19{right}..{down}z6{down}..
+ {left}z2{left}..{up}z9..z14..z15{down}..
+ {left}z16{dir -30}..z3..z7..{left}z18--z17{right}..
+ z5..z1..{dir -135}z10{right}..{down}z11..z12..cycle;
+pickup pencircle scaled 2;
+fill supthree shifted (0,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("4",0.7digwid#+ss#,cap#,0); "Superior digit 4";
+italcorr(ex#*slant);
+
+z0 = (5w/6,h+o);
+z1 = (x0,h/2+lserh);
+z2 = z1 shifted (-thickstroke,0);
+lrserif(1,3,4,5,6)(1);
+llserif(2,7,8,9,10)(1);
+y9 := y5 := h/2;
+x8 := x9 := (x8 + lserw/2);
+x4 := x5 := (x4 - lserw/2);
+z11 = (x2,4h/6);
+z12 = (ss/2,y11);
+z13 = z11 shifted (0,thinstroke);
+z14 = z12 shifted (thinstroke,0);
+z15 = z0 shifted (0,-thinstroke);
+z16 = (z14--z15) intersectionpoint (z13--(0,y13));
+z17 = (z14--z15) intersectionpoint (z13--(x13,h));
+
+pickup pencircle scaled 2;
+path supfour; supfour = z0--z1{down}..{right}z4--z5--z9--
+ z8{right}..{up}z2--z11--z12--cycle;
+path insidefour; insidefour = z16--z17--z13--cycle;
+fill supfour shifted (0,0);
+unfill insidefour shifted (0,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("5",0.7digwid#+ss#,cap#,0); "Superior digit 5";
+italcorr(ex#*slant);
+
+z0 = (7w/8,h);
+z1 = (w/8,h);
+z2 = z0 shifted (0,-3thinstroke);
+z3 = z1 shifted (0,-4.5thinstroke);
+z4 = z2 shifted (-thinstroke,0);
+z5 = z4 shifted (0,thinstroke);
+z6 = (w-ss/2,0.63h);
+z7 = (w/2,h/2);
+z8 = (ss/2,y6);
+ulftbulb(8,9,10,11,12);
+z13 = z7 shifted (0,thinstroke);
+z14 = z6 shifted (-thickstroke,0);
+z15 = z3 shifted (thinstroke,2.5thinstroke);
+z16 = z3 shifted (thinstroke,thinstroke);
+
+pickup pencircle scaled 2;
+path supfive; supfive = z5--z4--z2--z0--z1--z3{right}..
+ z14..z13..{dir 150}z11{right}..z10..z9..z8..z7..z6..
+ {left}z16--z15--cycle;
+fill supfive shifted (0,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("7",0.7digwid#+ss#,cap#,0); "Superior digit 7";
+italcorr(ex#*slant);
+
+z0 = (ss/2,h);
+z1 = (x0,y0-thickstroke-thinstroke);
+z2 = z1 shifted (thinstroke,0);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,y3);
+z5 = (w-ss/2,h);
+z6 = (w/2-thickstroke,h/2);
+z7 = z6 shifted (thickstroke,0);
+z8 = z4 shifted (-thinstroke,0);
+
+path supsev; supsev = z6{up}..z8--z3--z2--z1--z0--z5--
+ z4..{down}z7--cycle;
+fill supsev shifted (0,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("8",0.7digwid#+ss#,cap#,0); "Superior digit 8";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,3h/4+thinstroke);
+z3 = z2 shifted (0,-thinstroke);
+z4 = (w/2,h/2);
+z5 = z4 shifted (0,thinstroke);
+z6 = (w-ss/2,7h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = z8 shifted (thickstroke,0);
+z10 = (w-ss/2,5h/8);
+z11 = z10 shifted (-thickstroke,0);
+z12 = (ss/2,5h/8);
+z13 = z12 shifted (thickstroke,0);
+
+path upperloop; upperloop = z0..z6..z3..z8..cycle;
+path unupperloop; unupperloop = z1..z7..z2..z9..cycle;
+path lowerloop; lowerloop = z2..z10..z4..z12..cycle;
+path unlowerloop; unlowerloop = z3..z11..z5..z13..cycle;
+
+fill upperloop shifted (0,0);
+fill lowerloop shifted (0,0);
+unfill unupperloop shifted (0,0);
+unfill unlowerloop shifted (0,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("0",0.7digwid#+1.4ss#,cap#,0); "Superior digit 0";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = (0.7ss,3h/4);
+z2 = (w/2,h/2);
+z3 = (w-0.7ss,3h/4);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z3 shifted (-thickstroke,0);
+z6 = z2 shifted (0,thinstroke);
+z7 = z1 shifted (thickstroke,0);
+
+path supzero; supzero = z0..z3..z2..z1..cycle;
+path unsupzero; unsupzero = z4..z5..z6..z7..cycle;
+fill supzero shifted (0,0);
+unfill unsupzero shifted (0,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("6",0.7digwid#+ss#,cap#,0); "Superior digit 6";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+z0r = (2w/3,h);
+penpos1(2thinl,180);
+z1r = (ss+thinl,h/2+h/3);
+penpos2(thickl,180);
+z2r = (ss,5h/8);
+penpos3(thinl,-90);
+z3r = (w/2,h/2);
+penpos4(thickl,0);
+z4r = (w-ss,5h/8);
+penpos5(thinl,90);
+z5r = (w/2,0.8h);
+penpos6(thinl,0);
+z6l = z0l;
+penpos7(thinl,-90);
+z7l = z6l;
+penpos8(thinl,180);
+z8l = z7l;
+
+penstroke (z5e..z2e..z3e..z4e..cycle) shifted (0,0);
+penstroke (z0e..z1e..z2e) shifted (0,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("9",0.7digwid#+ss#,cap#,0); "Superior digit 9";
+italcorr(ex#*slant);
+
+penpos0(thinl,90);
+z0r = (2w/3,h);
+penpos1(2thinl,180);
+z1r = (ss+thinl,h/2+h/3);
+penpos2(thickl,180);
+z2r = (ss,5h/8);
+penpos3(thinl,-90);
+z3r = (w/2,h/2);
+penpos4(thickl,0);
+z4r = (w-ss,5h/8);
+penpos5(thinl,90);
+z5r = (w/2,0.8h);
+penpos6(thinl,0);
+z6l = z0l;
+penpos7(thinl,-90);
+z7l = z6l;
+penpos8(thinl,180);
+z8l = z7l;
+
+penstroke ((z5e..z2e..z3e..z4e..cycle) reflectedabout
+ ((0,3h/4),(w,3h/4))) shifted (0,0);
+penstroke ((z0e..z1e..z2e) reflectedabout
+ ((0,3h/4),(w,3h/4)) reflectedabout
+ ((w/2,h),(w/2,0))) shifted (0,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("X",0.7digwid#+ss#,cap#,0); "Superior digit X";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w-ss/2,5h/6);
+z3 = z2 shifted (-thickstroke,0);
+z4 = (ss/2,5h/6);
+ulftbulb(4,5,6,7,8);
+z9 = (z5--z7) intersectionpoint (z6--z4) shifted
+ (thinstroke/2,thinstroke/2);
+z10 = (ss/2,h/2);
+z11 = z10 shifted (0,thickstroke/2);
+z12 = (w-ss/2,y10);
+z13 = (x12,y11+thinstroke);
+z14 = z13 shifted (-thinstroke,0);
+z15 = (x14,y11);
+z16 = z11 shifted (thickstroke,0);
+
+path suptwo; suptwo = z15--z14--z13--z12--z10--z11{dir 45}..
+ z3..z1{left}..{dir -135}z5{right}..z6..z7..z4..z0..z2..
+ {dir -135}z16--cycle;
+fill suptwo rotatedaround ((w/2,3h/4),180);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+endchar;
+
+beginchar("E",0.7digwid#+ss#,cap#,0); "Superior digit E";
+italcorr(ex#*slant);
+
+z0 = (w/2,h);
+z1 = z0 shifted (0,-thinstroke);
+z2 = (w/2,h/2);
+z3 = z2 shifted (0,thinstroke);
+z4 = (w-ss/2,7h/8);
+z5 = z4 shifted (-thickstroke,0);
+z6 = (w-ss/2,5h/8);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (ss/2,7h/8);
+z9 = (ss/2,5h/8);
+ulftbulb(8,10,11,12,13);
+y10 := y10 - bulbsh/2;
+z14 = z9 shifted (bulbsh,bulbsh);
+z15 = z9 shifted (2bulbsh,0);
+z16 = z9 shifted (bulbsh,-bulbsh);
+y16 := y16 + bulbsh/2;
+z17 = (x0-thinstroke,3h/4+thinstroke/2);
+z18 = z17 shifted (0,-thinstroke);
+z19 = 0.5[z17,z18] shifted (thickstroke,0);
+
+path supthree; supthree = z8{up}..{right}z0{right}..
+ {down}z4{down}..{left}z19{right}..{down}z6{down}..
+ {left}z2{left}..{up}z9..z14..z15{down}..
+ {left}z16{dir -30}..z3..z7..{left}z18--z17{right}..
+ z5..z1..{dir -135}z10{right}..{down}z11..z12..cycle;
+pickup pencircle scaled 2;
+fill supthree rotatedaround ((w/2,3h/4),180);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,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/fonts/drm/mf/drmsy10.mf b/fonts/drm/mf/drmsy10.mf
new file mode 100644
index 0000000000..3c59a13438
--- /dev/null
+++ b/fonts/drm/mf/drmsy10.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OMS";
+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#;
+slant := 1/3;
+font_slant slant;
+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#=thinstroke#/2;
+
+%%%% Define Dimensions for Letters %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmlowmac.mf
+input drmmathoms.mf
+input drmmathfrac.mf
+input drmmathheb.mf
+currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity;
+input drmmathcal.mf
+
+end;
diff --git a/fonts/drm/mf/drmsym10.mf b/fonts/drm/mf/drmsym10.mf
new file mode 100644
index 0000000000..661d2e627f
--- /dev/null
+++ b/fonts/drm/mf/drmsym10.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drmsym"; font_size:=10pt#; font_coding_scheme "TS1";
+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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+font_slant 0u#;
+slant = 0;
+font_normal_space 1u#;
+font_normal_stretch 1u#;
+font_normal_shrink 1u#;
+font_x_height cap#/phi;
+font_quad em#;
+font_extra_space 2u#;
+thinwid# = 0.4pt#;
+define_pixels(thinwid);
+
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmlowmac.mf
+input drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym11.mf b/fonts/drm/mf/drmsym11.mf
new file mode 100644
index 0000000000..62032e9a74
--- /dev/null
+++ b/fonts/drm/mf/drmsym11.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym12.mf b/fonts/drm/mf/drmsym12.mf
new file mode 100644
index 0000000000..61cfa2b6cf
--- /dev/null
+++ b/fonts/drm/mf/drmsym12.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym14.mf b/fonts/drm/mf/drmsym14.mf
new file mode 100644
index 0000000000..aeb2f2b943
--- /dev/null
+++ b/fonts/drm/mf/drmsym14.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym17.mf b/fonts/drm/mf/drmsym17.mf
new file mode 100644
index 0000000000..5c0eb1793c
--- /dev/null
+++ b/fonts/drm/mf/drmsym17.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym24.mf b/fonts/drm/mf/drmsym24.mf
new file mode 100644
index 0000000000..1f8f3fe1b4
--- /dev/null
+++ b/fonts/drm/mf/drmsym24.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym7.mf b/fonts/drm/mf/drmsym7.mf
new file mode 100644
index 0000000000..efbbdf672f
--- /dev/null
+++ b/fonts/drm/mf/drmsym7.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+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.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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym8.mf b/fonts/drm/mf/drmsym8.mf
new file mode 100644
index 0000000000..9991247e17
--- /dev/null
+++ b/fonts/drm/mf/drmsym8.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant 0u#;
+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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsym9.mf b/fonts/drm/mf/drmsym9.mf
new file mode 100644
index 0000000000..96c9346a93
--- /dev/null
+++ b/fonts/drm/mf/drmsym9.mf
@@ -0,0 +1,74 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "TS1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=7asch#/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 drmsymbols.mf
+input drmacc.mf
+input drmoldstynums.mf
+input drmoldstyfracs.mf
+input drmdigs.mf
+input drmromannums.mf;
+input drmornaments.mf;
+
+end;
diff --git a/fonts/drm/mf/drmsymbols.mf b/fonts/drm/mf/drmsymbols.mf
new file mode 100644
index 0000000000..0df981ac4e
--- /dev/null
+++ b/fonts/drm/mf/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/fonts/drm/mf/drmtc10.mf b/fonts/drm/mf/drmtc10.mf
new file mode 100644
index 0000000000..b19e008869
--- /dev/null
+++ b/fonts/drm/mf/drmtc10.mf
@@ -0,0 +1,71 @@
+% +AMDG
+
+font_identifier:="drmsc"; 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.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#;
+
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc11.mf b/fonts/drm/mf/drmtc11.mf
new file mode 100644
index 0000000000..5060cffcf8
--- /dev/null
+++ b/fonts/drm/mf/drmtc11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc12.mf b/fonts/drm/mf/drmtc12.mf
new file mode 100644
index 0000000000..43ee7d3ef8
--- /dev/null
+++ b/fonts/drm/mf/drmtc12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc14.mf b/fonts/drm/mf/drmtc14.mf
new file mode 100644
index 0000000000..58438263d0
--- /dev/null
+++ b/fonts/drm/mf/drmtc14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.4thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc17.mf b/fonts/drm/mf/drmtc17.mf
new file mode 100644
index 0000000000..e0d4269821
--- /dev/null
+++ b/fonts/drm/mf/drmtc17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc24.mf b/fonts/drm/mf/drmtc24.mf
new file mode 100644
index 0000000000..1ef0223dd4
--- /dev/null
+++ b/fonts/drm/mf/drmtc24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.2pt#;
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc6.mf b/fonts/drm/mf/drmtc6.mf
new file mode 100644
index 0000000000..f56ab5e06f
--- /dev/null
+++ b/fonts/drm/mf/drmtc6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.4cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant slant;
+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#=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#=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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc7.mf b/fonts/drm/mf/drmtc7.mf
new file mode 100644
index 0000000000..60762a533c
--- /dev/null
+++ b/fonts/drm/mf/drmtc7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_slant slant;
+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#=0.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc8.mf b/fonts/drm/mf/drmtc8.mf
new file mode 100644
index 0000000000..ee76821d00
--- /dev/null
+++ b/fonts/drm/mf/drmtc8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=5cap#/6;
+em#=cap#;
+ex#=0.6cap#;
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 0;
+font_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.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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtc9.mf b/fonts/drm/mf/drmtc9.mf
new file mode 100644
index 0000000000..09a6adf9fa
--- /dev/null
+++ b/fonts/drm/mf/drmtc9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.3pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+input drmtcdol.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcacclet.mf b/fonts/drm/mf/drmtcacclet.mf
new file mode 100644
index 0000000000..eff8b8fcfb
--- /dev/null
+++ b/fonts/drm/mf/drmtcacclet.mf
@@ -0,0 +1,685 @@
+% +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(oct"350",7em#/12+2ss#,1.2ex#,0); "The letter egrave";
+
+currentpicture := lowe + grave shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+endchar;
+
+beginchar(oct"351",7em#/12+2ss#,1.2ex#,0); "The letter eacute";
+
+currentpicture := lowe + acute shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+endchar;
+
+beginchar(oct"354",0.28em#+2ss#,1.2ex#,0); "the letter igrave";
+currentpicture := dotlessi + grave shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+endchar;
+
+beginchar(oct"355",0.28em#+2ss#,1.2ex#,0); "the letter iacute";
+currentpicture := dotlessi + acute shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+endchar;
+
+beginchar(oct"356",0.28em#+2ss#,1.2ex#,0); "the letter icirc";
+currentpicture := dotlessi + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.8pwid);
+endchar;
+
+beginchar(oct"357",0.28em#+2ss#,1.2ex#,0); "dotless i with diaresis";
+
+currentpicture := dotlessi + diaresis shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"352",7em#/12+2ss#,1.2ex#,0); "e with circumflex";
+
+currentpicture := lowe + circumflex shifted
+ (w/2-pwid,-(cap-ex)+2pwid);
+
+endchar;
+
+beginchar(oct"353",7em#/12+2ss#,1.2ex#,0); "e with diaresis";
+
+currentpicture := lowe + diaresis shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"362",4em#/6+2ss#,1.2ex#,0); "the letter ograve";
+
+currentpicture := lowo + grave shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"363",4em#/6+2ss#,1.2ex#,0); "the letter oacute";
+
+currentpicture := lowo + acute shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"366",4em#/6+2ss#,1.2ex#,0); "o with diaresis";
+
+currentpicture := lowo + diaresis shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"365",4em#/6+2ss#,1.2ex#,0); "o with tilde";
+
+currentpicture := lowo + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.8pwid);
+
+endchar;
+
+beginchar(oct"364",4em#/6+2ss#,1.2ex#,0); "o with circumflex";
+
+currentpicture := lowo + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.8pwid);
+
+endchar;
+
+beginchar(oct"340",2em#/3+2ss#,1.2ex#,0); "The letter agrave";
+
+currentpicture := lowa + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"341",2em#/3+2ss#,1.2ex#,0); "The letter aacute";
+
+currentpicture := lowa + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"342",2em#/3+2ss#,1.2ex#,0); "a with circumflex";
+
+currentpicture := lowa + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"343",2em#/3+2ss#,1.2ex#,0); "a with tilde";
+
+currentpicture := lowa + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"344",2em#/3+2ss#,1.2ex#,0); "a with diaresis";
+
+currentpicture := lowa + diaresis shifted
+ (w/2-pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"345",2em#/3+2ss#,1.2ex#,0); "a with ring";
+
+currentpicture := lowa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+1.3pwid);
+
+endchar;
+
+beginchar(oct"267",7em#/12+2ss#,1.2ex#,0); "u with ring";
+
+currentpicture := lowu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,-(cap-ex)+1.4pwid);
+
+endchar;
+
+beginchar(oct"347",ex#+2ss#,1.2ex#,1.5pwid#); "c cedille";
+
+currentpicture := lowc + cedille shifted (w-1.7pwid,0);
+
+endchar;
+
+beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex";
+
+currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla";
+
+currentpicture := capa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent";
+
+currentpicture := capc + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex";
+
+currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex";
+
+currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex";
+
+currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla";
+
+currentpicture := cape + revcid shifted (2w/3-8o,0);
+
+endchar;
+
+beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex";
+
+currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent";
+
+currentpicture := capl + acute shifted (w/2-1.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent";
+
+currentpicture := capl;
+fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L";
+
+currentpicture := capl;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (-2hair,h/2);
+z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)--
+ (ss+userw+thickstroke/2,0));
+z1 = 2[z0,z2] shifted (thickstroke,0);
+path intline; intline = z0--z1;
+
+draw intline rotatedaround(z2,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"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent";
+
+currentpicture := capn + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex";
+
+currentpicture := capn + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis";
+
+currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent";
+
+currentpicture := capr + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex";
+
+currentpicture := capr + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent";
+
+currentpicture := caps + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum";
+
+currentpicture := caps + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla";
+
+currentpicture := caps + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum";
+
+currentpicture := capt + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla";
+
+currentpicture := capt + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut";
+
+currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid);
+
+endchar;
+
+beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent";
+
+currentpicture := capu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut";
+
+currentpicture := capy + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent";
+
+currentpicture := capz + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum";
+
+currentpicture := capz + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot";
+
+currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot";
+
+currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"240",2em#/3+2ss#,1.2ex#,0); "The letter a, inverse circum";
+
+currentpicture := lowa + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"241",2em#/3+2ss#,1.2ex#,0); "The letter a, reverse cedilla";
+
+currentpicture := lowa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"242",8em#/12+2ss#,1.2ex#,0); "c with acute";
+
+currentpicture := lowc + acute shifted (w/2-pwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"243",8em#/12+2ss#,1.2ex#,0); "c inverse circum";
+
+currentpicture := lowc + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"244",7em#/12+2ss#,asch#,0); "d apostrophe";
+
+currentpicture := lowd;
+fill commapost shifted (w-0.2pwid-ss,h-(h-ex)-0.3pwid);
+
+endchar;
+
+beginchar(oct"245",7em#/12+2ss#,1.2ex#,0); "e, inverse circumflex";
+
+currentpicture := lowe + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"246",7em#/12+2ss#,1.2ex#,0); "e, reverse cedilla";
+
+currentpicture := lowe + revcid shifted (w/2-0.3pwid,0);
+
+endchar;
+
+beginchar(oct"247",2em#/3+2ss#,1.2ex#,dep#); "g, inverse circum";
+
+currentpicture := lowg + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"250",7em#/12+2ss#,asch#,0); "l, with acute";
+
+currentpicture := lowl + acute shifted (w/2-pwid,0.5pwid);
+
+endchar;
+
+beginchar(oct"251",7em#/12+2ss#,asch#,0); "l, with apostrophe";
+
+currentpicture := lowl;
+fill commapost shifted (w-pwid-ss,h-(h-ex)-0.2pwid);
+
+endchar;
+
+beginchar(oct"252",7em#/12+2ss#,1.2ex#,0); "slashed l";
+
+currentpicture := lowl;
+
+pickup pencircle scaled thinl;
+z0 = (0,h/2);
+z1 = z0 shifted (3thickstroke,0);
+z2 = 0.5[z0,z1];
+path crossbar; crossbar = z0--z1;
+draw crossbar rotatedaround (z2,30);
+
+penlabels(0,1,2);
+endchar;
+
+beginchar(oct"253",7em#/12+2ss#,1.2ex#,0); "n, acute accent";
+
+currentpicture := lown + acute shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"254",7em#/12+2ss#,1.2ex#,0); "n, inverse circum";
+
+currentpicture := lown + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"256",4em#/6+2ss#,1.2ex#,0); "o, Hungarian umlaut";
+
+currentpicture := lowo + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"257",8em#/12+2ss#,1.2ex#,0); "r, with acute accent";
+
+currentpicture := lowr + acute shifted (w/2-pwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"260",8em#/12+2ss#,1.2ex#,0); "r, reverse circum";
+
+currentpicture := lowr + invcircum shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"261",3em#/6+2ss#,1.2ex#,0); "s, with acute accent";
+
+currentpicture := lows + acute shifted (w/2-pwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"262",3em#/6+2ss#,1.2ex#,0); "s, reverse circum";
+
+currentpicture := lows + invcircum shifted (w/2-pwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"263",3em#/6+2ss#,1.2ex#,0); "s, cedilla";
+
+currentpicture := lows + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"264",5em#/6+2ss#,theight#,0); "t, with apostrophe";
+
+currentpicture := lowt;
+fill commapost shifted (w-0.5pwid-ss,h-(h-ex)-0.2pwid);
+
+endchar;
+
+beginchar(oct"265",4em#/6+2ss#,theight#,0); "t, with cedilla";
+
+currentpicture := lowt + cedille shifted (w/2-pwid/4,0);
+
+endchar;
+
+beginchar(oct"266",7em#/12+2ss#,1.2ex#,0); "u with Hungarian umlaut";
+
+currentpicture := lowu + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"270",7em#/12+2ss#,1.2ex#,dep#); "y, with diaresis";
+
+currentpicture := lowy + diaresis shifted (w/2-pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"271",6em#/12+2ss#,1.2ex#,0); "z, acute accent";
+
+currentpicture := lowz + acute shifted (w/2-0.25pwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"272",6em#/12+2ss#,1.2ex#,0); "z, inverse circum";
+
+currentpicture := lowz + invcircum shifted (w/2-0.25pwid,-0.0pwid);
+
+endchar;
+
+beginchar(oct"273",6em#/12+2ss#,1.2ex#,0); "z, overdot";
+
+currentpicture := lowz + overdot shifted (w/2-1.0dotwid,-0.2pwid);
+
+endchar;
+
+beginchar(oct"301",em#+2ss#,cap#,0); "A, acute accent";
+
+currentpicture := capa + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"300",em#+2ss#,cap#,0); "A, grave accent";
+
+currentpicture := capa + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex";
+
+currentpicture := capa + circumflex shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde";
+
+currentpicture := capa + tilde shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis";
+
+currentpicture := capa + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"305",em#+2ss#,cap#,0); "A, ring";
+
+currentpicture := capa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille";
+
+currentpicture := capc + cedille shifted (w/2-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute";
+
+currentpicture := cape + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave";
+
+currentpicture := cape + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex";
+
+currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis";
+
+currentpicture := cape + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, acute";
+
+currentpicture := capi + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, grave";
+
+currentpicture := capi + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex";
+
+currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis";
+
+currentpicture := capi + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde";
+
+currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, acute";
+
+currentpicture := capo + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, grave";
+
+currentpicture := capo + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex";
+
+currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde";
+
+currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis";
+
+currentpicture := capo + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, acute";
+
+currentpicture := capu + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, grave";
+
+currentpicture := capu + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex";
+
+currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis";
+
+currentpicture := capu + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute";
+
+currentpicture := capy + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"361",7em#/12+2ss#,1.2ex#,0); "n, tilde";
+
+currentpicture := lown + tilde shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"372",7em#/12+2ss#,1.2ex#,0); "u, acute";
+
+currentpicture := lowu + acute shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"371",7em#/12+2ss#,1.2ex#,0); "u, grave";
+
+currentpicture := lowu + grave shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"373",7em#/12+2ss#,1.2ex#,0); "u, circumflex";
+
+currentpicture := lowu + circumflex shifted (w/2-pwid,0.2pwid);
+
+endchar;
+
+beginchar(oct"374",7em#/12+2ss#,1.2ex#,0); "u, diaresis";
+
+currentpicture := lowu + diaresis shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"375",7em#/12+2ss#,1.2ex#,dep#); "y, acute";
+
+currentpicture := lowy + acute shifted (w/2-pwid,0);
+
+endchar;
diff --git a/fonts/drm/mf/drmtcap.mf b/fonts/drm/mf/drmtcap.mf
new file mode 100644
index 0000000000..ecd1970eef
--- /dev/null
+++ b/fonts/drm/mf/drmtcap.mf
@@ -0,0 +1,1127 @@
+% +AMDG This document was begun on 15 August 2007, the
+% Feast of the Assumption of the Blessed Virgin Mary, and it
+% is humbly offered to her for her prayers, and to the
+% Sacred Heart of Jesus for His mercy.
+
+picture lowo;
+picture lowa;
+picture lowl;
+picture lowc;
+picture lowd;
+picture lowe;
+picture lowg;
+picture lown;
+picture lowu;
+picture lowr;
+picture lows;
+picture lowt;
+picture lowy;
+picture lowz;
+picture lowi;
+lserw := 0.1u;
+userw := 0.1u;
+
+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;
+
+%%%FFF Fix W, M, A from dependence on stroke widths FFF%%%
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw+equalize/2,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw+equalize/2,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw+equalize/2,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-(userw+equalize/2),userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define T Side Serifs on Caps %%%%
+
+def tlsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j-((userh/2),0);
+z.l=z.k-(userh/2,1.5userw);
+z.m=z.l+(userh/2,0);
+enddef;
+
+def trsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j+((userh/2),0);
+z.l=z.k+(userh/2,-1.5userw);
+z.m=z.l-(userh/2,0);
+enddef;
+
+%%%% Define C Side Serifs on Caps %%%%
+
+def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userw/4);
+z.k=z.j+(0.5userh,0);
+z.l=z.k-(0,2.5userw);
+z.m=z.l-(0.5userh,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;
+
+def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userh/2);
+z.k=z.j-(userh,0);
+z.l=z.k+(0,-2.7userw);
+z.m=z.l+(userh,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define L, E, Z, and F side serifs on Caps %%%%
+
+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;
+
+def lftdownsideserif(suffix i,j,k) =
+z.j=z.i-(ssslant,2lserw);
+z.k=z.j+(lserh,lserw);
+enddef;
+
+beginchar("i",2ss#+thickstroke#+0.2u#,1.2ex#,0); "The Letter I";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+
+lowi := currentpicture;
+dotlessi := currentpicture;
+
+penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25);
+
+endchar;
+
+beginchar("o",4em#/6+2ss#,1.2ex#,0); "The Letter O";
+
+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;
+
+lowo := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("a",2em#/3+2ss#,1.2ex#,0); "The Letter A";
+
+scrossh = 3/4;
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (w-ss-lserw,lserh);
+z4 = z3 shifted (-thickstroke,0);
+z5 = (w/2+thickstroke/2,h+o);
+z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30);
+lrserif(3,7,8,9,10)(1);
+llserif(4,11,12,13,14)(1);
+lrserif(2,15,16,17,18)(1);
+llserif(1,19,20,21,22)(1);
+z23 = scrossh[z6,z1];
+z24 = z23 shifted (thinstroke,0);
+z25 = (w,y23);
+z26 = letba[z23,z25];
+z26 = letbb[z3,z5];
+z27 = z26 shifted (-thickstroke,0);
+z28 = 0.8[z27,z6];
+z29 = 0.2[z27,z28];
+z30 = 0.2[z24,z28];
+
+fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2
+ --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle;
+unfill z30--z28--z29--cycle;
+
+lowa := currentpicture;
+
+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);
+endchar;
+
+beginchar("j",0.28em#+2ss#,1.2ex#,dep#); "The Letter J";
+
+z1 = ((w/2-(thickstroke/2)),-lserh);
+z2 = ((w/2+(thickstroke/2)),-lserh);
+z3 = ((w/2-(thickstroke/2)),(h-userh));
+z4 = ((w/2+(thickstroke/2)),(h-userh));
+z5 = (x3-userw,-dep);
+z6 = z5 shifted (0,thinstroke);
+z8 = z5 shifted (-userw,dep/2);
+z7 = z8 shifted (-thinstroke,0);
+z9 = (x8,-dep/4);
+z10 = 0.5[z8,z9] shifted (thickstroke/2,0);
+
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15..
+ z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}..
+ {up}z8{down}..{up}z10{up}..z9..cycle;
+
+dotlessj := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25);
+endchar;
+
+beginchar("q",4em#/6+2ss#,1.2ex#,dep#+thickstroke#/2); "The Letter Q";
+
+z1=(ss,h/2);
+z2=(w/2,h+o);
+z3=(w-ss,h/2);
+z4=(w/2,0);
+z5=z1+(curvwid,0);
+z6=z2-(0,thinstroke);
+z7=z3-(curvwid,0);
+z8=z4+(0,thinstroke);
+z9=z4+(curvwid/2,0);
+z10=z4-(curvwid/2,0);
+z11=(em+qtailunit+thickstroke,-depth);
+z12=(em+2qtailunit,-depth);
+z13=z12+(qtailunit,depth/2);
+z14=z12+(0,2thickstroke/3);
+z15=(em+qtailunit,-depth+thickstroke);
+
+pickup pencircle;
+
+path outerring; outerring=z9..z3..z2..z1..z10;
+path innerring; innerring=z8..z5..z6..z7..cycle;
+path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13;
+path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9;
+
+unfill innerring;
+fill outerring & bottomqtail & topqtail..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("h",2em#/3+2ss#,1.2ex#,0); "The Letter H";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-lserw-thickstroke,lserh);
+z6 = z5 shifted (thickstroke,0);
+z7 = (w-ss-lserw-thickstroke,h-lserh);
+z8 = z7 shifted (thickstroke,0);
+z46=(0.5)[z4,z2];
+z47=z46+(0,thinstroke/2);
+z48=z46-(0,thinstroke/2);
+z49=(0.5)[z7,z5];
+z50=z49+(0,thinstroke/2);
+z51=z49-(0,thinstroke/2);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+lrserif(6,30,31,32,33)(1);
+llserif(5,34,35,36,37)(1);
+urserif(8,38,39,40,41)(1);
+ulserif(7,42,43,44,45)(1);
+
+fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44--
+ z43..z42..z7--z50--z47--z4..z15..z16--z17--z20--
+ z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2
+ --z48--z51--z5..z34..z35--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("d",7em#/12+2ss#,1.2ex#,0); "The Letter D";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z13 = (x4,h);
+z14 = (x4,h-thinstroke);
+z15 = (w-ss,h/2);
+z16 = z15-(curvwid,0);
+z17 = (x2,0);
+z18 = z17+(0,thinstroke);
+z19 = (w/2,h);
+z20 = z19-(0,thinstroke);
+z21 = (w/2,0);
+z22 = z21+(0,thinstroke);
+llserif(1,5,6,7,8)(1);
+ulserif(3,9,10,11,12)(1);
+
+fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle;
+unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle;
+
+lowd := currentpicture;
+
+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("p",7em#/12+2ss#,1.2ex#,0); "The Letter P";
+
+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);
+
+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;
+
+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("b",7em#/12+2ss#,1.2ex#,0); "The Letter B";
+
+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 = 0.5[z32,z2]; x27 := w-ss;
+z28=z27-(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;
+
+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("r",8em#/12+2ss#,1.2ex#,0); "The Letter R";
+
+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);
+
+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;
+
+lowr := currentpicture;
+
+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("m",3em#/4+2ss#,1.2ex#,0); "The Letter M";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.15[z23,z29];
+z29=z27+(1curvwid/2,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--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("u",7em#/12+2ss#,1.2ex#,0); "The Letter U";
+
+z1=(ss+userw,h-userh);
+z2=z1+(thickstroke,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5 shifted (-thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z10=z9+(0,.5thickstroke);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill
+z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle;
+
+lowu := currentpicture;
+
+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("v",4em#/6+2ss#,1.2ex#,0); "The Letter V";
+
+z1=(ss+userw,h-userh);
+z2=z1+(slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5-(thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z30=0.25[z9,z5];
+z31 = z9 shifted (-thinstroke,0);
+z10 = 0.30[z31,z6];
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--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("t",4em#/6+2ss#,1.2ex#,0);"The Letter T";
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(w/2-thickstroke/2,y2);
+z6=(w/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+pickup cappen;
+
+fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+
+lowt := currentpicture;
+
+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("w",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,1.2ex#,0);"The Letter W";
+beginchar("w",2ss#+5em#/6,1.2ex#,0);"The Letter W";
+
+z1 = (ss+userw,h-userh);
+z2 = z1 shifted (thickstroke,0);
+z3 = 0.5[z2,z6] shifted (-thickstroke/2,0);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-userw,h-userh);
+z6 = z5 shifted (-thinstroke,0);
+z7 = (w/3+thinstroke/2,0);
+z8 = (2w/3-thinstroke/2,0);
+z33=(w/2,3h/4);
+z34=z8+(thinstroke,1.8thickstroke);
+z35=z7+(0.4thinstroke,2.0thickstroke);
+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);
+
+fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--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("n",7em#/12+2ss#,1.2ex#,0); "The Letter N";
+
+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);
+
+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;
+
+lown := currentpicture;
+
+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("c",8em#/12+ss#,1.2ex#,0); "The Letter C";
+
+z1=(w-ss-0.5userh,h-0.5userh);
+z2=z1-(0,thickstroke);
+z3=(w-ss-0.5userh,0.5userh);
+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;
+
+fill cinbody & botserif & cbody & topserif & cycle;
+
+lowc := currentpicture;
+
+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("g",2em#/3+2ss#,1.2ex#,0); "The Letter G";
+
+z1=(w-ss-userw-thickstroke/2,h-0.5userh);
+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;
+
+lowg := currentpicture;
+
+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("l",7em#/12+2ss#,1.2ex#,0); "The Letter L";
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke);
+z6=(w-ss-ssslant,0);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill
+z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--z4..cycle;
+
+lowl := currentpicture;
+
+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("e",7em#/12+2ss#,1.2ex#,0); "The Letter E";
+
+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);
+z15=.5[z4,z5];
+z16=z15+(0,thinstroke/2);
+z17=z16-(0,thinstroke);
+z21=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+ulserif(3,18,19,20,28)(1);
+y11 := y9;
+y29 := y30;
+
+fill
+z1--z3..z18..z19--z20--z8--z10---z11--z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30--z29---z7--z6--z14--z13..z12..z1..cycle;
+
+lowe := currentpicture;
+
+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("f",7em#/12+2ss#,1.2ex#,0); "The Letter F";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = (x3+thickstroke,h-thinstroke);
+z5=(x4,lserh);
+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=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+lrserif(5,31,32,33,34)(1);
+ulserif(3,18,19,20,28)(1);
+
+y4 := y11 := y9;
+
+fill
+z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9--z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5--z17--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("k",7em#/12+2ss#,1.2ex#,0); "The Letter K";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z17=z3 shifted (thickstrike,0);
+z22=z2 shifted (0,h/2+thinstroke-lserh);
+z23=z2 shifted (0,h/2-lserh);
+z24=(w-userw-ss,h);
+z25=z24 shifted (-thinstroke/2-thinstroke,-userh);
+z30=z25 shifted (thinstroke,0);
+z35=0.08[z23,z30];
+z46=0.34[z23,z30];
+z37 = (w-ss-lserw,lserh);
+z36 = z37 shifted (-thickstroke,0);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,13,14,15,16)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,18,19,20,21)(1);
+ulserif(25,26,27,28,29)(1);
+urserif(30,31,32,33,34)(1);
+lrserif(37,38,39,40,41)(1);
+llserif(36,42,43,44,45)(1);
+
+fill
+z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--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);
+endchar;
+
+beginchar("y",7em#/12+2ss#,1.2ex#,0); "The Letter Y";
+
+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);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+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;
+
+lowy := currentpicture;
+
+endchar;
+
+beginchar("z",8em#/12+2ss#,1.2ex#,0); "The Letter Z";
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+if (x8 < x12):
+ x8 := x12;
+fi
+if (x6 > x9):
+ x6 := x9;
+fi
+y6 := y9 - ((y9 - y5)/6);
+y8 := y12 + ((y7 - y12)/6);
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+lowz := 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("s",3em#/6+2ss#,1.2ex#,0); "The Letter S";
+
+z0 = (w/2,h+o/2);
+z1 = (w/2,0-o/2);
+z2 = (w-ss-userh-o,h-0.5userh);
+z3 = (w-ss,h/4);
+z4 = (ss,3h/4);
+z5 = (ss+userh,0.5userh+thickstroke);
+z14 = z0 shifted (0,-thinstroke);
+z15 = z1 shifted (0,thinstroke);
+z16 = z4 shifted (curvwid,0);
+z17 = z3 shifted (-curvwid,0);
+z18 = z2 shifted (0,-thickstroke);
+z19 = z11 shifted (0,-2thickstroke);
+z20 = z5 shifted (0,-thickstroke);
+z21 = z18 shifted (0,-userw/2);
+z22 = z21 shifted (userh,0);
+z23 = z22 shifted (0,2.5userw);
+z24 = z23 shifted (-userh,0);
+z25 = (w/2,h/2+1.2thinstroke/2);
+z26 = (w/2,h/2-1.2thinstroke/2);
+
+ctbackserif(5,10,11,12,13,20)(2);
+
+pickup pencircle scaled 1;
+
+path outcurves; path incurves; path toprt;
+outcurves = z2..tension 1.1..z0..tension
+ 1.1..z4..z26..z17..z15..tension 1.1..z5;
+incurves = z20..tension 1.1..z1..tension
+ 1.1..z3..z25..z16..z14..tension 1.1..z18;
+toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2;
+
+fill outcurves & botlftserif & incurves & toprt & cycle;
+
+lows := 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("x",7em#/12+2ss#,1.2ex#,0); "The Letter X";
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = ba[z1,z6];
+z41 = bb[z7,z3];
+z42 = bc[z5,z4];
+z42 = bd[z7,z3];
+z43 = be[z8,z2];
+z43 = bf[z6,z1];
+z44 = bg[z8,z2];
+z44 = bh[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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);
+endchar;
+
+beginchar(oct"346",5em#/6+ss#,1.2ex#,0); "The ligature ae";
+
+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 = (ss+lserw,lserh);
+z41 = z40 shifted (thinstroke,0);
+z50 = z31 shifted (0,-1.6thinstroke);
+z100 = (0,y15);
+z101 = (0,y16);
+z102 = (0,y17);
+z51 = aba[z50,z41];
+z51 = abb[z16,z101];
+z52 = abc[z50,z41];
+z52 = abd[z17,z102];
+
+draw z21--z24;
+
+pickup pencircle scaled 2;
+
+llserif(40,42,43,44,45)(1);
+lrserif(41,46,47,48,49)(1);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle;
+fill z51--z16--z17--z52--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;
+
+beginchar(oct"367",5em#/6+ss#,1.2ex#,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-o-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);
+z50 = z31 shifted (0,-1.6thinstroke);
+z40 = 0.5[z31,z28];
+z41 = (0,h/2);
+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);
+z47 = z44 shifted (0,-thinstroke);
+z48 = z45 shifted (0,thinstroke);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z44..z15..z45..z42..cycle;
+unfill z43..z47..z46..z48..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;
+
+beginchar(oct"370",4em#/6+2ss#,1.2ex#,0); "The Letter slash o";
+
+currentpicture := lowo;
+
+pickup pencircle scaled thinstroke;
+bot lft z0 = (ss,0);
+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);
+endchar;
+
+beginchar(oct"376",3em#/6+2ss#,1.2ex#,0); "The Letter thorn";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+lserw,h-lserh);
+z4 = z3 shifted (thickstroke,0);
+z13=(x4,4h/5);
+z14=z13 shifted (0,-thinstroke);
+z15=(w-ss,h/2);
+z16=z15-(curvwid,0);
+z17=(x2,h/5);
+z18=z17+(0,thinstroke);
+z19=(w/2,h);
+z20=z19-(0,thinstroke);
+z21=(w/2,0);
+z22=z21+(0,thinstroke);
+z40 = z13 shifted (thickstroke,0);
+z41 = z40 shifted (0,-thinstroke);
+z42 = z17 shifted (thickstroke,0);
+z43 = z42 shifted (0,thinstroke);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,30,31,32,33)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,34,35,36,37)(1);
+
+fill
+z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle;
+unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--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"255",4em#/6+2ss#,1.2ex#,dep#); "The Letter ng";
+
+z0 = (ss+lserw,lserh);
+z1 = z0 shifted (thickstroke,0);
+z2 = z1 shifted (ss+4lserw,0);
+z3 = z2 shifted (thickstroke,0);
+z20 = (ss+userw,h-userh);
+z21 = z20 shifted (thickstroke,0);
+z22 = z21 shifted (0,userh);
+z23 = z21 shifted (ss+4userw,0);
+z24 = z23 shifted (thickstroke,-thinstroke);
+z29 = z20 shifted (0,userh);
+z30 = z24 shifted (0,userh+thinstroke);
+z31 = 0.5[z30,z29] shifted (0,o);
+z32 = z31 shifted (0,-thinstroke);
+z33 = z28 shifted (0,-userh);
+z40 = z2;
+z41 = z3;
+%z49 = (x40-2userw,-dep);
+z49 = (w/2,-dep);
+z50 = z49 shifted (0,thinstroke);
+z51 = (x8,-dep/3);
+z56 = z21 shifted (0,-thinstroke);
+z57 = z20 shifted (0,-thinstroke);
+z58 = z23 shifted (0,-thinstroke);
+z59 = z24 shifted (0,-thinstroke);
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir
+50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"360",7em#/12+2ss#,1.2ex#,0); "The Letter eth";
+
+currentpicture := lowd;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (ss,h/2);
+rt z1 = (w/2-ss,h/2);
+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,52,53,54,55,56,57,58,59);
+endchar;
+
+beginchar(oct"377",em#+2ss#,1.2ex#,0); "The Letter Eszett";
+
+currentpicture := lows + lows shifted (em/2+hair,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;
diff --git a/fonts/drm/mf/drmtcbx10.mf b/fonts/drm/mf/drmtcbx10.mf
new file mode 100644
index 0000000000..88e79a86c2
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx10.mf
@@ -0,0 +1,72 @@
+% +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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx11.mf b/fonts/drm/mf/drmtcbx11.mf
new file mode 100644
index 0000000000..ba00b3455d
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx11.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx12.mf b/fonts/drm/mf/drmtcbx12.mf
new file mode 100644
index 0000000000..544857b098
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx12.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx14.mf b/fonts/drm/mf/drmtcbx14.mf
new file mode 100644
index 0000000000..b5da96ebe4
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx14.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx17.mf b/fonts/drm/mf/drmtcbx17.mf
new file mode 100644
index 0000000000..1b9ac5b187
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx17.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx24.mf b/fonts/drm/mf/drmtcbx24.mf
new file mode 100644
index 0000000000..bd4df59573
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx24.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx6.mf b/fonts/drm/mf/drmtcbx6.mf
new file mode 100644
index 0000000000..ce8b4e5ec9
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx6.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx7.mf b/fonts/drm/mf/drmtcbx7.mf
new file mode 100644
index 0000000000..03c849760b
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx7.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.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#=0.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx8.mf b/fonts/drm/mf/drmtcbx8.mf
new file mode 100644
index 0000000000..ab5813892c
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx8.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcbx9.mf b/fonts/drm/mf/drmtcbx9.mf
new file mode 100644
index 0000000000..0e5615eaa0
--- /dev/null
+++ b/fonts/drm/mf/drmtcbx9.mf
@@ -0,0 +1,72 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.1exw#;
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmscligs
+input drmcap.mf
+input drmlowmac.mf
+input drmtcap.mf
+input drmpunct.mf
+input drmacc.mf
+input drmtcacclet.mf
+input drmtcdigs.mf
+
+end;
diff --git a/fonts/drm/mf/drmtcdigs.mf b/fonts/drm/mf/drmtcdigs.mf
new file mode 100644
index 0000000000..d6dc3fc7c5
--- /dev/null
+++ b/fonts/drm/mf/drmtcdigs.mf
@@ -0,0 +1,265 @@
+% +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.
+
+picture six;
+
+beginchar("1",0.65digwid#+2ss#,1.2ex#,0); "The digit 1";
+italcorr(ex#*slant);
+
+z0 = (w/2-thickstroke/2,lserhl);
+z1 = z0 shifted (thickstroke,0);
+z10 = (w/2-thickstroke/2,h-2userh);
+z11 = z10 shifted (thickstroke,0);
+z12 = z11 shifted (0,2userh+o);
+z13 = z12 shifted (-thickstroke,0);
+z14 = z10 shifted (-lserwl-o,0);
+z15 = z14 shifted (0,thinl);
+
+llserif(0,2,3,4,5)(1);
+lrserif(1,6,7,8,9)(1);
+
+fill
+z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--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("2",0.75digwid#+2ss#,1.2ex#,0); "The digit 2";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = z0 shifted (0,-thinl);
+z2 = (ss,3h/4);
+z3 = z2 shifted (bulbsh,-bulbsh);
+z4 = z3 shifted (bulbsh,bulbsh);
+z5 = z4 shifted (-bulbsh,bulbsh);
+z6 = (w-ss,3h/4);
+z7 = z6 shifted (-curvl,0);
+z8 = (ss,thickl);
+z9 = z8 shifted (1.5thinl,0);
+z10 = (ss,0);
+z11 = (w-ss,0);
+z12 = z11 shifted (0,thickl);
+z13 = z12 shifted (0,thinl);
+z14 = z13 shifted (-thinl/2,0);
+z15 = z12 shifted (-thinl/2,0);
+
+fill
+z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
+-120}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("3",0.75digwid#+2ss#,1.2ex#,0); "The digit 3";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,0-o);
+z2 = (ss,.75h);
+z3 = (ss,.25h);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z8 shifted (-curvwid,0);
+z7 = z9 shifted (-curvwid,0);
+z8 = (w-ss,3h/4);
+z9 = (w-ss,h/4);
+z10 = (w/2-2thinstroke,h/2+thinstroke/2);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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",0.75digwid#+2ss#,1.2ex#,0); "The digit 4";
+italcorr(ex#*slant);
+
+z0 = (w-ss-lserwl,h+2o);
+z1 = (x0,2h/5);
+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 = zca[z3,z4];
+z5 = zcb[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 = lserhl;
+z15 = z14 shifted (thickstroke,0);
+
+llserif(14,16,17,18,19)(1);
+lrserif(15,20,21,22,23)(1);
+
+fill
+z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle;
+unfill z4--z6--z5--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,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.75digwid#+2ss#,1.2ex#,0); "The digit 5";
+italcorr(ex#*slant);
+
+z0 = (w-ss-bulbsh,h+o);
+z1 = (ss+bulbsh,h+o);
+z2 = z0 shifted (0,-thickstroke);
+z3 = z1 shifted (0,-thickstroke);
+z4 = (w/2,0);
+z5 = z4 shifted (0,thinstroke);
+z6 = z3 shifted (thinstroke,0);
+z7 = (ss+0.6bulbsh,0.55h);
+z19 = z7 shifted (thinstroke,0);
+z8 = (w-ss,2h/3);
+z9 = z7 shifted (thinstroke,thinstroke);
+z10 = (w-ss-thickstroke,h/3);
+z11 = (ss,h/3);
+z16 = z10 shifted (thickstroke,0);
+z17 = (w/2,2h/3);
+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);
+
+fill
+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;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,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.65digwid#+2ss#,1.2ex#,0); "The digit 7";
+italcorr(ex#*slant);
+
+z0 = (ss,h+o);
+z1 = z0 shifted (0,-thickstroke);
+z2 = (w-ss,h+o);
+z3 = z2 shifted (0,-thickstroke);
+z4 = (w/4,0);
+z5 = z4 shifted (thickstroke,0);
+z6 = z3 shifted (-1.8thinstroke,0);
+z7 = (w/3,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",0.75digwid#+2ss#,1.2ex#,0); "The digit 8";
+italcorr(ex#*slant);
+
+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("0",0.75digwid#+2ss#,1.2ex#,0); "The digit 0";
+italcorr(ex#*slant);
+
+z0 = (w/2,h+o);
+z1 = (w/2,-o);
+z2 = (w-ss,h/2);
+z3 = (ss,h/2);
+z4 = z0 shifted (0,-thinstroke);
+z5 = z1 shifted (0,thinstroke);
+z6 = z2 shifted (-curvwid,0);
+z7 = z3 shifted (curvwid,0);
+
+fill z0{right}..{down}z2{down}..{left}z1{left}..{up}z3{up}..{right}cycle;
+unfill z4..z6..z5..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,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.75digwid#+2ss#,1.2ex#,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/4);
+penpos3(thinl,-90);
+z3r = (w/2,0-o);
+penpos4(thickl,0);
+z4r = (w-ss,ex/4);
+penpos5(thinl,90);
+z5l = (w/2,ex/2+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.75digwid#+2ss#,1.2ex#,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/4);
+penpos3(thinl,90);
+z3r = (w/2,h-ex/2-o);
+penpos4(thickl,0);
+z4l = (ss,h-ex/4);
+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/fonts/drm/mf/drmtcdol.mf b/fonts/drm/mf/drmtcdol.mf
new file mode 100644
index 0000000000..0ede78658e
--- /dev/null
+++ b/fonts/drm/mf/drmtcdol.mf
@@ -0,0 +1,36 @@
+% +AMDG This document was begun on 13 February 11EE,
+% Quinquegesima Sunday, and it is humbly dedicated to Our
+% Sorrowful Lord Jesus, for His mercy.
+
+beginchar("$",0.5em#+2ss#,1.2ex#,0); "The dollar sign, $";
+
+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-1.5thickl/4,h+o);
+z21 = (w/2-1.5thickl/4,-o);
+z22 = (w/2+1.5thickl/4,h+o);
+z23 = (w/2+1.5thickl/4,-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;
diff --git a/fonts/drm/mf/drmtcligs.mf b/fonts/drm/mf/drmtcligs.mf
new file mode 100644
index 0000000000..8ed985ea76
--- /dev/null
+++ b/fonts/drm/mf/drmtcligs.mf
@@ -0,0 +1,127 @@
+% +AMDG This document was begun on 19 August 2007, the Feast of St. John
+% Eudes, 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.
+
+ligtable "-" : "-" =: oct"025";
+ligtable oct"025" : "-" =: oct"026";
+ligtable "`" : "`" =: oct"020";
+ligtable "'" : "'" =: oct"021";
+ligtable "?" : "`" =: oct"276";
+ligtable "!" : "`" =: oct"275";
+ligtable ">" : ">" =: oct"024";
+ligtable "<" : "<" =: oct"023";
+
+ligtable "A" : oct"200" : oct"201" : oct"300" : oct"301" :
+ oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#,
+ "G" kern-0.1u#,"J" kern-0.1u#,
+ "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#,
+ "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#;
+ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#;
+ligtable "D" : oct"204" : oct"320" : oct"336" :
+ "C" kern 0.1u#,"G" kern 0.2u#,
+ "O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#,
+ "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#,
+ "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#,
+ "V" kern -0.05u#,"W" kern -0.05u#;
+ligtable "F" : "A" kern -0.2u#,
+ "a" kern-0.1u#,"b" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.2u#,
+ "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#,
+ "m" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.1u#,
+ "p" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.1u#,
+ "s" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "v" kern-0.1u#,"w" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.1u#,"z" kern-0.1u#;
+ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#,
+ "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#,
+ "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#,
+ "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#,
+ "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#,
+ "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#,
+ "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#;
+ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#,
+ "O" kern -0.1u#,"Q" kern -0.1u#;
+ligtable "O" : oct"216" : oct"322" : oct"323" : oct"324" :
+ oct"325" : oct"326" : "A" kern -0.05u#,"C" kern 0.1u#,
+ "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#;
+ligtable "P" : "A" kern -0.1u#;
+ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#,
+ "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#,
+ "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#,
+ "X" kern -0.05u#,"Y" kern -0.05u#;
+ligtable "S" : oct"221" : oct"222" : oct"223" :
+ "A" kern -0.1u#;
+ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#,
+ "h" kern -0.2u#,
+ "a" kern-0.2u#,"b" kern-0.2u#,"c" kern-0.2u#,
+ "d" kern-0.2u#,"e" kern-0.2u#,"f" kern-0.2u#,
+ "g" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.2u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#,
+ "p" kern-0.2u#,"q" kern-0.2u#,"r" kern-0.2u#,
+ "s" kern-0.2u#,"t" kern-0.2u#,"u" kern-0.2u#,
+ "v" kern-0.2u#,"w" kern-0.2u#,"x" kern-0.2u#,
+ "y" kern-0.2u#,"z" kern-0.2u#;
+ligtable "U" : oct"226" : oct"227" : oct"331" : oct"332" :
+ oct"333" : oct"334" : "A" kern -0.05u#;
+ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#;
+ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#,
+ "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#,
+ "a" kern -0.3u#;
+ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#,
+ "O" kern -0.05u#,"Q" kern -0.05u#;
+ligtable "Y" : oct"230" : oct"335" : "A" kern -0.2u#,
+ "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#,
+ "Q" kern -0.05u#;
+ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" :
+ oct"342" : oct"343" : oct"344" : oct"345" : "c" kern-0.1u#,
+ "g" kern-0.1u#,"j" kern-0.1u#,"o" kern-0.1u#,"q" kern-0.1u#,
+ "t" kern-0.2u#,"u" kern-0.2u#,"y" kern-0.2u#,
+ "v" kern-0.2u#,"w" kern-0.1u#,"r" kern-0.1u#;
+ligtable "b" : "g" kern 0.1u#,"o" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#;
+ligtable "c" : oct"242" : oct"243" : "v" kern -0.10u#,
+ oct"347" : "w" kern -0.10u#, "y" kern -0.10u#;
+ligtable "d" : oct"244" : oct"360" : "c" kern 0.1u#,"g" kern 0.2u#,
+ "o" kern 0.1u#, "q" kern 0.2u#,"s" kern 0.1u#,
+ "h" kern 0.1u#, "m" kern 0.1u#,"p" kern 0.1u#,
+ "s" kern 0.1u#,"x" kern -0.05u#,"y" kern -0.05u#,
+ "v" kern -0.05u#,"w" kern -0.05u#;
+%ligtable "f" : "a" kern -0.2u#;
+ligtable "g" : oct"247" : "a" kern -0.1u#,"b" kern -0.1u#,
+ "d" kern -0.1u#, "e" kern -0.1u#, "f" kern -0.1u#,
+ "h" kern -0.1u#, "i" kern -0.1u#, "j" kern -0.1u#,
+ "k" kern -0.1u#, "l" kern -0.1u#, "m" kern -0.1u#,
+ "n" kern -0.1u#, "p" kern -0.1u#, "r" kern -0.1u#,
+ "t" kern -0.1u#, "u" kern -0.1u#, "v" kern -0.1u#,
+ "w" kern -0.1u#,"x" kern -0.1u#,"y" kern -0.1u#;
+ligtable "h" : "C" kern -0.1u#,"G" kern -0.1u#,
+ "O" kern -0.1u#,"Q" kern -0.1u#;
+ligtable "o" : oct"256" : oct"362" : oct"363" : oct"364" :
+ oct"365" : oct"366" : "a" kern -0.05u#,"c" kern 0.1u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#,
+ "x" kern -0.05u#,"y" kern -0.05u#;
+ligtable "p" : "A" kern -0.1u#;
+ligtable "q" : "a" kern -0.05u#,"c" kern 0.1u#,
+ "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#,
+ "x" kern -0.05u#,"y" kern -0.05u#;
+ligtable "r" : oct"257" : "n" kern -0.1u#,"t" kern -0.1u#;
+ligtable "s" : oct"261" : oct"262" : oct"263" : "a" kern -0.1u#;
+ligtable "t" : "a" kern -0.2u#;
+ligtable "u" : "a" kern -0.05u#;
+ligtable "v" : "a" kern -0.2u#,"c" kern -0.05u#,
+ "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "w" : "a" kern -0.2u#,"c" kern -0.05u#,
+ "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "x" : "c" kern -0.05u#,"g" kern -0.05u#,
+ "o" kern -0.05u#,"q" kern -0.05u#;
+ligtable "y" : oct"270" : oct"375" : "a" kern -0.2u#,
+ "c" kern -0.05u#,"g" kern -0.05u#,"o" kern -0.05u#,
+ "q" kern -0.05u#;
diff --git a/fonts/drm/mf/drmttcap.mf b/fonts/drm/mf/drmttcap.mf
new file mode 100644
index 0000000000..f17ad55a88
--- /dev/null
+++ b/fonts/drm/mf/drmttcap.mf
@@ -0,0 +1,1107 @@
+% +AMDG This document was begun on 15 August 2007, the
+% Feast of the Assumption of the Blessed Virgin Mary, and it
+% is humbly offered to her for her prayers, and to the
+% Sacred Heart of Jesus for His mercy.
+
+picture capo;
+picture capa;
+picture capl;
+picture capc;
+picture capd;
+picture cape;
+picture capg;
+picture capn;
+picture capu;
+picture capr;
+picture caps;
+picture capt;
+picture capy;
+picture capz;
+picture capi;
+
+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;
+
+%%%FFF Fix W, M, A from dependence on stroke widths FFF%%%
+
+%%%% Define Lower Right Serif on Caps %%%%
+
+def lrserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(lserw/3,-lserc/2);
+z.k=z.i+(lserw+equalize/2,-lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l-(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Lower Left Serif on Caps %%%%
+
+def llserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i-(lserw/3,lserc/2);
+z.k=z.i-(lserw+equalize/2,lserc);
+z.l=z.k-(0,lserstep);
+z.m=z.l+(lserw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Right Serif on Caps %%%%
+
+def urserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(userw/3,lserc/2);
+z.k=z.i+(userw+equalize/2,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l-(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define Upper Left Serif on Caps %%%%
+
+def ulserif(suffix i,j,k,l,m)(expr strokewidth) =
+if strokewidth = 1:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-userw,userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+elseif strokewidth = 2:
+z.j=z.i+(-userw/3,lserc/2);
+z.k=z.i+(-(userw+equalize/2),userc);
+z.l=z.k+(0,userstep);
+z.m=z.l+(userw+thickstroke/2,0);
+fi
+enddef;
+
+%%%% Define T Side Serifs on Caps %%%%
+
+def tlsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j-((userh/2),0);
+z.l=z.k-(userh/2,1.5userw);
+z.m=z.l+(userh/2,0);
+enddef;
+
+def trsideserif(suffix i,j,k,l,m) =
+z.j=z.i+(0,seriftail);
+z.k=z.j+((userh/2),0);
+z.l=z.k+(userh/2,-1.5userw);
+z.m=z.l-(userh/2,0);
+enddef;
+
+%%%% Define C Side Serifs on Caps %%%%
+
+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;
+
+def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
+z.j=z.i+(0,userh/2);
+z.k=z.j-(userh,0);
+z.l=z.k+(0,-2userw);
+z.m=z.l+(userh,0);
+if topbot = 1:
+path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+elseif topbot = 2:
+path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
+fi;
+enddef;
+
+%%%% Define L, E, Z, and F side serifs on Caps %%%%
+
+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;
+
+def lftdownsideserif(suffix i,j,k) =
+z.j=z.i-(ssslant,2lserw);
+z.k=z.j+(lserh,lserw);
+enddef;
+
+beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19..
+ z18..z3--z1..z12..z13--z14--cycle;
+
+capi := currentpicture;
+
+penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25);
+
+endchar;
+
+beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O";
+
+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;
+
+capo := currentpicture;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("A",em#+2ss#,cap#,0); "The Letter A";
+
+crossh = 1/phi;
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (w-ss-lserw,lserh);
+z4 = z3 shifted (-thickstroke,0);
+z5 = (w/2+thickstroke/2,h+o);
+z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30);
+lrserif(3,7,8,9,10)(1);
+llserif(4,11,12,13,14)(1);
+lrserif(2,15,16,17,18)(1);
+llserif(1,19,20,21,22)(1);
+z23 = crossh[z6,z1];
+z24 = z23 shifted (thinstroke,0);
+z25 = (w,y23);
+z26 = letaa[z23,z25];
+z26 = letab[z3,z5];
+z27 = z26 shifted (-thickstroke,0);
+z28 = 0.9[z27,z6];
+z29 = 0.1[z27,z28];
+z30 = 0.1[z24,z28];
+
+fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2
+ --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle;
+unfill z30--z28--z29--cycle;
+
+capa := currentpicture;
+
+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);
+endchar;
+
+beginchar("J",0.38em#+2ss#,cap#,dep#); "The Letter J";
+
+z1 = ((w/2-(thickstroke/2)),-lserh);
+z2 = ((w/2+(thickstroke/2)),-lserh);
+z3 = ((w/2-(thickstroke/2)),(h-userh));
+z4 = ((w/2+(thickstroke/2)),(h-userh));
+z5 = (x3-userw,-dep);
+z6 = z5 shifted (0,thinstroke);
+z8 = z5 shifted (-userw,dep/2);
+z7 = z8 shifted (-thinstroke,0);
+z9 = (x8,-dep/4);
+z10 = 0.5[z8,z9] shifted (thickstroke/2,0);
+
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15..
+ z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}..
+ {up}z8{down}..{up}z10{up}..z9..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25);
+endchar;
+
+beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q";
+
+depth=6d/8;
+qtailunit=em/2.5;
+z1=(ss,h/2);
+z2=(w/2,h+o);
+z3=(w-ss,h/2);
+z4=(w/2,0);
+z5=z1+(curvwid,0);
+z6=z2-(0,thinstroke);
+z7=z3-(curvwid,0);
+z8=z4+(0,thinstroke);
+z9=z4+(curvwid/2,0);
+z10=z4-(curvwid/2,0);
+z11=(em+qtailunit+thickstroke,-depth);
+z12=(em+2qtailunit,-depth);
+z13=z12+(qtailunit,depth/2);
+z14=z12+(0,2thickstroke/3);
+z15=(em+qtailunit,-depth+thickstroke);
+
+pickup pencircle;
+
+path outerring; outerring=z9..z3..z2..z1..z10;
+path innerring; innerring=z8..z5..z6..z7..cycle;
+path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13;
+path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9;
+
+unfill innerring;
+fill outerring & bottomqtail & topqtail..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+
+endchar;
+
+beginchar("H",em#+2ss#,cap#,0); "The Letter H";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5 = (w-ss-lserw-thickstroke,lserh);
+z6 = z5 shifted (thickstroke,0);
+z7 = (w-ss-lserw-thickstroke,h-lserh);
+z8 = z7 shifted (thickstroke,0);
+z46=(0.5)[z4,z2];
+z47=z46+(0,thinstroke/2);
+z48=z46-(0,thinstroke/2);
+z49=(0.5)[z7,z5];
+z50=z49+(0,thinstroke/2);
+z51=z49-(0,thinstroke/2);
+lrserif(2,9,10,11,25)(1);
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+lrserif(6,30,31,32,33)(1);
+llserif(5,34,35,36,37)(1);
+urserif(8,38,39,40,41)(1);
+ulserif(7,42,43,44,45)(1);
+
+fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44--
+ z43..z42..z7--z50--z47--z4..z15..z16--z17--z20--
+ z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2
+ --z48--z51--z5..z34..z35--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("D",5em#/6+2ss#,cap#,0); "The Letter D";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z13 = (x4,h);
+z14 = (x4,h-thinstroke);
+z15 = (w-ss,h/2);
+z16 = z15-(curvwid,0);
+z17 = (x2,0);
+z18 = z17+(0,thinstroke);
+z19 = (w/2,h);
+z20 = z19-(0,thinstroke);
+z21 = (w/2,0);
+z22 = z21+(0,thinstroke);
+llserif(1,5,6,7,8)(1);
+ulserif(3,9,10,11,12)(1);
+
+fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle;
+unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle;
+
+capd := currentpicture;
+
+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("P",2em#/3+2ss#,cap#,0); "The Letter P";
+
+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);
+
+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;
+
+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("B",3em#/4+2ss#,cap#,0); "The Letter B";
+
+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;
+
+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("R",5em#/6+2ss#,cap#,0); "The Letter R";
+
+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);
+
+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;
+
+capr := currentpicture;
+
+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("M",em#+2ss#,cap#,0); "The Letter M";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thinstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thinstroke,0);
+z5 = (w/2-thickstroke/3,0);
+z6 = (w-ss-lserw,lserh);
+z7 = z6 shifted (-thickstroke,0);
+z8 = (w-ss-userw,h-userh);
+z9 = z8 shifted (-thickstroke,0);
+z14 = z13 shifted (-2thickstroke/3,0);
+z23 = 0.22[z5,z9];
+z28 = 0.1[z23,z29];
+%z28 = z23 shifted (-thinstroke/2,thinstroke/2);
+z29=z27+(2curvwid/3,0);
+
+urserif(8,10,11,12,13)(1);
+lrserif(6,15,16,17,18)(1);
+llserif(7,19,20,21,22)(1);
+ulserif(3,24,25,26,27)(1);
+llserif(1,30,31,32,33)(2);
+lrserif(2,34,35,36,37)(2);
+
+fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--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("U",5em#/6+2ss#,cap#,0); "The Letter U";
+
+z1=(ss+userw,h-userh);
+z2=z1+(thickstroke,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5 shifted (-thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z10=z9+(0,.5thickstroke);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8{down}..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle;
+
+capu := currentpicture;
+
+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("V",5em#/6+2ss#,cap#,0); "The Letter V";
+
+z1=(ss+userw,h-userh);
+z2=z1+(slantwid,0);
+z3=z1-(0,2h/3);
+z4=z3+(thickstroke,0);
+z5=(w-ss-userw,h-userh);
+z6=z5-(thinstroke,0);
+z7=z5-(0,2h/3);
+z8=z7-(thinstroke,0);
+z9=(w/2,0);
+z30=0.25[z9,z5];
+z10=z30-(thinstroke,0);
+
+ulserif(1,11,12,13,14)(1);
+urserif(2,15,16,17,18)(1);
+ulserif(6,19,20,21,22)(1);
+urserif(5,23,24,25,26)(1);
+
+fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--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("T",5em#/6+2ss#,cap#,0);"The Letter T";
+
+seriftail=userw/5;
+
+z1=(ss+userh,h);
+z2=z1-(0,thinstroke);
+z3=(w-ss-userh,h);
+z4=z3-(0,thinstroke);
+z5=(w/2-thickstroke/2,y2);
+z6=(w/2+thickstroke/2,y2);
+z7=(x5,lserh);
+z8=z7+(thickstroke,0);
+
+llserif(7,9,10,11,12)(1);
+lrserif(8,13,14,15,16)(1);
+tlsideserif(1,17,18,19,20);
+trsideserif(3,21,22,23,24);
+
+pickup cappen;
+
+path tpath;
+tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle;
+fill tpath;
+
+capt := currentpicture;
+
+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("W",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0);"The Letter W";
+
+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);
+
+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;
+
+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("N",5em#/6+2ss#,cap#,0); "The Letter N";
+
+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,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);
+
+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;
+
+capn := currentpicture;
+
+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("C",5em#/6+ss#,cap#,0); "The Letter C";
+
+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;
+
+fill cinbody & botserif & cbody & topserif & cycle;
+
+capc := currentpicture;
+
+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("G",em#+2ss#,cap#,0); "The Letter G";
+
+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;
+
+capg := currentpicture;
+
+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("L",5em#/6+2ss#,cap#,0); "The Letter L";
+
+z1 = (ss+lserw,lserh);
+z2 = (x1+thickstroke,thinstroke);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z5=(x4,thinstroke);
+z6=(w-ss-ssslant,0);
+z30=z6+(-thickstroke,thinstroke);
+upsideserif(6,7,29);
+
+llserif(1,12,13,14,26)(1);
+urserif(4,15,16,17,27)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle;
+
+capl := currentpicture;
+
+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("E",5em#/6+2ss#,cap#,0); "The Letter E";
+
+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);
+z15=.5[z4,z5];
+z16=z15+(0,thinstroke/2);
+z17=z16-(0,thinstroke);
+z21=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill
+z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle;
+
+cape := currentpicture;
+
+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("F",5em#/6+2ss#,cap#,0); "The Letter F";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = (x3+thickstroke,h-thinstroke);
+z5=(x4,lserh);
+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=(w/2,y16);
+z22=(w/2,y17);
+z23=z21+(1.5ssslant,lserw/2);
+z24=z23+(ssslant,lserw);
+z25=z22+(1.5ssslant,-lserw/2);
+z27=z25+(ssslant,-lserw);
+
+draw z21--z24;
+
+llserif(1,12,13,14,26)(1);
+lrserif(5,31,32,33,34)(1);
+ulserif(3,18,19,20,28)(1);
+
+fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..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("K",5em#/6+2ss#,cap#,0); "The Letter K";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+userw,h-userh);
+z4 = z3 shifted (thickstroke,0);
+z17=z3 shifted (thickstrike,0);
+z22=z2 shifted (0,h/2+thinstroke-lserh);
+z23=z2 shifted (0,h/2-lserh);
+z24=(w-userw-ss,h);
+z25=z24 shifted (-thinstroke/2-thinstroke,-userh);
+z30=z25 shifted (thinstroke,0);
+z35=0.08[z23,z30];
+z46=0.28[z23,z30];
+z37 = (w-ss-lserw,lserh);
+z36 = z37 shifted (-thickstroke,0);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,13,14,15,16)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,18,19,20,21)(1);
+ulserif(25,26,27,28,29)(1);
+urserif(30,31,32,33,34)(1);
+lrserif(37,38,39,40,41)(1);
+llserif(36,42,43,44,45)(1);
+
+fill
+z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--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);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y";
+
+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);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+
+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;
+
+capy := currentpicture;
+
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z";
+
+z0 = (ss+ssslant,h);
+z1 = (w-ss,h);
+z3 = (ss,0);
+z4 = (w-ss-ssslant,0);
+z9 = z0 shifted (lserw,-thinstroke);
+z10 = z1 shifted (-1.2curvwid,-thinstroke);
+z11 = z3 shifted (1.2curvwid,thinstroke);
+z12 = z4 shifted (-lserw,thinstroke);
+
+lftdownsideserif(0,5,6);
+upsideserif(4,7,8);
+
+fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle;
+
+capz := 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("S",(3(em#+2ss#)/4),cap#,0); "The Letter S";
+
+z0 = (w/2,h+o/2);
+z1 = (w/2,0-o/2);
+z2 = (w-ss-userh-o,h-userh);
+z3 = (w-ss,h/4);
+z4 = (ss,3h/4);
+z5 = (ss+userh-o,userh+thickstroke+o);
+z14 = z0 shifted (0,-thinstroke);
+z15 = z1 shifted (0,thinstroke);
+z16 = z4 shifted (curvwid,0);
+z17 = z3 shifted (-curvwid,0);
+z18 = z2 shifted (0,-thickstroke);
+z19 = z11 shifted (0,-thickstroke);
+z20 = z5 shifted (0,-thickstroke);
+z21 = z18 shifted (0,-userw/2);
+z22 = z21 shifted (userh,0);
+z23 = z22 shifted (0,2userw);
+z24 = z23 shifted (-userh,0);
+z25 = (w/2,h/2+1.2thinstroke/2);
+z26 = (w/2,h/2-1.2thinstroke/2);
+
+ctbackserif(5,10,11,12,13,20)(2);
+
+pickup pencircle scaled 1;
+
+path outcurves; path incurves; path toprt;
+outcurves = z2..tension 1.1..z0..tension
+ 1.1..z4..z26..z17..z15..tension 1.1..z5;
+incurves = z20..tension 1.1..z1..tension
+ 1.1..z3..z25..z16..z14..tension 1.1..z18;
+toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2;
+
+fill outcurves & botlftserif & incurves & toprt & cycle;
+
+caps := 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("X",5em#/6+2ss#,cap#,0); "The Letter X";
+
+z0 = (w/2,h/2);
+z1 = (ss+userw,h-userh);
+z2 = (w-ss-userw,h-userh);
+z3 = (ss+lserw,lserh);
+z4 = (w-ss-lserw,lserh);
+z5 = z1 shifted (slantwid,0);
+z6 = z4 shifted (-slantwid,0);
+z7 = z2 shifted (-thinstroke,0);
+z8 = z3 shifted (thinstroke,0);
+z41 = aa[z1,z6];
+z41 = ab[z7,z3];
+z42 = ac[z5,z4];
+z42 = ad[z7,z3];
+z43 = ae[z8,z2];
+z43 = af[z6,z1];
+z44 = ag[z8,z2];
+z44 = ah[z5,z4];
+
+ulserif(1,9,10,11,12)(1);
+urserif(5,13,14,15,16)(1);
+ulserif(7,17,18,19,20)(1);
+urserif(2,21,22,23,24)(1);
+llserif(3,25,26,27,28)(1);
+lrserif(8,29,30,31,32)(1);
+llserif(6,33,34,35,36)(1);
+lrserif(4,37,38,39,40)(1);
+
+fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..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);
+endchar;
+
+beginchar(oct"306",6em#/6+ss#,cap#,0); "The ligature AE";
+
+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 = (ss+lserw,lserh);
+z41 = z40 shifted (thinstroke,0);
+z50 = z31 shifted (0,-1.6thinstroke);
+z100 = (0,y15);
+z101 = (0,y16);
+z102 = (0,y17);
+z51 = aaa[z50,z41];
+z51 = aab[z16,z101];
+z52 = aac[z50,z41];
+z52 = aad[z17,z102];
+
+draw z21--z24;
+
+pickup pencircle scaled 2;
+
+llserif(40,42,43,44,45)(1);
+lrserif(41,46,47,48,49)(1);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle;
+fill z51--z16--z17--z52--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;
+
+beginchar(oct"327",em#+ss#,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-o-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);
+z50 = z31 shifted (0,-1.6thinstroke);
+z40 = 0.5[z31,z28];
+z41 = (0,h/2);
+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);
+z47 = z44 shifted (0,-thinstroke);
+z48 = z45 shifted (0,thinstroke);
+
+fill
+z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle;
+fill z44..z15..z45..z42..cycle;
+unfill z43..z47..z46..z48..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;
+
+beginchar(oct"330",5em#/6+2ss#,cap#,0); "The Letter slash O";
+
+currentpicture := capo;
+
+pickup pencircle scaled thinstroke;
+bot lft z0 = (ss,0);
+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);
+endchar;
+
+beginchar(oct"336",(3(em#)/4),cap#,0); "The Letter Thorn";
+
+z1 = (ss+lserw,lserh);
+z2 = z1 shifted (thickstroke,0);
+z3 = (ss+lserw,h-lserh);
+z4 = z3 shifted (thickstroke,0);
+z13=(x4,4h/5);
+z14=z13 shifted (0,-thinstroke);
+z15=(w-ss,h/2);
+z16=z15-(curvwid,0);
+z17=(x2,h/5);
+z18=z17+(0,thinstroke);
+z19=(w/2,h);
+z20=z19-(0,thinstroke);
+z21=(w/2,0);
+z22=z21+(0,thinstroke);
+z40 = z13 shifted (thickstroke,0);
+z41 = z40 shifted (0,-thinstroke);
+z42 = z17 shifted (thickstroke,0);
+z43 = z42 shifted (0,thinstroke);
+
+llserif(1,5,6,7,8)(1);
+lrserif(2,30,31,32,33)(1);
+ulserif(3,9,10,11,12)(1);
+urserif(4,34,35,36,37)(1);
+
+fill
+z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle;
+unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--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"215",em#+ss#/2,cap#,dep#); "The Letter NG";
+
+z0 = (ss+lserw,lserh);
+z1 = z0 shifted (thickstroke,0);
+z2 = z1 shifted (ss+4lserw,0);
+z3 = z2 shifted (thickstroke,0);
+z20 = (ss+userw,h-userh);
+z21 = z20 shifted (thickstroke,0);
+z22 = z21 shifted (0,userh);
+z23 = z21 shifted (ss+4userw,0);
+z24 = z23 shifted (thickstroke,-thinstroke);
+z29 = z20 shifted (0,userh);
+z30 = z24 shifted (0,userh+thinstroke);
+z31 = 0.5[z30,z29] shifted (0,o);
+z32 = z31 shifted (0,-thinstroke);
+z33 = z28 shifted (0,-userh);
+z40 = z2;
+z41 = z3;
+%z49 = (x40-2userw,-dep);
+z49 = (w/2,-dep);
+z50 = z49 shifted (0,thinstroke);
+z51 = (x8,-dep/3);
+z56 = z21 shifted (0,-thinstroke);
+z57 = z20 shifted (0,-thinstroke);
+z58 = z23 shifted (0,-thinstroke);
+z59 = z24 shifted (0,-thinstroke);
+
+llserif(0,4,5,6,7)(1);
+lrserif(1,8,9,10,11)(1);
+ulserif(20,25,26,27,28)(1);
+ulftbulb(51,52,53,54,55);
+
+fill
+z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir
+50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--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);
+endchar;
+
+beginchar(oct"320",em#+2ss#,cap#,0); "The Letter Eth";
+
+currentpicture := capd;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (ss,h/2);
+rt z1 = (w/2-ss,h/2);
+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,52,53,54,55,56,57,58,59);
+endchar;
diff --git a/fonts/drm/mf/drmui10.mf b/fonts/drm/mf/drmui10.mf
new file mode 100644
index 0000000000..db2953b522
--- /dev/null
+++ b/fonts/drm/mf/drmui10.mf
@@ -0,0 +1,78 @@
+% +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#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant := 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.2pt#;
+slantwid#=1.2pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.4pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui11.mf b/fonts/drm/mf/drmui11.mf
new file mode 100644
index 0000000000..00e64cf78a
--- /dev/null
+++ b/fonts/drm/mf/drmui11.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.3pt#;
+slantwid#=1.3pt#;
+thickstroke#=1.1pt#;
+loopgap#=1.1pt#;
+thinstroke#=0.5pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui12.mf b/fonts/drm/mf/drmui12.mf
new file mode 100644
index 0000000000..97d9d93831
--- /dev/null
+++ b/fonts/drm/mf/drmui12.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.4pt#;
+slantwid#=1.4pt#;
+thickstroke#=1.2pt#;
+loopgap#=1.2pt#;
+thinstroke#=0.5pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui14.mf b/fonts/drm/mf/drmui14.mf
new file mode 100644
index 0000000000..196208f167
--- /dev/null
+++ b/fonts/drm/mf/drmui14.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#;
+loopgap#=1.4pt#;
+thinstroke#=0.6pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui17.mf b/fonts/drm/mf/drmui17.mf
new file mode 100644
index 0000000000..33c1bf783a
--- /dev/null
+++ b/fonts/drm/mf/drmui17.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.9pt#;
+slantwid#=1.9pt#;
+thickstroke#=1.7pt#;
+loopgap#=1.7pt#;
+thinstroke#=0.8pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui24.mf b/fonts/drm/mf/drmui24.mf
new file mode 100644
index 0000000000..6334c1f9bd
--- /dev/null
+++ b/fonts/drm/mf/drmui24.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.4pt#;
+slantwid#=2.4pt#;
+thickstroke#=2.2pt#;
+loopgap#=1.7pt#;
+thinstroke#=1.2pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui6.mf b/fonts/drm/mf/drmui6.mf
new file mode 100644
index 0000000000..eb1ebca33a
--- /dev/null
+++ b/fonts/drm/mf/drmui6.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2cap#/3;
+em#=1.2cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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);
+
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui7.mf b/fonts/drm/mf/drmui7.mf
new file mode 100644
index 0000000000..3b04d5ef62
--- /dev/null
+++ b/fonts/drm/mf/drmui7.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.7cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.4pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+loopgap#=0.7pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmui8.mf b/fonts/drm/mf/drmui8.mf
new file mode 100644
index 0000000000..951e1d5418
--- /dev/null
+++ b/fonts/drm/mf/drmui8.mf
@@ -0,0 +1,79 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=0.9pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.8pt#;
+loopgap#=0.8pt#;
+thinstroke#=0.3pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=2userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmui9.mf b/fonts/drm/mf/drmui9.mf
new file mode 100644
index 0000000000..22630d37ee
--- /dev/null
+++ b/fonts/drm/mf/drmui9.mf
@@ -0,0 +1,79 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2cap#/3;
+em#=cap#;
+ex#=0.6cap#;
+exw# = ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.2pt#;
+asch#=12cap#/12;
+digwid#=1ex#;
+slant = 1/3;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=0.9pt#;
+thickstroke#=0.9pt#;
+loopgap#=0.9pt#;
+thinstroke#=0.4pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmuiligs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmuibx10.mf b/fonts/drm/mf/drmuibx10.mf
new file mode 100644
index 0000000000..7c10ebea51
--- /dev/null
+++ b/fonts/drm/mf/drmuibx10.mf
@@ -0,0 +1,77 @@
+% +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.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.3pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant := 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.5pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx11.mf b/fonts/drm/mf/drmuibx11.mf
new file mode 100644
index 0000000000..0b65a9831a
--- /dev/null
+++ b/fonts/drm/mf/drmuibx11.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=9pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.5pt#;
+slantwid#=1.6pt#;
+thickstroke#=1.3pt#;
+thinstroke#=0.7pt#;
+loopgap#=1.1pt#;
+o#=0.5thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx12.mf b/fonts/drm/mf/drmuibx12.mf
new file mode 100644
index 0000000000..bb5c9e2fa7
--- /dev/null
+++ b/fonts/drm/mf/drmuibx12.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=10pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+loopgap#=1.2pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx14.mf b/fonts/drm/mf/drmuibx14.mf
new file mode 100644
index 0000000000..618d27636e
--- /dev/null
+++ b/fonts/drm/mf/drmuibx14.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=12pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.8pt#;
+slantwid#=1.8pt#;
+thickstroke#=1.6pt#;
+thinstroke#=0.8pt#;
+loopgap#=1.4pt#;
+o#=0.2thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx17.mf b/fonts/drm/mf/drmuibx17.mf
new file mode 100644
index 0000000000..e524343058
--- /dev/null
+++ b/fonts/drm/mf/drmuibx17.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=15pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.1pt#;
+slantwid#=2.1pt#;
+thickstroke#=1.9pt#;
+thinstroke#=1.0pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx24.mf b/fonts/drm/mf/drmuibx24.mf
new file mode 100644
index 0000000000..dd549a650a
--- /dev/null
+++ b/fonts/drm/mf/drmuibx24.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=21pt#;
+u#=2cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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#=2.6pt#;
+slantwid#=2.6pt#;
+thickstroke#=2.4pt#;
+thinstroke#=1.4pt#;
+loopgap#=1.7pt#;
+o#=0.0thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx6.mf b/fonts/drm/mf/drmuibx6.mf
new file mode 100644
index 0000000000..d8613481ce
--- /dev/null
+++ b/fonts/drm/mf/drmuibx6.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1";
+pixels_per_inch:=2400;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=4pt#;
+u#=2.5cap#/3;
+em#=1.4cap#;
+ex#=0.7cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.7pt#;
+slantwid#=0.7pt#;
+thickstroke#=0.7pt#;
+thinstroke#=0.3pt#;
+loopgap#=0.6pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/16;
+theight#=8asch#/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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx7.mf b/fonts/drm/mf/drmuibx7.mf
new file mode 100644
index 0000000000..d6d1ad3470
--- /dev/null
+++ b/fonts/drm/mf/drmuibx7.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=5pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+lserc#=0.07u#;
+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.8pt#;
+slantwid#=0.8pt#;
+thickstroke#=0.8pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.7pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+ssslant#=0.1u#;
+dotwidth#=userw#-o#;
+pwid#=3userw#;
+accwid# = pwid#/8;
+theight#=8asch#/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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx8.mf b/fonts/drm/mf/drmuibx8.mf
new file mode 100644
index 0000000000..397e5bb946
--- /dev/null
+++ b/fonts/drm/mf/drmuibx8.mf
@@ -0,0 +1,78 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=6pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.0pt#;
+slantwid#=1.0pt#;
+thickstroke#=0.9pt#;
+thinstroke#=0.4pt#;
+loopgap#=0.8pt#;
+o#=0.1thinstroke#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
diff --git a/fonts/drm/mf/drmuibx9.mf b/fonts/drm/mf/drmuibx9.mf
new file mode 100644
index 0000000000..c57fe26e46
--- /dev/null
+++ b/fonts/drm/mf/drmuibx9.mf
@@ -0,0 +1,79 @@
+% +AMDG
+
+font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1";
+pixels_per_inch:=1200;
+mode_setup;
+
+%%%% Define Dimensions for Whole Boxes %%%%
+
+phi=(1+sqrt5)/2;
+cap#=7pt#;
+u#=2.5cap#/3;
+em#=1.1cap#;
+ex#=0.6cap#;
+exw# = 1.1ex#; define_pixels(exw);
+dep#=cap#/3;
+ss#=0.25pt#;
+asch#=12cap#/12;
+digwid#=1.2ex#;
+slant = 0;
+font_slant slant;
+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 %%%%
+
+curlw#=0.2u#;
+curlh#=0.2u#;
+define_pixels(curlw,curlh);
+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.1pt#;
+slantwid#=1.0pt#;
+thickstroke#=1.0pt#;
+thinstroke#=0.5pt#;
+loopgap#=0.9pt#;
+o#=0.1pt#;
+hair#=0.2pt#;
+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 drmcap.mf;
+input drmitcap.mf;
+input drmlowmac.mf;
+input drmitlow.mf;
+input drmpunct.mf;
+input drmacc.mf;
+input drmitacclet.mf;
+input drmitpunct.mf;
+input drmitdigs.mf;
+input drmitoldstydigs.mf;
+input drmitligs.mf;
+
+end;
+
diff --git a/fonts/drm/mf/drmuiligs.mf b/fonts/drm/mf/drmuiligs.mf
new file mode 100644
index 0000000000..ccd6bb4dbd
--- /dev/null
+++ b/fonts/drm/mf/drmuiligs.mf
@@ -0,0 +1,265 @@
+% +AMDG This document was begun on 19 August 2007, the Feast of St. John
+% Eudes, 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.
+
+% "j" =: oct"027";
+ligtable "f" : "f" =: oct"033","i" =: oct"034",
+ "l" =: oct"035","t" =: oct"040","e" kern-0.05u#;
+ligtable oct"033" : "i" =: oct"036","l" =: oct"037";
+ligtable "-" : "-" =: oct"025";
+ligtable oct"025" : "-" =: oct"026";
+ligtable "`" : "`" =: oct"020";
+ligtable "'" : "'" =: oct"021";
+ligtable "?" : "`" =: oct"276";
+ligtable "!" : "`" =: oct"275";
+ligtable ">" : ">" =: oct"024";
+ligtable "<" : "<" =: oct"023";
+
+ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" :
+ oct"302" : oct"303" : oct"304" : oct"305" :
+ "A" kern-0.1u#,"B" kern-0.1u#,
+ "C" kern-0.1u#,"D" kern-0.1u#,"E" kern-0.1u#,
+ "F" kern-0.1u#, "G" kern-0.2u#,"H" kern-0.1u#,
+ "I" kern-0.1u#,"J" kern-0.1u#,"K" kern-0.1u#,
+ "L" kern-0.1u#,"M" kern-0.1u#,"N" kern-0.1u#,
+ "O" kern-0.2u#,"P" kern-0.1u#,"Q" kern-0.1u#,
+ "R" kern-0.1u#,"S" kern-0.05u#,"T" kern-0.2u#,
+ "U" kern-0.2u#,"V" kern-0.2u#,"W" kern-0.2u#,
+ "X" kern-0.1u#,"Y" kern-0.2u#,"Z" kern-0.05u#,
+ "a" kern-0.1u#,"b" kern-0.3u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#,
+ "g" kern-0.1u#,"h" kern-0.3u#,"i" kern-0.06u#,
+ "j" kern-0.05u#,"k" kern-0.3u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#,
+ "p" kern-0.15u#,"q" kern-0.1u#,"r" kern-0.2u#,
+ "s" kern-0.1u#,"t" kern-0.2u#,"u" kern-0.2u#,
+ "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.2u#,
+ "y" kern-0.2u#;
+ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#,
+ "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#,
+ "c" kern 0.05u#,"d" kern 0.1u#,"e" kern 0.1u#,
+ "f" kern-0.05u#,"g" kern 0.1u#,"o" kern 0.1u#,
+ "q" kern 0.1u#,"s" kern 0.1u#,"c" kern 0.1u#,
+ "u" kern 0.1u#;
+ligtable "C" : oct"202" : oct"203" : oct"307" :
+ "Z" kern 0.01u#,"f" kern-0.05u#,
+ "y" kern -0.1u#;
+ligtable "D" : oct"204" : oct"320" : oct"336" :
+ "G" kern 0.05u#,"V" kern-0.05u#,
+ "W" kern-0.05u#,"X" kern-0.05u#,"Y" kern-0.05u#,
+ "b" kern-0.05u#,"f" kern-0.05u#,"h" kern-0.05u#,
+ "k" kern-0.05u#,"l" kern-0.05u#,"x" kern-0.05u#;
+ligtable "E" : oct"205" : oct"206" : oct"306" :
+ oct"310" : oct"311" : oct"312" : oct"313" :
+ oct"327" : "f" kern-0.05u#,"u" kern-0.1u#,
+ "t" kern-0.1u#,"r" kern-0.1u#,"p" kern-0.1u#,
+ "m" kern-0.1u#;
+ligtable "F" : "A" kern-0.1u#,"a" kern-0.1u#,
+ "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#,
+ "f" kern-0.1u#,"g" kern-0.1u#,"m" kern-0.2u#,
+ "n" kern-0.05u#,"o" kern-0.2u#,"p" kern-0.2u#,
+ "q" kern-0.1u#,"v" kern-0.1u#,"w" kern-0.1u#,
+ "r" kern-0.2u#,"s" kern-0.1u#,"t" kern-0.1u#,
+ "u" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#,
+ "z" kern-0.1u#;
+ligtable "G" : oct"207" : "A" kern-0.1u#,"J" kern-0.05u#,
+ "b" kern-0.1u#,"f" kern-0.1u#,"h" kern-0.05u#,
+ "k" kern-0.1u#,"l" kern-0.05u#,"p" kern-0.05u#,
+ "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#,
+ "t" kern-0.05u#,"u" kern-0.1u#,"x" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "H" : "f" kern-0.2u#,"m" kern-0.05u#,"e" kern-0.05u#,
+ "o" kern-0.05u#,"p" kern-0.1u#,"r" kern-0.05u#,
+ "s" kern-0.05u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "x" kern-0.05u#,"y" kern-0.05u#;
+ligtable "K" : "a" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"m" kern-0.1u#,"p" kern-0.05u#,
+ "m" kern-0.1u#,"n" kern-0.1u#,"q" kern-0.1u#,
+ "r" kern-0.1u#,"s" kern-0.05u#,"t" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.3u#;
+ligtable "L" : "f" kern-0.1u#,"h" kern-0.1u#,
+ "k" kern-0.1u#,"m" kern-0.1u#,"p" kern-0.1u#,
+ "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.2u#;
+ligtable "M" : "m" kern-0.05u#,"r" kern-0.05u#;
+ligtable "N" : "a" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"m" kern-0.1u#,"n" kern-0.1u#,
+ "o" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.1u#,
+ "r" kern-0.1u#,"s" kern-0.1u#,"t" kern-0.1u#,
+ "x" kern-0.1u#,"y" kern-0.1u#,"z" kern-0.1u#;
+ligtable "P" : "A" kern-0.1u#,"g" kern-0.05u#,
+ "y" kern-0.05u#,"o" kern-0.05u#,"q" kern-0.05u#,
+ "g" kern-0.05u#,"e" kern-0.05u#,"d" kern-0.05u#,
+ "c" kern-0.05u#;
+ligtable "R" : "V" kern-0.05u#,"W" kern-0.05u#,
+ "b" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.05u#,
+ "h" kern-0.1u#,"k" kern-0.1u#,"m" kern-0.1u#,
+ "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.1u#,
+ "a" kern-0.1u#,"c" kern-0.1u#,"d" kern-0.1u#,
+ "e" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.1u#,
+ "q" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#;
+ligtable "S" : oct"221" : oct"222" : oct"223" :
+ "a" kern 0.05u#,"b" kern 0.05u#,
+ "c" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#,
+ "g" kern 0.05u#,"i" kern 0.05u#,"j" kern 0.05u#,
+ "k" kern 0.05u#,"l" kern 0.05u#,"n" kern 0.05u#,
+ "o" kern 0.05u#,"p" kern 0.05u#,"q" kern 0.05u#,
+ "s" kern 0.05u#,"t" kern 0.05u#,"v" kern 0.05u#,
+ "w" kern 0.05u#,"x" kern 0.05u#,"z" kern 0.05u#;
+ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#,
+ "a" kern-0.3u#,
+ "c" kern-0.3u#,"d" kern-0.3u#,"e" kern-0.3u#,
+ "f" kern-0.1u#,"g" kern-0.3u#,"m" kern-0.3u#,
+ "n" kern-0.3u#,"o" kern-0.3u#,"p" kern-0.3u#,
+ "q" kern-0.3u#,"r" kern-0.3u#,"s" kern-0.3u#,
+ "t" kern-0.1u#,"u" kern-0.3u#,"v" kern-0.3u#,
+ "w" kern-0.3u#,"x" kern-0.3u#,"y" kern-0.3u#,
+ "z" kern-0.3u#;
+ligtable "U" : oct"331" : oct"332" : oct"333" :
+ oct"334" : oct"226" : oct"227" :
+ "A" kern-0.05u#,"f" kern-0.05u#,"a" kern-0.05u#,
+ "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#,
+ "g" kern-0.05u#,"o" kern-0.05u#,"p" kern-0.05u#,
+ "q" kern-0.05u#,"r" kern-0.05u#,"s" kern-0.05u#,
+ "t" kern-0.05u#,"u" kern-0.05u#,"x" kern-0.05u#,
+ "y" kern-0.05u#,"z" kern-0.05u#;
+ligtable "V" : "A" kern-0.2u#,"O" kern-0.2u#,
+ "a" kern-0.2u#,"c" kern-0.2u#,"d" kern-0.2u#,
+ "e" kern-0.2u#,"f" kern-0.2u#,"g" kern-0.2u#,
+ "p" kern-0.2u#,"q" kern-0.2u#,"x" kern-0.2u#,
+ "y" kern-0.2u#;
+ligtable "W" : "A" kern-0.2u#,"O" kern-0.1u#,
+ "a" kern-0.1u#,"c" kern-0.1u#,"d" kern-0.1u#,
+ "e" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.1u#,
+ "p" kern-0.1u#,"q" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.1u#;
+ligtable "X" : "O" kern-0.2u#,"a" kern-0.1u#,
+ "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.05u#,
+ "f" kern-0.2u#,"g" kern-0.05u#,"m" kern-0.1u#,
+ "n" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.05u#,
+ "r" kern-0.2u#,"t" kern-0.1u#,"u" kern-0.1u#,
+ "y" kern-0.2u#;
+ligtable "Y" : oct"335" : oct"230" :
+ "A" kern-0.1u#,"O" kern-0.05u#,"a" kern-0.2u#,
+ "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#,
+ "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#,
+ "t" kern-0.1u#,"u" kern-0.2u#,"v" kern-0.2u#,
+ "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#,
+ "z" kern-0.2u#;
+ligtable "Z" : oct"231" : oct"232" : oct"233" :
+ "A" kern-0.1u#,"a" kern-0.1u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"m" kern-0.1u#,
+ "o" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.05u#,
+ "s" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#,
+ "x" kern-0.1u#;
+ligtable "o" : "o" kern0.05u#,"e" kern0.05u#,"c" kern0.05u#,
+ "d" kern0.05u#,"e" kern0.05u#,"q" kern0.05u#,
+ "k" kern-0.2u#,"f" kern-0.05u#,"h" kern-0.2u#,
+ "r" kern-0.1u#;
+ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" :
+ oct"342" : oct"343" : oct"344" : oct"345" :
+ "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#,
+ "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#,
+ "g" kern-0.1u#, "h" kern-0.2u#,"i" kern-0.1u#,
+ "j" kern-0.05u#, "k" kern-0.2u#,"l" kern-0.2u#,
+ "m" kern-0.2u#,"n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#,
+ "t" kern-0.2u#,"u" kern-0.2u#,"v" kern-0.1u#,
+ "w" kern-0.1u#,"x" kern-0.2u#,"y" kern-0.2u#,
+ "z" kern-0.1u#;
+ligtable "b" : oct"376" : "b" kern-0.1u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"o" kern0.05u#,"l" kern-0.1u#,
+ "e" kern0.05u#,"c" kern0.05u#,"d" kern0.05u#,
+ "q" kern0.05u#,"k" kern-0.2u#,"x" kern-0.05u#,
+ "y" kern-0.05u#;
+ligtable "c" : oct"347" : oct"242" : oct"243" :
+ "h" kern-0.1u#,"b" kern-0.1u#,"k" kern-0.1u#;
+ligtable "d" : oct"244" : oct"236" :
+ "b" kern-0.1u#,"f" kern-0.1u#,
+ "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.1u#,
+ "k" kern-0.1u#,"l" kern-0.05u#,"m" kern-0.1u#,
+ "n" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.15u#,
+ "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.2u#;
+ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" :
+ oct"351" : oct"352" : oct"353" :
+ "m" kern-0.1u#,"b" kern-0.1u#,"h" kern-0.1u#,
+ "k" kern-0.1u#;
+ligtable "g" : oct"247" : "b" kern-0.1u#,"k" kern-0.1u#,
+ "h" kern-0.1u#;
+ligtable "h" : oct"136" : "b" kern-0.1u#,"f" kern-0.1u#,
+ "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#,
+ "p" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#,
+ "u" kern-0.1u#,"x" kern-0.1u#,"y" kern-0.1u#;
+ligtable "i" : "f" kern-0.1u#,"m" kern-0.1u#;
+ligtable "j" : "a" kern-0.1u#,"b" kern-0.1u#,
+ "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#,
+ "f" kern-0.1u#,"g" kern-0.1u#,"h" kern-0.1u#,
+ "k" kern-0.1u#,"m" kern-0.1u#,"n" kern-0.1u#,
+ "o" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.1u#,
+ "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#,
+ "y" kern-0.1u#,"z" kern-0.1u#;
+ligtable "k" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"k" kern-0.1u#,"l" kern-0.1u#;
+ligtable "l" : "m" kern-0.1u#,"y" kern-0.1u#;
+ligtable "m" : "b" kern-0.2u#,"f" kern-0.1u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.1u#,
+ "m" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#,
+ "u" kern-0.1u#,"y" kern-0.2u#;
+ligtable "n" : oct"253" : oct"254" : oct"255" :
+ oct"361" : "f" kern-0.1u#,"h" kern-0.1u#,
+ "k" kern-0.1u#,"p" kern-0.05u#,"u" kern-0.05u#,
+ "y" kern-0.05u#,"m" kern-0.1u#,"r" kern-0.1u#;
+ligtable "p" : "b" kern-0.2u#,"f" kern-0.05u#,
+ "h" kern-0.1u#,"k" kern-0.2u#,"x" kern-0.05u#;
+ligtable "q" : "a" kern-0.2u#,"b" kern-0.4u#,
+ "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#,
+ "h" kern-0.4u#,"k" kern-0.4u#,"l" kern-0.3u#,
+ "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#,
+ "p" kern-0.2u#,"s" kern-0.1u#,"v" kern-0.1u#,
+ "q" kern-0.2u#,"r" kern-0.2u#,"t" kern-0.2u#,
+ "u" kern-0.2u#,"x" kern-0.2u#,"w" kern-0.1u#,
+ "z" kern-0.1u#;
+ligtable "r" : "b" kern-0.2u#,"h" kern-0.2u#,
+ "k" kern-0.2u#,"l" kern-0.1u#;
+ligtable "t" : "b" kern-0.1u#,"h" kern-0.1u#,"k" kern-0.1u#;
+ligtable "s" : "k" kern-0.1u#,"h" kern-0.1u#,
+ "b" kern-0.1u#;
+ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" :
+ oct"266" : oct"267" : "b" kern-0.2u#,"c" kern-0.1u#,"d" kern-0.1u#,
+ "f" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.1u#,"j" kern-0.05u#,
+ "k" kern-0.2u#,"l" kern-0.2u#,"m" kern-0.2u#,
+ "n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#,"q" kern-0.1u#,
+ "r" kern-0.2u#,"t" kern-0.15u#,"u" kern-0.2u#,"v" kern-0.05u#,
+ "x" kern-0.1u#,"y" kern-0.2u#;
+ligtable "v" : "a" kern 0.1u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#,
+ "e" kern 0.1u#,"h" kern-0.1u#;
+ligtable "w" : "a" kern 0.1u#,"c" kern 0.1u#,
+ "d" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#,
+ "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#,
+ "e" kern 0.1u#,"h" kern-0.1u#,"k" kern-0.1u#,
+ "b" kern-0.1u#;
+ligtable "x" : "f" kern-0.1u#,"h" kern-0.2u#,"b" kern-0.2u#,
+ "k" kern-0.2u#,"t" kern-0.1u#,"l" kern-0.1u#,
+ "y" kern-0.1u#;
+ligtable "y" : oct"375" : oct"270" : "a" kern 0.05u#,
+ "g" kern 0.05u#,
+ "n" kern 0.05u#,"m" kern 0.05u#,"o" kern 0.05u#,
+ "q" kern 0.05u#,"r" kern 0.05u#,"s" kern 0.05u#,
+ "v" kern 0.05u#,"w" kern 0.05u#,"z" kern 0.05u#;
+ligtable "z" : oct"271" : oct"272" : oct"273" :
+ "a" kern-0.05u#,"b" kern-0.2u#,
+ "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#,
+ "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.1u#;
+ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#,
+ "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#,
+ "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#,
+ "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#,
+ "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#,
+ "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#,
+ "z" kern-0.15u#;