bicycle/src/CardSuit.i3


Copyright (C) 1994, Digital Equipment Corp.

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: