%!PS-Adobe-3.0 Resource-Font %%DocumentNeededResources: UniJIS-UTF8-V (CMap) %%IncludeResource: UniJIS-UTF8-V (CMap) %%BeginResource: Font (HaranoAjiMincho-Light-UniJIS-UTF8-V) (HaranoAjiMincho-Light) /CIDFont findresource dup length dict copy begin [/FID /UIDBase /UniqueID] { % /FID inserted by definefont. PLRM p.325 currentdict exch undef } forall currentdict /XUID known { % redefine XUID /XUID [XUID aload length 3 gt { 1 add } { 0 } ifelse] def } if % new fontname %/CIDFontName (HaranoAjiMincho-Light-vert) cvn def %/FontName CIDFontName def % setcachedevice2 - /CDevProc { 5 { pop } repeat % CID 0 % 1000 neg % 7 index dup 0 le { pop 1000 } if 2 div % 880 % } bind def CIDFontName currentdict end %definefont /CIDFont defineresource % % dict (HaranoAjiMincho-Light-UniJIS-UTF8-V) (UniJIS-UTF8-V) /CMap findresource 3 -1 roll [exch] composefont pop %%EndResource %%EOF