Package-Name: wadalab-maru
Requires: wadalab-sym ghostscript
Homepage: ftp://ftp.ipl.t.u-tokyo.ac.jp/Font/README.html
# FIXME: seems to be down
#Source: ftp://ftp.ipl.t.u-tokyo.ac.jp/Font/wadalab-maru-0-8.(\d+).tar.gz $1
#More-Source-1: ftp://ftp.ipl.t.u-tokyo.ac.jp/Font/tools/wftopfa.c
Zap-Before-Install: 1
Repack:
	tar xzvfp "$(SOURCE)"
	mv wadalab-* wadalab-maru-"$(VERSION)"
	mv "$(SOURCE1)" wadalab-maru-"$(VERSION)"/wftopfa.c
Compile:
	rm -f "$(PREFIX)"/Fontmap
	gcc -O2 wftopfa.c -o wftopfa
	for i in "$(PREFIX)"/../wadalab-sym/jis-*.ps maru-*.ps ; do \
		n=`basename "$$i"|sed 's/.*-\(.*\)\..*/\1/g'` ; \
		echo "$$n" ; \
		./wftopfa -StdEnc -FontBase Wadalab-maru-0-8 -UniqueId 9877 "$$i" | sed 's/Wadalab\.r/Wadalab-maru-0-8.r/' >wadalab-maru-0-8.r$$n.pfa ; \
		echo >>"$(PREFIX)"/Fontmap '/Wadalab-maru-0-8.r'$$n' ($(PREFIX)/wadalab-maru-0-8.r'$$n'.pfa) ;' ; \
	done
	mv -f wadalab-maru-0-8.* "$(PREFIX)"/
	echo >>"$(PREFIX)"/Fontmap '/Wadalab-maru-0-8 ($(PREFIX)/wadalab-maru-0-8.ps) ;' ;
Install:
Patch: <<EOT
--- wftopfa.c.old	2004-04-30 11:08:54 +0900
+++ wftopfa.c	2004-04-30 16:29:59 +0900
@@ -45,6 +45,7 @@
   for(;i<ac;i++)
     readfiles(ag[i]);
   output_pfa();
+  return 0;
 }
 
 typedef struct				/* Builtin Standard Encoding */
--- /no/such/file
+++ wadalab-maru-0-8.ps
@@ -0,0 +1,701 @@
+%!
+30 dict begin
+/JISEncoding [
+	16#00 1 16#20 { pop 0 } for
+	16#21 1 16#28 { 16#20 sub } for
+	16#29 1 16#2F { pop 0 } for
+	16#30 1 16#74 { 16#27 sub } for
+	16#75 1 16#FF { pop 0 } for
+] readonly def
+/hex1 [(0)(1)(2)(3)(4)(5)(6)(7)(8)(9)(a)(b)(c)(d)(e)(f)] def
+/hex2 { 2 dict begin /i1 exch def
+/str1 2 string def
+str1 1 hex1 i1 16 mod get putinterval
+str1 0 hex1 i1 16 idiv get putinterval
+str1 end
+} def
+/LazyNF
+{
+/soko 20 dict def	
+soko begin 
+%  /i 3 index def
+  /fdepvector exch def
+  /str1 exch def
+  /realname str1 cvn def
+  /len1 str1 length def
+  /namestr len1 5 add string def
+  namestr 0 str1 putinterval 
+  namestr len1 (.lazy) putinterval
+  /name namestr cvn def
+  name 20 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+  /FontMatrix [.001 0 0 .001 0 0] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  CharProcs begin /.notdef {} def end
+  /BuildChar {
+    1000 0 setcharwidth
+    /curfont currentfont def
+    exch begin
+%    fdepvector j RealName findfont put
+    RealName findfont 1000 scalefont setfont
+    0 -160 translate 0 0 moveto
+    1 string dup 0 4 3 roll put show
+    curfont setfont
+    end
+  } bind def
+  /RealName realname def
+  /RealFont 0 def
+%  /fdepvector fdepvector def
+%  /j i def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+/CompNF
+{
+/newname exch def
+newname dup length string cvs /str exch def
+str length /len exch def
+/fdepvector 78 array def 
+
+16#21 1 16#74 {
+/i exch def
+JISEncoding i get dup 0 gt {
+fdepvector exch
+len 4 add string dup 0 str putinterval
+dup len (.r) putinterval
+dup len 2 add i hex2 putinterval
+fdepvector LazyNF put
+} if
+} for
+fdepvector 0 fdepvector 1 get put
+newname 20 dict def
+newname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 2 def
+/Encoding JISEncoding def
+/FDepVector fdepvector def
+/FontName newname def
+/UniqueId 9876 def
+end
+newname dup dup load definefont
+} def
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/DefaultMetrics [0 -1000 500 1000] def
+/VMetrics 256 dict def
+VMetrics begin
+  StandardEncoding {DefaultMetrics def} forall
+end
+/VLazyNF
+{
+/soko 20 dict def	
+soko begin 
+%  /i 3 index def
+  /fdepvector exch def
+  /str1 exch def
+  /realname str1 cvn def
+  /len1 str1 length def
+  /namestr len1 6 add string def
+  namestr 0 str1 putinterval 
+  namestr len1 (.vlazy) putinterval
+  /name namestr cvn def
+  name 20 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+  /FontMatrix [.001 0 0 .001 0 -0.16] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  /WMode 1 def
+  CharProcs begin /.notdef {} def end
+  /Metrics1 VMetrics def
+  /BuildChar {
+    0 -1000 setcharwidth
+    /curfont currentfont def
+    exch begin
+%    fdepvector j RealName findfont put
+    RealName findfont
+    dup length dict begin
+    {1 index /FID ne {def}{pop pop} ifelse} forall
+    /Metrics2 Metrics1 def
+    currentdict
+    end
+    /soko exch definefont pop
+    /soko findfont 1000 scalefont setfont
+    -500 -160 translate 0 0 moveto
+    1 string dup 0 4 3 roll put show
+    curfont setfont
+    end
+  } bind def
+  /RealName realname def
+  /RealFont 0 def
+%  /fdepvector fdepvector def
+%  /j i def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+/VCompNF
+{
+/newname exch def
+newname dup length string cvs /str exch def
+str length /len exch def
+len 2 add string 
+dup 0 str putinterval
+dup len (-V) putinterval
+cvn /vname exch def
+/fdepvector 78 array def 
+
+16#21 1 16#74 {
+/i exch def
+JISEncoding i get dup 0 gt {
+fdepvector exch
+len 4 add string dup 0 str putinterval
+dup len (.r) putinterval
+dup len 2 add i hex2 putinterval
+fdepvector VLazyNF put
+} if
+} for
+fdepvector 0 fdepvector 1 get put
+vname 20 dict def
+vname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 2 def
+/Encoding JISEncoding def
+/FDepVector fdepvector def
+/FontName vname def
+/WMode 1 def
+/UniqueId 9876 def
+end
+vname dup dup load definefont
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/acvs {
+	% Check stack		
+	2 copy type /stringtype ne exch type /arraytype ne or {
+		/acvs errordict /typecheck get exec
+	} if
+	2 copy length exch length ne {
+		/acvs errordict /rangecheck get exec
+	} if
+	% Convert array into string
+	0 1 3 index length 1 sub {
+		dup 3 index exch get 2 index 3 1 roll put
+	} for
+	exch pop
+} bind def
+/buffer 2 dict begin
+/str 32 string def
+/len 0 def
+currentdict end def
+/composename {
+	buffer begin
+	exch str cvs length /len exch def
+	str len 2 index putinterval length len add /len exch def
+	str 0 len getinterval cvn
+	end
+} bind def
+/RKSJEncoding [ 0 1 2 3 4 5 ] readonly def	
+/SJSuppAEncoding [
+	16#81 1 16#9F { 16#80 sub } for
+] readonly def
+
+/SJSuppBEncoding [
+	16#E0 1 16#EA { 16#DF sub } for
+	16#EB 1 16#EF { pop 0 } for
+] readonly def
+/RKSJSubsVector [ 0 128 1 31 64 16 ] dup length string acvs readonly def
+
+/SJNF
+{
+/soko 21 dict def	
+soko begin 
+  /jisname exch def
+  /i exch def
+  /fdepvector exch def
+  /str1 exch def
+  /realname str1 cvn def
+  /len1 str1 length def
+  /namestr len1 3 add string def
+  namestr 0 str1 putinterval 
+  namestr len1 (.sj) putinterval
+  /name namestr cvn def
+  name 21 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+    /FontMatrix [.001 0 0 .001 0 0] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  CharProcs begin /.notdef {} def end
+  /BuildChar {
+    1000 0 setcharwidth
+    /_j exch def
+    /curfont currentfont def
+    begin
+    JisName length
+    dup 4 add string dup 0 JisName  putinterval
+    exch 2 copy  (.r) putinterval
+    2 copy 2 add I _j sjtoj pop hex2 putinterval pop
+    0 -160 translate 0 0 moveto
+    findfont 1000 scalefont setfont 
+    1 string dup 0 I _j sjtoj exch pop
+    put 
+    show
+    curfont setfont
+    end
+  } bind def
+  /hex1 [(0)(1)(2)(3)(4)(5)(6)(7)(8)(9)(a)(b)(c)(d)(e)(f)] def
+  /hex2 { 2 dict begin /i1 exch def
+  /str1 2 string def
+  str1 1 hex1 i1 16 mod get putinterval
+  str1 0 hex1 i1 16 idiv get putinterval
+  str1 end
+  } def
+  /sjtoj{
+    2 dict begin
+    /c2 exch def /c1 exch def
+    c1 16#e0 ge {/c1 c1 16#40 sub def} if
+    /c1 c1 16#71 sub def
+    c2 16#80 ge {/c2 c2 1 sub def} if
+    c2 16#9e ge 
+      {/c2 c2 16#5e sub def /c1 c1 1 add dup add def}
+      {/c1 c1 c1 1 add add def}
+    ifelse
+    /c2 c2 16#1f sub def
+    c1 255 and c2 255 and
+    end
+  } 
+  def
+
+  /I i def
+  jisname dup length string cvs /JisName exch def
+  /RealName realname def
+  /RealFont 0 def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+
+/SuppKNF
+{
+/soko 21 dict def	
+soko begin 
+  /jisname exch def
+  /name jisname (.SuppK) composename def
+  name 21 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+    /FontMatrix [.0005 0 0 .001 0 0] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  CharProcs begin /.notdef {} def end
+  /BuildChar {
+    1000 0 setcharwidth
+    /_j exch def
+    /curfont currentfont def
+    begin
+    0 0 moveto
+    JisName rtable _j get composename
+    findfont 1000 scalefont setfont 
+    1 string dup 0 ttable _j get put show
+    curfont setfont
+    end
+  } bind def
+  jisname dup length string cvs /JisName exch def
+  /RealFont 0 def
+/buffer 2 dict begin
+/str 32 string def
+/len 0 def
+currentdict end def
+/composename {
+	buffer begin
+	exch str cvs length /len exch def
+	str len 2 index putinterval length len add /len exch def
+	str 0 len getinterval cvn
+	end
+} bind def
+  /rtable [
+    (.r21) (.r21) (.r21) (.r21) (.r21) (.r21) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r21) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r25)
+    (.r25) (.r25) (.r25) (.r25) (.r25) (.r25) (.r21) (.r21)
+  ] readonly def
+  /ttable [
+    16#21  16#23  16#56  16#57  16#22  16#26  16#72  16#21
+    16#23  16#25  16#27  16#29  16#63  16#65  16#67  16#43
+    16#3d  16#22  16#24  16#26  16#28  16#2a  16#2b  16#2d
+    16#2f  16#31  16#33  16#35  16#37  16#39  16#3b  16#3d
+    16#3f  16#41  16#44  16#46  16#48  16#4a  16#4b  16#4c
+    16#4d  16#4e  16#4f  16#52  16#55  16#58  16#5b  16#5e
+    16#5f  16#60  16#61  16#62  16#64  16#66  16#68  16#69
+    16#6a  16#6b  16#6c  16#6d  16#6f  16#73  16#2b  16#2c
+  ] readonly def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+
+/RomanNF
+{
+/soko 21 dict def	
+soko begin 
+  /jisname exch def
+  /name jisname (.Roman) composename def
+  name 21 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+   /FontMatrix [.0005 0 0 .001 0 0] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  CharProcs begin /.notdef {} def end
+  /BuildChar {
+    1000 0 setcharwidth
+    /_j exch def
+    /curfont currentfont def
+    begin
+    0 0 moveto
+    JisName rtable _j 16#20 sub get composename
+    findfont 1000 scalefont setfont 
+    1 string dup 0 ttable _j 16#20 sub get put show
+    curfont setfont
+    end
+  } bind def
+/buffer 2 dict begin
+/str 32 string def
+/len 0 def
+currentdict end def
+/composename {
+	buffer begin
+	exch str cvs length /len exch def
+	str len 2 index putinterval length len add /len exch def
+	str 0 len getinterval cvn
+	end
+} bind def
+  jisname dup length string cvs /JisName exch def
+  /RealFont 0 def
+  /rtable [
+    (.r21) (.r21) (.r21) (.r21) (.r21) (.r21) (.r21) (.r21)
+    (.r21) (.r21) (.r21) (.r21) (.r21) (.r21) (.r21) (.r21)
+
+    (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+    (.r23) (.r23) (.r21) (.r21) (.r21) (.r21) (.r21) (.r21)
+
+    (.r21) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+    (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+
+    (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+    (.r23) (.r23) (.r23) (.r21) (.r21) (.r21) (.r21) (.r21)
+
+    (.r21) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+    (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+
+    (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23) (.r23)
+    (.r23) (.r23) (.r23) (.r21) (.r21) (.r21) (.r21) (.r21)
+  ] readonly def
+  /ttable [
+    16#21  16#2a  16#49  16#74  16#70  16#73  16#75  16#47
+    16#4a  16#4b  16#76  16#5c  16#24  16#5d  16#25  16#3f
+
+    16#30  16#31  16#32  16#33  16#34  16#35  16#36  16#37
+    16#38  16#39  16#27  16#28  16#63  16#61  16#64  16#29
+
+    16#77  16#41  16#42  16#43  16#44  16#45  16#46  16#47
+    16#48  16#49  16#4a  16#4b  16#4c  16#4d  16#4e  16#4f
+
+    16#50  16#51  16#52  16#53  16#54  16#55  16#56  16#57
+    16#58  16#59  16#5a  16#4e  16#6f  16#4f  16#30  16#32
+
+    16#2e  16#61  16#62  16#63  16#64  16#65  16#66  16#67
+    16#68  16#69  16#6a  16#6b  16#6c  16#6d  16#6e  16#6f
+
+    16#70  16#71  16#72  16#73  16#74  16#75  16#76  16#77
+    16#78  16#79  16#7a  16#50  16#43  16#51  16#41  16#21
+
+  ] readonly def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+
+/SuppASJNF
+{
+/fontname exch def
+/newname fontname (-SJ-SuppA) composename def
+fontname dup length string cvs /str exch def
+str length /len exch def
+/fdepvector 32 array def 
+
+16#81 1 16#9F {
+/i exch def
+SJSuppAEncoding i 16#81 sub get dup 0 gt {
+fdepvector exch
+len 4 add string dup 0 str putinterval
+dup len (.s) putinterval
+dup len 2 add i hex2 putinterval
+fdepvector i fontname SJNF put
+} if
+} for
+fdepvector 0 fdepvector 1 get put
+newname 20 dict def
+newname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 2 def
+/Encoding SJSuppAEncoding def
+/FDepVector fdepvector def
+/FontName newname def
+/UniqueId 9876 def
+end
+newname dup dup load definefont
+} def
+
+/SuppBSJNF
+{
+/fontname exch def
+/newname fontname (-SJ-SuppB) composename def
+fontname dup length string cvs /str exch def
+str length /len exch def
+/fdepvector 12 array def 
+
+16#E0 1 16#EA {
+/i exch def
+SJSuppBEncoding i 16#E0 sub get dup 0 gt {
+fdepvector exch
+len 4 add string dup 0 str putinterval
+dup len (.s) putinterval
+dup len 2 add i hex2 putinterval
+fdepvector i fontname SJNF put
+} if
+} for
+fdepvector 0 fdepvector 1 get put
+newname 20 dict def
+newname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 2 def
+/Encoding SJSuppBEncoding def
+/FDepVector fdepvector def
+/FontName newname def
+/UniqueId 9876 def
+end
+newname dup dup load definefont
+} def
+
+/CompSJNF{
+/fontname exch def
+fontname SuppKNF
+fontname RomanNF
+fontname SuppBSJNF
+fontname SuppASJNF
+/newname fontname (-RKSJ) composename def
+
+newname 20 dict def
+newname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 6 def
+/Encoding RKSJEncoding def
+/SubsVector RKSJSubsVector def
+/FDepVector [
+	fontname (.Roman) composename findfont
+	/NotDefFont findfont
+	fontname (-SJ-SuppA) composename findfont
+	fontname (.SuppK) composename findfont
+	fontname (-SJ-SuppB) composename findfont
+	/NotDefFont findfont
+] readonly def
+/FontName newname def
+/UniqueId 9876 def
+end
+newname dup dup load definefont
+} def
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/EUCEncoding [
+	16#00 1 16#A0 { pop 0 } for
+	16#A1 1 16#A8 { 16#A0 sub } for
+	16#A9 1 16#AF { pop 0 } for
+	16#B0 1 16#F4 { 16#A7 sub } for
+	16#F5 1 16#FF { pop 0 } for
+] readonly def
+/EUCNF
+{
+/soko 20 dict def	
+soko begin 
+%  /i 3 index def
+  /fdepvector exch def
+  /str1 exch def
+  /realname str1 cvn def
+  /len1 str1 length def
+  /namestr len1 4 add string def
+  namestr 0 str1 putinterval 
+  namestr len1 (.euc) putinterval
+  /name namestr cvn def
+  name 20 dict def
+  name load begin
+   /FontType 3 def
+   /FontInfo 8 dict def
+   FontInfo begin
+    /version (001.001) readonly def
+    /FullName (PROLKANJI) readonly def
+    /FamilyName (PROLKANJI) readonly def
+    /Weight (Medium) readonly def
+    /ItalicAngle 0 def
+    /isFixedPitch false def
+    /UnderlinerPosition 0 def
+    /UnderlineThichness 0 def
+   end
+% for Ghostscript version 3.X
+  /FontMatrix [.001 0 0 .001 0 0] def
+  /FontBBox [0 0 1000 1000] def
+  /Encoding StandardEncoding def
+  /FontName name def
+  /CharProcs 1 dict def
+  CharProcs begin /.notdef {} def end
+  /BuildChar {
+    1000 0 setcharwidth
+    /curfont currentfont def
+    exch begin
+%    fdepvector j RealName findfont put
+    RealName findfont 1000 scalefont setfont 
+    0 -160 translate 0 0 moveto
+    16#80 sub
+    1 string dup 0 4 3 roll put show
+     curfont setfont
+    end
+  } bind def
+  /RealName realname def
+  /RealFont 0 def
+%  /fdepvector fdepvector def
+%  /j i def
+  /password 5839 def
+  end
+  name dup dup load definefont def name load
+  end
+} def
+
+/CompEUCNF
+{
+/fontname exch def
+/newname fontname (-EUC) composename def
+fontname dup length string cvs /str exch def
+str length /len exch def
+/fdepvector 78 array def 
+16#A1 1 16#F4 {
+/i exch def
+EUCEncoding i get dup 0 gt {
+fdepvector exch
+len 4 add string dup 0 str putinterval
+dup len (.r) putinterval
+dup len 2 add i 16#80 sub hex2 putinterval
+fdepvector EUCNF put
+} if
+} for
+fdepvector 0 fdepvector 1 get put
+newname 20 dict def
+newname load begin
+/FontType 0 def
+/FontMatrix [1 0 0 1 0 0] def
+/FMapType 2 def
+/Encoding EUCEncoding def
+/FDepVector fdepvector def
+/FontName newname def
+/UniqueId 9876 def
+end
+newname dup dup load definefont
+} def
+
+/Wadalab-maru-0-8 CompNF
+/Wadalab-maru-0-8 VCompNF
+/Wadalab-maru-0-8 CompSJNF
+/Wadalab-maru-0-8 CompEUCNF
+end
+
+% If you want to test this file, please uncomment the following lines
+%
+% /Wadalab-maru-0-8 findfont 50 scalefont setfont
+% 50 50 moveto <3021 3022> show
+% /Wadalab-maru-0-8-RKSJ findfont 50 scalefont setfont
+% 50 100 moveto <889f 31 41 88a0 b1 88a1> show
+% /Wadalab-maru-0-8-EUC findfont 50 scalefont setfont
+% 50 150 moveto <b0a1 b0a2> show
+% /Wadalab-maru-0-8-V findfont 50 scalefont setfont
+% 50 250 moveto <3021 3022> show
EOT

/pkg/wadalab-maru/
