Last modified on Sun Mar 1 17:44:46 1992 by msm
INTERFACECardSuit ; IMPORT Pixmap; FROM Card IMPORT Suit; PROCEDURE AcePix(r: Suit): Pixmap.T; PROCEDURE RankPix(r: Suit): Pixmap.T; PROCEDURE PipPix(r: Suit): Pixmap.T; PROCEDURE RankXip(r: Suit): Pixmap.T; PROCEDURE PipXip(r: Suit): Pixmap.T;
Xip returns the upside-down pip as a pixmap
VAR PixWidth, PixHeight: ARRAY Suit OF CARDINAL; END CardSuit.