EAA : add colored Tag

1 files changed, 16 insertions, 13 deletions

diff --git a/EnemyActionArdennes/EAA-cards.lou b/EnemyActionArdennes/EAA-cards.lou
index 628d1b8..a4bafa0 100644
--- a/EnemyActionArdennes/EAA-cards.lou
+++ b/EnemyActionArdennes/EAA-cards.lou
@@ -5,6 +5,7 @@
 @SysInclude { dsf }
 @SysInclude { docf }
 @SysInclude { tbl }
+@SysInclude { xrgb }
 
 @Use { @BasicSetup
   @InitialFont	  { Times Base 7p	}
@@ -28,7 +29,8 @@
 @SysDatabase @FontDef  { fontdefs }
 @SysDatabase @RefStyle { refstyle }
 
-def @Title right x { /.1c |1c 8p @Font @B {x}}
+def @Tag left c right x { white @Colour @CurveBox margin {2p} paint {c} x }
+def @Title left y right x { white @Colour @Box margin {1p} 5.7c @Wide black @Colour { |1c 8p @Font @B {x} } y }
 # 65mm x 89mm
 def @HCard right x { 90d @Rotate black @Colour @CurveBox margin {.1c} 8.7c @Wide 6.3c @High black @Colour { x } }
 def @VCard right x { black @Colour @CurveBox margin {.1c} 6.3c @Wide 8.7c @High black @Colour { x } }
@@ -63,7 +65,7 @@ def @Line { /.3c |.35c {rgb .3 .7 .9} @Colour @OneRow { 0 0 moveto xsize 0 linet
 def @LineA { /.3c @OneRow { 0 0 moveto xsize 0 lineto 1 pt setlinewidth stroke } @Graphic }
 
 def @Roadblocks { @VCard {
-  @Title {@GS @B Roadblocks}
+  {{@Xrgb olivedrab} @Tag R0} @Title { @GS |.2c Roadblocks}
   /.2v
   @BulletList
   @ListItem{the hex is considered @B empty (@Allied Reserve Deployment)}
@@ -100,7 +102,7 @@ def @Roadblocks { @VCard {
 } }
 
 def @Reserve { @VCard {
-  @Title {@GS Allied Reserve Deployment}
+  {{@Xrgb sienna1} @Tag D0} @Title { @GS |.2c Allied Reserve Deployment}
   /.3v
   @BulletList
   @ListItem{@B never in @German @City, @B never in danger of @I Surround}
@@ -142,7 +144,7 @@ def @Reserve { @VCard {
 
 
 def @States { @VCard {
-  @Title {@GS @VS Unit States}
+  {{@Xrgb goldenrod} @Tag S0} @Title {@GS @VS |.2c Unit States}
   #/.4v
   @BulletList
     gap {0.4v}
@@ -183,7 +185,7 @@ def @States { @VCard {
 } }
 
 def @SupplyStates { @VCard {
-  @Title {@GS @VS Supply States}
+  {{@Xrgb goldenrod} @Tag S1} @Title {@GS @VS |.2c Supply States}
   @BulletList
   @ListItem{@B @Underline LowSupply :
     @BulletList
@@ -212,12 +214,13 @@ def @SupplyStates { @VCard {
     @ListItem{@AlliedGS : @I Isolated @I OutOfContact can't be taken as @I Reserve.}
     @ListItem{@I Isolated only : @Atk @B +2 @I CombatChits, @B {disregard all} hits}
     @RawEndList}
+  # FIXME move the CurveBox up
   @ListItem{@B @Underline Surrender : step loss  @B 1-6 @CurveBox {}   @B 1-4 @CurveBox paint {rgb 0 0 0} {}   @B 1-2 @CurveBox paint {rgb 1 .2 .2} {}}
   @EndList
 } }
 
 def @CombatTacticsGS { @VCard {
-  @Title {@GS Combat Tactics}
+  {{@Xrgb dodgerblue} @Tag T0} @Title {@GS |.2c Combat Tactics}
   /.3v
   @BulletList
   @ListItem{@B Airpower @Sym slash @B Artillery : linked to @I {Combat Chit}}
@@ -249,7 +252,7 @@ def @CombatTacticsGS { @VCard {
 } }
 
 def @CombatTacticsVS { @VCard {
-  @Title {@VS Combat Tactics}
+  {{@Xrgb dodgerblue} @Tag T1} @Title {@VS |.2c Combat Tactics}
   /.7v
   @BulletList
     gap {1v}
@@ -274,7 +277,7 @@ def @CombatTacticsVS { @VCard {
 } }
 
 def @CombatChits { @VCard {
-  @Title {@GS Combat Tactics @Char ampersand Chits}
+  {{@Xrgb firebrick} @Tag C0} @Title {@GS |.2c Combat Tactics @Char ampersand Chits}
   @BulletList
   @ListItem{@Atk {@Sym ampersand} @Def : @B must have @B 1+ in @I Supply @B not @I Dispersed unit}
   @ListItem{@German @Atk : @Char numbersign @I Tactics {@Sym slash} Activation @B @Sym lessequal card @I CommandValue}
@@ -305,7 +308,7 @@ def @CombatChits { @VCard {
 } }
 
 def @CombatResolution { @VCard {
-  @Title {@GS Combat Resolution}
+  {{@Xrgb firebrick} @Tag C1} @Title {@GS |.2c Combat Resolution}
   @BulletList
   @ListItem{@B evenly distribute step loss between units and hexes}
   @ListItem{@Allied @B{step loss priority} : @Desc multi-step @Sym arrowdblright @Desc single-step}
@@ -341,7 +344,7 @@ def @CombatResolution { @VCard {
 } }
 
 def @CombatRetreat { @VCard {
-  @Title {@GS @VS Combat Retreat}
+  {{@Xrgb firebrick} @Tag C2} @Title {@GS @VS |.2c Combat Retreat}
   /.3v
   @BulletList
   @ListItem{@Def units retreat @B together and end in the @B {same hex}, /.3v
@@ -368,7 +371,7 @@ these retreating units do @B {not count} in that combat and are @B eliminated if
 } }
 
 def @CombatAdvance { @VCard {
-  @Title {@GS Combat Advance}
+  {{@Xrgb firebrick} @Tag C3} @Title {@GS |.2c Combat Advance}
   /.3v
   @BulletList
   @ListItem{@Atk may advance into the @B vacated combat hex @B ignoring @I ZOC}
@@ -433,7 +436,7 @@ def @GameStart { @HCard {
 } }
 
 def @AlliedActivation { @VCard {
-  @Title {@GS @Allied Activation}
+  {{@Xrgb purple2} @Tag A0} @Title {@GS |.2c @Allied Activation}
   /.3v
   @BulletList
   # - 10.71 FIXME do not activate a Corps with 1 unit
@@ -470,7 +473,7 @@ def @AlliedActivation { @VCard {
 } }
 
 def @NextCard { @VCard {
-  @Title {@GS Title}
+  {{@Xrgb cyan} @Tag R0} @Title {@GS |.2c @Allied Activation}
   /.3v
   @BulletList
   @ListItem{@B {Something} :