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: