PS szövegobjektum ( String )
Def:
( ) zárójelek között felsorolt karaktersorozat, mely elhelyezhetõ veremben, változó értéke lehet, kinyomtatható.
PS font:
Egységes tervezésû karakterek halmaza, melyek tipus - családokba sorolhatók (pl.: Arial, Times New Roman, Helvetia ), különböző változatai vannak ( Roman, Italic, Bold ... stb... ) amelyek a karakterek határvonalainak geometriai leírásával vannak definiálva.
Használat:
1.) font leírás megkeresése a font szótárban
2.) font méretének beállítása ( milyen távol legyenek a sorok )
3.) a beállított font legyen a kurrens font.
Példa:
a "typography" szöveg kinyomtatása 15 pontos Times New Roman fonttal.
/Times - Roman findfont
15 scalefont
setfont
72200 moveto
(typography) show
showpage
kulcs findfont font
kulcs-csal meghatározott font-szótárat helyez a verem tetejére ( az un. font - alkönyvtárból - Font Directory ). Ez a font 1 pont méretû
font skála scalefont font'
a skálával növelt méretû fontot helyez el a veremben.
font setfont -
a verem tetején levõ font lesz a kurrens font
szöveg show -
a verem tetején álló szöveget kinyomtatja a kurrens oldalra a kurrens ponttól kezdve. Az új kurrens pont a szöveg végén lesz.
Példa: változó méretû szöveg nyomtatása
/showGorilla
{ moveto (Gorilla) show } def
/Times - Roman findfont 6 scalefont setfont
72300 showGorilla
/Times - Roman findfont 10 scalefont setfont
72275 showGorilla
/Times - Roman findfont 15 scalefont setfont
72275 showGorilla
/Times - Roman findfont 20 scalefont setfont
72225 showGorilla
ShowGorilla eljárás:
A verem felsõ két eleme által meghatározott pozícíóra helyezi a szöveget és kinyomtatja
/showGorilla
{ moveto (Gorilla) show } def/scaleTimes
{/Times - Roman findfont
exch scalefont
setfont } def
6 scale Times
72300 showGorilla
10 scale Times
72275 showGorilla
15 scale Times
72250 showGorilla
25 scale Times
72225 showGorillashowpage
Példa: szöveg és grafika együtt ( névjegykártya )
%---------------Variables---------------/MainFont
/Helvetia - Bold findfont 15 scalefont def
/SloganFont
/Helvetia-Oblique findfont 7 scalefont def
/OwnerFont
/Helvetia findfont 10 scalefont def%---------------Procedures--------------
/rightshow
{dup stringwidth pop
120 exch sub %calc. white space
0 rmoveto %Move over that much
show} def----------------------------------------
/CardOutline
{newpath
90 90 moveto
0 144 rlineto
252 0 rlineto
0 144 rlineto
closepath
.5 setlinewidth
stroke } def
/doBorder
{ 99 99 moveto
0 126 rlineto
234 0 rlineto
0 -126 rlineto
closepath
2 setlinewidth
stroke } def
/Diamond
{newpath
207 216 moveto
36 -54 rlineto
-36 -54 rlineto
-36 54 rlineto
closepath
.8 setgray fill } def
/doText
{0 setgray 90 180 moveto
MainFont setfont
{Diamond Cafe ) rightshow
90 168 moveto
SlogaFont setfont
("The Club Of Lonely Hearts")rightshow
216 126 moveto
OwnerFont setfont
( Sam spade ) show
216 111 moveto
(Owner ) show } def
%-------------- Main program -------------------
CardOutline
doBorder
Diamond
doTextshowpage
szöveg stringwidth x y
a verem tetején levõ szöveget helyettesíti annak x és y irányú méretével
a lap teteje