Példák

---

Pulyka:




{/proc2 exch cvlit def
/proc1 exch cvlit def

/newproc proc1 length proc2 length add
array def
newproc 0 proc1 putinterval
newproc proc1 length proc2 putinterval
newproc cvx
}def

/inch {72 mul} def
/picstr 3 string def

/imageturkey
{24 23 1 [24 0 0 -23 0 23]
{currentfile picstr readhexstring pop}
image
}def

gsave
3 inch 4 inch translate
2 inch dup scale
{1 exch sub} currenttransfer concatprocs
settransfer

imageturkey
003B00 002700 002480 0E4940
114920 14B220 3CB650 75FE88
17FF8C 175F14 1C07E2 3803C4
703182 F8EDFC B2BBC2 BB6F84
31BFC2 18EA3C 0E3E00 07FC00
03F800 1E1800 1FF800
grestore

showpage


a lap teteje