%!PS-Adobe-3.0
%%Title: Diplomacy Map (Sail Ho!)
%%Creator: dpmap, using a map created with DPeye by Mario Huys (woelpad@yahoo.com)
%%DocumentPaperSizes: Letter
%%LanguageLevel: 2
%%Orientation: Landscape
%%Pages: (atend)
%%DocumentNeededResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndComments
%%BeginDefaults
%%PageResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndDefaults
% INFO
% 378 568 AEO Village of Aeolus
% 208 508 ALC Alcmene's Village
% 498 438 AMA Amazon Village
% 398 428 APH Aphrodite's Beach
% 513 308 ARE Palace of Ares
% 453 218 ARG Argo's Pasture
% 378 190 AUT Autolycus' Hideout
% 318 190 CAL Callisto's Stronghold
% 508 231 CEC Cecrops' Channel
% 488 533 CEN Centaur Forest
% 168 218 CHA Charon's Crossing
% 448 568 CHI Chiron's Cave
% 373 358 CUP Cupid's Cloud
% 248 608 DEI Deianeira's Grave
% 558 368 EAS Eastern Ocean
% 488 478 ECH Echo's Glade
% 133 213 ELY Elysian Fields
% 178 578 FIE Field of the Golden Fleece
% 223 288 FIR Sea of Fire
% 238 190 FUR Realm of the 3 Furies
% 358 233 GAB Gabrielle's Village
% 388 513 GLI Glittering Gulf
% 278 448 GOC Gulf of Chains
% 318 233 HAD Depths of Hades
% 258 528 HER Hercules' Respite
% 228 363 HES Shrine to Hestia
% 231 365 HES/NC Shrine to Hestia (north coast)
% 223 338 HES/SC Shrine to Hestia (south coast)
% 478 283 HIN Forest of the Golden Hind
% 548 448 HIP Hippolyta's Girdle
% 148 508 JAS Jason's Kingdom
% 428 190 JOX Joxter's Retreat
% 148 328 LBS Lesbian Sea
% 195 355 LES Isle of Lesbos
% 358 308 LOV Lover's Lane
% 343 518 MID Realm of King Midas
% 568 508 MIN Minotaur's Labyrinth
% 198 448 MOR Morpheus' Palace
% 438 513 NAR Narcissus' Reflection
% 468 318 NES Nestor's Kingdom
% 318 568 OLY Mount Olympus
% 148 258 PEA Ocean of Peace
% 268 238 PER Persephone's Garden
% 388 278 POS Poseidon's Curse
% 328 438 PRO Prometheus' Cliff
% 388 388 PSY Village of Psyche
% 428 388 PSY/EC Village of Psyche (east coast)
% 358 388 PSY/WC Village of Psyche (west coast)
% 303 478 SAL Salmonius' Scheme
% 458 378 SCH Scholars Channel
% 518 338 SER Serina's Village
% 528 598 SIS Sisyphus' Hill
% 278 388 SOA Sea of Arrows
% 228 418 SOD Sea of Dreams
% 318 273 SOT Sea of Tears
% 538 193 SOU South Sea
% 398 468 SOW Sea of Waves
% 518 268 STR Strife's Cave
% 438 613 TAN Tantalus' Pool
% 218 238 TAR Tartarus
% 263 348 VES Convent of the Vestal Virgins
% 148 398 WES Western Ocean
% 408 228 XEN Xena's Rest
% 328 613 ZEU Temple of Zeus
% MAP
%%BeginSetup
/bd { bind def } bind def
/xd { exch def } bd
/ld { load def } bd
/ifloor { .001 add floor cvi } bd
/iceiling { .001 sub ceiling cvi } bd
/min { 2 copy gt { exch } if pop } bd
/max { 2 copy lt { exch } if pop } bd
/secure_atan { 2 copy 0 eq exch 0 eq and { pop pop 0 } { atan } ifelse } bd
/center { 3 2 roll add 2 div 3 1 roll add 2 div exch } bd
/a /arc ld
/c /curveto ld
/d /setdash ld
/f /fill ld
/h /show ld
/k /stroke ld
/l /lineto ld
/m /moveto ld
/n /newpath ld
/o /rotate ld
/p /closepath ld
/r /grestore ld
/s /gsave ld
/t /translate ld
/w /setlinewidth ld
/x /scale ld
/y /scalefont ld
/z /setfont ld
%%IncludeResource: font Helvetica-Bold
/MapNameFont /Helvetica-Bold findfont 14 y def
/Powers 20 dict def
%%IncludeResource: font Helvetica-Bold
/MapUnitLetterFont /Helvetica-Bold findfont 14 y def
%%IncludeResource: font Courier
/TextFixedFont /Courier findfont def
%%IncludeResource: font Courier-Bold
/TextHeadingFont /Courier-Bold findfont def
%%IncludeResource: font Times-Roman
/TextTitleFont /Times-Roman findfont def
/PageSetup {
612 0 t
90 o
/FinishReport { } def /InTextMode true def
Black
MovePhase
} bd
/ShowPage {
DrawAliases
DrawRemainingCenters
InTextMode { FinishReport } { r } ifelse
FrameMap
showpage
} bd
/MapForm <<
/FormType 1
/Matrix [ 2.2765 0 0 2.2765 119.36 174.16 ]
/BBox [ 0 0 210.33 204 ]
/FormDict 1 dict
/PaintProc {
dup /Matrix get exch /FormDict get begin
s
matrix invertmatrix concat
SeaBlue 119.36 174.16 478.8 464.4 rectfill
IncludeIsland
IncludeInternalBorders
r
end
} bind
>> def
/DrawMap {
PageSetup
SwitchToMapMode
MapForm execform
/Centers << Centers { pop true } forall >> def
UNOWNED
} bd
/VisitSupplies {
1 dict begin
/s xd
/MOR 198 428 s
/HER 258 508 s
/AEO 378 548 s
/CEN 488 513 s
/AMA 498 418 s
/PRO 328 423 s
/LES 180 348 s
/VES 263 328 s
/TAR 218 218 s
/HAD 318 213 s
/XEN 408 208 s
/STR 518 253 s
/ARE 513 293 s
/NES 468 303 s
/CUP 353 358 s
/APH 398 413 s
end
} def
/VisitTerritories {
5 dict begin
/b xd
/g xd
/w xd
/l xd
/c xd
(MOR) 198 448 c
(ALC) 208 508 c
(HER) 258 528 c
(AEO) 378 568 c
(CHI) 448 568 c
(CEN) 488 533 c
(ECH) 488 478 c
(AMA) 498 438 c
(SAL) 303 478 c
(MID) 343 518 c
(PRO) 328 438 c
(LES) 195 355 c
(VES) 263 348 c
(CHA) 168 218 c
(TAR) 218 238 c
(PER) 268 238 c
(HAD) 318 233 c
(GAB) 358 233 c
(XEN) 408 228 c
(ARG) 453 218 c
(STR) 518 268 c
(SER) 518 338 c
(HIN) 478 283 c
(NES) 468 318 c
(MIN) 568 508 c
(CUP) 373 358 c
(APH) 398 428 c
(JAS) 148 508 c
(ELY) 133 213 c
(JOX) 428 190 c
(HIP) 548 448 c
(OLY) 318 568 l
(ARE) 513 308 l
(SIS) 528 598 l
(ZEU) 328 613 l
(TAN) 438 613 l
(FIE) 178 578 l
(FUR) 238 190 l
(CAL) 318 190 l
(AUT) 378 190 l
(DEI) 248 608 l
(SOD) 228 418 w
(GOC) 278 448 w
(WES) 148 398 w
(SOA) 278 388 w
(GLI) 388 513 w
(NAR) 438 513 w
(SOW) 398 468 w
(FIR) 223 288 w
(LBS) 148 328 w
(PEA) 148 258 w
(SOT) 318 273 w
(POS) 388 278 w
(CEC) 508 231 w
(SOU) 538 193 w
(EAS) 558 368 w
(SCH) 458 378 w
(LOV) 358 308 w
(HES) 228 363 g
(PSY) 388 388 g
(PSY/WC) 358 388 b
(PSY/EC) 428 388 b
(HES/NC) 231 365 b
(HES/SC) 223 338 b
end
} def
/DrawSupplies {
SwitchToMapMode
UNOWNEDCENTER
{ SupplyCenters 3 1 roll 4 3 roll supply } bind
VisitSupplies
} bd
/DrawAlias {
SwitchToMapMode
s
3 1 roll t
.7 .7 x
0 -14 t
MapNameFont z
dup stringwidth pop -2 div 0 neg m h
r
} bd
/DrawName {
pop pop pop
} bd
/DrawAliases {
NameTerritories
} bd
/NameTerritories {
SwitchToMapMode
s
{ DarkGreen 3 2 roll DrawAlias } bind
{ DarkGreen 3 2 roll DrawAlias } bind
{ White 3 2 roll DrawAlias } bind
{ DarkGreen 3 2 roll DrawAlias } bind
{ pop pop pop } bind
VisitTerritories
r
} bd
/VisitPowers {
1 dict begin
/p xd
/UNOWNED (?) /Brown /White p
/EAST (E) /Black /White p
/NORTH (N) /Blue /White p
/SOUTH (S) /Red /White p
/WEST (W) /Green /White p
end
} def
/CreateTroop {
<<
/BBox 4 3 roll
/PaintProc 5 4 roll
6 5 roll {} forall
/FormType 1
/Matrix matrix
>>
} bd
/CreateTroops {
<< 3 1 roll Powers {
3 index 3 index CreateTroop 4 2 roll
} forall pop pop >>
} bd
/PaintFleet {
begin
.7 .7 x
0 8 t
s
.5 .5 x
-35 -16 t
12 3 m 12 9 l 9 12 l 6 13 l 6 17 l % bow
9 17 l 9 23 l 2 22 l 7 16 l 6 16 l
1 22 l % bowsprit
6 27 l 12 37 l 15 45 l % front sail
19 44 l 19 48 l 16 48 l 15 49 l 19 49 l
19 55 l 20 55 l 20 49 l 24 49 l 23 48 l
20 48 l 20 44 l % front mast
24 43 l 24 34 l 27 29 l 33 29 l 33 32 l
25 32 l 28 39 l 31 51 l % mid sail left
35 50 l 35 54 l 30 54 l 29 55 l 35 55 l
35 63 l 36 63 l 36 56 l 36 55 l 42 55 l
41 54 l 36 54 l 36 50 l % mid mast
41 49 l 41 32 l 36 32 l 36 29 l 39 29 l
41 43 l % mid sail right
45 43 l 45 47 l 41 47 l 41 48 l 45 48 l
45 55 l 46 55 l 46 48 l 51 48 l 50 47 l
46 47 l 46 43 l % rear mast
48 43 l 49 28 l 51 28 l 51 31 l 54 33 l
54 23 l 57 26 l 57 22 l 56 21 l % rear sail and flag
56 15 l 59 12 l 59 7 l 57 4 l 55 3 l p % bow
s 4 w Contrast k r Paint f
r
Offset aload pop m
MapUnitLetterFont z
Contrast Letter h
end
} bd
/FleetTroopBBox [
-12.6 .35 9.1 22.75
] def
/PaintArmy {
begin
.7 .7 x
0 8 t
s
.1667 .1667 x
-90 -46 t
39 3 m 37 8 l 32 12 l 32 25 l 27 38 l 34 46 l 34 54 l 26 63 l 16 59 l 16 52 l
19 41 l 13 28 l 12 37 l 6 49 l 5 60 l 1 69 l 7 78 l 8 90 l 12 93 l 19 91 l
30 80 l 38 86 l 45 97 l 50 123 l 58 133 l 65 135 l 67 146 l 75 153 l 69 160 l 57 159 l
72 169 l 84 166 l 84 158 l 78 150 l 82 148 l 82 144 l 88 141 l 82 135 l 79 131 l 80 126 l 82 122 l
90 118 l 93 129 l 106 136 l 104 142 l 116 137 l 123 136 l 129 132 l 139 127 l 144 124 l 141 115 l
134 111 l 126 115 l 119 115 l 129 106 l 133 94 l 133 84 l 136 78 l 135 71 l 155 61 l 157 55 l
149 34 l 137 25 l 130 25 l 131 33 l 134 36 l 148 47 l 145 54 l 132 56 l 125 39 l 120 17 l 127 11 l
132 3 l 118 3 l 117 12 l 111 18 l 115 49 l 100 49 l 96 42 l 77 48 l 69 48 l 63 36 l 76 22 l
81 9 l 76 5 l 70 10 l 71 18 l 53 31 l 55 42 l 41 37 l 37 23 l 43 12 l 49 7 l 49 3 l p
s 12 w Contrast k r Paint f
r
0 6 t
Offset aload pop m
MapUnitLetterFont z
Contrast Letter h
end
} bd
/ArmyTroopBBox [
-11.08 -.12 8.52 20.65
] def
/DrawFleet {
SwitchToMapMode
s t
FleetTroops Power get execform
r
} bd
/DrawArmy {
SwitchToMapMode
s t
ArmyTroops Power get execform
r
} bd
/DrawRemainingCenters {
SwitchToMapMode
UNOWNED
Centers {
{ load exec supply } { pop } ifelse
} forall
} bd
/PaintSupply {
begin
.7 .7 x
Paint
n 0 0 6 0 360 a f
end
} bd
/SupplyCenterBBox [
-4.2 -4.2 4.2 4.2
] def
/supply {
SwitchToMapMode
Centers exch false put
s t
Power get execform
r
} bd
/GetControlledPower {
1 index dup length string cvs 1 index dup length string cvs
1 index length dup 2 index length add 1 add string
dup 0 6 5 roll putinterval dup 2 index 124 put dup 3 2 roll 1 add 4 3 roll putinterval cvn
3 1 roll Powers 3 index known {
pop pop
} {
8 dict dup begin
exch Powers exch get /Paint get /Outer xd
Powers 2 index get { def } forall
end
dup ControlledFleetTroopBBox /PaintControlledFleet load CreateTroop FleetTroops 4 index 3 2 roll put
dup ControlledArmyTroopBBox /PaintControlledArmy load CreateTroop ArmyTroops 4 index 3 2 roll put
dup ControlledSupplyCenterBBox /PaintControlledSupply load CreateTroop SupplyCenters 4 index 3 2 roll put
Powers 2 index 3 2 roll put
[ /Power 3 index 4 3 roll {
ChangeController {
Power GetControlledPower exch
/ChangeController false def
} if pop
} bind /exec load /def load ] cvx 2 index xd
} ifelse
} bd
/PaintControlledFleet {
begin
.7 .7 x
0 8 t
s
.5 .5 x
-35 -16 t
12 3 m 12 9 l 9 12 l 6 13 l 6 17 l % bow
9 17 l 9 23 l 2 22 l 7 16 l 6 16 l
1 22 l % bowsprit
6 27 l 12 37 l 15 45 l % front sail
19 44 l 19 48 l 16 48 l 15 49 l 19 49 l
19 55 l 20 55 l 20 49 l 24 49 l 23 48 l
20 48 l 20 44 l % front mast
24 43 l 24 34 l 27 29 l 33 29 l 33 32 l
25 32 l 28 39 l 31 51 l % mid sail left
35 50 l 35 54 l 30 54 l 29 55 l 35 55 l
35 63 l 36 63 l 36 56 l 36 55 l 42 55 l
41 54 l 36 54 l 36 50 l % mid mast
41 49 l 41 32 l 36 32 l 36 29 l 39 29 l
41 43 l % mid sail right
45 43 l 45 47 l 41 47 l 41 48 l 45 48 l
45 55 l 46 55 l 46 48 l 51 48 l 50 47 l
46 47 l 46 43 l % rear mast
48 43 l 49 28 l 51 28 l 51 31 l 54 33 l
54 23 l 57 26 l 57 22 l 56 21 l % rear sail and flag
56 15 l 59 12 l 59 7 l 57 4 l 55 3 l p % bow
s s 12 w Outer k r 4 w Contrast k r Paint f
r
Offset aload pop m
MapUnitLetterFont z
Contrast Letter h
end
} bd
/ControlledFleetTroopBBox [
-14 -1.05 10.5 24.15
] def
/PaintControlledArmy {
begin
.7 .7 x
0 8 t
s
.1667 .1667 x
-90 -46 t
39 3 m 37 8 l 32 12 l 32 25 l 27 38 l 34 46 l 34 54 l 26 63 l 16 59 l 16 52 l
19 41 l 13 28 l 12 37 l 6 49 l 5 60 l 1 69 l 7 78 l 8 90 l 12 93 l 19 91 l
30 80 l 38 86 l 45 97 l 50 123 l 58 133 l 65 135 l 67 146 l 75 153 l 69 160 l 57 159 l
72 169 l 84 166 l 84 158 l 78 150 l 82 148 l 82 144 l 88 141 l 82 135 l 79 131 l 80 126 l 82 122 l
90 118 l 93 129 l 106 136 l 104 142 l 116 137 l 123 136 l 129 132 l 139 127 l 144 124 l 141 115 l
134 111 l 126 115 l 119 115 l 129 106 l 133 94 l 133 84 l 136 78 l 135 71 l 155 61 l 157 55 l
149 34 l 137 25 l 130 25 l 131 33 l 134 36 l 148 47 l 145 54 l 132 56 l 125 39 l 120 17 l 127 11 l
132 3 l 118 3 l 117 12 l 111 18 l 115 49 l 100 49 l 96 42 l 77 48 l 69 48 l 63 36 l 76 22 l
81 9 l 76 5 l 70 10 l 71 18 l 53 31 l 55 42 l 41 37 l 37 23 l 43 12 l 49 7 l 49 3 l p
s s 36 w Outer k r 12 w Contrast k r Paint f
r
0 6 t
Offset aload pop m
MapUnitLetterFont z
Contrast Letter h
end
} bd
/ControlledArmyTroopBBox [
-12.48 -1.52 9.92 22.05
] def
/PaintControlledSupply {
begin
.7 .7 x
Outer
n 0 0 10 0 360 a f
Contrast
n 0 0 8 0 360 a f
Paint
n 0 0 6 0 360 a f
end
} bd
/ControlledSupplyCenterBBox [
-7 -7 7 7
] def
/Controls {
/ChangeController true def
} bd
/SetArrowStateOk {
[] 0 d
} bd
/OkOrder {
/SetArrowState /SetArrowStateOk ld
} bd
/SetArrowStateFailed {
[4 6] 2 d
} bd
/FailedOrder {
/SetArrowState /SetArrowStateFailed ld
} bd
/MovePhase {
/ArrowColor /ArrowBlack ld
/ArrowBase 20 def
/TraceArrowHead /TraceSingleArrowHead ld
InTextMode not { ArrowColor } if
} bd
/RetreatPhase {
/ArrowColor /ArrowRed ld
/ArrowBase 39.8 def
/TraceArrowHead /TraceDoubleArrowHead ld
InTextMode not { ArrowColor } if
} bd
/ProposePhase {
/ArrowColor /ArrowWhite ld
/ArrowBase 39.8 def
/TraceArrowHead /TraceDoubleArrowHead ld
InTextMode not { ArrowColor } if
} bd
/TraceSingleArrowHead {
% draw the arrow head ...
n
dup -5 m
dup 20 add 0 l
dup 5 l
p
} bd
/TraceDoubleArrowHead {
% draw the double arrow head ...
n
dup -5 m
dup 19.8 add
dup -1 l
dup -5 l
dup 20 add 0 l
dup 5 l
1 l
dup 5 l
p
} bd
/PaintArrowMove {
s
3 index 3 index t
3 2 roll sub 3 1 roll exch sub exch
2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
.7 .7 x
0 8 t
o
.7 div ArrowBase sub
% if base of arrow is long enough, shorten it enough
% to e.g. move arrow start beyond support circle
dup 14 gt {
14 14 0 t sub
} {
0 t 0
} ifelse
% if base is still too long, shorten it some more
% to make arrow head touch support circle
dup 14 gt {
14 sub
} {
pop 0
} ifelse
1 w
TraceArrowHead
k
% now the shaft ...
2 w
0 0 m
0 l
k
r
} bd
/PaintArrowCircle {
s
5 1 roll
3 index 3 index t
3 2 roll sub 3 1 roll exch sub exch
2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
.7 .7 x
0 8 t
o
.7 div
1 index sub
% if base of arrow is long enough, shorten it enough
% to e.g. move arrow start beyond support circle
dup 14 gt {
14 14 0 t sub
} {
0 t 0
} ifelse
% draw the circle ...
1 w
n
2 copy add 0 4 3 roll 0 360 a
p k
% now the shaft ...
2 w
0 0 m
0 l
k
r
} bd
/ArrowMove {
SwitchToMapMode
s
SetArrowState
PaintArrowMove
r
} bd
/ArrowHold {
SwitchToMapMode
s
SetArrowState
24 PaintArrowCircle
r
} bd
/ArrowSupport {
SwitchToMapMode
s
SetArrowState
center
8 PaintArrowCircle
r
} bd
/ArrowConvoy {
SwitchToMapMode
s
SetArrowState
center
12 PaintArrowCircle
r
} bd
/ArrowRetreat {
RetreatPhase
ArrowMove
MovePhase
} bd
/ArrowPropose {
ProposePhase
ArrowMove
MovePhase
} bd
/BuildUnit {
SwitchToMapMode
s
t
ArrowWhite
.7 .7 x
0 8 t
6 w [ 3.14 6.28 ] 1.57 d
n
0 0 24 0 360 a
p k
r
} bd
/SlashUnit {
s
3 1 roll t
.7 .7 x
0 8 t
n
-21 -16 m
11 16 l
21 16 l
-11 -16 l
p
exec
r
} bd
/DestroyUnit {
SwitchToMapMode
{ ArrowRed f } SlashUnit
} bd
/DisbandUnit {
SwitchToMapMode
{ s ArrowWhite f r 1 w ArrowRed k } SlashUnit
} bd
/RemoveUnit {
SwitchToMapMode
{ ArrowWhite f } SlashUnit
} bd
/QueryUnit {
SwitchToMapMode
s
t
ArrowWhite
.7 .7 x
0 8 t
4 w
-12 4 m
-8 7 -4 7 0 4 c
4 1 8 1 12 4 c
-12 -4 m
-8 -1 -4 -1 0 -4 c
4 -7 8 -7 12 -4 c
k
r
} bd
/PaintArrowArrive {
s
t
.7 .7 x
0 8 t
180 rotate 54 ArrowBase add neg 0 t
40
1 w
TraceArrowHead
k
% now the shaft ...
2 w
0 0 m
0 l
k
-10 0 m -20 0 l
-30 0 m -40 0 l
k
r
} bd
/PaintArrowArriveFleet {
2 copy
PaintArrowArrive
SetArrowStateOk
exch 0 44 ArrowBase add add .7 mul add exch 10.08 add t
.8 .8 x
FleetTroops Power get execform
} bd
/PaintArrowArriveArmy {
2 copy
PaintArrowArrive
SetArrowStateOk
exch 0 44 ArrowBase add add .7 mul add exch 10.08 add t
.8 .8 x
ArmyTroops Power get execform
} bd
/PaintArrowDepart {
s
t
.7 .7 x
0 8 t
-54 0 t
40
2 w
0 0 m
0 l
-10 0 m -20 0 l
-30 0 m -40 0 l
k
r
} bd
/ArrowDepart {
SwitchToMapMode
s
SetArrowState
PaintArrowDepart
r
} bd
/ArrowArriveFleet {
SwitchToMapMode
s
SetArrowState
PaintArrowArriveFleet
r
} bd
/ArrowArriveArmy {
SwitchToMapMode
s
SetArrowState
PaintArrowArriveArmy
r
} bd
/ArrowSupportArrive {
2 copy exch 89.6 add exch ArrowSupport
} bd
/ArrowSupportDepart {
2 copy exch 61.6 sub exch ArrowSupport
} bd
/ArrowConvoyArrive {
2 copy exch 89.6 add exch ArrowConvoy
} bd
/ArrowConvoyDepart {
2 copy exch 61.6 sub exch ArrowConvoy
} bd
/ArrowRefugeFleet {
RetreatPhase
ArrowArriveFleet
MovePhase
} bd
/ArrowRefugeArmy {
RetreatPhase
ArrowArriveArmy
MovePhase
} bd
/ArrowFlee {
RetreatPhase
ArrowDepart
MovePhase
} bd
/FindUnit {
SwitchToMapMode
s
t
ArrowBlue
.7 .7 x
0 8 t
6 w [ 3.14 6.28 ] 1.57 d
n
0 0 24 0 360 a
p k
r
} bd
/FindArriveUnit {
SwitchToMapMode
s
exch 44.8 add exch 10.08 add t
.8 .8 x
0 0 FindUnit
r
} bd
/LoseUnit {
SwitchToMapMode
s
t
ArrowBlue
.7 .7 x
0 8 t
4 w
-12 4 m
-8 7 -4 7 0 4 c
4 1 8 1 12 4 c
-12 -4 m
-8 -1 -4 -1 0 -4 c
4 -7 8 -7 12 -4 c
k
r
} bd
/LoseArriveUnit {
SwitchToMapMode
s
exch 44.8 add exch 10.08 add t
.8 .8 x
0 0 LoseUnit
r
} bd
/SplitString {
7 dict begin
/nrChars xd
/indentLength xd
/objectString xd
/objectLast objectString length 1 sub def
% Short string?
objectLast nrChars lt {
false objectString
} {
% Look for a suitable place to split.
% First tracking backwards, if that doesn't work, look forward.
/splitIndex -1 def
nrChars -1 0 {
objectString 1 index get 32 eq {
/splitIndex xd exit
} if pop
} for splitIndex -1 eq {
nrChars 1 add 1 objectLast {
objectString 1 index get 32 eq {
/splitIndex xd exit
} if pop
} for
} if
splitIndex -1 eq splitIndex objectLast eq or {
false objectString
} {
% The first part.
objectString 0 splitIndex getinterval
% The second part.
objectString splitIndex 1 add objectLast splitIndex sub getinterval
% Add indentation if needed.
indentLength 0 gt {
dup length indentLength add string
0 1 indentLength 1 sub { 1 index exch 32 put } for
dup indentLength 4 3 roll putinterval
} if
% Add white space of the first part.
/nonSpaceIndex objectLast 1 add def
0 1 objectLast {
objectString 1 index get 32 ne {
/nonSpaceIndex xd exit
} if pop
} for
nonSpaceIndex 0 gt nonSpaceIndex splitIndex lt and {
dup length nonSpaceIndex add string
dup 0 objectString 0 nonSpaceIndex getinterval putinterval
dup nonSpaceIndex 4 3 roll putinterval
} if
exch true exch
} ifelse
} ifelse
end
} bd
/DrawLayoutBorders {
s
TextFixedFont 12 y z
r
} bd
/Owner <<
/Steps [
{ /Count 0 def /Y 135.36 def false true } bind
{
Count 8 ge { false true } {
63 SplitString
/Count Count 1 add def /Y Y 12 sub def
21.6 Y m h
true false
} ifelse
} bind
{
63 SplitString [ exch {
21.6 27.36 m h
} /exec load ] cvx /Finish xd
true true
} bind
{
/Count 1 def /Finish {
21.6 27.36 m (... \() h
Count dup 1 add log iceiling string cvs h
( more\)) h
} bd false true
} bind
{ /Count Count 1 add def 63 SplitString pop true false } bind
]
/Start {
TextFixedFont 12 y z
/StepIndex 0 def
/Step Steps 0 get def
/Finish { } def
} bind
/Write {
19 {
Step {
/StepIndex StepIndex 1 add def
/Step Steps StepIndex get def
} if { not { exit } if () } if
} loop
} bind
>> def
/OwnerReport {
SwitchToTextMode
Owner begin Start end
/FinishReport /FinishOwnerReport load def
} bd
/WriteOwner {
Owner begin Write end
} bd
/FinishOwnerReport {
Owner begin Finish end
} bd
/Adjustment <<
/Steps [
{ /Count 0 def /Y 123.36 def false true } bind
{
Count 7 ge { false true } {
39 SplitString
/Count Count 1 add def /Y Y 12 sub def
489.6 Y m h
true false
} ifelse
} bind
{
39 SplitString [ exch {
489.6 27.36 m h
} /exec load ] cvx /Finish xd
true true
} bind
{
/Count 1 def /Finish {
489.6 27.36 m (... \() h
Count dup 1 add log iceiling string cvs h
( more\)) h
} bd false true
} bind
{ /Count Count 1 add def 39 SplitString pop true false } bind
]
/Start {
TextHeadingFont 12 y z
489.6 123.36 moveto
(Adjustments) h
TextFixedFont 12 y z
/StepIndex 0 def
/Step Steps 0 get def
/Finish { } def
} bind
/Write {
19 {
Step {
/StepIndex StepIndex 1 add def
/Step Steps StepIndex get def
} if { not { exit } if () } if
} loop
} bind
>> def
/AdjustReport {
SwitchToTextMode
Adjustment begin Start end
/FinishReport /FinishAdjustReport load def
} bd
/WriteAdjust {
Adjustment begin Write end
} bd
/FinishAdjustReport {
Adjustment begin Finish end
} bd
/Retreat <<
/Steps [
{ /Count 0 def /Y 231.36 def false true } bind
{
Count 7 ge { false true } {
39 SplitString
/Count Count 1 add def /Y Y 12 sub def
489.6 Y m h
true false
} ifelse
} bind
{
39 SplitString [ exch {
489.6 135.36 m h
} /exec load ] cvx /Finish xd
true true
} bind
{
/Count 1 def /Finish {
489.6 135.36 m (... \() h
Count dup 1 add log iceiling string cvs h
( more\)) h
} bd false true
} bind
{ /Count Count 1 add def 39 SplitString pop true false } bind
]
/Start {
TextHeadingFont 12 y z
489.6 231.36 moveto
(Retreats) h
TextFixedFont 12 y z
/StepIndex 0 def
/Step Steps 0 get def
/Finish { } def
} bind
/Write {
17 {
Step {
/StepIndex StepIndex 1 add def
/Step Steps StepIndex get def
} if { not { exit } if () } if
} loop
} bind
>> def
/RetreatReport {
SwitchToTextMode
Retreat begin Start end
/FinishReport /FinishRetreatReport load def
} bd
/WriteRetreat {
Retreat begin Write end
} bd
/FinishRetreatReport {
Retreat begin Finish end
} bd
/Order <<
/Steps [
{ /Count 0 def /Y 519.36 def false true } bind
{
Count 22 ge { false true } {
39 SplitString
/Count Count 1 add def /Y Y 12 sub def
489.6 Y m h
true false
} ifelse
} bind
{
39 SplitString [ exch {
489.6 243.36 m h
} /exec load ] cvx /Finish xd
true true
} bind
{
/Count 1 def /Finish {
489.6 243.36 m (... \() h
Count dup 1 add log iceiling string cvs h
( more\)) h
} bd false true
} bind
{ /Count Count 1 add def 39 SplitString pop true false } bind
]
/Start {
TextFixedFont 12 y z
/StepIndex 0 def
/Step Steps 0 get def
/Finish { } def
} bind
/Write {
6 {
Step {
/StepIndex StepIndex 1 add def
/Step Steps StepIndex get def
} if { not { exit } if () } if
} loop
} bind
>> def
/OrderReport {
SwitchToTextMode
Order begin Start end
/FinishReport /FinishOrderReport load def
} bd
/WriteOrder {
Order begin Write end
} bd
/FinishOrderReport {
Order begin Finish end
} bd
/DrawTitle {
SwitchToTextMode
TextTitleFont 36 y z
(Diplomacy)
489.6 562.08 m h
TextTitleFont 24 y z
dup stringwidth pop dup 280.8 gt {
489.6 528 m
280.8 exch div dup 1 x exch
0 6.72 rmoveto h
1 exch div 1 x
} {
pop 489.6 534.72 m h
} ifelse
} bd
/SwitchToTextMode {
InTextMode {
FinishReport /FinishReport { } def
} {
r /InTextMode true def
} ifelse
} bd
/SwitchToMapMode {
InTextMode {
FinishReport /FinishReport { } def
/InTextMode false def
s
26.6 150.87 443.6 430.26 rectclip .9265 .9265 x -90.65 -11.32 t
ArrowColor
OkOrder
} if
} bd
/FrameMap {
s
2 w LandBrown
23.6 147.87 m 473.2 147.87 l 473.2 584.13 l 23.6 584.13 l
p
s 8 w Black k r
clipsave clip k cliprestore
r
} bd
/IncludeIsland {
s
/fk {
p
s LandBrown f r
k
} bd
1 w BorderBlack
OutlineChartBrown
r
} bd
/IncludeInternalBorders {
s
/fk { k } bd
1 w [ 6 2 ] 3 d BorderBlack
OutlineChartBlack
r
} bd
/VisitColors {
3 dict begin
/c xd /r xd /g xd
/BorderBlack .1 g
/MountainGrey .5 g
/IceGrey .9 g
/ArrowBlack 0 g
/ArrowWhite .9 g
/Black 0 g
/White .9 g
/LandBrown .8 .7 .4 r
/SeaBlue .1 .4 .6 r
/LandGreen 0 .4 0 r
/SeaWhite 1 1 1 r
/ArrowRed 1 0 0 r
/ArrowBlue .529 .808 .922 r
/Brown .6 .45 .2 r
/Blue 0 0 1 r
/Red 1 0 0 r
/Green 0 .7 0 r
/DarkGreen 0 .4 0 r
end
} def
/OutlineChartBrown {
445.36 307.84 m
448.72 301.2 l
453.2 298.8 l
456.8 294 l
455.6 288.32 l
460.8 277.36 l
473.6 267.6 l
476.88 265.52 l
480.8 264.32 l
482.56 261.36 l
490.8 255.12 l
510.56 246.72 l
521.28 244.8 l
540 255.12 l
543.2 259.2 l
547.36 270.96 l
544.4 274.24 l
544.96 280.56 l
549.76 283.52 l
553.12 288 l
559.68 288.96 l
561.6 292.96 l
559.2 309.12 l
545.36 335.52 l
535.76 341.52 l
520.8 349.92 l
489.6 352.32 l
461.36 334.96 l
459.2 329.12 l
454.4 325.2 l
445.2 307.92 l
445.36 307.84 l
fk
120 173.92 m
120 218.72 l
126.56 229.36 l
142.16 234.16 l
158.4 226.96 l
172.96 228 l
192 234.16 l
212.4 246.16 l
235.2 248.56 l
266.96 244.96 l
271.36 244.8 l
277.68 242.16 l
296.4 240.72 l
307.68 237.36 l
323.92 242.72 l
338.88 240 l
362.96 241.92 l
379.76 251.52 l
387.76 251.12 l
403.12 253.2 l
424.8 250.32 l
433.12 241.2 l
448.08 236.72 l
460.08 228.96 l
472.08 225.92 l
489.6 211.36 l
476.4 189.76 l
476.96 174.16 l
120 173.92 l
fk
170.4 342.72 m
175.76 338.56 l
183.52 337.2 l
193.2 332.56 l
214.16 343.92 l
224 341.12 l
234.56 342.16 l
240.56 333.12 l
246 315.12 l
252.56 312.16 l
262.72 310.8 l
271.2 314.56 l
280.16 322.96 l
284.96 333.76 l
280.96 345.04 l
279.6 354.72 l
269.36 359.52 l
261.6 364.96 l
250.96 368.16 l
244.8 372.72 l
227.6 374.72 l
217.12 372.32 l
199.76 372.16 l
187.76 370.32 l
181.76 370.96 l
172.8 363.12 l
169.76 356.56 l
170.96 342.16 l
170.4 342.72 l
fk
347.36 349.36 m
364.16 341.52 l
382.72 342 l
385.76 346.96 l
393.2 355.2 l
398.32 356.72 l
403.2 361.36 l
415.76 371.52 l
416 388.56 l
430.16 407.52 l
421.76 433.92 l
411.52 439.52 l
400.08 440.16 l
390.48 440.16 l
382.8 436.96 l
376.16 421.36 l
364.8 406.32 l
363.52 395.44 l
350.96 375.76 l
342.48 366 l
341.28 353.44 l
347.28 348.96 l
347.36 349.36 l
fk
597.2 637.12 m
120 637.52 l
119.92 432 l
178.8 433.36 l
190.4 422.16 l
197.92 420 l
202.8 421.92 l
210.48 432.96 l
216 446.56 l
217.76 449.52 l
227.36 472.96 l
234.56 483.12 l
238.8 483.12 l
241.76 492.16 l
250.8 485.52 l
256.8 486.16 l
266.4 478.32 l
278.4 477.76 l
286.8 457.36 l
298.8 442.32 l
302.96 435.76 l
310.16 408.16 l
324 409.36 l
324.56 412.96 l
337.76 414.72 l
346.16 437.52 l
351.6 444.16 l
346.16 481.92 l
366.56 510.72 l
364.16 517.92 l
371.36 528.16 l
379.76 536.56 l
391.76 540.72 l
401.36 546.72 l
404.4 546.72 l
421.2 549.12 l
425.36 547.92 l
428.96 547.92 l
444.56 540.72 l
456 531.76 l
469.2 507.12 l
464.96 486.16 l
464.96 453.12 l
476.4 424.32 l
483.6 420.72 l
492 397.36 l
492.56 393.12 l
496.16 393.12 l
499.76 388.96 l
511.76 391.36 l
525.6 402.72 l
535.76 415.92 l
543.6 426.16 l
559.2 429.76 l
567.6 429.76 l
572.96 426.16 l
582 425.52 l
597.6 418.32 l
597.2 637.12 l
fk
} bd
/OutlineChartBlack {
145.76 232.32 m
146.4 219.12 l
144.56 212.56 l
144 207.76 l
146.96 203.52 l
149.36 199.92 l
171.6 196.96 l
178.8 197.52 l
193.2 201.12 l
200.4 210.72 l
196.8 216.72 l
194.4 235.36 l
fk
192 201.76 m
194.96 196.96 l
202.8 196.96 l
212.96 196.32 l
216.56 199.36 l
230.96 198.16 l
237.6 202.32 l
240 206.56 l
250.8 208.96 l
244.8 221.52 l
242.4 225.76 l
244.16 234.72 l
243.76 247.2 l
fk
198 174.72 m
202.8 182.56 l
209.92 190.24 l
214.8 198.16 l
fk
251.36 208.96 m
255.6 205.36 l
265.2 199.92 l
270 199.36 l
274.16 194.56 l
283.12 190.8 l
286.16 184.96 l
291.6 183.12 l
296.4 174.72 l
fk
270.48 199.2 m
277.2 200.56 l
282 201.76 l
286.8 201.76 l
294.56 199.36 l
301.76 199.92 l
291.6 210.72 l
290.4 214.96 l
290.4 228.72 l
297.2 240.96 l
fk
301.68 199.52 m
306 199.36 l
324 199.92 l
328.16 196.96 l
345.6 196.96 l
351.6 186.16 l
349.2 174.72 l
fk
338.88 239.76 m
337.76 232.32 l
340.8 218.56 l
340.8 213.76 l
344.96 205.92 l
344.96 197.52 l
fk
350.96 187.36 m
356.96 190.96 l
360.56 199.92 l
370.16 204.16 l
377.36 211.36 l
380.4 220.96 l
386.96 236.56 l
385.2 243.12 l
387.76 251.12 l
fk
378.56 213.76 m
383.36 208.96 l
388.16 207.76 l
391.2 202.96 l
403.36 195.92 l
397.76 187.92 l
398.4 183.12 l
400.8 181.36 l
395.2 174.32 l
fk
403.12 196.24 m
412.16 201.12 l
417.52 207.04 l
424.16 210.16 l
434.96 213.76 l
437.36 219.76 l
451.2 234.72 l
fk
417.52 207.36 m
454.16 192.72 l
459.6 193.36 l
477.6 189.76 l
fk
492 351.76 m
498 333.76 l
503.36 325.92 l
fk
503.36 325.92 m
503.36 321.76 l
487.76 312.16 l
484.16 306.72 l
466.8 291.76 l
456.8 286.24 l
fk
482.96 305.52 m
490.8 299.52 l
490.8 294.72 l
500.96 287.52 l
502.16 283.92 l
497.36 271.92 l
491.36 262.96 l
484.8 259.36 l
fk
501.2 286.8 m
508.8 283.36 l
516.56 282.16 l
527.36 283.92 l
531.6 292.96 l
537.6 301.36 l
546 306.72 l
559.2 307.92 l
fk
502.8 325.36 m
506.4 325.36 l
511.2 320.56 l
518.4 321.12 l
524.4 321.12 l
529.76 319.36 l
536.4 316.96 l
545.36 310.32 l
546 306.72 l
fk
350.56 375.36 m
371.36 370.96 l
393.6 373.36 l
413.36 370.32 l
413.36 370.96 l
fk
364.16 404.56 m
372.56 408.16 l
382.8 404.56 l
394.16 403.36 l
399.6 405.76 l
407.36 403.36 l
418.8 400.96 l
422.4 402.16 l
425.92 402 l
fk
213.2 372 m
205.76 339.76 l
fk
241.2 330.16 m
242.4 335.52 l
246.56 339.12 l
248.4 345.76 l
252 352.32 l
256.8 358.32 l
266.4 361.36 l
fk
464.96 463.92 m
491.36 462.16 l
499.76 460.32 l
507.6 460.32 l
518.4 454.32 l
522 442.32 l
522.56 438.72 l
526.8 437.52 l
530.4 432.16 l
533.36 432.16 l
542.32 423.36 l
fk
570.48 427.52 m
571.2 433.92 l
566.4 445.36 l
570.56 452.56 l
578.4 459.12 l
582.56 468.72 l
577.76 478.96 l
559.76 478.96 l
546 468.16 l
538.16 469.92 l
531.6 477.12 l
522 477.12 l
517.76 472.96 l
514.16 468.72 l
518.4 454.32 l
fk
169.76 493.36 m
192 490.96 l
195.6 482.56 l
205.2 476.56 l
208.8 466.32 l
222 459.12 l
fk
241.68 491.76 m
241.76 495.12 l
232.16 510.16 l
225.6 531.12 l
219.6 543.76 l
181.2 543.12 l
fk
223.2 638.56 m
222.56 622.32 l
235.76 601.36 l
230.4 591.12 l
225.6 579.76 l
222 567.76 l
220.8 560.56 l
220.16 541.92 l
fk
346.16 481.92 m
337.2 475.36 l
332.4 468.72 l
318 462.72 l
305.36 454.96 l
297.76 443.44 l
fk
277.2 477.12 m
282 496.32 l
288.56 514.32 l
301.2 526.32 l
312.56 525.12 l
315.6 515.52 l
316.16 503.52 l
319.2 491.52 l
325.76 485.52 l
337.76 476.56 l
fk
293.36 639.12 m
290.96 626.56 l
288.56 604.96 l
276 589.92 l
257.36 584.56 l
254.4 590.56 l
248.4 591.12 l
232.16 594.72 l
fk
391.2 639.12 m
388.8 631.92 l
388.8 624.72 l
393.6 613.36 l
395.28 600.96 l
388.8 599.52 l
382.8 595.36 l
373.76 590.56 l
358.8 586.96 l
342 586.32 l
325.76 586.32 l
314.96 589.36 l
309.6 591.12 l
288.56 604.96 l
fk
348.16 586.8 m
343.76 570.16 l
342.56 561.12 l
343.2 550.32 l
344.96 546.72 l
349.76 545.52 l
355.76 544.96 l
358.16 539.52 l
370.16 525.76 l
fk
312.16 525.36 m
317.36 535.36 l
326.96 535.36 l
332.96 535.36 l
345.6 546.72 l
fk
272.88 589.2 m
271.2 564.72 l
277.76 549.76 l
283.76 540.16 l
301.76 526.32 l
fk
394.8 601.36 m
409.2 594.16 l
415.2 589.92 l
439.2 589.92 l
442.8 593.52 l
458.96 598.32 l
468.56 597.12 l
481.2 592.32 l
485.92 591.36 l
491.36 598.96 l
491.36 605.52 l
483.6 618.16 l
484.16 622.96 l
492 639.12 l
fk
418.72 589.84 m
421.76 557.52 l
421.76 549.12 l
fk
454.8 532.96 m
462.56 545.52 l
468.56 555.12 l
476.96 559.36 l
483.6 564.72 l
493.2 565.92 l
498 568.96 l
515.36 570.16 l
516 573.76 l
fk
531.6 476.56 m
540.56 481.92 l
542.96 487.36 l
541.2 497.52 l
539.36 501.76 l
532.8 503.52 l
524.96 505.92 l
506.4 504.16 l
493.76 506.56 l
468.56 507.76 l
fk
518.4 505.92 m
514.8 513.12 l
516 520.32 l
519.6 526.32 l
523.2 528.16 l
536.96 525.76 l
546.56 524.56 l
553.2 527.52 l
559.76 547.92 l
fk
118.8 298.32 m
128.4 289.92 l
135.6 289.92 l
146.4 291.76 l
152.4 292.32 l
163.2 296.56 l
172.8 295.36 l
212.4 246.16 l
fk
192 332.56 m
192 324.72 l
190.8 320.56 l
188.96 317.52 l
182.4 310.96 l
170.96 294.72 l
fk
118.8 368.32 m
127.76 362.56 l
139.2 362.56 l
144 364.32 l
153.6 359.52 l
170.4 355.92 l
fk
175.2 433.36 m
175.2 421.92 l
174 415.36 l
181.2 402.16 l
182.96 397.92 l
192 388.96 l
194.96 387.76 l
196.16 371.52 l
fk
184.72 395.44 m
194.96 396.16 l
203.36 392.56 l
210 392.56 l
230.4 396.72 l
244.8 402.16 l
265.2 415.92 l
266.96 423.12 l
260.96 432.16 l
252 438.72 l
246.56 448.96 l
227.36 471.76 l
fk
266.88 423.04 m
282.56 417.76 l
290.4 416.56 l
307.2 420.72 l
fk
284.88 334.24 m
293.36 334.96 l
312 341.52 l
317.36 340.32 l
334.16 343.36 l
347.28 348.96 l
fk
343.36 429.92 m
356.4 430.32 l
360.56 432.16 l
366.56 430.96 l
376.08 421.84 l
fk
349.12 458.4 m
360 469.36 l
366 477.12 l
379.76 481.36 l
397.2 480.16 l
409.2 483.12 l
412.8 487.36 l
413.36 496.32 l
415.76 508.96 l
415.2 517.92 l
410.96 533.52 l
408 547.92 l
fk
413.36 489.76 m
420.56 486.16 l
427.2 486.16 l
443.36 484.32 l
444.56 481.36 l
454.16 484.96 l
464.56 484.8 l
fk
426.56 420.72 m
430.16 424.32 l
438.56 424.96 l
452.4 425.52 l
457.2 425.52 l
470.4 420.72 l
484.8 418.96 l
fk
519.52 397.84 m
523.2 381.76 l
529.76 370.32 l
534.56 359.52 l
536.96 346.96 l
536.96 340.32 l
fk
401.92 359.76 m
417.6 352.32 l
426 351.76 l
451.76 347.52 l
457.76 347.52 l
475.36 343.84 l
fk
489.52 210.96 m
510.56 215.52 l
542.96 222.72 l
565.2 229.36 l
598.16 234.16 l
fk
540.56 255.76 m
544.16 247.36 l
552.56 237.12 l
559.2 238.32 l
566.4 229.36 l
fk
424.8 250.96 m
436.16 250.32 l
446.96 252.16 l
470.88 269.44 l
fk
357.76 241.2 m
363.6 267.76 l
364.16 280.96 l
371.36 291.12 l
380.4 294.16 l
399.6 298.96 l
425.36 300.16 l
446.88 304.56 l
fk
270.56 315.12 m
279.6 299.52 l
277.2 286.32 l
277.76 273.76 l
269.36 258.16 l
267.6 245.52 l
fk
278.4 289.36 m
297.6 294.72 l
312 298.32 l
322.16 294.72 l
332.4 293.52 l
342.56 291.76 l
344.4 289.92 l
371.36 291.12 l
fk
120 559.92 m
128.4 547.92 l
143.36 543.12 l
157.2 546.16 l
177.6 547.36 l
182.4 541.92 l
181.76 537.76 l
184.8 528.72 l
181.2 520.96 l
181.2 513.12 l
172.16 493.36 l
168 493.36 l
159.6 478.96 l
160.8 469.92 l
160.8 462.72 l
154.16 454.32 l
151.2 450.72 l
155.92 432.64 l
fk
485.36 591.76 m
498 589.36 l
502.16 585.12 l
506.96 580.32 l
514.8 576.16 l
518.4 568.96 l
527.36 558.72 l
530.96 553.92 l
547.76 553.92 l
555.6 549.76 l
562.8 545.52 l
566.96 559.92 l
571.2 568.96 l
579.6 571.36 l
584.4 570.72 l
597.6 564.16 l
fk
} bd
{
currentdict end 3 1 roll [ exch /setgray load ] cvx def begin
}{
currentdict end 5 1 roll [ 4 1 roll /setrgbcolor load ] cvx def begin
}{
currentdict end 6 1 roll [ 5 1 roll /setcmykcolor load ] cvx def begin
} bind VisitColors
/ChangeController false def
s
MapUnitLetterFont z
{
exch load exch load
2 index [ exch n 0 0 m true charpath pathbbox 3 2 roll add -2 div 3 1 roll add -2 div exch ] 3 1 roll
4 dict begin /Contrast xd /Paint xd /Offset xd /Letter xd currentdict end
currentdict end 3 1 roll
Powers 2 index 3 2 roll put
[ /Power 2 index { ChangeController { Power GetControlledPower /ChangeController false def } if } bind /exec load /def load ] cvx def
begin
} VisitPowers
r
/FleetTroops FleetTroopBBox /PaintFleet load CreateTroops def
/ArmyTroops ArmyTroopBBox /PaintArmy load CreateTroops def
/SupplyCenters SupplyCenterBBox /PaintSupply load CreateTroops def
{ currentdict end 4 1 roll [ SupplyCenters 4 2 roll 4 index ] cvx def begin } bind
VisitSupplies
/UNOWNEDCENTER /UNOWNED ld
/EASTCENTER /EAST ld
/NORTHCENTER /NORTH ld
/SOUTHCENTER /SOUTH ld
/WESTCENTER /WEST ld
/Centers <<
{ pop pop true } bind
VisitSupplies
>> def
%%EndSetup
|
