%% $Id: pst-poker.sty 459 2017-05-17 20:09:46Z herbert $
%%
%    pst-poker.sty - LaTeX poker package
%    Copyright (C) 2017  Herbert Voß <hvoss@tug.org> 
%    poker2 is based on file poster.sty from
%    Olaf Encke <olaf.encke@gmx.de> <http://www.encke.net/>
%
%    This program is free software: you can redistribute it and/or modify
%    it under the terms of the GNU Lesser General Public License as published by
%    the Free Software Foundation, either version 3 of the License, or
%    (at your option) any later version.
%
%    This program is distributed in the hope that it will be useful,
%    but WITHOUT ANY WARRANTY; without even the implied warranty of
%    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%    GNU General Public License for more details.
%
%    You should have received a copy of the GNU Lesser General Public License
%    along with this program.  If not, see <http://www.gnu.org/licenses/>.
%
%%%   poker2 is a modified version of poker for auto-pst-pdf
%%%
\NeedsTeXFormat{LaTeX2e}

\RequirePackage{txfonts}
\RequirePackage{pstricks,pst-blur,multido}
\RequirePackage[tiling]{pst-fill}

\def\filedate{2017/05/16}
\def\fileversion{0.01}
\ProvidesFile{pst-poker}[\filedate\ v\fileversion\ [LaTeX poker package (HV)]
%
% basic definitions
\pst@addfams{pst-poker}
%\newlength\xyunit
%\newlength\cprunit

\newcommand\pkr@val{A}
\newcommand\pkr@suit{\pspade}
\newcommand\pkr@col{\crd@Colors}
\newcommand\pkr@facecol{color}
\newcommand\pkr@suitname{spade}
\newcommand\pkr@shad{true}
\newcommand\pkr@shadblur{true}
%
% create layout definitions and set defaults
% card dimensions
\newcommand{\pkr@cxl}{-1.5}
\newcommand{\pkr@cxr}{1.5}
\newcommand{\pkr@cyt}{4.2}
\newcommand{\pkr@cyb}{0}
% inner frame dimensions
\newcommand{\pkr@fxl}{-0.75}
\newcommand{\pkr@fxr}{0.75}
\newcommand{\pkr@fyt}{3.45}
\newcommand{\pkr@fyb}{0.75}
% index sizes/positions
\newcommand{\pkr@ph}{0.6}
\newcommand{\pkr@pw}{0.6}
\newcommand{\pkr@pvh}{0.7}
\newcommand{\pkr@pvw}{0.6}
\newcommand{\pkr@pxl}{-1.125}
\newcommand{\pkr@pxr}{1.125}
\newcommand{\pkr@pytv}{3.35}
\newcommand{\pkr@pyts}{3.25}
\newcommand{\pkr@pybs}{0.95}
\newcommand{\pkr@pybv}{0.85}
% symbol sizes/positions
\newcommand{\pkr@sh}{0.4}
\newcommand{\pkr@sw}{0.4}
\newcommand{\pkr@sxl}{-0.4}
\newcommand{\pkr@sxm}{0}
\newcommand{\pkr@sxr}{0.4}
\newcommand{\pkr@syt}{2.95}
\newcommand{\pkr@sytiii}{2.6}
\newcommand{\pkr@sytii}{2.4}
\newcommand{\pkr@syti}{2.25}
\newcommand{\pkr@sym}{1.9}
\newcommand{\pkr@sybi}{1.95}
\newcommand{\pkr@sybii}{1.8}
\newcommand{\pkr@sybiii}{1.6}
\newcommand{\pkr@syb}{1.25}
% face symbol sizes/positions
\newcommand{\pkr@ish}{0.4}
\newcommand{\pkr@isw}{0.4}
\newcommand{\pkr@isxl}{-0.5}
\newcommand{\pkr@isxr}{0.5}
\newcommand{\pkr@isyt}{2.95}
\newcommand{\pkr@isyb}{1.25}
% face size/position
\newcommand{\pkr@ih}{2.4}
\newcommand{\pkr@iw}{1.5}
\newcommand{\pkr@iy}{0.9}
% peek symbol sizes/positions
\newcommand{\pkr@kh}{0.2}
\newcommand{\pkr@kw}{0.35}
\newcommand{\pkr@kxl}{-1.35}
\newcommand{\pkr@kxr}{1.35}
\newcommand{\pkr@kyt}{3.8}
\newcommand{\pkr@kyb}{0.4}
%
\providecommand\crdback[1][]{}
%
% color definitions
\colorlet{pkrwhite}{white}
\colorlet{pkrblack}{black}
\definecolor{pkrgray}{rgb}{0.4,0.4,0.4}
\definecolor{pkrlgray}{rgb}{0.9,0.9,0.9}
\definecolor{pkrddred}{rgb}{0.6,0,0}
\definecolor{pkrdred}{rgb}{0.8,0,0}
\definecolor{pkrdblue}{rgb}{0,0,0.6}
\definecolor{pkrlblue}{rgb}{0.3,0.3,1}
\definecolor{pkrllblue}{rgb}{0.9,0.95,1}
\definecolor{pkrdgreen}{rgb}{0.3,0.6,0.3}
\definecolor{pkrlgreen}{rgb}{0.7,0.9,0.7}
\definecolor{pkrorange}{rgb}{1,0.8,0.5}
\definecolor{pkrbeige}{rgb}{1,0.95,0.8}
\definecolor{pkrlyellow}{rgb}{1,1,0.75}
\colorlet{pkryellow}{pkrlyellow}
\colorlet{pkrred}{red}
\colorlet{pkrblue}{pkrllblue}
\colorlet{pkrgreen}{green}
%
% initialize color variables
\newcommand{\crd@Colors}{black}
\newcommand{\crd@Colorh}{pkrdred}
\newcommand{\crd@Colord}{pkrlblue}
\newcommand{\crd@Colorc}{pkrdgreen}
\newcommand{\colorbgname}{pkrbeige}
\newcommand\colorbackname{pkrblue}
%
% initialize suit variables
\newcommand{\pspade}{\ensuremath{\spadesuit}}
\newcommand{\pheart}{\ensuremath{\varheartsuit}}
\newcommand{\pdiamond}{\ensuremath{\vardiamondsuit}}
\newcommand{\pclub}{\ensuremath{\clubsuit}}
%
% Options
% choose colorset
% 2c: black and red suits
% 4c: spade: black, heart: red, diamond: blue, club: green
% gs: grayscale the red suits
% bw: black/white only, red suits are outlined
%
\define@choicekey[psset]{pst-poker}{colorset}[\val\nr]{2c,4c,gs,bw}[2c]{%
  \ifcase\nr\relax
    \renewcommand{\crd@Colors}{black}%
    \renewcommand{\crd@Colorh}{pkrdred}%
    \renewcommand{\crd@Colord}{pkrdred}%
    \renewcommand{\crd@Colorc}{black}%
    \renewcommand{\pkr@facecol}{color}%
    \renewcommand{\colorbgname}{pkrbeige}%
    \renewcommand{\colorbackname}{pkrdblue}%
    \renewcommand{\pheart}{\ensuremath{\varheartsuit}}%
    \renewcommand{\pdiamond}{\ensuremath{\vardiamondsuit}}%
  \or
    \renewcommand{\crd@Colors}{black}%
    \renewcommand{\crd@Colorh}{pkrdred}%
    \renewcommand{\crd@Colord}{pkrlblue}%
    \renewcommand{\crd@Colorc}{pkrdgreen}%
    \renewcommand{\pkr@facecol}{color}%
    \renewcommand{\colorbgname}{pkrbeige}%
    \renewcommand{\colorbackname}{pkrdblue}%
    \renewcommand{\pheart}{\ensuremath{\varheartsuit}}%
    \renewcommand{\pdiamond}{\ensuremath{\vardiamondsuit}}%
  \or
    \renewcommand{\crd@Colors}{black}%
    \renewcommand{\crd@Colorh}{pkrgray}%
    \renewcommand{\crd@Colord}{pkrgray}%
    \renewcommand{\crd@Colorc}{black}%
    \renewcommand{\pkr@facecol}{color}%
    \renewcommand{\colorbgname}{pkrlgray}%
    \renewcommand{\colorbackname}{pkrgray}%
    \renewcommand{\pheart}{\ensuremath{\varheartsuit}}%
    \renewcommand{\pdiamond}{\ensuremath{\vardiamondsuit}}%
  \or
    \renewcommand{\crd@Colors}{black}%
    \renewcommand{\crd@Colorh}{black}%
    \renewcommand{\crd@Colord}{black}%
    \renewcommand{\crd@Colorc}{black}%
    \renewcommand{\pkr@facecol}{bw}%
    \renewcommand{\colorbgname}{white}%
    \renewcommand{\colorbackname}{black}%
    \renewcommand{\pheart}{\ensuremath{\heartsuit}}%
    \renewcommand{\pdiamond}{\ensuremath{\diamondsuit}}%
  \fi
}%
% set width of big cards in cpr (cards per row)
%\define@key[psset]{pst-poker}{cpr}[7]{\setlength\cprunit{\dimexpr0.28\textwidth/#1\relax}%
%  \psset{unit=\cprunit}%
%}%

% wrapper to be redefined by inline style key
\newcommand\pkr@icard[1][]{\pkr@drawisymbol{\pkr@val}{\pkr@suit}{\pkr@col}}
%
% \pkr@drawisymbol{value}{suit}{color}
\newcommand{\pkr@drawisymbol}[3]{\textcolor{#3}{\sffamily#1#2}\,}

% set style of inline cards
\define@choicekey[psset]{pst-poker}{inline}[\val\nr]{symbol,boxed,card}[symbol]{%
 \ifcase\nr\relax
    \renewcommand\pkr@icard{\pkr@drawisymbol{\pkr@val}{\pkr@suit}{\pkr@col}}%
  \or
    \renewcommand\pkr@icard{\pkr@drawiboxedsymbol{\pkr@val}{\pkr@suit}{\pkr@col}}%
  \or
    \renewcommand\pkr@icard{\pkr@drawicard{\pkr@val}{\pkr@suit}{\pkr@col}}%
  \fi
}%
% set number of corners for indices
\define@choicekey[psset]{pst-poker}{corners}[\val\nr]{2,4}[4]{%
 \ifcase\nr\relax
   \pkr@restorelpips
   \renewcommand{\pkr@drawrpips}{}%
  \or
   \pkr@restorelpips
   \pkr@restorerpips
  \fi
}%
% set peek indices
\define@choicekey[psset]{pst-poker}{peek}[\val\nr]{left,right,both}[r]{%
 \ifcase\nr\relax
   \pkr@setlpeek
  \or
   \pkr@setrpeek
  \or
   \pkr@setlpeek
   \pkr@setrpeek
  \fi
}%
% set frame background color, user defined color possible
\define@key[psset]{pst-poker}{framebg}[blue]{\def\colorbgname{pkr#1}}
%
% set frame background color, user defined color possible
\define@key[psset]{pst-poker}{backcolor}[red]{\edef\colorbackname{pkr#1}}
%
% set card index size
\define@choicekey[psset]{pst-poker}{index}[\val\nr]{jumbo,regular}[regular]{%
 \ifcase\nr\relax
   \pkr@indexjumbo
 \or
   \pkr@indexregular
 \fi
}
% set card shadow
\define@choicekey[psset]{pst-poker}{crdshadow}[\val\nr]{blurred,solid,none}[blurred]{%
 \ifcase\nr\relax
   \def\pkr@shad{true}%
   \def\pkr@shadblur{true}%
 \or
   \def\pkr@shad{true}%
   \def\pkr@shadblur{false}%
 \or
   \def\pkr@shad{false}%
   \def\pkr@shadblur{false}%
 \else
   \def\pkr@shad{true}%
   \def\pkr@shadblur{true}%
 \fi
}%
% card backs
\define@choicekey[psset]{pst-poker}{back}[\val\nr]{simple,spades,suits,fournier}[suits]{%
 \ifcase\nr\relax%
   \renewcommand{\pkr@back}{\pkr@backsimple}%
 \or%
   \renewcommand{\pkr@back}{\pkr@backspades}%
 \or%
   \renewcommand{\pkr@back}{\pkr@backsuits}%
% \or%
%   \renewcommand{\pkr@back}{\pkr@backfournier}%
 \fi%
}%
% internal cardsuit processing keys
\define@choicekey[psset]{pst-poker}{cardsuit}[\val\nr]{spade,heart,diamond,club}{%
 \ifcase\nr\relax%
   \renewcommand{\pkr@suitname}{spade}%
   \renewcommand{\pkr@suit}{\pspade}%
   \renewcommand{\pkr@col}{\crd@Colors}%
 \or%
   \renewcommand{\pkr@suitname}{heart}%
   \renewcommand{\pkr@suit}{\pheart}%
   \renewcommand{\pkr@col}{\crd@Colorh}%
 \or%
   \renewcommand{\pkr@suitname}{diamond}%
   \renewcommand{\pkr@suit}{\pdiamond}%
   \renewcommand{\pkr@col}{\crd@Colord}%
 \or%
   \renewcommand{\pkr@suitname}{club}%
   \renewcommand{\pkr@suit}{\pclub}%
   \renewcommand{\pkr@col}{\crd@Colorc}%
 \fi%
}%
% internal cardvalue processing
\define@choicekey[psset]{pst-poker}{cardvalue}[\val\nr]{A,K,Q,J,10,9,8,7,6,5,4,3,2}{%
 \ifcase\nr\relax
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@Asymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@Ksymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@Qsymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@Jsymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@tensymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@ninesymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@eigsymbols}%
 \or
   \renewcommand\pkr@val{#1}%
   \renewcommand\pkr@drawsymbols{\pkr@sevsymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@sixsymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@fivesymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@foursymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@tresymbols}%
 \or
   \renewcommand{\pkr@val}{#1}%
   \renewcommand{\pkr@drawsymbols}{\pkr@twosymbols}%
 \fi
}%
% Produce warning for unknown options
%
% define inline symbols
\newcommand\As{\icard{A}{\pspade}{\crd@Colors}}%
\newcommand\Ah{\icard{A}{\pheart}{\crd@Colorh}}%
\newcommand{\Ad}{\icard{A}{\pdiamond}{\crd@Colord}}%
\newcommand\Ac{\icard{A}{\pclub}{\crd@Colorc}}%
\newcommand{\Ks}{\icard{K}{\pspade}{\crd@Colors}}%
\newcommand{\Kh}{\icard{K}{\pheart}{\crd@Colorh}}%
\newcommand{\Kd}{\icard{K}{\pdiamond}{\crd@Colord}}%
\newcommand{\Kc}{\icard{K}{\pclub}{\crd@Colorc}}%
\newcommand{\Qs}{\icard{Q}{\pspade}{\crd@Colors}}%
\newcommand{\Qh}{\icard{Q}{\pheart}{\crd@Colorh}}%
\newcommand{\Qd}{\icard{Q}{\pdiamond}{\crd@Colord}}%
\newcommand{\Qc}{\icard{Q}{\pclub}{\crd@Colorc}}%
\newcommand{\Js}{\icard{J}{\pspade}{\crd@Colors}}%
\newcommand{\Jh}{\icard{J}{\pheart}{\crd@Colorh}}%
\newcommand{\Jd}{\icard{J}{\pdiamond}{\crd@Colord}}%
\newcommand{\Jc}{\icard{J}{\pclub}{\crd@Colorc}}%
\newcommand{\tens}{\icard{10}{\pspade}{\crd@Colors}}%
\newcommand{\tenh}{\icard{10}{\pheart}{\crd@Colorh}}%
\newcommand{\tend}{\icard{10}{\pdiamond}{\crd@Colord}}%
\newcommand{\tenc}{\icard{10}{\pclub}{\crd@Colorc}}%
\newcommand{\nines}{\icard{9}{\pspade}{\crd@Colors}}%
\newcommand{\nineh}{\icard{9}{\pheart}{\crd@Colorh}}%
\newcommand{\nined}{\icard{9}{\pdiamond}{\crd@Colord}}%
\newcommand{\ninec}{\icard{9}{\pclub}{\crd@Colorc}}%
\newcommand{\eigs}{\icard{8}{\pspade}{\crd@Colors}}%
\newcommand{\eigh}{\icard{8}{\pheart}{\crd@Colorh}}%
\newcommand{\eigd}{\icard{8}{\pdiamond}{\crd@Colord}}%
\newcommand{\eigc}{\icard{8}{\pclub}{\crd@Colorc}}%
\newcommand{\sevs}{\icard{7}{\pspade}{\crd@Colors}}%
\newcommand{\sevh}{\icard{7}{\pheart}{\crd@Colorh}}%
\newcommand{\sevd}{\icard{7}{\pdiamond}{\crd@Colord}}%
\newcommand{\sevc}{\icard{7}{\pclub}{\crd@Colorc}}%
\newcommand{\sixs}{\icard{6}{\pspade}{\crd@Colors}}%
\newcommand{\sixh}{\icard{6}{\pheart}{\crd@Colorh}}%
\newcommand{\sixd}{\icard{6}{\pdiamond}{\crd@Colord}}%
\newcommand{\sixc}{\icard{6}{\pclub}{\crd@Colorc}}%
\newcommand{\fives}{\icard{5}{\pspade}{\crd@Colors}}%
\newcommand{\fiveh}{\icard{5}{\pheart}{\crd@Colorh}}%
\newcommand{\fived}{\icard{5}{\pdiamond}{\crd@Colord}}%
\newcommand{\fivec}{\icard{5}{\pclub}{\crd@Colorc}}%
\newcommand{\fours}{\icard{4}{\pspade}{\crd@Colors}}%
\newcommand{\fourh}{\icard{4}{\pheart}{\crd@Colorh}}%
\newcommand{\fourd}{\icard{4}{\pdiamond}{\crd@Colord}}%
\newcommand{\fourc}{\icard{4}{\pclub}{\crd@Colorc}}%
\newcommand{\tres}{\icard{3}{\pspade}{\crd@Colors}}%
\newcommand{\treh}{\icard{3}{\pheart}{\crd@Colorh}}%
\newcommand{\tred}{\icard{3}{\pdiamond}{\crd@Colord}}%
\newcommand{\trec}{\icard{3}{\pclub}{\crd@Colorc}}%
\newcommand{\twos}{\icard{2}{\pspade}{\crd@Colors}}%
\newcommand{\twoh}{\icard{2}{\pheart}{\crd@Colorh}}%
\newcommand{\twod}{\icard{2}{\pdiamond}{\crd@Colord}}%
\newcommand{\twoc}{\icard{2}{\pclub}{\crd@Colorc}}%
%
\renewcommand\crdback[1][]{\pkr@ibackframe[#1]}
%
% universal inline command
%
\newcommand\icard[3]{%
  \renewcommand\pkr@val{#1}%
  \renewcommand\pkr@suit{#2}%
  \renewcommand\pkr@col{#3}%
  \pkr@icard
}%
% \pkr@drawiboxedsymbol{value}{suit}{color}
\newcommand\pkr@drawiboxedsymbol[3]{\psframebox[linewidth=0.4pt,framearc=0.25]{\textcolor{#3}{\sffamily #1 #2}\,}}
%
% \pkr@drawicard{value}{suit}{color}
\newcommand{\pkr@drawicard}[3]{{%
  \psset{unit=0.5ex}%
  \pspicture(-1.7,1)(1.7,4.4)
    \pkr@drawicardframe
    \pkr@drawipips{#1}{#2}{#3}%
  \endpspicture}%
}%
% draw inline card frame
\newcommand\pkr@drawicardframe{\psframe[linewidth=0.4pt,framearc=0.25](-1.5,0)(1.5,4.2)}
%
% draw inline indices
% \drawipips{value}{suit}{color}
\newcommand{\pkr@drawipips}[3]{%
  \rput[b](-0.4,2.2){\psscaleboxto(1.7,1.7){\textcolor{#3}{\sffamily #1}}}%
  \rput[t](.4,2.0){\psscaleboxto(1.7,1.7){\textcolor{#3}{\sffamily #2}}}%
}%
%
\newcommand\pkr@iback[1][]{\pkr@drawibackframe[#1]}

\newcommand\pkr@drawibackframe[1][]{%
 \psframe[linewidth=0.1pt,
          hatchangle=45,
          hatchsep=0.5,
          hatchwidth=0.25,
          fillstyle=crosshatch,
          linecolor=black,
          hatchcolor=\colorbackname,
          framearc=0.25,#1](-1.5,0)(1.5,4.2)%
}%
%
% big cards
\newcommand\crdAs{\drawcard[cardvalue=A,cardsuit=spade,inline=card]}%
\newcommand\crdAh{\drawcard[cardvalue=A,cardsuit=heart]}%
\newcommand{\crdAd}{\drawcard[cardvalue=A,cardsuit=diamond]}%
\newcommand{\crdAc}{\drawcard[cardvalue=A,cardsuit=club]}%
\newcommand{\crdKs}{\psset[pst-poker]{cardvalue=K,cardsuit=spade}\drawcard}%
\newcommand{\crdKh}{\psset[pst-poker]{cardvalue=K,cardsuit=heart}\drawcard}%
\newcommand{\crdKd}{\psset[pst-poker]{cardvalue=K,cardsuit=diamond}\drawcard}%
\newcommand{\crdKc}{\psset[pst-poker]{cardvalue=K,cardsuit=club}\drawcard}%
\newcommand{\crdQs}{\psset[pst-poker]{cardvalue=Q,cardsuit=spade}\drawcard}%
\newcommand{\crdQh}{\psset[pst-poker]{cardvalue=Q,cardsuit=heart}\drawcard}%
\newcommand{\crdQd}{\psset[pst-poker]{cardvalue=Q,cardsuit=diamond}\drawcard}%
\newcommand{\crdQc}{\psset[pst-poker]{cardvalue=Q,cardsuit=club}\drawcard}%
\newcommand\crdJs{\psset[pst-poker]{cardvalue=J,cardsuit=spade}\drawcard}%
\newcommand{\crdJh}{\psset[pst-poker]{cardvalue=J,cardsuit=heart}\drawcard}%
\newcommand{\crdJd}{\psset[pst-poker]{cardvalue=J,cardsuit=diamond}\drawcard}%
\newcommand{\crdJc}{\psset[pst-poker]{cardvalue=J,cardsuit=club}\drawcard}%
\newcommand{\crdtens}{\psset[pst-poker]{cardvalue=10,cardsuit=spade}\drawcard}%
\newcommand{\crdtenh}{\psset[pst-poker]{cardvalue=10,cardsuit=heart}\drawcard}%
\newcommand{\crdtend}{\psset[pst-poker]{cardvalue=10,cardsuit=diamond}\drawcard}%
\newcommand{\crdtenc}{\psset[pst-poker]{cardvalue=10,cardsuit=club}\drawcard}%
\newcommand{\crdnines}{\psset[pst-poker]{cardvalue=9,cardsuit=spade}\drawcard}%
\newcommand{\crdnineh}{\psset[pst-poker]{cardvalue=9,cardsuit=heart}\drawcard}%
\newcommand{\crdnined}{\psset[pst-poker]{cardvalue=9,cardsuit=diamond}\drawcard}%
\newcommand{\crdninec}{\psset[pst-poker]{cardvalue=9,cardsuit=club}\drawcard}%
\newcommand{\crdeigs}{\psset[pst-poker]{cardvalue=8,cardsuit=spade}\drawcard}%
\newcommand{\crdeigh}{\psset[pst-poker]{cardvalue=8,cardsuit=heart}\drawcard}%
\newcommand{\crdeigd}{\psset[pst-poker]{cardvalue=8,cardsuit=diamond}\drawcard}%
\newcommand{\crdeigc}{\psset[pst-poker]{cardvalue=8,cardsuit=club}\drawcard}%
\newcommand{\crdsevs}{\psset[pst-poker]{cardvalue=7,cardsuit=spade}\drawcard}%
\newcommand{\crdsevh}{\psset[pst-poker]{cardvalue=7,cardsuit=heart}\drawcard}%
\newcommand\crdsevd{\drawcard[cardvalue=7,cardsuit=diamond]}%
\newcommand{\crdsevc}{\psset[pst-poker]{cardvalue=7,cardsuit=club}\drawcard}%
\newcommand{\crdsixs}{\psset[pst-poker]{cardvalue=6,cardsuit=spade}\drawcard}%
\newcommand{\crdsixh}{\psset[pst-poker]{cardvalue=6,cardsuit=heart}\drawcard}%
\newcommand{\crdsixd}{\psset[pst-poker]{cardvalue=6,cardsuit=diamond}\drawcard}%
\newcommand{\crdsixc}{\psset[pst-poker]{cardvalue=6,cardsuit=club}\drawcard}%
\newcommand{\crdfives}{\psset[pst-poker]{cardvalue=5,cardsuit=spade}\drawcard}%
\newcommand{\crdfiveh}{\psset[pst-poker]{cardvalue=5,cardsuit=heart}\drawcard}%
\newcommand{\crdfived}{\psset[pst-poker]{cardvalue=5,cardsuit=diamond}\drawcard}%
\newcommand{\crdfivec}{\psset[pst-poker]{cardvalue=5,cardsuit=club}\drawcard}%
\newcommand{\crdfours}{\psset[pst-poker]{cardvalue=4,cardsuit=spade}\drawcard}%
\newcommand{\crdfourh}{\psset[pst-poker]{cardvalue=4,cardsuit=heart}\drawcard}%
\newcommand{\crdfourd}{\psset[pst-poker]{cardvalue=4,cardsuit=diamond}\drawcard}%
\newcommand{\crdfourc}{\psset[pst-poker]{cardvalue=4,cardsuit=club}\drawcard}%
\newcommand{\crdtres}{\psset[pst-poker]{cardvalue=3,cardsuit=spade}\drawcard}%
\newcommand{\crdtreh}{\psset[pst-poker]{cardvalue=3,cardsuit=heart}\drawcard}%
\newcommand{\crdtred}{\psset[pst-poker]{cardvalue=3,cardsuit=diamond}\drawcard}%
\newcommand{\crdtrec}{\psset[pst-poker]{cardvalue=3,cardsuit=club}\drawcard}%
\newcommand{\crdtwos}{\psset[pst-poker]{cardvalue=2,cardsuit=spade}\drawcard}%
\newcommand{\crdtwoh}{\psset[pst-poker]{cardvalue=2,cardsuit=heart}\drawcard}%
\newcommand{\crdtwod}{\psset[pst-poker]{cardvalue=2,cardsuit=diamond}\drawcard}%
\newcommand{\crdtwoc}{\psset[pst-poker]{cardvalue=2,cardsuit=club}\drawcard}%
\renewcommand\crdback[1][]{\pkr@drawback[#1]}%
%
% universal card command
% \drawcard{value}{suit}{color}
%
\newcommand\drawcard[1][]{{%
  \ifx\relax#1\relax\else\psset{#1}\fi
  \pspicture(-1.7,0)(1.7,4.4)
    \pkr@drawcardframe
    \pkr@drawlpips
    \pkr@drawrpips
    \pkr@drawsymframe
    \pkr@drawsymbols
  \endpspicture}}
%
% draw frame of card
\newcommand{\pkr@drawcardframe}{%
 \psframe[linewidth=0.3pt,
          fillstyle=solid,
          fillcolor=white,
          shadow=\pkr@shad,
          blur=\pkr@shadblur,
          framearc=0.1
         ](\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)%
}%
% draw left indices
% \pkr@drawlpips
\newcommand{\pkr@drawlpips}{%
 \rput[b](\pkr@pxl,\pkr@pytv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily\pkr@val}}}%
 \rput[t](\pkr@pxl,\pkr@pyts){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[t]{180}(\pkr@pxr,\pkr@pybs){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@pxr,\pkr@pybv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
}%
% restore command used by corners key
\newcommand{\pkr@restorelpips}{%
\renewcommand{\pkr@drawlpips}{%
 \rput[b](\pkr@pxl,\pkr@pytv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
 \rput[t](\pkr@pxl,\pkr@pyts){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[t]{180}(\pkr@pxr,\pkr@pybs){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@pxr,\pkr@pybv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
}%
}%
% index modify command used by peek key
\newcommand{\pkr@setlpeek}{%
\renewcommand{\pkr@drawlpips}{%
  \rput[l]{45}(\pkr@kxl,\pkr@kyt){\psscaleboxto(\pkr@kw,\pkr@kh){\textcolor{\pkr@col}{\sffamily \pkr@val\pkr@suit}}}%
  \rput[l]{-135}(\pkr@kxr,\pkr@kyb){\psscaleboxto(\pkr@kw,\pkr@kh){\textcolor{\pkr@col}{\sffamily \pkr@val\pkr@suit}}}%
}%
}%
% draw right indices
% \pkr@drawrpips
\newcommand{\pkr@drawrpips}{%
 \rput[b](\pkr@pxr,\pkr@pytv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
 \rput[t](\pkr@pxr,\pkr@pyts){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[t]{180}(\pkr@pxl,\pkr@pybs){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@pxl,\pkr@pybv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
}%
% restore command used by corners key
\newcommand{\pkr@restorerpips}{%
 \renewcommand{\pkr@drawrpips}{%
 \rput[b](\pkr@pxr,\pkr@pytv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
 \rput[t](\pkr@pxr,\pkr@pyts){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[t]{180}(\pkr@pxl,\pkr@pybs){\psscaleboxto(\pkr@pw,\pkr@ph){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@pxl,\pkr@pybv){\psscaleboxto(\pkr@pvw,\pkr@pvh){\textcolor{\pkr@col}{\sffamily \pkr@val}}}%
}%
}%
% index modify command used by peek key
\newcommand{\pkr@setrpeek}{%
 \renewcommand{\pkr@drawrpips}{%
  \rput[r]{-45}(\pkr@kxr,\pkr@kyt){\psscaleboxto(\pkr@kw,\pkr@kh){\textcolor{\pkr@col}{\sffamily \pkr@val\pkr@suit}}}%
  \rput[r]{135}(\pkr@kxl,\pkr@kyb){\psscaleboxto(\pkr@kw,\pkr@kh){\textcolor{\pkr@col}{\sffamily \pkr@val\pkr@suit}}}%
}%
}%
% draw inner frame
\newcommand{\pkr@drawsymframe}{%
 \psframe[linewidth=0.2pt,%
          fillstyle=solid,%
          fillcolor=\colorbgname%
         ] (\pkr@fxl,\pkr@fyb)(\pkr@fxr,\pkr@fyt)%
}%
% draw center symbols and faces
% wrapper to be redefined by internal cardvalue key
\newcommand\pkr@drawsymbols{\pkr@Asymbols}
%
% center symbols
% A
\newcommand{\pkr@Asymbols}{%
 \rput[b](\pkr@sxm,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily\pkr@suit}}}%
}%
% K
\newcommand{\pkr@Ksymbols}{%
 \psframe[linewidth=0.2pt,%
          fillstyle=solid,%
          fillcolor=white%
         ] (\pkr@fxl,\pkr@fyb)(\pkr@fxr,\pkr@fyt)%
 \rput[b](\pkr@isxl,\pkr@isyt){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily\pkr@suit}}}%
 \rput[b]{180}(\pkr@isxr,\pkr@isyb){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@iy){\psscaleboxto(\pkr@iw,\pkr@ih){\includegraphics{King-\pkr@suitname-\pkr@facecol}}}%
}%
% Q
\newcommand{\pkr@Qsymbols}{%
 \psframe[linewidth=0.2pt,%
          fillstyle=solid,%
          fillcolor=white%
         ] (\pkr@fxl,\pkr@fyb)(\pkr@fxr,\pkr@fyt)%
 \rput[b](\pkr@isxl,\pkr@isyt){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@isxr,\pkr@isyb){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@iy){\psscaleboxto(\pkr@iw,\pkr@ih){\includegraphics{Queen-\pkr@suitname-\pkr@facecol}}}%
}%
% J
\newcommand{\pkr@Jsymbols}{%
 \psframe[linewidth=0.2pt,%
          fillstyle=solid,%
          fillcolor=white%
         ] (\pkr@fxl,\pkr@fyb)(\pkr@fxr,\pkr@fyt)%
 \rput[b](\pkr@isxl,\pkr@isyt){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@isxr,\pkr@isyb){\psscaleboxto(\pkr@isw,\pkr@ish){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@iy){\psscaleboxto(\pkr@iw,\pkr@ih){\includegraphics{Jack-\pkr@suitname-\pkr@facecol}}}%
}%
% 10
\newcommand{\pkr@tensymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxl,\pkr@syti){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@sybi){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syti){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@sybi){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sytiii){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxm,\pkr@sybiii){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 9
\newcommand{\pkr@ninesymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxl,\pkr@syti){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@sybi){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syti){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@sybi){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 8
\newcommand{\pkr@eigsymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxl,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sytii){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxm,\pkr@sybii){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 7
\newcommand\pkr@sevsymbols{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxl,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sytii){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 6
\newcommand{\pkr@sixsymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxl,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 5
\newcommand{\pkr@fivesymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 4
\newcommand{\pkr@foursymbols}{%
 \rput[b](\pkr@sxl,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxl,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxr,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxr,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 3
\newcommand{\pkr@tresymbols}{%
 \rput[b](\pkr@sxm,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b](\pkr@sxm,\pkr@sym){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxm,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
% 2
\newcommand{\pkr@twosymbols}{%
 \rput[b](\pkr@sxm,\pkr@syt){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
 \rput[b]{180}(\pkr@sxm,\pkr@syb){\psscaleboxto(\pkr@sw,\pkr@sh){\textcolor{\pkr@col}{\sffamily \pkr@suit}}}%
}%
%
% draw back cards
\newcommand\pkr@drawback[1][]{{%
  \ifx\relax#1\relax\else\psset{#1}\fi
  \pspicture(-1.7,0)(1.7,4.4)\pkr@back\endpspicture}}
%
% wrapper to be redefined bx back key
\newcommand\pkr@back{\pkr@backsimple}
%
% back style simple
\newcommand{\pkr@backsimple}{%
 \psframe[linewidth=0.3pt,
          shadow=\pkr@shad,
          blur=\pkr@shadblur,
          fillstyle=crosshatch,
          hatchangle=45,
          hatchsep=0.1,
          hatchwidth=0.02,
          fillcolor=\colorbackname,
          hatchcolor=white,
          framearc=0.1
         ](\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)%
}%
% back style suits
\newcommand{\pkr@backsuits}{%
 \psframe[linewidth=0.3pt,%
          fillstyle=solid,%
          fillcolor=white,%
          shadow=\pkr@shad,%
          blur=\pkr@shadblur,%
          framearc=0.1%
         ](\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)%
 \psframe[linewidth=0.3pt,%
          hatchangle=45,%
          hatchsep=0.08,%
          hatchwidth=0.04,%
          fillstyle=crosshatch,%
          linecolor=\colorbackname,%
          hatchcolor=\colorbackname%
         ](-1.25,0.25)(1.25,3.95)
 \psellipse[linewidth=0.2pt,%
          fillstyle=solid,%
          linecolor=\colorbackname,%
          fillcolor=white%
         ](0,3.1)(1,0.5)
 \psellipse[linewidth=0.2pt,%
          fillstyle=solid,%
          linecolor=\colorbackname,%
          fillcolor=white%
         ](0,1.1)(1,0.5)
 \rput[b](0,2.9){\psscaleboxto(1.6,0.4){\sffamily 
    \textcolor{\crd@Colors}{\pspade}\textcolor{\crd@Colord}{\pdiamond}%
    \textcolor{\crd@Colorc}{\pclub}\textcolor{\crd@Colorh}{\pheart}}}%
 \rput[b]{180}(0,1.3){\psscaleboxto(1.6,0.4){\sffamily 
    \textcolor{\crd@Colors}{\pspade}\textcolor{\crd@Colord}{\pdiamond}%
    \textcolor{\crd@Colorc}{\pclub}\textcolor{\crd@Colorh}{\pheart}}}%
}%
% back style spades
\newcommand{\pkr@spade}{%
  %\begin{pspicture}(0,0)(0.2,0.2)%
  \psscaleboxto(0.2,0.2){\textcolor{\colorbackname}{\sffamily\pspade}}%
  %\end{pspicture}%
}%
%
\newcommand{\pkr@backspades}{%
 \psboxfill{\pkr@spade}
 \psframe[linewidth=0.3pt,%
          shadow=\pkr@shad,%
          blur=\pkr@shadblur,%
          fillstyle=boxfill,%
          fillcycley=2,%
          fillloopaddx=8,%
          %PstDebug=1,%
          fillcolor=white,%
          %fillsize={(\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)},%
          framearc=0.1%
         ](\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)%
}%
% back style fournier
\newcommand{\fournier}{%
\begin{pspicture}(0,0)(0.28,0.28)%
\rput[bl]{36.9}(0.06,0){\psframe[linewidth=0.3pt,linecolor=\colorbackname](0,0)(0.1,0.1)}%
\rput[bl]{-126.9}(0.06,0.28){\psframe[linewidth=0.3pt,linecolor=\colorbackname](0,0)(0.1,0.1)}%
\rput[bl]{53.1}(0.22,0){\psframe[linewidth=0.3pt,linecolor=\colorbackname](0,0)(0.1,0.1)}%
\rput[bl]{216.9}(0.22,0.28){\psframe[linewidth=0.3pt,linecolor=\colorbackname](0,0)(0.1,0.1)}%
\end{pspicture}
}%
\newcommand{\pkr@backfournier}{%
 \psboxfill{\fournier}%
 \psframe[linewidth=0.3pt,%
          shadow=\pkr@shad,%
          blur=\pkr@shadblur,%
          fillstyle=boxfill,%
          fillcolor=white,%
          hatchcolor=\colorbackname,%
          PstDebug=1,%
          framearc=0.1%
         ](\pkr@cxl,\pkr@cyb)(\pkr@cxr,\pkr@cyt)%
}%
% define layout measurements
% poker sized jumbo index
\newcommand{\pkr@indexjumbo}{%
   \renewcommand{\pkr@cxl}{-1.5}%
   \renewcommand{\pkr@cxr}{1.5}%
   \renewcommand{\pkr@cyt}{4.2}%
   \renewcommand{\pkr@cyb}{0}%
   \renewcommand{\pkr@fxl}{-0.75}%
   \renewcommand{\pkr@fxr}{0.75}%
   \renewcommand{\pkr@fyt}{3.45}%
   \renewcommand{\pkr@fyb}{0.75}%
   \renewcommand{\pkr@ph}{0.6}%
   \renewcommand{\pkr@pw}{0.6}%
   \renewcommand{\pkr@pvh}{0.7}%
   \renewcommand{\pkr@pvw}{0.6}%
   \renewcommand{\pkr@pxl}{-1.125}%
   \renewcommand{\pkr@pxr}{1.125}%
   \renewcommand{\pkr@pytv}{3.35}%
   \renewcommand{\pkr@pyts}{3.25}%
   \renewcommand{\pkr@pybs}{0.95}%
   \renewcommand{\pkr@pybv}{0.85}%
   \renewcommand{\pkr@sh}{0.4}%
   \renewcommand{\pkr@sw}{0.4}%
   \renewcommand{\pkr@sxl}{-0.4}%
   \renewcommand{\pkr@sxm}{0}%
   \renewcommand{\pkr@sxr}{0.4}%
   \renewcommand{\pkr@syt}{2.95}%
   \renewcommand{\pkr@sytiii}{2.6}%
   \renewcommand{\pkr@sytii}{2.4}%
   \renewcommand{\pkr@syti}{2.25}%
   \renewcommand{\pkr@sym}{1.9}%
   \renewcommand{\pkr@sybi}{1.95}%
   \renewcommand{\pkr@sybii}{1.8}%
   \renewcommand{\pkr@sybiii}{1.6}%
   \renewcommand{\pkr@syb}{1.25}%
   \renewcommand{\pkr@ish}{0.4}%
   \renewcommand{\pkr@isw}{0.4}%
   \renewcommand{\pkr@isxl}{-0.55}%
   \renewcommand{\pkr@isxr}{0.55}%
   \renewcommand{\pkr@isyt}{2.95}%
   \renewcommand{\pkr@isyb}{1.25}%
   \renewcommand{\pkr@ih}{2.4}%
   \renewcommand{\pkr@iw}{1.5}%
   \renewcommand{\pkr@iy}{0.9}%
   \renewcommand{\pkr@kh}{0.2}%
   \renewcommand{\pkr@kw}{0.35}%
   \renewcommand{\pkr@kxl}{-1.35}%
   \renewcommand{\pkr@kxr}{1.35}%
   \renewcommand{\pkr@kyt}{3.8}%
   \renewcommand{\pkr@kyb}{0.4}%
}%
% poker sized regular index
\newcommand{\pkr@indexregular}{%
   \renewcommand{\pkr@cxl}{-1.5}%
   \renewcommand{\pkr@cxr}{1.5}%
   \renewcommand{\pkr@cyt}{4.2}%
   \renewcommand{\pkr@cyb}{0}%
   \renewcommand{\pkr@fxl}{-1}%
   \renewcommand{\pkr@fxr}{1}%
   \renewcommand{\pkr@fyt}{3.7}%
   \renewcommand{\pkr@fyb}{0.5}%
   \renewcommand{\pkr@ph}{0.35}%
   \renewcommand{\pkr@pw}{0.35}%
   \renewcommand{\pkr@pvh}{0.35}%
   \renewcommand{\pkr@pvw}{0.35}%
   \renewcommand{\pkr@pxl}{-1.25}%
   \renewcommand{\pkr@pxr}{1.25}%
   \renewcommand{\pkr@pytv}{3.7}%
   \renewcommand{\pkr@pyts}{3.6}%
   \renewcommand{\pkr@pybs}{0.6}%
   \renewcommand{\pkr@pybv}{0.5}%
   \renewcommand{\pkr@sh}{0.4}%
   \renewcommand{\pkr@sw}{0.4}%
   \renewcommand{\pkr@sxl}{-0.5}%
   \renewcommand{\pkr@sxm}{0}%
   \renewcommand{\pkr@sxr}{0.5}%
   \renewcommand{\pkr@syt}{3.1}%
   \renewcommand{\pkr@sytiii}{2.7}%
   \renewcommand{\pkr@sytii}{2.5}%
   \renewcommand{\pkr@syti}{2.3}%
   \renewcommand{\pkr@sym}{1.9}%
   \renewcommand{\pkr@sybi}{1.9}%
   \renewcommand{\pkr@sybii}{1.7}%
   \renewcommand{\pkr@sybiii}{1.5}%
   \renewcommand{\pkr@syb}{1.1}%
   \renewcommand{\pkr@ish}{0.5}%
   \renewcommand{\pkr@isw}{0.5}%
   \renewcommand{\pkr@isxl}{-0.7}%
   \renewcommand{\pkr@isxr}{0.7}%
   \renewcommand{\pkr@isyt}{3.1}%
   \renewcommand{\pkr@isyb}{1.1}%
   \renewcommand{\pkr@ih}{3.2}%
   \renewcommand{\pkr@iw}{2.0}%
   \renewcommand{\pkr@iy}{0.5}%
   \renewcommand{\pkr@kh}{0.2}%
   \renewcommand{\pkr@kw}{0.35}%
   \renewcommand{\pkr@kxl}{-1.35}%
   \renewcommand{\pkr@kxr}{1.35}%
   \renewcommand{\pkr@kyt}{3.8}%
   \renewcommand{\pkr@kyb}{0.4}%
}%
%
% draw pair of cards
\newcommand\crdpair[2]{%
  \begin{pspicture}(-1.7,-1)(2.7,4.6)
  \rput[b](0,0){#1}%
  \rput[b](1,-1){#2}%
  \end{pspicture}
}%
%
% draw three overlapped cards
\newcommand\crdflop[3]{%
  \begin{pspicture}(-1.7,0)(3.7,4.6)
  \rput[b](0,0){#1}%
  \rput[b](1,0){#2}%
  \rput[b](2,0){#3}%
  \end{pspicture}
}%

%
% presetting user keys to defaults
\psset[pst-poker]{inline=card,index=jumbo,corners=2,colorset=2c,
   framebg=beige,back=simple,backcolor=blue,crdshadow=blurred}
\psset{unit=5mm}
%
%
\endinput