PostScript Ornekleri

cizgi1.ps

newpath
144 72 moveto
144 432 lineto
stroke
showpage

cizgi2.ps

newpath
72 360 moveto
144 72 rlineto
144 432 moveto
0 -216 rlineto
stroke
showpage

for.ps

%!

/Ekle{
	pop %% yazmazsak for daki i silinmez
	7 %% yigita 7 ekle
} def

%% Yigiti doldur
1 2 3

% 2 den 10 a kadar 1 er 1 er
2 1 10 {Ekle} for

pstack

if.ps

%!

%% yigiti doldur
1 2 3 4 5

%% en ustteki sayinin mod 2 sini al
2 mod
%% sayi ciftse tepede 0 olur

0 eq
%% tepedeki sayi 0 a esit mi? (bool)

{0.7}if
%% oyleyse tepeye 0.7 yaz, degilse yazma

pstack

ifelse.ps

%!

%% yigiti doldur
1 2 3 4 5

%% en ustteki sayinin mod 2 sini al
2 mod
%% sayi ciftse tepede 0 olur

0 eq
%% tepedeki sayi 0 a esit mi? (bool)

{0.3} {0.6}ifelse
%% oyleyse tepeye 0.3 yaz, degilse 0.6 yaz

pstack

kutu1.ps

newpath
270 360 moveto
0 72 rlineto
72 0 rlineto
0 -72 rlineto
-72 0 rlineto
4 setlinewidth
stroke
showpage

kutu2.ps

newpath
270 360 moveto
0 72 rlineto
72 0 rlineto
0 -72 rlineto
closepath
4 setlinewidth
stroke
showpage

kutu3.ps

newpath
270 360 moveto
0 72 rlineto
72 0 rlineto
0 -72 rlineto
closepath
fill
stroke
showpage

merhaba.ps

%!
/Times-Bold findfont 30 scalefont setfont
100 300 moveto (Merhaba Dunya!) show
showpage

rgb.ps

%!

/csquare {
	newpath
	0 0 moveto
	0 1 rlineto
	1 0 rlineto
	0 -1 rlineto
	closepath
	setrgbcolor %% uc tane arguman bekliyor: Red, Green, Blue
	fill %% kapali bir kutu olmasi icin
} def

20 20 scale %% koordinat sisteminin olceklemesi

5 5 translate %% orijini 5x5 birim kaydir - 0,0 noktasi artik kosede degil
1 0 0 csquare %% fonk. a verilen 3 arguman setrgbcolor a gidiyor.

1 0 translate %% orijini 1 birim saga kaydir
0 1 0 csquare %% green: yesil

1 0 translate %% orijini 1 birim daha saga kaydir
0 0 1 csquare %% blue: mavi

showpage