%!PS-Adobe-3.0 Resource-Font
%%Creator: Taiji Yamada <taiji@aihara.co.jp> and gs-cjk project
%%BeginResource: Font (GothicBBB-Medium-78-RKSJ-V)
%%Copyright:	--------------------------------------------------------
%%Copyright:	Copyright (C) 2002 gs-cjk project. All rights reserved.
%%Copyright:	
%%Copyright:	This file is provided under "BSD" license.
%%Copyright:	For the detail of "BSD" license, please refer
%%Copyright:	http://www.gyve.org/gs-cjk/license.html
%%Copyright:	--------------------------------------------------------
/GothicBBB-Medium-78-RKSJ-V
30 dict begin
/basecidfont /GothicBBB-Medium def

/concat2strings { % str1 str2 concat2strings str
  2 { dup type /stringtype ne { dup length string cvs } if exch } repeat
  exch dup length 3 2 roll dup length 2 index add string 0 5 1 roll
  2 { dup 4 2 roll putinterval } repeat
} bind def

/concats { % [str ...] concats string
  () exch dup length 1 sub -1 0 {
    1 index exch get 3 -1 roll concat2strings exch
  } for pop
} bind def

/strcmp { % s1 s2 strcmp integer
  1 index length 1 index length 2 copy gt { exch } if pop	% s1 s2 lmin
  0 exch 1 sub 0 1 3 -1 roll {	% s1 s2 0 0 1 lmin-1 {} for
				% s1 s2 0 i s1[i]-s2[i] s1[i]-s2[i]=0
    3 index 1 index get 3 index 2 index get sub dup 0 eq {
      pop pop			% s1 s2 0
    } {
      3 1 roll pop pop exit	% s1 s2 s1[i]-s2[i]
    } ifelse
  } for 3 1 roll pop pop	% s1[i]-s2[i]
} bind def

/stringsub { % s1 s2 stringsub string bool
  true 3 1 roll				% true s1 s2
  1 index length 1 index length 2 copy ne {
    2 copy gt {				% true s1 s2 l1 l2 l1>l2
      %sub string exch concat2strings	% true s1 str(l1-l2)+s2
      sub string concat2strings		% true s1 s2+str(l1-l2)
    } {					% true s1 s2 l1 l2 l1<l2
      exch sub string 3 -1 roll		% true s2 str(l2-l1) s1
      %concat2strings exch		% true str(l2-l1)+s1 s2
      exch concat2strings exch		% true s1+str(l2-l1) s2
    } ifelse dup length			% true s1 s2 L
  } { pop } ifelse			% true s1 s2 L
  dup string 4 1 roll 1 sub -1 0 {	% true s s1 s2 L-1 -1 0 {} for
    2 index 1 index get
    2 index 2 index get sub		% true s s1 s2 i s1[i]-s2[i]
    4 index 2 index get sub		% true s s1 s2 i s1[i]-s2[i]-s[i]
    dup 0 lt {				% true s s1 s2 i d
      16#0100 add			% true s s1 s2 i d'
      4 index 2 index 3 -1 roll put	% true s s1 s2 i (s i d' put)
      1 sub				% true s s1 s2 i-1
      dup 0 lt { pop
        4 -1 roll pop false 4 1 roll	% false s s1 s2
        2 index length 1 sub -1 0 {	% false s s1 s2 i
          3 index 1 index get		% false s s1 s2 i s[i]
          16#ff exch sub		% false s s1 s2 i s'[i]
          4 index 3 1 roll put		% false s s1 s2 (s i s'[i] put)
        } for
      } {
        1 4 index 3 1 roll put		% true s s1 s2 (s i-1 1 put)
      } ifelse
    } {
      4 index 3 1 roll put		% true s s1 s2 (s i s1[i]-s2[i] put)
    } ifelse
  } for pop pop				% bool s
  exch					% s bool
} bind def

/strsub { % s1 s2 strsub integer
  stringsub exch			% (s1 s2 stringsub exch)bool string
  0 exch { exch 8 bitshift add } forall	% bool value
  exch not { not } if			% value|co-value
} bind def

/stringadd { % s1 s2 stringadd string bool
  true 3 1 roll				% true s1 s2
  1 index length 1 index length 2 copy ne {
    2 copy gt {				% true s1 s2 l1 l2 l1>l2
      %sub string exch concat2strings	% true s1 str(l1-l2)+s2
      sub string concat2strings		% true s1 s2+str(l1-l2)
    } {					% true s1 s2 l1 l2 l1<l2
      exch sub string 3 -1 roll		% true s2 str(l2-l1) s1
      %concat2strings exch		% true str(l2-l1)+s1 s2
      exch concat2strings exch		% true s1+str(l2-l1) s2
    } ifelse dup length			% true s1 s2 L
  } { pop } ifelse			% true s1 s2 L
  dup string 4 1 roll 1 sub -1 0 {	% true s s1 s2 L-1 -1 0 {} for
    2 index 1 index get
    2 index 2 index get add		% true s s1 s2 i s1[i]+s2[i]
    4 index 2 index get add		% true s s1 s2 i s1[i]+s2[i]+s[i]
    dup 16#ff gt {			% true s s1 s2 i d
      16#0100 sub			% true s s1 s2 i d'
      4 index 2 index 3 -1 roll put	% true s s1 s2 i (s i d' put)
      1 sub				% true s s1 s2 i-1
      dup 0 lt { pop
        4 -1 roll pop false 4 1 roll	% false s s1 s2
      } {
        1 4 index 3 1 roll put		% true s s1 s2 (s i-1 1 put)
      } ifelse
    } {
      4 index 3 1 roll put		% true s s1 s2 (s i s1[i]-s2[i] put)
    } ifelse
  } for pop pop				% bool s
  exch					% s bool
} bind def

/stradd { % s1 s2 stradd integer
  stringadd				% (s1 s2 stringadd)string bool
  not { <01> exch concat2strings } if	% !bool { <01>+string } if
  0 exch { exch 8 bitshift add } forall	% value
} bind def

/markstacktoarray { % mark d11..d1n ... n markstacktoarray
  % mark d11..d1n ... n array[N/n] N/n-1 -1 0 {} for 
  counttomark 1 sub 1 index idiv array dup length 1 sub -1 0 {
    % mark d11..d1n ... dN1...dNn n array[N/n] (array[N/n] i [5+n -n roll] put)
    1 index exch [ 5 5 index add 5 index neg roll ] put
  } for 3 1 roll pop pop	% mark n array[N/n]
} bind def

/stacktoarray { % d11..d1n ... dN1..dNn N n stacktoarray
  % d11..d1n ... n array[N] N-1 -1 0 {} for 
  exch array dup length 1 sub -1 0 {
    % d11..d1n ... dN1...dNn n array[N] (array[N] i [5+n -n roll] put)
    1 index exch [ 5 5 index add 5 index neg roll ] put
  } for exch pop		% n array[N]
} bind def

/putmorearray { % dict key arr putmorearray -
  2 index 2 index get dup null eq { pop put } {
    dup length 0 eq { pop put } {
      dup length dup 3 index length add array dup 0 5 -1 roll putinterval dup
      3 -1 roll 4 -1 roll putinterval put
    } ifelse
  } ifelse
} bind def

/bsort { % array cmpproc bsort array
  1 index length 1 sub -1 1 {	% arr proc i
	% arr proc arr i arr[i] arr i arr[i]
    2 index exch 2 copy get 3 copy
    0 1 3 index 1 sub {		% arr proc arr i arr[i] arr i arr[i] j(0..i-1)
      3 index 1 index get	% arr proc arr i arr[i] arr i arr[i] j arr[j]
	% arr proc arr i arr[i] arr i arr[i] j arr[j] (arr[i] arr[j] proc)cmp<0
      2 index 1 index 10 index exec 0 lt {
	4 2 roll		% arr proc arr i arr[i] arr j arr[j] i arr[i]
      } if pop pop		% arr proc arr i arr[i] arr j arr[j]
    } for			% arr proc arr i arr[i] arr ~i ~arr[j]
	% arr proc (arr i ~arr[j] put) (arr ~i arr[i] put)
    4 -1 roll exch 4 1 roll put put
  } for pop			% arr
} bind def

% array value cmpproc bsearch index true
% array value cmpproc bsearch false
/bsearch {
  0 3 index length 1 sub {				% arr v proc l r
    2 copy gt { 5 { pop } repeat false exit } if	% false exit
    2 copy add 2 idiv					% arr v proc l r i
    dup 6 index exch get 5 index 5 index exec neg	% arr v proc l r i -cmp
    dup 0 eq {
      pop 6 1 roll 5 { pop } repeat true exit		% i true exit
    } {
      0 lt {						% arr v proc l r i -cmp
        1 sub exch pop					% arr v proc l i-1
      } {
	1 add exch 3 -1 roll pop			% arr v proc i+1 r
      } ifelse
    } ifelse
  } loop
} bind def

% array value cmpproc bfind [value ...]
/bfind {
  3 copy bsearch {					% arr v proc
    dup dup -1 0 {					% arr v proc i i j--
      5 index 1 index get 5 index 5 index exec		% arr v proc i l l cmp
      0 eq { exch pop } { pop exit } ifelse		% arr v proc i l
    } for
    exch dup 1 6 index length 1 sub {			% arr v proc l i j++
      5 index 1 index get 5 index 5 index exec		% arr v proc l u u cmp
      0 eq { exch pop } { pop exit } ifelse		% arr v proc l u
    } for
    4 2 roll pop pop 1 index sub 1 add getinterval	% subarr
  } {							% arr v proc
    pop pop 0 0 getinterval				% []
  } ifelse
} bind def

/CodeMapProcSet <<
  % [ <> id ] <> charcmp integer
  /charcmp {
    exch 0 get exch strcmp			% <> <> strsub
  } bind
  % [ <> <> id ] <> rangecmp integer
  /rangecmp {
    1 index 0 get 1 index strcmp 0 le {		% [ l u id ] m l<=m
      1 index 1 get 1 index strcmp 0 ge {	% [ l u id ] m u>=m
        pop pop 0
      } { pop pop -1 } ifelse
    } { pop pop 1 } ifelse
  } bind
  % [ <> id ] [ <> <> ] cmpcharcodespace integer
  /cmpcharcodespace {
    1 index 0 get 1 index 0 get strcmp 0 ge {	% [ <> id ] [ L U ] c>=L
      1 index 0 get 1 index 1 get strcmp 0 le {	% [ <> id ] [ L U ] c<=U
        pop pop 0
      } { pop pop 1 } ifelse
    } { pop pop -1 } ifelse
  } bind
  % [ <> <> id ] [ <> <> ] cmprangecodespace integer
  /cmprangecodespace {
    1 index 0 get 1 index 0 get strcmp 0 ge {	% [ l u id ] [ L U ] l>=L
      1 index 1 get 1 index 1 get strcmp 0 le {	% [ l u id ] [ L U ] u<=U
        pop pop 0
      } { pop pop 1 } ifelse
    } { pop pop -1 } ifelse
  } bind
>> def

/makesuffix { % size vlabel makesuffix string
  [
    { pop <> } bind
    {} bind
    { 0 2 index 1 sub getinterval } bind
  ] 2 index 1 index length 1 sub 2 copy gt { exch } if pop get exec
  [
    (N) % size 0: sub CMap naming with supplement suffix for notdef data
    (S) % size 1: sub CMap naming with supplement suffix for single-byte data
    ()  % size n: sub CMap naming with supplement suffix for multi-byte data
  ] 3 -1 roll 1 index length 1 sub 2 copy gt { exch } if pop get
  exch				% suffix[size] vlabel
  () exch {			% suffix[size] vLabel () vlabel[i]
    16 2 string cvrs dup length 2 lt { (0) exch concat2strings } if
    concat2strings
  } forall [ 3 1 roll ] concats	% suffix[size]+suffix
} bind def

/cvsuffix { % value basename cvsuffix basevaluename
  [ 1 index (XX) ] concats exch length 3 -1 roll 16 2 string cvrs
  dup length 2 lt { [ (0) 3 -1 roll ] concats } if
  2 index 3 -2 roll putinterval
} bind def

%/OCFMapSet <<>> def
/OCFCIDSet 2 dict def

/OCFMapInitProcSet <<
  /usecmap		{
    codemap begin
      /usedcmap exch def
      OCFCIDSet usedcmap known { OCFCIDSet usedcmap get } {
	usedcmap /CMap /findresource load exec	% under OCFCIDInitProcSet only!
      } ifelse
      dup /codemap get /codespacerange get /codespacerange exch def
      dup /codemap get /notdefchar get /notdefchar exch def
      dup /codemap get /notdefrange get /notdefrange exch def
      pop
    end
  } bind
  /usefont		{ pop } bind	% !
  /beginusematrix	{ pop } bind	% !
  /endusematrix		{ pop } bind	% !
  /begincodespacerange	{ begincodemapdata } bind
  /endcodespacerange	{			% mark <> <> ...
    2 endcodemapdata
    codemap /codespacerange 3 -1 roll putmorearray
  } bind
  /begincmap		{
    /begincodemapdata { % size|null begincodemapdata -|mark
      /ndata exch def ndata null eq { mark } if
    } bind def
    /endcodemapdata { % n endcodemapdata array
      ndata null eq { markstacktoarray } { ndata exch stacktoarray } ifelse
    } bind def
    /codemap <<
      /usedcmap null
      /codespacerange []
      /bfchar []
      /bfrange []
      /cidchar []
      /cidrange []
      /notdefchar []
      /notdefrange []
    >> def
    /modifydataprocs <<
      /chartosinglebyte { % [<>id]
	dup length array copy			% [<>id]
	0 1 0 {					% [<>id] i
	  2 copy get				% [<>id] i <>
	  dup length 1 sub 1 getinterval	% [<>id] i <>'
	  2 index 2 index 3 -1 roll put pop	% [<>id]
	} for
      } bind
      /rangetosinglebyte { % [<><>id]
        dup length array copy			% [<><>id]
        0 1 1 {					% [<><>id] i
          2 copy get				% [<><>id] i <>
          dup length 1 sub 1 getinterval	% [<><>id] i <>'
          2 index 2 index 3 -1 roll put pop	% [<><>id]
        } for
      } bind
    >> def
    /makesubcmap { % size label [<><>] makesubcmap -
      /subcodemap <<
        /suffix ()
        /usedcmap null
        /codespacerange []
        /bfchar []
        /bfrange []
        /cidchar []
        /cidrange []
        /notdefchar []
        /notdefrange []
        /count 0
      >> def
	% s l [<><>] subcodemap /suffix s l makesuffix put
      subcodemap /suffix 4 index 4 index makesuffix put
      subcodemap /usedcmap codemap 1 index get dup null ne {
        [ exch subcodemap /suffix get ] concats cvn
      } if put
      subcodemap /codespacerange [ 3 index ] put
      <<
        /bfchar		CodeMapProcSet /cmpcharcodespace get
        /bfrange	CodeMapProcSet /cmprangecodespace get
        /cidchar	CodeMapProcSet /cmpcharcodespace get
        /cidrange	CodeMapProcSet /cmprangecodespace get
        /notdefchar	CodeMapProcSet /cmpcharcodespace get
        /notdefrange	CodeMapProcSet /cmprangecodespace get
      >> {
	% s l [<><>] subcodemap key (codemap[key] [<><>] cmp bfind)[] put
        subcodemap 3 1 roll codemap 2 index get 4 index 3 -1 roll bfind put
      } forall
      [
        /bfchar
        /bfrange
        /cidchar
        /cidrange
        /notdefchar
        /notdefrange
      ] {
        subcodemap exch get length subcodemap /count get add
        subcodemap /count 3 -1 roll put
      } forall
      subcodemap /count get 0 gt {
        %
        % SubCMap definition	----------------------------------------
        %
        /CIDInit /ProcSet findresource begin
        12 dict begin
        begincmap
        codemap /usedcmap get null ne {
          subcodemap /usedcmap get usecmap
        } if
        /CIDSystemInfo CIDSystemInfo def
        /CMapName [ CMapName subcodemap /suffix get ] concats cvn def
        /CMapType CMapType def
        /WMode WMode def
        subcodemap /codespacerange get length 0 gt {
          subcodemap /codespacerange get length begincodespacerange
            subcodemap /codespacerange get {
	      modifydataprocs /rangetosinglebyte get exec cvx exec
            } forall
          endcodespacerange
        } if
        subcodemap /bfchar get length 0 gt {
          subcodemap /bfchar get length beginbfchar
            subcodemap /bfchar get {
	      modifydataprocs /chartosinglebyte get exec cvx exec
            } forall
          endbfchar
        } if
        subcodemap /bfrange get length 0 gt {
          subcodemap /bfrange get length beginbfrange
            subcodemap /bfrange get {
	      modifydataprocs /rangetosinglebyte get exec cvx exec
            } forall
          endbfrange
        } if
        subcodemap /cidchar get length 0 gt {
          subcodemap /cidchar get length begincidchar
            subcodemap /cidchar get {
	      modifydataprocs /chartosinglebyte get exec cvx exec
            } forall
          endcidchar
        } if
        subcodemap /cidrange get length 0 gt {
          subcodemap /cidrange get length begincidrange
            subcodemap /cidrange get {
	      modifydataprocs /rangetosinglebyte get exec cvx exec
            } forall
          endcidrange
        } if
        subcodemap /notdefchar get length 0 gt {
          subcodemap /notdefchar get length beginnotdefchar
            subcodemap /notdefchar get {
	      modifydataprocs /chartosinglebyte get exec cvx exec
            } forall
          endnotdefchar
        } if
        subcodemap /notdefrange get length 0 gt {
          subcodemap /notdefrange get length beginnotdefrange
            subcodemap /notdefrange get {
	      modifydataprocs /rangetosinglebyte get exec cvx exec
            } forall
          endnotdefrange
        } if
        endcmap
        CMapName currentdict /CMap defineresource pop
        %CMapName currentdict OCFMapSet begin def end
        end
        end
      } if
	% size label [<><>]
      pop pop pop
    } bind def
  } bind
  /endcmap		{
    /cidrange	% special extension for OCFMap not CMap
    0 0 1 codemap 4 index get length 1 sub {	% key I i
      codemap 3 index get 1 index get		% key I i codemap[key][i]
      cvx exec 3 1 roll				% key I i id <> <>
      exch strsub 1 add exch			% key I i d+1 id
      dup null eq {
			% key I i d+1 (codemap[key][i] 2 I put) I
        pop codemap 4 index get 2 index get 2 4 index put 2 index
      } if add 3 1 roll pop pop			% key d+1+id|I
    } for pop pop
    % making nilset of CMap	----------------------------------------
    /CIDInit /ProcSet findresource begin
    12 dict begin
    begincmap
    codemap /usedcmap get null ne {
      [ codemap /usedcmap get 0 <> makesuffix ] concats cvn usecmap
    } if
    /CIDSystemInfo CIDSystemInfo def
    /CMapName [ CMapName 0 <> makesuffix ] concats cvn def
    /CMapType CMapType def
    /WMode WMode def
    codemap /usedcmap get null eq {
      1 begincodespacerange
        <00> <FF>
      endcodespacerange
      1 beginnotdefrange
        <00> <ff> 0
      endnotdefrange
    } if
    endcmap
    CMapName currentdict /CMap defineresource pop
    %CMapName currentdict OCFMapSet begin def end
    end
    end
    % making subset of CMap	----------------------------------------
    codemap /codespacerange get {
      dup 0 get dup length exch {			% [ L U ] s L
        dup 0 3 index 1 sub getinterval			% [ L U ] s L l
        3 index 1 get 3 index 1 sub 1 getinterval	% [ L U ] s L l u'
        [ 3 1 roll ] concats				% [ L U ] s L u
        1 index exch [ 3 1 roll ] 			% [ L U ] s L [ L u ]
        3 copy makesubcmap pop				% [ L U ] s L
							% [ L U ] s L
        <0100> stringadd not {				% [ L U ] s L' bool
          exit
        } {
          dup length 2 index gt {			% [ L U ] s L' s'>s
            exit
          } {
            dup 3 index 1 get strsub 0 ge {		% [ L U ] s L' L'>=U
              exit
            } if
          } ifelse
        } ifelse					% [ L U ] s L
      } loop pop pop pop
    } forall
  } bind
  /beginbfchar		{ begincodemapdata } bind
  /endbfchar		{			% mark <> <> ...
    2 endcodemapdata codemap /bfchar 3 -1 roll putmorearray
  } bind
  /beginbfrange		{ begincodemapdata } bind
  /endbfrange		{			% mark <> <> id ...
    3 endcodemapdata codemap /bfrange 3 -1 roll putmorearray
  } bind
  /begincidchar		{ begincodemapdata } bind
  /endcidchar		{			% mark <> id ...
    2 endcodemapdata codemap /cidchar 3 -1 roll putmorearray
  } bind
  /begincidrange	{ begincodemapdata } bind
  /endcidrange		{			% mark <> <> id ...
    3 endcodemapdata codemap /cidrange 3 -1 roll putmorearray
  } bind
  /beginnotdefchar	{ begincodemapdata } bind
  /endnotdefchar	{			% mark <> id ...
    2 endcodemapdata codemap /notdefchar 3 -1 roll putmorearray
  } bind
  /beginnotdefrange	{ begincodemapdata } bind
  /endnotdefrange	{			% mark <> <> id ...
    3 endcodemapdata codemap /notdefrange 3 -1 roll putmorearray
  } bind
>> def

/OCFCIDInitProcSet <<
  /findresource		{			% name /ProcSet
    1 index /CIDInit eq 1 index /ProcSet eq and { pop pop 0 dict } {
      dup /CMap ne { findresource } {		% name /CMap
        /CMap /Category findresource begin	% name /CMap
          1 index 256 string ResourceFileName	% name /CMap filename
        end dup status not {			% name /CMap filename status
          pop findresource			% name /CMap findresource
        } {					% name /CMap filename
		% name /CMap filename pages bytes referenced created
          4 { pop } repeat exch pop		% name filename
          OCFMapInitProcSet begin
	    run OCFCIDSet exch get		% (filename run) dict
	  end
        } ifelse
      } ifelse
    } ifelse
  } bind
  /defineresource	{
    dup /CMap ne { defineresource } {
      OCFCIDSet begin pop dup 3 1 roll def end
    } ifelse
  } bind
>> def

/FontName /GothicBBB-Medium-78-RKSJ-V def
/FontType 0 def
/Encoding [ 0 1 6 {} for ] def
/FontMatrix matrix def
/WMode 1 def
OCFCIDInitProcSet begin
  WMode 1 ne {
    /78-RKSJ-H /CMap findresource pop
  } {
    /78-RKSJ-V /CMap findresource pop
  } ifelse
end
/FMapType 6 def
/SubsVector <00 80 01 1f 40 10 0c> def
/FDepVector
[
  % /GothicBBB-Medium-78-RKSJ-V|HS00 findfont
  16#00 (78-RKSJ-HS) cvsuffix cvn
  [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
  [ basecidfont /CIDFont findresource ] composefont
  % /.notdeffont findfont
  /.notdeffont
  (78-RKSJ-HN) cvn /CMap findresource
  [ basecidfont /CIDFont findresource ] composefont
  % /GothicBBB-Medium-78-RKSJ-V81-9F findfont
  /GothicBBB-Medium-78-RKSJ-V81-9F
  12 dict begin
  %/FontName /GothicBBB-Medium-78-RKSJ-V81-9F def
  /FontType 0 def
  /Encoding [
    16#81 1 16#9f { 16#80 sub } for
  ] def
  /FontMatrix matrix def
  /WMode 1 def
  /FMapType 2 def
  /FDepVector
  [
    /.notdeffont findfont
    16#81 1 16#9f {
      WMode 1 ne {
        (78-RKSJ-H) cvsuffix cvn	% /78-RKSJ-HXX
        dup /CMap resourcestatus {	% /78-RKSJ-HXX
          pop pop			% /78-RKSJ-HXX
          [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
          [ basecidfont /CIDFont findresource ] composefont
        } {
          pop /.notdeffont findfont
        } ifelse
      } {
        dup (78-RKSJ-V) cvsuffix cvn	% code /78-RKSJ-VXX
        dup /CMap resourcestatus {	% code /78-RKSJ-VXX
          pop pop exch pop		% /78-RKSJ-VXX
          [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
          [ basecidfont /CIDFont findresource ] composefont
        } {
          pop (78-RKSJ-H) cvsuffix cvn	% /78-RKSJ-HXX
          dup /CMap resourcestatus {	% /78-RKSJ-HXX
            pop pop			% /78-RKSJ-HXX
            [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
            [ basecidfont /CIDFont findresource ] composefont
          } {
            pop /.notdeffont findfont
          } ifelse
        } ifelse
      } ifelse
    } for
    % /GothicBBB-Medium-78-RKSJ-V|H81 findfont
    %	:
    % /GothicBBB-Medium-78-RKSJ-V|H9F findfont
  ] def
  currentdict end definefont
  % /GothicBBB-Medium-78-RKSJ-V|HSA0 findfont
  16#a0 (78-RKSJ-HS) cvsuffix cvn
  [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
  [ basecidfont /CIDFont findresource ] composefont
  % /GothicBBB-Medium-78-RKSJ-VE0-EF findfont
  /GothicBBB-Medium-78-RKSJ-VE0-EF
  12 dict begin
  %/FontName /GothicBBB-Medium-78-RKSJ-VE0-EF def
  /FontType 0 def
  /Encoding [
    16#e0 1 16#ef { 16#df sub } for
  ] def
  /FontMatrix matrix def
  /WMode 1 def
  /FMapType 2 def
  /FDepVector
  [
    /.notdeffont findfont
    16#e0 1 16#ef {
      WMode 1 ne {
        (78-RKSJ-H) cvsuffix cvn	% /78-RKSJ-HXX
        dup /CMap resourcestatus {	% /78-RKSJ-HXX
          pop pop			% /78-RKSJ-HXX
          [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
          [ basecidfont /CIDFont findresource ] composefont
        } {
          pop /.notdeffont findfont
        } ifelse
      } {
        dup (78-RKSJ-V) cvsuffix cvn	% code /78-RKSJ-VXX
        dup /CMap resourcestatus {	% code /78-RKSJ-VXX
          pop pop exch pop		% /78-RKSJ-VXX
          [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
          [ basecidfont /CIDFont findresource ] composefont
        } {
          pop (78-RKSJ-H) cvsuffix cvn	% /78-RKSJ-HXX
          dup /CMap resourcestatus {	% /78-RKSJ-HXX
            pop pop			% /78-RKSJ-HXX
            [ basecidfont (-) 3 index ] concats cvn exch /CMap findresource
            [ basecidfont /CIDFont findresource ] composefont
          } {
            pop /.notdeffont findfont
          } ifelse
        } ifelse
      } ifelse
    } for
    % /GothicBBB-Medium-78-RKSJ-V|HE0 findfont
    %	:
    % /GothicBBB-Medium-78-RKSJ-V|HEF findfont
  ] def
  currentdict end definefont
  % /.usrdeffont findfont
  /.notdeffont findfont
  % /.notdeffont findfont
  /.notdeffont findfont
] def
currentdict
end
definefont pop
%%EndResource
%%EOF
