Példák

---

Elektromágnes:



/szurke_hatter {
/g 0.3 def
0 1 200 {
newpath
0 exch moveto
300 0 rlineto
closepath
g setgray
/g g 0.0025 add def
stroke
} for
200 1 400 {
newpath
0 exch moveto
300 0 rlineto
closepath
g setgray
/g g 0.002 sub def
stroke
} for
} def

/szoveg_hatter {
/p 0 def
1 1 150 {
newpath
0 exch moveto
300 0 rlineto
closepath
0.3 1 p sub 0.5 p add setrgbcolor
/p p 0.008 add def
stroke
} for
} def


/patko {
newpath
0 0 moveto
0 300 rlineto
100 300 100 180 90 arcn
100 0 rlineto
200 300 100 90 0 arcn
0 -300 rlineto
-100 0 rlineto
0 250 rlineto
150 250 50 0 180 arc
0 -250 rlineto
-100 0 rlineto
closepath
} def

/polus {
newpath
0 0 moveto
100 0 rlineto
20 20 rlineto
0 80 rlineto
-20 -20 rlineto
-100 0 rlineto
closepath
} def

/bevezetek {
newpath
0 0 moveto
-10 -10 rlineto
110 -5 rlineto
30 30 rlineto
-10 0 rlineto
0.8 0.8 0.3 setrgbcolor
3 setlinewidth
stroke
} def

/kivezetek {
newpath
0 0 moveto
-10 -10 rlineto
110 5 rlineto
30 30 rlineto
-10 0 rlineto
0.8 0.8 0.3 setrgbcolor
3 setlinewidth
stroke
} def

/nyil {
newpath
0 0 moveto
40 0 rlineto
closepath
0 setgray
stroke
newpath
40 0 moveto
-10 5 rlineto
0 -10 rlineto
closepath
fill
} def

% Zold alap
gsave
/c 0.9 def
50 85 translate
1 1 100 {
newpath
dup moveto
400 0 rlineto
closepath
0.3 c 0.4 setrgbcolor
/c c 0.003 sub def
stroke
} for
grestore

% Patko hatter
gsave
160 210 translate
0 1 20 {
pop
patko
0.6 setgray fill
-1 -1 translate
} for
grestore
%Patko
gsave
140 190 translate
patko clip
szurke_hatter
grestore
% Kek polus
gsave
140 130 translate
polus
0 0 1 setrgbcolor
fill
grestore
% Piros polus
gsave
340 130 translate
polus
1 0 0 setrgbcolor
fill
grestore
% Bal vezetekek
gsave
430 -20 210 {
gsave
140 exch translate
bevezetek
grestore
} for
grestore
% Jobb vezetekek
gsave
430 -20 210 {
gsave
340 exch translate
kivezetek
grestore
} for
grestore

% Bejovo vezetek
gsave
newpath
50 180 translate
0 0 moveto
80 0 rlineto
10 10 rlineto
0.8 0.8 0.3 setrgbcolor
3 setlinewidth
stroke
grestore
% Kijovo vezetek

gsave
newpath
340 190 translate
120 25 moveto
10 0 rlineto
-35 -35 rlineto
100 0 rlineto
0.8 0.8 0.3 setrgbcolor
3 setlinewidth
stroke
grestore

% Atkotes
gsave
newpath
140 450 translate
0 0 moveto
-10 -10 rlineto
110 -5 rlineto
100 10 rlineto
0.8 0.8 0.3 setrgbcolor
3 setlinewidth
stroke
grestore
gsave
65 190 translate
nyil
grestore
gsave
480 195 translate
nyil
grestore
gsave
/Times-Italic findfont
40 scalefont
setfont
170 30 moveto
0 0 0 setrgbcolor
(Elekromagnes) show
310 34 moveto
(') show
grestore
gsave
/Times-Bold findfont
30 scalefont
setfont
230 665 moveto
(') false charpath clip
150 620 translate
szoveg_hatter
grestore

showpage

a lap teteje