|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/share/ghostscript/8.15/examples/ |
Upload File : |
%!
% Check for command line parameters:
% Name, FirstSize, Ratio, NumSizes, UseOutline.
/alphabetsave save def % prevent left over effects
/FontName where { pop } { /FontName (Palatino-Italic) def } ifelse
/FirstSize where { pop } { /FirstSize 15 def } ifelse
/Ratio where { pop } { /Ratio 1.6 def } ifelse
/NumSizes where { pop } { /NumSizes 3 def } ifelse
/UseOutline where { pop } { /UseOutline false def } ifelse
/Strings FirstSize 20 gt
{ [
(ABCDEFGHIJ) (KLMNOPQR) (STUVWXYZ)
(abcdefghijklm) (nopqrstuvwxyz)
(0123456789<=>) (:;?@ !"#$%&')
(\(\)*+,-./[\\]^_) (`{|}~)
] }
{ [
(ABCDEFGHIJKLMNOPQRSTUVWXYZ)
(abcdefghijklmnopqrstuvwxyz)
(0123456789<=>:;?@ !"#$%&')
(\(\)*+,-./ [\\]^_ `{|}~)
] }
ifelse def
/sshow
{ gsave UseOutline
{ { gsave ( ) dup 0 4 -1 roll put
false charpath pathbbox 0 setlinewidth stroke grestore
pop 8 add currentpoint exch pop moveto pop
} forall
}
{ 2 0 3 -1 roll ashow }
ifelse grestore
} def
FontName findfont FirstSize scalefont setfont
clippath pathbbox /top exch def pop pop pop newpath
10 10 moveto
NumSizes
{ gsave nulldevice (Q) false charpath pathbbox grestore
exch pop exch sub exch pop 1.25 mul /height exch def
Strings
{ currentpoint exch pop top height 3 mul sub gt
{ showpage 10 10 height sub moveto
}
if
dup sshow
UseOutline not
{ 0 height rmoveto gsave 0.01 rotate sshow grestore }
if
0 height rmoveto
} forall
Ratio dup scale
} repeat
showpage
clear cleardictstack
alphabetsave restore