# CardStack.itcl 
# 
#       Supposed to handle cardstacks. It doesn't handle any display things,
#       and not any user interaction or interface stuff.
# 
# $Id: CardStack.itcl,v 1.6 2006-04-13 10:45:05 matben Exp $

class CardStack {
        
    # ------------------
    # Class constructor.
    # ------------------

    protected {
	constructor {args} {}
	destructor {}
    }
    
    # --------------
    # Class methods.
    # --------------

    public {
	method MixCards {}
	method DrawCard {card}
	method Pop {}
	method PopAndMix {}
	method Image {card}
	method HalfImage {card}
	method CardSideFromImage {im}
	method NumberOfCards {}
	method TopCard {}
	method MakeTopmost {card}
    }

    # ----------------------
    # Private class methods.
    # ----------------------

    protected {
	method CreateCardImages {}
	method CreateEmptyPileImage {}
	method CreateHalfCardImages {}
    }

    # --------------
    # Static methods.
    # --------------

    private {
	proc CreateAllCards {}
	proc InitRand {}
	proc UnifRand {x}
    }
    
    # ----------------------
    # Configuration options.
    # ----------------------

    public {
	variable rule
    }

    # ---------------------------
    # Private class data members.
    # ---------------------------

    private {
	# BUG
	variable height 100
	variable width  100
	variable cardSet
	variable imgbase  ::img::card
	variable currHand {}
    }
    
    # ----------------------------
    # Private static data members.
    # ----------------------------

    private {
	common inited 0
	common cardsSorted
	common libDir      [file join [file dirname [info script]] cards]
    }
}

body CardStack::constructor {args} {

    if {!$inited} {
	InitRand
	CreateAllCards
	CreateCardImages
	CreateEmptyPileImage
	CreateHalfCardImages
	set inited 1
    }
    set currHand $cardsSorted
}

body CardStack::destructor {} {
    
    # We should delete images when no objects left.
    if {0} {
	if {[llength [itcl::find objects CardStack]] == 1} {
	    eval {image delete} [lsearch -inline -glob -all [image names] ${imgbase}::*]
	    set inited 0
	}
    }
}

body CardStack::CreateAllCards {} {
    
    set cardsSorted {}
    foreach value {k q j 0 9 8 7 6 5 4 3 2 a} {
	foreach suit {d h s c} {
	    lappend cardsSorted ${value}${suit}
	}
    }
}

body CardStack::CreateCardImages {} {
    
    set readCards 1
    source [file join $libDir tewi.tcl]
    set width  [image width ${imgbase}::back]
    set height [image height ${imgbase}::back]
}

body CardStack::CreateEmptyPileImage {} {
    
    set im [image create photo ${imgbase}::emptypile \
      -width $width -height $height]
    $im put black -to 0 0 $width $height
    return $im
}

body CardStack::CreateHalfCardImages {} {
    
    set h2 [expr {$height/2}]
    foreach card $cardsSorted {
	set im [image create photo ${imgbase}::${card}2 \
	  -width $width -height $height]
	$im copy ${imgbase}::${card}
	$im copy ${imgbase}::back -from 0 $h2 -to 0 $h2
    }
}

body CardStack::MixCards {} {

    set currHand {}
    set cards $cardsSorted
    set remaining [llength $cards]
    while {$remaining > 0} {
	set ind [UnifRand $remaining]
	lappend currHand [lindex $cards $ind]
	set cards [lreplace $cards $ind $ind]
	incr remaining -1
    }
}

body CardStack::DrawCard {card} {
    
    set ind [lsearch $currHand $card]
    if {$ind >= 0} {
	set currHand [lreplace $currHand $ind $ind]
    }
}

body CardStack::Pop {} {

    set card [lindex $currHand end]
    set currHand [lreplace $currHand end end]
    return $card
}

# CardStack::PopAndMix --
# 
#       Draws a random card from a possible ordered card stack.

body CardStack::PopAndMix {} {

    set remaining [llength $currHand]
    set ind [UnifRand $remaining]
    set card [lindex $currHand $ind]
    set currHand [lreplace $currHand $ind $ind]
    return $card
}

body CardStack::Image {card} {
    return ${imgbase}::${card}
}

body CardStack::HalfImage {card} {
    return ${imgbase}::${card}2
}

body CardStack::CardSideFromImage {im} {
    
    set side ""   
    switch -regexp $im {
	.+::back$ {
	    set side back
	}
	.+::[a-z0-9]{2}$ {
	    set side up
	}
	.+::[a-z0-9]{2}2$ {
	    set side half
	}
    }
    return $side
}

body CardStack::NumberOfCards {} {
    return [llength $currHand]
}

body CardStack::TopCard {} {
    return [lindex $currHand end]
}

body CardStack::MakeTopmost {card} {

    set ind [lsearch $currHand $card]
    if {$ind > 0} {
	set currHand [lrange $currHand 0 $ind]
    }
}

body CardStack::InitRand {} {    
    # empty
}

body CardStack::UnifRand {x} {    
    return [expr {int($x*rand())}]
}

