81 lines
2.2 KiB
PostScript
81 lines
2.2 KiB
PostScript
|
%!PS-Adobe EPSF-3.0
|
||
|
%%BoundingBox: 0 0 240 144
|
||
|
%%IncludeFont: Helvetica
|
||
|
/Helvetica findfont 24 scalefont setfont
|
||
|
newpath % Ruled outline outer box of map
|
||
|
12 12 moveto % bottom left corner
|
||
|
228 12 lineto % bottom side
|
||
|
228 132 lineto % right side
|
||
|
12 132 lineto % top side
|
||
|
closepath
|
||
|
stroke
|
||
|
newpath % Ruled horizontal line
|
||
|
12 96 moveto % LHS
|
||
|
228 96 lineto % RHS
|
||
|
closepath
|
||
|
stroke
|
||
|
0 0 0 setrgbcolor % From HTML colour 000000
|
||
|
/Helvetica findfont 24 scalefont setfont
|
||
|
newpath (Map)
|
||
|
24 % = X
|
||
|
114 24 2 div sub % = Y centre-offset
|
||
|
moveto show
|
||
|
currentlinewidth % Push old line width onto stack
|
||
|
1 setlinewidth
|
||
|
setlinewidth % Pull old line width from stack
|
||
|
currentlinewidth % Push old line width onto stack
|
||
|
1 setlinewidth
|
||
|
setlinewidth % Pull old line width from stack
|
||
|
newpath % Room interior
|
||
|
0.827451 0.827451 0.827451 setrgbcolor % From HTML colour D3D3D3
|
||
|
30 36 moveto % bottom left corner
|
||
|
66 36 lineto % bottom side
|
||
|
66 72 lineto % right side
|
||
|
30 72 lineto % top side
|
||
|
closepath
|
||
|
fill
|
||
|
|
||
|
currentlinewidth % Push old line width onto stack
|
||
|
1 setlinewidth
|
||
|
newpath % Room outline
|
||
|
0 0 0 setrgbcolor % From HTML colour 000000
|
||
|
30 36 moveto % bottom left corner
|
||
|
66 36 lineto % bottom side
|
||
|
66 72 lineto % right side
|
||
|
30 72 lineto % top side
|
||
|
closepath
|
||
|
stroke
|
||
|
setlinewidth % Pull old line width from stack
|
||
|
0 0 0 setrgbcolor % From HTML colour 000000
|
||
|
/Helvetica findfont 12 scalefont setfont
|
||
|
newpath (StMrP)
|
||
|
dup stringwidth add 2 div 48 exch sub % = X centre-offset
|
||
|
54 12 2 div sub % = Y centre-offset
|
||
|
moveto show
|
||
|
newpath % Room interior
|
||
|
0.827451 0.827451 0.827451 setrgbcolor % From HTML colour D3D3D3
|
||
|
102 36 moveto % bottom left corner
|
||
|
138 36 lineto % bottom side
|
||
|
138 72 lineto % right side
|
||
|
102 72 lineto % top side
|
||
|
closepath
|
||
|
fill
|
||
|
|
||
|
currentlinewidth % Push old line width onto stack
|
||
|
1 setlinewidth
|
||
|
newpath % Room outline
|
||
|
0 0 0 setrgbcolor % From HTML colour 000000
|
||
|
102 36 moveto % bottom left corner
|
||
|
138 36 lineto % bottom side
|
||
|
138 72 lineto % right side
|
||
|
102 72 lineto % top side
|
||
|
closepath
|
||
|
stroke
|
||
|
setlinewidth % Pull old line width from stack
|
||
|
0 0 0 setrgbcolor % From HTML colour 000000
|
||
|
/Helvetica findfont 12 scalefont setfont
|
||
|
newpath (IslnC)
|
||
|
dup stringwidth add 2 div 120 exch sub % = X centre-offset
|
||
|
54 12 2 div sub % = Y centre-offset
|
||
|
moveto show
|