ebook_id.ps

%!PS-Adobe-3.0
%%BoundingBox: 0 0 595.28 841.89 

gsave

/xsize 3 def
/ysize 6 def

/ruledLine {
	/ysize exch def
	/yspacing exch def
	/ybase exch def
	/xsize exch def
	/xspacing exch def
	/xbase exch def
	0 1 xsize {
		dup xspacing mul xbase add ybase moveto
		xspacing mul xbase add yspacing ysize mul ybase add lineto
	} for
	0 1 ysize {
		xbase 1 index yspacing mul ybase add moveto
		xspacing xsize mul xbase add 1 index yspacing mul ybase add lineto
		pop
	} for
} def

/card {
	/yoffset exch def
	/xoffset exch def
	/line exch def
	/Times-Italic findfont 20 scalefont setfont
	xoffset 10 add yoffset 90 add moveto (Auautech eBook ID) show
	/Courier-Bold findfont 25 scalefont setfont
	xoffset 40 add yoffset 50 add moveto line show
	/Courier findfont 12 scalefont setfont
	xoffset 10 add yoffset 20 add moveto (http://book.auautech.org/) show
} def

/page {
	/input exch def
	/buf 64 string def
	[1 1] 0 setdash
	5 200 xsize 5 130 ysize ruledLine
	true
	0 1 xsize ysize mul 1 sub {
		/offset exch def
		pop input buf readline {
			200 offset xsize mod mul 5 add 130 offset xsize idiv mul 5 add card true
		}
		{
			pop false
		} ifelse
	} for
	stroke showpage
} def

(keys) (r) file { dup page not { closefile exit } if } loop

grestore