Operators on players.

We define the ``logo'' of the player, by coloring each player with his own color.

In[284]:=

PlayerLogo[p_] := Col[p, PlayerCol[p]] ;

We say that each player (Abelard or Eloise) is the opponent of the other player. This is a map computing the opponent of a player.

In[285]:=

Opponent[p_] := If[p == "Eloise", "Abelard", "Eloise"] ;


Created by Mathematica  (October 17, 2006)