git ssb

1
%!PS-Adobe-3.0
2
%%Title: some shared code
3
%%LanguageLevel: 2
4
%%EndComments
5
%%BeginProlog
6
7
/inch {72 mul} def
8
/CardWidth {3.5 inch} def
9
/CardHeight {2 inch} def
10
11
/centershow {
12
	dup
13
	stringwidth pop 2 div neg 0 rmoveto
14
	show
15
} bind def
16
17
/wrapshow {
18
	/height exch def
19
	/len exch def
20
	{
21
		dup length len lt {
22
			show
23
			exit
24
		} {
25
			dup % str str
26
			0 len getinterval % str strstart
27
			dup show
28
			stringwidth pop neg height neg rmoveto
29
			dup length len sub len exch getinterval
30
		} ifelse
31
	} loop
32
} def
33
34
/DrawEPS {
35
	/filename exch def
36
	/z exch def
37
	/bottom exch def
38
	/left exch def
39
	save
40
	left bottom translate
41
	z z scale
42
	/showpage { } def
43
	filename run
44
45
	% see PLRM.pdf page 732
46
	0 setgray
47
	0 setlinecap
48
	1 setlinewidth
49
	0 setlinejoin
50
	10 setmiterlimit
51
	[ ] 0 setdash newpath
52
	/languagelevel where {
53
		pop languagelevel 1 ne {
54
			false setstrokeadjust
55
			false setoverprint
56
		} if
57
	} if
58
59
	%/Dict_Count countdictstack def
60
	%/Op_Count count def
61
	%begin
62
63
	%end
64
	%count
65
	restore
66
} def
67