%! Showfonti.ps %%BoundingBox: 24 15 350 192 %%Title: (Print a series of words going along two axes) %%Creator: Michel Goossens CERN CN/ASD %%CreationDate: Feb. 15th 1994 %%DocumentNeededResources: font(s) defined by user %%EndComments %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % MAIN ROUTINE % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % /y 170 def /x 25 def [6 8 11 18 40 72]% loop on optical size>>>>>>>>>>>>>+ { % v x y moveto % go to new coordinate v /Si exch def % Size from forall loop<<+ /MM /MinionMM findfont dup begin [ 400 500 Si NormalizeDesignVector ConvertDesignVector ] end makeblendedfont definefont 20 scalefont setfont (Hxkp) show /x x 55 add def % calculate x } forall 450 30 600 % outer loop on width>>>>>>>>>>>>>+ { % v /x 25 def % reset x v /y y 25 sub def % calculate y v /Wi exch def % width from for loop<<+ 360 50 610 % inner loop on weight>>>>>>>>>>>>+ { % v x y moveto % go to new coordinate v /We exch def % weight from for loop<<+ /MM /MinionMM findfont dup begin [ We Wi 72 NormalizeDesignVector ConvertDesignVector ] end makeblendedfont definefont 20 scalefont setfont (Hxkp) show /x x 55 add def % calculate x } for } for showpage %%EOF