Using Jeff's HTML Bridge Macro Package dnl
divert(-1) 

# These are macros for building bridge diagrams in HTML.
# They are somewhat patterened after a set I stole for
# LaTeX.  I don't remember their origin.  See README for
# use details.

# image files 
define(`SIMG',s.gif) dnl
define(`HIMG',h.gif) dnl
define(`DIMG',d.gif) dnl
define(`CIMG',c.gif) dnl
define(`TIMG',table11.gif) dnl

# inline suit symbols during text 
define(`SPADE',<IMG SRC = SIMG ALT = "S:">) dnl
define(`HEART',<IMG SRC = HIMG ALT = "H:">) dnl
define(`DIAMOND',<IMG SRC = DIMG ALT = "D:">) dnl
define(`CLUB',<IMG SRC = CIMG ALT = "C:">) dnl

define(`CARD',`ifelse($2,,<nobr>SUITREPLACE($1)</nobr>,<nobr>SUITREPLACE($1)SUITREPLACE($2)</nobr>)')
define(`SUITREPLACE',`ifelse($1,Dbl,Dbl,
			     $1,Pass,Pass,
			     $1,All Pass,All Pass,
			     $1,dbl,dbl,
			     $1,pass,pass,
			     $1,all pass,all pass,
			     $1,All pass,All pass,
			     substr($1,0,1),S,SPADE{substr($1,1)},
			     substr($1,0,1),H,HEART{substr($1,1)},
			     substr($1,0,1),D,DIAMOND{substr($1,1)},
			     substr($1,0,1),C,CLUB{substr($1,1)},
                             substr($1,0,1),s,SPADE{substr($1,1)},
			     substr($1,0,1),h,HEART{substr($1,1)},
			     substr($1,0,1),d,DIAMOND{substr($1,1)},
			     substr($1,0,1),c,CLUB{substr($1,1)},
                             substr($1,eval(len($1)-1),1),S,{substr($1,0,eval(len($1)-1))}SPADE,
			     substr($1,eval(len($1)-1),1),H,{substr($1,0,eval(len($1)-1))}HEART,
		     	     substr($1,eval(len($1)-1),1),D,{substr($1,0,eval(len($1)-1))}DIAMOND,
		             substr($1,eval(len($1)-1),1),C,{substr($1,0,eval(len($1)-1))}CLUB,
                             substr($1,eval(len($1)-1),1),s,{substr($1,0,eval(len($1)-1))}SPADE,
			     substr($1,eval(len($1)-1),1),h,{substr($1,0,eval(len($1)-1))}HEART,
			     substr($1,eval(len($1)-1),1),d,{substr($1,0,eval(len($1)-1))}DIAMOND,
			     substr($1,eval(len($1)-1),1),c,{substr($1,0,eval(len($1)-1))}CLUB,
			     $1)')

# suit symbols for diagrams
define(`VSPADE',<IMG SRC = SIMG ALT = "S:">) dnl
define(`VHEART',<IMG SRC = HIMG ALT = "H:">) dnl
define(`VDIAMOND',<IMG SRC = DIMG ALT = "D:">) dnl
define(`VCLUB',<IMG SRC = CIMG ALT = "C:">) dnl

# the table marker
define(`TMARKER',<IMG SRC = TIMG WIDTH = 60 HEIGHT = 60>) dnl

# horizontal hands
define(`HHAND',<NOBR>`&#160;'SPADE$1 HEART$2 DIAMOND$3 CLUB$4</NOBR>) dnl

# vertical hands
define(`VHAND',VSPADE $1 `<br>'VHEART $2 `<br>'VDIAMOND $3 `<br>'VCLUB $4) dnl

# full hand diagrams
define(`HAND',<table><TR><TD></TD><TD>$1</TD><TD></TD></TR><TR><TD>$2`</TD><TD>'TMARKER`</TD><TD>'$3</TD></TR><TR><TD></TD><TD>$4</TD><TD></TD></TR></table>) dnl

# bidding: 2-player
define(`BIDHEAD',<table><tr><td><b>`ifelse($1,,North,$1)'</b></td><td><b>`ifelse($2,,South,$2)'</b></td></tr>) dnl
define(`BIDNAMES',<tr><td><i>`ifelse($1,,North,$1)'</i></td><td><i>`ifelse($2,,South,$2)'</i></td></tr>) dnl
define(`BIDROUND',`ifelse($1,,,<tr><td>CARD($1)</td><td>CARD($2)</td></tr>)') dnl
define(`BIDEND',</table>) dnl
define(`BIDDING',`BIDHEAD($1,$2)'`BIDROUND(shift(shift($@)))'`BIDROUND(shift(shift(shift(shift($@)))))'`BIDROUND(shift(shift(shift(shift(shift(shift($@)))))))'`BIDROUND(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))'`BIDROUND(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))))'`BIDEND') dnl

# old version
define(`OBIDHEAD',<table><tr><td><b>`ifelse($1,,North,$1)'</b></td><td><b>`ifelse($2,,South,$2)'</b></td></tr>) dnl
define(`OBIDNAMES',<tr><td><i>`ifelse($1,,North,$1)'</i></td><td><i>`ifelse($2,,South,$2)'</i></td></tr>) dnl
define(`OBIDROUND',`ifelse($1,,,<tr><td>$1</td><td>$2</td></tr>)') dnl
define(`OBIDEND',</table>) dnl
define(`OBIDDING',`OBIDHEAD($1,$2)'`OBIDROUND(shift(shift($@)))'`OBIDROUND(shift(shift(shift(shift($@)))))'`OBIDROUND(shift(shift(shift(shift(shift(shift($@)))))))'`OBIDROUND(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))'`OBIDROUND(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))))'`OBIDEND') dnl

# bidding: 4-player
define(`BID4HEAD',<table><tr><td><b>`ifelse($1,,North,$1)'</b></td><td><b>`ifelse($2,,East,$2)'</b></td><td><b>`ifelse($3,,South,$3)'</b></td><td><b>`ifelse($4,,West,$4)'</b></td></tr>) dnl
define(`BID4NAMES',<tr><td><i>`ifelse($1,,North,$1)'</i></td><td><i>`ifelse($2,,East,$2)'</i></td><td><i>`ifelse($3,,South,$3)'</i></td><td><i>`ifelse($4,,West,$4)'</i></td></tr>) dnl
define(`BID4ROUND',`ifelse(CARD($1),,,<tr><td>CARD($1)</td><td>CARD($2)</td><td>CARD($3)</td><td>CARD($4)</td></tr>)') dnl
define(`BID4END',</table>) dnl
define(`BID4',`BID4HEAD($1,$2,$3,$4)'`BID4ROUND(shift(shift(shift(shift($@)))))'
`BID4ROUND(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))'
`BID4ROUND(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))))))'
`BID4END') dnl

# old version
define(`OBID4HEAD',<table><tr><td><b>`ifelse($1,,North,$1)'</b></td><td><b>`ifelse($2,,East,$2)'</b></td><td><b>`ifelse($3,,South,$3)'</b></td><td><b>`ifelse($4,,West,$4)'</b></td></tr>) dnl
define(`OBID4NAMES',<tr><td><i>`ifelse($1,,North,$1)'</i></td><td><i>`ifelse($2,,East,$2)'</i></td><td><i>`ifelse($3,,South,$3)'</i></td><td><i>`ifelse($4,,West,$4)'</i></td></tr>) dnl
define(`OBID4ROUND',`ifelse($1,,,<tr><td>$1</td><td>$2</td><td>$3</td><td>$4</td></tr>)') dnl
define(`OBID4END',</table>) dnl
define(`OBID4',`OBID4HEAD($1,$2,$3,$4)'`OBID4ROUND(shift(shift(shift(shift($@)))))'
`OBID4ROUND(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))'
`OBID4ROUND(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift(shift($@)))))))))))))'
`OBID4END') dnl

# suit combination
define(`SUIT',
<table>
<tr><td><i>Dummy</i></td></tr>
<tr><td>$1</td></tr>
<tr><td></td></tr>
<tr><td><i>Declarer</i></td></tr>
<tr><td>$2</td></tr>
</table>) dnl

# miscellany

define(`FOOTNOTE',<sup><font size = 1>$1</sup></font>)
define(`OLDPANELIST',<dt><i>$*</i><dd>)
define(`PANELIST',<dt>SMCAPS($*)<dd>)
define(`SMCAPS',`UPCASE(substr($1,0,1))<font size = -2>UPCASE(substr($1,1))</font>')
define(`UPCASE',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
define(`DOWNCASE',`translit($1,ABCDEFGHIJKLMNOPQRSTUVWXYZ,abcdefghijklmnopqrstuvwxyz)')

# try to avoid some collisions
undefine(`define')
undefine(`include')
undefine(`index')
changequote({,})
changecom
divert dnl