%    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.% % This software is provided AS-IS with no warranty, either express or% implied.% % This software is distributed under license and may not be copied,% modified or distributed except as expressly authorized under the terms% of the license contained in the file LICENSE in this distribution.% % For more information about licensing, please refer to% http://www.ghostscript.com/licensing/. For information on% commercial licensing, go to http://www.artifex.com/licensing/ or% contact Artifex Software, Inc., 101 Lucas Valley Road #110,% San Rafael, CA  94903, U.S.A., +1(415)492-9861. % $Id: gs_typ32.ps,v 1.6 2002/06/02 12:03:28 mpsuzuki Exp $% Initialization file for Type 32 fonts. % ------ Type 32 fonts ------ % % We need LanguageLevel 2 or higher in order to have defineresource.languagelevel dup 2 .max .setlanguagelevel /BitmapFontInit mark /.makeglyph32 systemdict /.makeglyph32 getsystemdict /.makeglyph32 .undef /addglyph {	% ([wx wy llx lly urx ury] |		%     [w0x w0y llx lly urx ury w1x w1y vx vy])		%   <bitmap> <cid> <type32font> addglyph -  1 index dup 2 index .removeglyphs  22 string .makeglyph32		% Stack: metrics bitmap cid font metstr  3 index () ne {		% Use G4 encoding to compress the bitmap.		% Define a string large enough to hold the metrics,		% an uncompressed bitmap (worst case = 5x expansion),		% and the 2 RTC codes (3 bytes).    dup length 4 index length 5 mul add 10 add string		% Stack: metrics bitmap cid font metstr buffer    dup 0 3 index putinterval    dup 2 index length 1 index length 1 index sub getinterval		% Stack: metrics bitmap cid font metstr buffer bitbuf    mark /Columns 8 index dup 4 get exch 2 get sub      /Rows 10 index dup 5 get exch 3 get sub      /K -1 /EndOfBlock true /BlackIs1 true    .dicttomark /CCITTFaxEncode filter		% Stack: metrics bitmap cid font metstr buffer filter    dup 6 index writestring closefile		% Find the end of the data by scanning backwards for the RTC.		% There are 2 RTCs x 12 bits = 3 bytes to remove.    {      dup dup length 1 sub get 0 ne { exit } if      0 1 index length 1 sub getinterval    } loop    0 1 index length 3 sub getinterval    exch pop	% metstr  } if  1 index /CharStrings get 3 index 3 -1 roll put  pop pop pop pop} obind /removeall {		% <type32font> removeall -  0 65535 2 index removeglyphs pop} obind /.removeglyphs systemdict /.removeglyphs getsystemdict /.removeglyphs .undef /removeglyphs {		% <cid_min> <cid_max> <type32font> .removeglyphs -  3 copy .removeglyphs  dup /CharStrings get dup {		% Stack: cidmin cidmax font CharStrings cid bitmap    pop dup 5 index ge { dup 4 index le { 2 copy undef } if } if pop  } forall pop pop pop pop} obind .dicttomark /ProcSet defineresource pop /.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse.cidfonttypes begin 4	% CIDFontType 4 = FontType 32{ dup /FontType 32 put  dup /CharStrings 20 dict put  1 index exch .buildfont32 exch pop} bind def end		% .cidfonttypes % Define the BuildGlyph procedure.% Since Type 32 fonts are indexed by CID, there is no BuildChar procedure.% The name %Type32BuildGlyph is known to the interpreter.(%Type32BuildGlyph) cvn {	% <font> <cid> %Type32BuildGlyph -  1 index /CharStrings get		% Stack: font cid CharStrings  dup 2 index .knownget { exch pop } { 0 get } ifelse		% Stack: font cid cstr  dup //.getmetrics32	% use // because of .undef below  dup 14 gt {    8 index 8 index 13 3 roll setcachedevice2  } {    4 index 4 index 9 3 roll setcachedevice  } ifelse		% Stack: font cid cstr w h nmetrics llx lly  6 -1 roll 4 -1 roll 1 index length 1 index sub getinterval		% Stack: font cid w h llx lly bitstr  dup () eq {    pop pop pop  } {    mark /Columns 6 index /Rows 7 index /K -1 /EndOfBlock false /BlackIs1 true    .dicttomark /CCITTFaxDecode filter 4 index 4 index true		% Stack: font cid w h llx lly filter w h true    [ 1 0 0 1 11 -2 roll exch neg exch neg ] 5 -1 roll imagemask  } ifelse  pop pop pop pop} bind def systemdict /.getmetrics32 .undef buildfontdict 32 /.buildfont32 cvx put 32 dup /FontType defineresource pop .setlanguagelevel