🚀 go-pugleaf

In article <SS.92Dec11124057@amont.astec.co.jp>,
 ss@astec.co.jp (Sakashita Shiu) writes:

>>   $@!{(J CDevProc$@$,8z$+$J$$!#(J
>>   $@!{(J CDevProc$@Cf$N(Jcurrentfont$@$KBP$7$F!"J#9g%U%)%s%HCf$NFCDj$N(J$@%U%)%s%H$NJ8(J
>>      $@;z$rI=<($7$h$&$H$9$k;~$K$b!"J#9g%U%)%s%H$NJ}$rJV$7$F$/$k!#(J
>>   $@!{(J $@<B9T%9%?%C%/(J(PostScript$@%3%^%s%I$r@Q$_9~$`%9%?%C%/(J)$@$N?<$5$,!"(J1.0$@$h$j(J
>>      $@$b>/$J$/$J$C$?$i$7$$!#(J

>	$@$G!"(J2.1(J)$@$,(J$@=P$?$_$?$$$G$9!#CmJ8$7$F$$$k$N$G!"$d$C$F$-$?$i(J
>	$@%F%9%H$7$F$_$?$$$N$G$9$,!"$3$l$i$NIT6q9g$r8!=P$9$k%F(J$@%9%H%W%m%0(J
>	$@%i%`$H$+$,$"$j$^$9$+(J?

$@%F%9%H$7$?;~$N$O1x$$$N$G!"$[$s$N>/$7$^$H$b$J%F%9%HMQ$N$r:n$C$F$_$^(J$@$7$?!#(J
$@$?$@$7!"$3$l$G$O(JMetrics$@$d(JCDevProc$@$N%F%9%H$O$G$-$^$9$,!"<B9T%9%?%C%/$K(J
$@$D$$$F$O%A%'%C%/$G$-$^$;(J$@$s!#$I$&$d$C$?$i%F%9%H$G$-$k$+!"$I$J$?$+$4B8CN(J
$@$G$O$J$$$G$7$g$&$+!#(J

$@%F%9%H$N%U%!%$%k$O8e$K$D$1$F$*$-(J$@$^$9!#$*;n$72<$5$$!#(J

--
$@AREg(J $@82>0(J  JM1VSP  $@El5~Bg3XBg3X1!9)3X7O8&5f2JEE5$9)3X@l96(J
  E-MAIL:kura@nacsis.ac.jp  $@0BC#8&5f<<(J($@3X=Q>pJs%;%s%?!<Fb(J)
  TEL:(03)3942-6995  FAX:(03)5395-7064($@0BC#8&5f<<5$IU(J)
--
%!PS-Adobe-2.0
%
% a Sample of cheking CDevProc and Metrics facility
%
% ver1.0  12-Dec-1992 kura@nacsis.ac.jp

20 dict begin
/SIZE 24 def
/MSIZE 10 def
/SHOW { <2433246C244F214A3E2E242B24432433214B24482156242B242E242B24432433215724
472422246B2123> show } def
/SHOW2 { (AaBbCcDdEeFfGgHhIiJjKkLlMmNn) show } def
/METRICS 4 dict begin
	/c4A -500 def /c4B -500 def /c56 -500 def /c57 -500 def
currentdict end def
/METRICSCHARS [
	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
] def
/METRICS3 [
 [16#4A [137.007 1000.0]] [16#4B [137.007 1000.0]]
 [16#56 [87.0066 1000.0]] [16#57 [87.0065 1000.0]]
] def
/METRICS4 [
 [16#4A 500.0] [16#4B 500.0] [16#56 500.0] [16#57 500.0]
] def

/KF /Ryumin-Light-H findfont MSIZE scalefont def /KFS {KF setfont} def
/AF /Times-Roman findfont MSIZE scalefont def /AFS {AF setfont} def
/CHECK { dup /FID ne exch /UniqueID ne and } def

/SAVEDICT 10 dict def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Modify CDevProc
%

% Ryumin-Light-CDevProc
/Ryumin-Light-H findfont begin Encoding 16#21 get FDepVector exch get end
dup length 1 add dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
/CDevProc {
 SAVEDICT /RootFont 2 copy known { pop pop }{ rootfont /UniqueID 2 copy
 known { get }{ pop /FontName 2 copy known { get }{ pop pop (unknown)}
 ifelse } ifelse put
 SAVEDICT /CurrentFont currentfont /UniqueID 2 copy
 known { get }{ pop /FontName 2 copy known { get }{ pop pop (unknown)}
 ifelse } ifelse put } ifelse
 METRICS exch 2 copy
 known { get 9 -1 roll pop 8 1 roll }{ pop pop } ifelse } def
currentdict end /Ryumin-Light-CDevProc-21 exch definefont pop

/Ryumin-Light-H findfont dup length dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
FDepVector dup length array copy /FDepVector exch def
FDepVector Encoding 16#21 get /Ryumin-Light-CDevProc-21 findfont put
currentdict end /Ryumin-Light-CDevProc-H exch definefont pop

% Ryumin-Light-Metrics
/Ryumin-Light-H findfont begin Encoding 16#21 get FDepVector exch get end
dup length 1 add dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
/Metrics METRICS3 length dict def
METRICS3 {
 Metrics exch
 dup 1 get exch 0 get currentdict /Encoding get exch get exch put
} forall
currentdict end /Ryumin-Light-Metrics-21 exch definefont pop

/Ryumin-Light-H findfont dup length dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
FDepVector dup length array copy /FDepVector exch def
FDepVector Encoding 16#21 get /Ryumin-Light-Metrics-21 findfont put
currentdict end /Ryumin-Light-Metrics-H exch definefont pop

% Ryumin-Light-Metrics1
/Ryumin-Light-H findfont begin Encoding 16#21 get FDepVector exch get end
dup length 1 add dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
/Metrics METRICS4 length dict def
METRICS4 {
 Metrics exch
 dup 1 get exch 0 get currentdict /Encoding get exch get exch put
} forall
currentdict end /Ryumin-Light-Metrics1-21 exch definefont pop

/Ryumin-Light-H findfont dup length dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
FDepVector dup length array copy /FDepVector exch def
FDepVector Encoding 16#21 get /Ryumin-Light-Metrics1-21 findfont put
currentdict end /Ryumin-Light-Metrics1-H exch definefont pop

%% Courier
% Courier-CDevProc
/Courier findfont dup length 2 add dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
/CDevProc { currentfont /MetricsInfo get exch 2 copy
 known { get 9 -1 roll pop 8 1 roll }{ pop pop } ifelse } def
currentdict
METRICSCHARS length dict begin
METRICSCHARS { exch dup 3 1 roll /Encoding get exch get -200 def } forall
currentdict end /MetricsInfo exch def
end /Courier-CDevProc-21 exch definefont pop

% Courier-Metrics
/Courier findfont dup length 1 add dict begin
{ 1 index CHECK { def }{ pop pop } ifelse } forall
currentdict
METRICSCHARS length dict begin
METRICSCHARS { exch dup 3 1 roll /Encoding get exch get 400 def } forall
currentdict end /Metrics exch def
end /Courier-Metrics1-21 exch definefont pop

%
% print test
%

% normal Ryumin-Light-H
/Ryumin-Light-H findfont SIZE scalefont setfont
50 700 moveto save SHOW restore
%
KFS 50 685 moveto (IaDL$N) show AFS (Ryumin-Light-H) show

% CDevProc
/Ryumin-Light-CDevProc-H findfont SIZE scalefont setfont
50 640 moveto SHOW
%
KFS 50 625 moveto (!J!K!V!W$,:8$K$:$l$F$$$l$P) show
AFS (CDevProc) show KFS ($,M-8z) show
AFS <2028> show KFS (!J!K!V!W$,>e2<$K$b$:$l$F$$$k2DG=@-$"$j) show AFS <29> show
SAVEDICT begin
50 610 moveto (currentfont =) show CurrentFont 30 string cvs show
(, rootfont =) show RootFont 30 string cvs show
end

% Metrics
/Ryumin-Light-Metrics-H findfont SIZE scalefont setfont
50 580 moveto SHOW
%
KFS 50 565 moveto (!J!V$,:8$K$:$l$F$$$l$P) show
AFS (2) show KFS (%Q%i%a!<%?) show AFS (Metrics) show KFS ($,M-8z) show

% Metrics
/Ryumin-Light-Metrics1-H findfont SIZE scalefont setfont
50 520 moveto SHOW
%
KFS 50 505 moveto (!J!K!V!W$NJ8;zI}$,H>J,$K$J$C$F$$$l$P) show
AFS (1) show KFS (%Q%i%a!<%?) show AFS (Metrics) show KFS ($,M-8z) show


% normal Courier
/Courier findfont SIZE scalefont setfont
50 400 moveto SHOW2
%
KFS 50 385 moveto (IaDL$N) show AFS (Courier) show

% CDevProc
/Courier-CDevProc-21 findfont SIZE scalefont setfont
50 340 moveto SHOW2
%
KFS 50 325 moveto (>.J8;z$,:8$K4s$C$F$$$l$P) show
AFS (CDevProc) show KFS ($,M-8z) show

% Metrics 1parameter
/Courier-Metrics1-21 findfont SIZE scalefont setfont
50 280 moveto SHOW2
%
KFS 50 265 moveto (>.J8;z$NI}$,69$^$C$F$$$l$P) show
AFS (1) show KFS (%Q%i%a!<%?) show AFS (Metrics) show KFS ($,M-8z) show

showpage

end