%!PS-Adobe-3.0
%%Title: some shared code
%%LanguageLevel: 2
%%EndComments
%%BeginProlog

/inch {72 mul} def
/CardWidth {3.5 inch} def
/CardHeight {2 inch} def

/centershow {
	dup
	stringwidth pop 2 div neg 0 rmoveto
	show
} bind def

/wrapshow {
	/height exch def
	/len exch def
	{
		dup length len lt {
			show
			exit
		} {
			dup % str str
			0 len getinterval % str strstart
			dup show
			stringwidth pop neg height neg rmoveto
			dup length len sub len exch getinterval
		} ifelse
	} loop
} def

/id2wrapshow {
	/height exch def
	dup 0 27 getinterval
	dup show
	stringwidth pop neg height neg rmoveto
	( ) show
	27 26 getinterval show
} def

/DrawEPS {
	/filename exch def
	/z exch def
	/bottom exch def
	/left exch def
	save
	left bottom translate
	z z scale
	/showpage { } def
	filename run

	% see PLRM.pdf page 732
	0 setgray
	0 setlinecap
	1 setlinewidth
	0 setlinejoin
	10 setmiterlimit
	[ ] 0 setdash newpath
	/languagelevel where {
		pop languagelevel 1 ne {
			false setstrokeadjust
			false setoverprint
		} if
	} if

	%/Dict_Count countdictstack def
	%/Op_Count count def
	%begin

	%end
	%count
	restore
} def