bicycle/src/CardSuit.i3

 Copyright (C) 1991, Digital Equipment Corporation                    
 All rights reserved.                                                 
 See the file COPYRIGHT for a full description.                       


 Last modified on Sun Mar  1 17:44:46 1992 by msm     


INTERFACE CardSuit;

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.





interface Card is in: