%! PostScript hack Copyright 1993 by Jon Monsarrat. Permission granted %% to freely distribute if this header remains intact. %% Calculates the widths of the printing characters in a font %% Edit the following two lines to include the information about the %% Font that you want information about! %% Prints width information for all printing characters, and the space %% Put the size you want for the height of the font in points. %% Uncomment the line of the font you want, or use your own font name. %% Then send to the printing device that you want widths for. %% Do NOT use a screen previewer if you want widths for the printer! /Size 10 def % /FontName /Times-Roman def % /FontName /Times-Italic def % /FontName /Times-Bold def % /FontName /Times-BoldItalic def % /FontName /NewCenturySchlbk-Roman def % /FontName /NewCenturySchlbk-Italic def % /FontName /NewCenturySchlbk-Bold def % /FontName /NewCenturySchlbk-BoldItalic def % /FontName /Helvetica def % /FontName /Helvetica-Oblique def % /FontName /Helvetica-Bold def % /FontName /Helvetica-BoldOblique def % /FontName /Souvenir-Demi def % /FontName /Souvenir-Light def % /FontName /Courier def /FontName /Symbol def % /FontName /AvantGarde-Book def % /FontName /AvantGarde-Demi def % /FontName /AvantGarde-Oblique def % /FontName /AvantGarde-BookOblique def % /FontName /ZapfDingbats def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /center { /y exch def dup stringwidth pop 8.5 in exch sub 2 div y in moveto show} def /StartPage { /Times-Roman findfont 20 scalefont setfont (Widths of Printing Characters) 10.4 center FontName 50 string cvs stringwidth pop (, size ) stringwidth pop add Size 5 string cvs stringwidth pop add 8.5 in exch sub 2 div 10.1 in moveto FontName 50 string cvs show (, size ) show Size 5 string cvs show /Times-Roman findfont 10 scalefont setfont 1 in 9.8 in moveto (character) show 2 in 9.8 in moveto (ASCII) show % Or EBCDIC 3 in 9.8 in moveto (width in points) show 5 in 9.8 in moveto (width in inches) show 7 in 9.8 in moveto (width in cm) show FontName findfont Size scalefont setfont /y topmargin def } bind def /in { 72 mul } def /topmargin 9.5 in def /bottommargin 1 in def StartPage /Parse { /str exch def 0 1 str length 1 sub { str exch 1 getinterval dup dup dup stringwidth pop 0 gt { 1 in y moveto show % Print the character {} forall 10 string cvs 2 in y moveto show % Print the ASCII or EBCDIC number stringwidth pop dup 10 string cvs 3 in y moveto show % Print width in points dup 72 div 10 string cvs 5 in y moveto show % Print width in inches dup 182.88 div 10 string cvs 7 in y moveto show % Print width in cm /y y Size 1.2 mul sub def y bottommargin lt { showpage StartPage } if } if } for } bind def (\000\001\002\003\004\005\006\007) Parse (\010\011\012\013\014\015\016\017) Parse (\020\021\022\023\024\025\026\027) Parse (\030\031\032\033\034\035\036\037) Parse (\040\041\042\043\044\045\046\047) Parse (\050\051\052\053\054\055\056\057) Parse (\060\061\062\063\064\065\066\067) Parse (\070\071\072\073\074\075\076\077) Parse (\100\101\102\103\104\105\106\107) Parse (\110\111\112\113\114\115\116\117) Parse (\120\121\122\123\124\125\126\127) Parse (\130\131\132\133\134\135\136\137) Parse (\140\141\142\143\144\145\146\147) Parse (\150\151\152\153\154\155\156\157) Parse (\160\161\162\163\164\165\166\167) Parse (\170\171\172\173\174\175\176\177) Parse (\200\201\202\203\204\205\206\207) Parse (\210\211\212\213\214\215\216\217) Parse (\220\221\222\223\224\225\226\227) Parse (\230\231\232\233\234\235\236\237) Parse (\240\241\242\243\244\245\246\247) Parse (\250\251\252\253\254\255\256\257) Parse (\260\261\262\263\264\265\266\267) Parse (\270\271\272\273\274\275\276\277) Parse (\300\301\302\303\304\305\306\307) Parse (\310\311\312\313\314\315\316\317) Parse (\320\321\322\323\324\325\326\327) Parse (\330\331\332\333\334\335\336\337) Parse (\340\341\342\343\344\345\346\347) Parse (\350\351\352\353\354\355\356\357) Parse (\360\361\362\363\364\365\366\367) Parse (\370\371\372\373\374\375\376\377) Parse (\400\401\402\403\404\405\406\407) Parse (\410\411\412\413\414\415\416\417) Parse (\420\421\422\423\424\425\426\427) Parse (\430\431\432\433\434\435\436\437) Parse (\440\441\442\443\444\445\446\447) Parse (\450\451\452\453\454\455\456\457) Parse (\460\461\462\463\464\465\466\467) Parse (\470\471\472\473\474\475\476\477) Parse (\500\501\502\503\504\505\506\507) Parse (\510\511\512\513\514\515\516\517) Parse (\520\521\522\523\524\525\526\527) Parse (\530\531\532\533\534\535\536\537) Parse (\540\541\542\543\544\545\546\547) Parse (\550\551\552\553\554\555\556\557) Parse (\560\561\562\563\564\565\566\567) Parse (\570\571\572\573\574\575\576\577) Parse (\600\601\602\603\604\605\606\607) Parse (\610\611\612\613\614\615\616\617) Parse (\620\621\622\623\624\625\626\627) Parse (\630\631\632\633\634\635\636\637) Parse (\640\641\642\643\644\645\646\647) Parse (\650\651\652\653\654\655\656\657) Parse (\660\661\662\663\664\665\666\667) Parse (\670\671\672\673\674\675\676\677) Parse (\700\701\702\703\704\705\706\707) Parse (\710\711\712\713\714\715\716\717) Parse (\720\721\722\723\724\725\726\727) Parse (\730\731\732\733\734\735\736\737) Parse (\740\741\742\743\744\745\746\747) Parse (\750\751\752\753\754\755\756\757) Parse (\760\761\762\763\764\765\766\767) Parse (\770\771\772\773\774\775\776\777) Parse % (\032 !"#$%&'()*+,-./) Parse % (01234567879) Parse % (ABCDEFGHIJKLMOPQRSTUVWXYZ) Parse % ([\]^_`) Parse % (abcdefghijklmopqrstuvwxyz) Parse % ({|}~) Parse showpage .