[gs-cvs] gs/lib

[Igor Melichev]

Update of /cvs/ghostscript/gs/lib
In directory casper:/tmp/cvs-serv10311/gs/lib

Modified Files:
	gs_cidtt.ps 
Log Message:
Fix : Removing an unused procedure.


Index: gs_cidtt.ps
===================================================================
RCS file: /cvs/ghostscript/gs/lib/gs_cidtt.ps,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- gs_cidtt.ps	3 Feb 2003 08:32:19 -0000	1.7
+++ gs_cidtt.ps	12 Feb 2003 22:31:23 -0000	1.8
@@ -30,24 +30,6 @@
 
 %-------Auxiliary procedures for building CIDFontType 2 from TT file -----------
 
-/put_to_CIDMap    % <cid> <gid> [CIDmap] put_to_CIDMap <cid> 
-{                                       % cid gid []
-  2 index 2 mul exch                    % cid gid i []
-  {                                     % cid gid i ()
-    dup length dup                      % cid gid i () l l
-    3 index lt {                        % cid gid i () l
-      exch pop sub                      % cid gid i'
-    } {                                 % cid gid i () l
-      pop exch                          % cid gid () i
-      3 2 roll                          % cid () i gid
-      3 copy 256 idiv put               % cid () i gid
-      exch 1 add exch 256 mod put       % cid
-      dup dup exit                      % cid cid cid
-    } ifelse
-  } forall                              % cid ? ?
-  pop pop                               % cid
-} bind def
-
 /GenerateCIDMap   % <font> GenerateCIDMap <font>
 { begin
     % Obtain the maximal CID :