corwin/card-game.el
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Rummy games: full SVG board (stock, discard, melds, fanned hand)

Browse source 
* cg-rummy.el (cg-rummy--board-svg): shared board helper -- stock/discard,
a melds table, and the hand with cursor/marks/lay-off hints and
(hand . INDEX) click regions.  (cg-gin--svg, cg-gin--render-text): Gin
dispatch.  * cg-rum500.el (cg-tm--svg, cg-tm--render-text): table-meld
dispatch (Rummy and Rummy 500).  (cg-render): SVG if graphical, else text.
* test/card-games-tests.el: add cgt-gin-svg-smoke, cgt-tm-svg-smoke.
* NEWS: note the rummy SVG board.
This commit is contained in:
Corwin Brust 2026-07-01 04:31:02 -05:00
parent 98b297d149
commit 585c4449a0
4 changed files with 177 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

32
cg-rum500.el
View file

@ -351,8 +351,38 @@ Deep-pickup games show the whole pile with depth indices (0 = top)."
:ace-high (cg-tm--ace-high game)))
(cg-get game :table))))
(defun cg-tm--svg (game)
"Return an SVG board for the table-meld GAME."
(let* ((scores (cg-get game :scores)) (laid (cg-get game :laid))
(meldp (oref game score-style)))
(cg-rummy--board-svg
:title (format "%s (target %d)" (oref game vname) (oref game target))
:infos (let (out)
(dotimes (s (cg-get game :nplayers))
(unless (= s 0)
(push (format "Player %d: %d cards score %d%s"
s (length (cg-rummy--hand game s)) (aref scores s)
(if (eq meldp 'meld-points)
(format " laid %d" (aref laid s)) ""))
out)))
(nreverse out))
:melds (mapcar (lambda (rec)
(cons (if (= (car rec) 0) "you" (format "P%d" (car rec)))
(cdr rec)))
(cg-get game :table))
:discard (cg-rummy--top game) :stock (length (cg-get game :stock))
:hand (cg-rummy--hand game 0) :cursor (cg-get game :cursor)
:marks (cg-get game :marks) :hint-fn (cg-tm--layoff-hint game)
:message (cg-get game :message))))
(cl-defmethod cg-render ((game cg-tablemeld-game))
"Return a propertized depiction of the table-meld GAME."
"Return a depiction of the table-meld GAME: SVG board if graphical, else text."
(if (and cg-rummy-svg-cards (display-graphic-p))
(cg-tm--svg game)
(cg-tm--render-text game)))
(defun cg-tm--render-text (game)
"Return a plain-text depiction of the table-meld GAME."
(let* ((out '()) (scores (cg-get game :scores))
(laid (cg-get game :laid)) (meldp (oref game score-style))
(hand (cg-rummy--hand game 0)) (cursor (cg-get game :cursor)))