Attachment 46034 Details for Bug 104656

[patch] gs850-vfont-patch

gs850-vfont-patch (text/plain), 3.93 KB, created by Mike Fabian on 2005-08-15 10:57:26 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Mike Fabian

Created: 2005-08-15 10:57:26 UTC

Size: 3.93 KB

patch

obsolete

> 2005/01/22
>
> $B!}(B gs_cidfn.ps $B$NJQ99E@(B
>   %Type11BuildGlyph $B$K$*$$$F!"(B .type11mapcid$B$,JV$7$?%0%j%UHV9f$r(B
>   $B=D=q$-;~$K$O=D=q$-MQ%0%j%UHV9f$KJQ49$9$k!#(B
>
> $B!}(B gs_ttf.ps $B$NJQ99E@(B
>   truetype$B%U%)%s%HFb$N!V(Bmort$B!W%X%C%@!<$+$i!"(B
>   $B=D=q$-;~$KCV$-49$($kI,MW$,$"$k%0%j%U$NBP1~I=$r(B
>   dictionary(key:$B2#=q$-;~$N%0%j%UHV9f!"(Bval:$B=D=q$-;~$N%0%j%UHV9f(B)$B$N7A$G(B
>   $B<h$j=P$7!"(B/WMode-glyph $B$K@_Dj$9$k!#(B
>   ($B$?$@$7!"%U%)!<%^%C%H(B6$B$G!"$+$D!"%0%j%UHV9f$,(B16$B%S%C%H$K$N$_$KBP1~(B)
>
>
>--- gs_cidfn.ps-ORIG	Fri May 23 18:57:34 2003
>+++ gs_cidfn.ps	Wed Jan 26 18:11:31 2005
>@@ -304,7 +304,18 @@
> % The name %Type11BuildGlyph is known to the interpreter.
> (%Type11BuildGlyph) cvn {	% <cidfont> <cid> %Type11BuildGlyph -
> 		% We must be prepared for out-of-range CIDs.
>-  2 copy { .type11mapcid } .internalstopped {
>+  2 copy { % dup 10 string cvs print (.) print flush
>+           .type11mapcid
>+	   %%% #if C_src_not_patched
>+           rootfont /WMode .knownget {
>+             1 eq {
>+               2 index /.mort.ncgsv .knownget {
>+                 1 index .knownget { exch pop } if
>+               } if
>+             } if
>+           } if
>+	   %%% #endif C_src_not_patched
>+         } .internalstopped {
>     pop /CharStrings get /.notdef get
>   } if
> 			% Stack: cidfont cid glyphindex
>--- gs_ttf.ps-ORIG	Fri Jul 30 04:19:07 2004
>+++ gs_ttf.ps	Wed Jan 26 18:11:41 2005
>@@ -521,6 +521,7 @@
>   (OS/2) 1 index
>   (post) 1 index
>   (vhea) 1 index
>+  (mort) 1 index  % for WMode glyph substitution
> 	% Big tables
>   (glyf) { .readbigtable }
>   (loca) 1 index
>@@ -1052,6 +1053,9 @@
>   mark
>   .charkeys
>   .ttkeys
>+  %%% #if C_src_not_patched
>+  .getwmode_glyph
>+  %%% #endif C_src_not_patched
>   .definettfont
> } bind def
> 
>@@ -1126,10 +1130,61 @@
>   /TT_cmap cmaptab cmaparray
>   /file_table_pos file_table_pos
>   /Decoding Decoding
>+  %%% #if C_src_not_patched
>+  .getwmode_glyph
>+  %%% #endif C_src_not_patched
>   .dicttomark
>   end end 
> } bind def
> 
>+%%% #if C_src_not_patched
>+% - .getwmode_glyph {/.mort.ncgsv -dict-|}
>+% setup vertical mode glyph replace dictionary
>+/.getwmode_glyph {
>+  tabdict /mort .knownget {
>+    mark exch
>+    dup 0 getu32 16#00010000 eq {
>+      10 dict begin
>+      TTFDEBUG { (mort: ) = flush } if
>+      /.mort exch def
>+      /CHp 8 def     % `CHp' points at `chain header'
>+      .mort 4 getu32 { % repeat for nChains
>+        .mort CHp 10 add getu16                 % nSub
>+        .mort CHp 8 add getu16                  % nSub nFeat
>+        12 mul 12 add CHp add /Subp exch def    % nSub
>+        % `Subp' point at start of Sub Feature Table
>+        { /soff Subp def
>+          .mort soff 2 add getu16 7 and 4 eq {
>+            % non-contextual vertical glyph replacement
>+            .mort soff 8 add getu16 6 eq {
>+              .mort soff 10 add getu16 4 eq {
>+                .mort soff 12 add getu16          % count
>+                /soff soff 20 add def {
>+                  .mort soff getu16
>+                  .mort soff 2 add getu16
>+                  /soff soff 4 add def
>+                } repeat
>+              } {
>+                QUIET not { (SubFeature Table: size != 4) = } if
>+              } ifelse
>+            } {
>+              QUIET not { (SubFeature Table: format != 6) = } if
>+            } ifelse
>+          } if
>+          /Subp .mort Subp getu16 Subp add def
>+        } repeat
>+        /CHp .mort CHp 4 add getu32 CHp add def
>+      } repeat
>+      end
>+    } if
>+    counttomark 0 gt {
>+      .dicttomark /.mort.ncgsv exch
>+      QUIET not { ($Vertical Glyph Substitution enabled$ ) print } if
>+    } { pop } ifelse
>+  } if
>+} bind def
>+%%% #endif C_src_not_patched
>+
> % ---------------- PDF TrueType font loading ---------------- %
> 
> % Strictly speaking, this code should be loaded only if we have a PDF
>@@ -1338,5 +1393,8 @@
>   mark
>   .pdfcharkeys
>   .ttkeys
>+  %%% #if C_src_not_patched
>+  .getwmode_glyph
>+  %%% #endif C_src_not_patched
>   .definettfont
> } bind def

Actions: View | Diff

Attachments on bug 104656: 46034 | 47348