%PS%
%  Create smallcap fonts from the current Quikscript font
% To use this font from Quikscript, use %FN,Uft%.  Bold or italic can be used
%     Uft
%     Uft-Italic
%     Uft-Bold
%     Uft-BoldItalic

                 %   original-font new-font unique-id  MakeSCapFont  -
/MakeSCapFont
 {
  10 dict begin
   /UniqueID exch def
   /FontName exch def
   /BasefontName exch def
   /FontType 3 def
   BasefontName findfont 
   dup /FontBBox get /FontBBox exch def
   dup /Encoding get /Encoding exch def
   /FontMatrix get /FontMatrix exch def
   /BuildChar 
    { exch begin
      dup 97 ge 1 index 122 le and
       {BasefontName findfont  700 scalefont setfont  32 sub}
       {BasefontName findfont 1000 scalefont setfont}
       ifelse
      ( ) dup 0 4 -1 roll put       % Put char in a string.
      dup stringwidth setcharwidth  % Set charwidth
      0 0 moveto  show
     end
    } def
  FontName currentdict end definefont pop
 } def
QSdict begin userdict begin
Font FontStack FontInd get 4 mul get /SmallCap
Font FontStack FontInd get 4 mul get findfont dup /UniqueID known
  {/UniqueID get 5 add} {pop 1}  ifelse
  MakeSCapFont
Font FontStack FontInd get 4 mul 2 add get /SmallCap-Bold
Font FontStack FontInd get 4 mul get findfont dup /UniqueID known
  {/UniqueID get 7 add} {pop 2}  ifelse
  MakeSCapFont
Font FontStack FontInd get 4 mul 1 add get /SmallCap-Italic
Font FontStack FontInd get 4 mul get findfont dup /UniqueID known
  {/UniqueID get 9 add} {pop 3}  ifelse
  MakeSCapFont
Font FontStack FontInd get 4 mul 3 add get /SmallCap-BoldItalic
Font FontStack FontInd get 4 mul get findfont dup /UniqueID known
  {/UniqueID get 11 add} {pop 4}  ifelse
  MakeSCapFont

Font 44 /SmallCap put
Font 45 /SmallCap-Italic put
Font 46 /SmallCap-Bold put
Font 47 /SmallCap-BoldItalic put
end  end

% /Helvetica /Uft
% /Helvetica findfont dup /UniqueID known
%   {/UniqueID get 1 add} {pop 1}  ifelse
%   MakeSCapFont
% /Helvetica-Bold /Uft-Bold
% /Helvetica findfont dup /UniqueID known
%   {/UniqueID get 3 add} {pop 1}  ifelse
%   MakeSCapFont
% /Helvetica-Oblique /Uft-Italic
% /Helvetica findfont dup /UniqueID known
%   {/UniqueID get 4 add} {pop 1}  ifelse
%   MakeSCapFont
% /Helvetica-BoldOblique /Uft-BoldItalic
% /Helvetica findfont dup /UniqueID known
%   {/UniqueID get 5 add} {pop 1}  ifelse
%   MakeSCapFont
PE