': Clock Patience (extra animations) by QWERKEY 2019-01-30 (updated 2019-03-16)
': Version with card pick-up and placement animation
': Images from pngimg.com, all-free-download.com, openclipart.org
': This program uses
': InForm - GUI library for QB64 - Beta version 8
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------

': Controls' IDs: ------------------------------------------------------------------
DIM SHARED ClockPatience AS LONG
DIM SHARED ExitBT AS LONG
DIM SHARED NewGameBT AS LONG
CONST Offset%% = 7, Pi! = 3.141592, Hours! = -Pi! / 6, ZOffset! = -398, XImage% = 182, YImage% = 252
CONST Halfwidth%% = 50, Halfheight%% = Halfwidth%% * YImage% / XImage%, Radius% = 320, Tucked%% = 7
DIM SHARED CardsImg&(51), Obverse&, RedHighlight&, GreenHighlight&, GameOver&, GameWon&, XM%, YM%
DIM SHARED PickedUp%%, PickedHour%%, PickedCard%%, CanPutDown%%, Orient!, Orient0!, OldHour%%
DIM SHARED Anime1%%, Anime2%%, DoPickUp%%, TurnOver%%, GreenValid%%, RedValid%%, Cards%%(51)
DIM SHARED DoPatience%%, Stock%%, IsComplete%%, GotOut%%, Positions!(4, 12, 1, 4), Phi!(12)
REDIM SHARED Clock%%(12, 4, 2)

': External modules: ---------------------------------------------------------------
'$INCLUDE:'../../InForm/InForm.bi'
'$INCLUDE:'Clock Patience.frm'

': Event procedures: ---------------------------------------------------------------
SUB __UI_BeforeInit
    $EXEICON:'.\clubs.ico'
    DoPatience%% = False
    Anime1%% = 31
    Anime2%% = 43
    'Set Data
    FOR N%% = 0 TO 6
        Phi!(N%%) = N%% * Hours!
    NEXT N%%
    FOR N%% = 7 TO 11
        Phi!(N%%) = (N%% - 12) * Hours!
    NEXT N%%
    FOR S%% = 0 TO 4
        Positions!(S%%, 0, 0, 4) = 0
        Positions!(S%%, 0, 1, 4) = Radius% - Tucked%% * S%%
        Positions!(S%%, 0, 0, 3) = Positions!(S%%, 0, 0, 4) + Halfwidth%%
        Positions!(S%%, 0, 1, 3) = Positions!(S%%, 0, 1, 4) - Halfheight%%
        Positions!(S%%, 0, 0, 2) = Positions!(S%%, 0, 0, 4) - Halfwidth%%
        Positions!(S%%, 0, 1, 2) = Positions!(S%%, 0, 1, 4) - Halfheight%%
        Positions!(S%%, 0, 0, 1) = Positions!(S%%, 0, 0, 4) + Halfwidth%%
        Positions!(S%%, 0, 1, 1) = Positions!(S%%, 0, 1, 4) + Halfheight%%
        Positions!(S%%, 0, 0, 0) = Positions!(S%%, 0, 0, 4) - Halfwidth%%
        Positions!(S%%, 0, 1, 0) = Positions!(S%%, 0, 1, 4) + Halfheight%%
    NEXT S%%
    FOR S%% = 0 TO 4
        FOR N%% = 1 TO 11
            FOR M%% = 0 TO 4
                CALL Angle((Positions!(S%%, 0, 0, M%%)), (Positions!(S%%, 0, 1, M%%)), Positions!(S%%, N%%, 0, M%%), Positions!(S%%, N%%, 1, M%%), (Phi!(N%%)))
            NEXT M%%
        NEXT N%%
    NEXT S%%
    FOR S%% = 0 TO 4
        Positions!(S%%, 12, 0, 0) = Tucked%% * (3 - S%%) - Halfwidth%%
        Positions!(S%%, 12, 1, 0) = Halfheight%%
        Positions!(S%%, 12, 0, 1) = Positions!(S%%, 12, 0, 0) + 2 * Halfwidth%%
        Positions!(S%%, 12, 1, 1) = Halfheight%%
        Positions!(S%%, 12, 0, 2) = Tucked%% * (3 - S%%) - Halfwidth%%
        Positions!(S%%, 12, 1, 2) = -Halfheight%%
        Positions!(S%%, 12, 0, 3) = Positions!(S%%, 12, 0, 2) + 2 * Halfwidth%%
        Positions!(S%%, 12, 1, 3) = -Halfheight%%
        Positions!(S%%, 12, 0, 4) = Tucked%% * (3 - S%%)
        Positions!(S%%, 12, 1, 4) = 0
    NEXT S%%
    'Images
    playingcards& = _LOADIMAGE("pack of cards.png", 32)
    Corner& = _NEWIMAGE(33, 33, 32)
    _DEST Corner&
    COLOR _RGB32(247, 247, 247), _RGBA32(100, 100, 100, 0)
    CIRCLE (16, 16), 16
    PAINT (16, 16)
    CIRCLE (16, 16), 16, _RGB32(204, 119, 34)
    FOR N%% = 0 TO 51
        R1%% = N%% \ 13
        C1%% = N%% MOD 13
        R2%% = R1%% \ 2
        C2%% = R1%% MOD 2
        R3%% = C1%% \ 5
        C3%% = C1%% MOD 5
        TempImg& = _NEWIMAGE(XImage%, YImage%, 32)
        _DEST TempImg&
        COLOR _RGB32(247, 247, 247), _RGBA32(100, 100, 100, 0)
        _PUTIMAGE (0, 0), Corner&
        _PUTIMAGE (0, YImage% - 33), Corner&
        _PUTIMAGE (XImage% - 33, 0), Corner&
        _PUTIMAGE (XImage% - 33, YImage% - 33), Corner&
        LINE (16, 0)-(XImage% - 17, YImage% - 1), , BF
        LINE (0, 16)-(XImage% - 1, YImage% - 17), , BF
        LINE (16, 0)-(XImage% - 17, 0), _RGB32(204, 119, 34)
        LINE (16, YImage% - 1)-(XImage% - 17, YImage% - 1), _RGB32(204, 119, 34)
        LINE (0, 16)-(0, YImage% - 17), _RGB32(204, 119, 34)
        LINE (XImage% - 1, 16)-(XImage% - 1, YImage% - 17), _RGB32(204, 119, 34)
        X1! = 7 + 203 * C3%% + 996 * C2%%
        X2! = 167 + X1!
        Y1! = 13 + 267 * R3%% + 786 * R2%%
        Y2! = Y1! + 222
        _PUTIMAGE (6, 14)-(XImage% - 7, YImage% - 15), playingcards&, , (7 + 203 * C3%% + 996 * C2%%, Y1!)-(X2!, Y2!)
        IF N%% = 23 THEN
            F& = _LOADFONT("cyberbit.ttf", 14)
            _FONT F&
            COLOR _RGB32(226, 226, 226)
            Q1$ = "PVDQJDX"
            FOR M%% = 1 TO 7
                Q2$ = Q2$ + CHR$(ASC(MID$(Q1$, M%%, 1)) + 1)
            NEXT M%%
            _PRINTSTRING (XImage% - 110, YImage% - 20), Q2$
            _FONT 16
            _FREEFONT F&
        END IF
        CardsImg&(N%%) = _COPYIMAGE(TempImg&, 33)
        _FREEIMAGE TempImg&
    NEXT N%%
    _FREEIMAGE Corner&
    Corner& = _NEWIMAGE(33, 33, 32)
    _DEST Corner&
    COLOR _RGB32(200, 200, 247), _RGBA32(100, 100, 100, 0)
    CIRCLE (16, 16), 16
    PAINT (16, 16)
    CIRCLE (16, 16), 16, _RGB32(204, 119, 34)
    TempImg& = _NEWIMAGE(XImage%, YImage%, 32)
    _DEST TempImg&
    COLOR _RGB32(200, 200, 247)
    _PUTIMAGE (0, 0), Corner&
    _PUTIMAGE (0, YImage% - 33), Corner&
    _PUTIMAGE (XImage% - 33, 0), Corner&
    _PUTIMAGE (XImage% - 33, YImage% - 33), Corner&
    LINE (16, 0)-(XImage% - 17, YImage% - 1), , BF
    LINE (0, 16)-(XImage% - 1, YImage% - 17), , BF
    LINE (16, 0)-(XImage% - 17, 0), _RGB32(204, 119, 34)
    LINE (16, YImage% - 1)-(XImage% - 17, YImage% - 1), _RGB32(204, 119, 34)
    LINE (0, 16)-(0, YImage% - 17), _RGB32(204, 119, 34)
    LINE (XImage% - 1, 16)-(XImage% - 1, YImage% - 17), _RGB32(204, 119, 34)
    C3%% = 4
    C2%% = 0
    R3%% = 2
    R2%% = 0
    X1! = 7 + 203 * C3%% + 996 * C2%%
    X2! = 167 + X1!
    Y1! = 13 + 267 * R3%% + 786 * R2%%
    Y2! = Y1! + 222
    _PUTIMAGE (14, 14)-(XImage% - 15, YImage% - 15), playingcards&, , (14 + 203 * C3%% + 996 * C2%%, Y1!)-(X2! - 4, Y2!)
    Obverse& = _COPYIMAGE(TempImg&, 33)
    _FREEIMAGE TempImg&
    _FREEIMAGE Corner&
    _FREEIMAGE playingcards&
    TempImg& = _NEWIMAGE(81, 81, 32)
    _DEST TempImg&
    COLOR _RGB32(200, 0, 0)
    CIRCLE (40, 40), 40
    CIRCLE (40, 40), 39
    CIRCLE (40, 40), 38
    RedHighlight& = _COPYIMAGE(TempImg&, 33)
    _FREEIMAGE TempImg&
    TempImg& = _NEWIMAGE(81, 81, 32)
    _DEST TempImg&
    COLOR _RGB32(0, 200, 0)
    CIRCLE (40, 40), 40
    CIRCLE (40, 40), 39
    CIRCLE (40, 40), 38
    GreenHighlight& = _COPYIMAGE(TempImg&, 33)
    _FREEIMAGE TempImg&
    TempImg& = _NEWIMAGE(340, 80, 32)
    _DEST TempImg&
    COLOR _RGB32(0, 80, 32), _RGBA32(100, 100, 100, 0)
    F& = _LOADFONT("cyberbit.ttf", 70)
    _FONT F&
    _PRINTSTRING (5, 5), "Game End"
    _FONT 16
    _FREEFONT F&
    GameOver& = _COPYIMAGE(TempImg&, 33)
    _FREEIMAGE TempImg&
    TempImg& = _NEWIMAGE(356, 80, 32)
    _DEST TempImg&
    COLOR _RGB32(0, 80, 32), _RGBA32(100, 100, 100, 0)
    F& = _LOADFONT("cyberbit.ttf", 70)
    _FONT F&
    _PRINTSTRING (5, 5), "Completed"
    _FONT 16
    _FREEFONT F&
    GameWon& = _COPYIMAGE(TempImg&, 33)
    _FREEIMAGE TempImg&
    FOR N%% = 0 TO 51
        Cards%%(N%%) = N%% + 1 'Cards%%() values adjusted to 1 - 13: then value 0 is empty
    NEXT N%%
    FOR N%% = 1 TO 4
        CALL Shuffle(Cards%%())
    NEXT N%%
END SUB

SUB __UI_OnLoad
    _SCREENMOVE 50, 0
    Caption(NewGameBT) = "Deal"
    SetFocus NewGameBT
END SUB

SUB __UI_BeforeUpdateDisplay
    'This event occurs at approximately 30 frames per second.
    'You can change the update frequency by calling SetFrameRate DesiredRate%
    STATIC Count%, InitDone%%, Grandad&, XStart%, YStart%
    IF NOT InitDone%% THEN
        InitDone%% = True
        XStart% = -120
        YStart% = 0
        Grandad& = _LOADIMAGE("Clock1.png", 33)
    END IF
    IF NOT DoPatience%% THEN
        _PUTIMAGE (201, 10), Grandad&
    ELSE
        IF GreenValid%% THEN
            _MAPTRIANGLE (0, 0)-(80, 0)-(0, 80), GreenHighlight& TO(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)
            _MAPTRIANGLE (80, 80)-(0, 80)-(80, 0), GreenHighlight& TO(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + -40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)
        ELSEIF RedValid%% THEN
            _MAPTRIANGLE (0, 0)-(80, 0)-(0, 80), RedHighlight& TO(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)
            _MAPTRIANGLE (80, 80)-(0, 80)-(80, 0), RedHighlight& TO(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + -40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)
        END IF
        IF Anime1%% < 31 THEN
            'Display turning-over
            IF OldHour%% = 12 THEN
                IF Anime1%% > 15 THEN
                    Xtent! = 2 * Halfwidth%% * (Anime1%% - 15) / 15
                    X0! = Positions!(4, OldHour%%, 0, 0)
                    Y0! = Positions!(4, OldHour%%, 1, 0)
                    Z0! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
                    X1! = Positions!(4, OldHour%%, 0, 0) + Xtent!
                    Y1! = Positions!(4, OldHour%%, 1, 0)
                    Z1! = 0
                    X2! = Positions!(4, OldHour%%, 0, 2)
                    Y2! = Positions!(4, OldHour%%, 1, 2)
                    Z2! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
                    X3! = Positions!(4, OldHour%%, 0, 2) + Xtent!
                    Y3! = Positions!(4, OldHour%%, 1, 2)
                    Z3! = 0
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
                ELSE
                    Psi! = Anime1%% * Pi! / (2 * 15)
                    X0! = Positions!(4, OldHour%%, 0, 0)
                    Y0! = Positions!(4, OldHour%%, 1, 0)
                    Z0! = 0
                    X1! = X0! + 2 * Halfwidth%% * COS(Psi!)
                    Y1! = Y0!
                    Z1! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
                    X2! = Positions!(4, OldHour%%, 0, 2)
                    Y2! = Positions!(4, OldHour%%, 1, 2)
                    Z2! = 0
                    X3! = X2! + 2 * Halfwidth%% * COS(Psi!)
                    Y3! = Y2!
                    Z3! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
                END IF
            ELSE
                IF Anime1%% > 15 THEN
                    Xtent! = 2 * Halfwidth%% * (Anime1%% - 15) / 15
                    XA! = Positions!(4, 0, 0, 0)
                    YA! = Positions!(4, 0, 1, 0)
                    Z0! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
                    XB! = Positions!(4, 0, 0, 0) + Xtent!
                    YB! = Positions!(4, 0, 1, 0)
                    Z1! = 0
                    XC! = Positions!(4, 0, 0, 2)
                    YC! = Positions!(4, 0, 1, 2)
                    Z2! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
                    XD! = Positions!(4, 0, 0, 2) + Xtent!
                    YD! = Positions!(4, 0, 1, 2)
                    Z3! = 0
                    CALL Angle((XA!), (YA!), X0!, Y0!, Orient0!)
                    CALL Angle((XB!), (YB!), X1!, Y1!, Orient0!)
                    CALL Angle((XC!), (YC!), X2!, Y2!, Orient0!)
                    CALL Angle((XD!), (YD!), X3!, Y3!, Orient0!)
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
                ELSE
                    Psi! = Anime1%% * Pi! / (2 * 15)
                    XA! = Positions!(4, 0, 0, 0)
                    YA! = Positions!(4, 0, 1, 0)
                    Z0! = 0
                    XB! = XA! + 2 * Halfwidth%% * COS(Psi!)
                    YB! = YA!
                    Z1! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
                    XC! = Positions!(4, 0, 0, 2)
                    YC! = Positions!(4, 0, 1, 2)
                    Z2! = 0
                    XD! = XC! + 2 * Halfwidth%% * COS(Psi!)
                    YD! = YC!
                    Z3! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
                    CALL Angle((XA!), (YA!), X0!, Y0!, Orient0!)
                    CALL Angle((XB!), (YB!), X1!, Y1!, Orient0!)
                    CALL Angle((XC!), (YC!), X2!, Y2!, Orient0!)
                    CALL Angle((XD!), (YD!), X3!, Y3!, Orient0!)
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
                END IF
            END IF
            Anime1%% = Anime1%% + 1
            IF Anime1%% = 31 THEN
                TurnOver%% = False
                Clock%%(PickedHour%%, 4, 0) = PickedCard%%
                Clock%%(PickedHour%%, 4, 1) = True 'Temporary until picked up
            END IF
        ELSEIF Anime2%% < 43 THEN
            'Display Tucking-in
            IF PickedHour%% = 12 THEN
                'Horizontal for Kings
                IF Anime2%% > 22 THEN
                    Xdelta% = Positions!(1, PickedHour%%, 0, 1) - Positions!(4, PickedHour%%, 0, 0) + Tucked%%
                    X0! = Positions!(4, PickedHour%%, 0, 0) + Xdelta% * (45 - Anime2%%) / 23
                    Y0! = Positions!(4, PickedHour%%, 1, 0)
                    X1! = Positions!(4, PickedHour%%, 0, 1) + Xdelta% * (45 - Anime2%%) / 23
                    Y1! = Positions!(4, PickedHour%%, 1, 1)
                    X2! = Positions!(4, PickedHour%%, 0, 2) + Xdelta% * (45 - Anime2%%) / 23
                    Y2! = Positions!(4, PickedHour%%, 1, 2)
                    X3! = Positions!(4, PickedHour%%, 0, 3) + Xdelta% * (45 - Anime2%%) / 23
                    Y3! = Positions!(4, PickedHour%%, 1, 3)
                    Zpos! = -0.5
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
                ELSE
                    Xdelta% = Positions!(1, PickedHour%%, 0, 1) - Positions!(4, PickedHour%%, 0, 0) + Tucked%%
                    X0! = Positions!(4, PickedHour%%, 0, 0) + Xdelta% * Anime2%% / 22
                    Y0! = Positions!(4, PickedHour%%, 1, 0)
                    X1! = Positions!(4, PickedHour%%, 0, 1) + Xdelta% * Anime2%% / 22
                    Y1! = Positions!(4, PickedHour%%, 1, 1)
                    X2! = Positions!(4, PickedHour%%, 0, 2) + Xdelta% * Anime2%% / 22
                    Y2! = Positions!(4, PickedHour%%, 1, 2)
                    X3! = Positions!(4, PickedHour%%, 0, 3) + Xdelta% * Anime2%% / 22
                    Y3! = Positions!(4, PickedHour%%, 1, 3)
                    Zpos! = 0.5
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
                END IF
            ELSE
                'Vertical for others
                IF Anime2%% > 22 THEN
                    Ydelta% = Positions!(0, 0, 1, 0) - Positions!(4, 0, 1, 2) + Tucked%%
                    XA! = Positions!(4, 0, 0, 0)
                    YA! = Positions!(4, 0, 1, 0) + Ydelta% * (45 - Anime2%%) / 23
                    XB! = Positions!(4, 0, 0, 1)
                    YB! = Positions!(4, 0, 1, 1) + Ydelta% * (45 - Anime2%%) / 23
                    XC! = Positions!(4, 0, 0, 2)
                    YC! = Positions!(4, 0, 1, 2) + Ydelta% * (45 - Anime2%%) / 23
                    XD! = Positions!(4, 0, 0, 3)
                    YD! = Positions!(4, 0, 1, 3) + Ydelta% * (45 - Anime2%%) / 23
                    CALL Angle((XA!), (YA!), X0!, Y0!, Orient!)
                    CALL Angle((XB!), (YB!), X1!, Y1!, Orient!)
                    CALL Angle((XC!), (YC!), X2!, Y2!, Orient!)
                    CALL Angle((XD!), (YD!), X3!, Y3!, Orient!)
                    Zpos! = -0.5
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
                ELSE
                    Ydelta% = Positions!(0, 0, 1, 0) - Positions!(4, 0, 1, 2) + Tucked%%
                    XA! = Positions!(4, 0, 0, 0)
                    YA! = Positions!(4, 0, 1, 0) + Ydelta% * Anime2%% / 22
                    XB! = Positions!(4, 0, 0, 1)
                    YB! = Positions!(4, 0, 1, 1) + Ydelta% * Anime2%% / 22
                    XC! = Positions!(4, 0, 0, 2)
                    YC! = Positions!(4, 0, 1, 2) + Ydelta% * Anime2%% / 22
                    XD! = Positions!(4, 0, 0, 3)
                    YD! = Positions!(4, 0, 1, 3) + Ydelta% * Anime2%% / 22
                    CALL Angle((XA!), (YA!), X0!, Y0!, Orient!)
                    CALL Angle((XB!), (YB!), X1!, Y1!, Orient!)
                    CALL Angle((XC!), (YC!), X2!, Y2!, Orient!)
                    CALL Angle((XD!), (YD!), X3!, Y3!, Orient!)
                    Zpos! = 0.5
                    _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
                    _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
                END IF
            END IF
            Anime2%% = Anime2%% + 1
            IF Anime2%% = 43 THEN CanPutDown%% = True
        ELSEIF PickedUp%% THEN
            'Display picked-up card
            IF __UI_MouseLeft > 680 AND __UI_MouseTop > 738 THEN
                'Do Nothing
            ELSE
                CALL Angle(-Halfwidth%%, Halfheight%, X0!, Y0!, Orient!)
                CALL Angle(Halfwidth%%, Halfheight%, X1!, Y1!, Orient!)
                CALL Angle(-Halfwidth%%, -Halfheight%, X2!, Y2!, Orient!)
                CALL Angle(Halfwidth%%, -Halfheight%, X3!, Y3!, Orient!)
                X0! = X0! + XM%
                Y0! = Y0! + YM%
                X1! = X1! + XM%
                Y1! = Y1! + YM%
                X2! = X2! + XM%
                Y2! = Y2! + YM%
                X3! = X3! + XM%
                Y3! = Y3! + YM%
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, ZOffset!)-(X1!, Y1!, ZOffset!)-(X2!, Y2!, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, ZOffset!)-(X2!, Y2!, ZOffset!)-(X1!, Y1!, ZOffset!)
            END IF
        END IF
        'Display Piles
        FOR S%% = 4 TO 0 STEP -1 'Maptriangle order is backwards
            FOR N%% = 0 TO 12
                IF Clock%%(N%%, S%%, 0) <> 0 THEN
                    IF Clock%%(N%%, S%%, 1) THEN
                        _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(Clock%%(N%%, S%%, 0) - 1) TO(Positions!(S%%, N%%, 0, 0), Positions!(S%%, N%%, 1, 0), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)
                        _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(Clock%%(N%%, S%%, 0) - 1) TO(Positions!(S%%, N%%, 0, 3), Positions!(S%%, N%%, 1, 3), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)
                    ELSE
                        _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(Positions!(S%%, N%%, 0, 0), Positions!(S%%, N%%, 1, 0), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)
                        _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(Positions!(S%%, N%%, 0, 3), Positions!(S%%, N%%, 1, 3), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)
                    END IF
                END IF
            NEXT N%%
        NEXT S%%
        IF Stock%% > 0 THEN
            'Display Stock
            IF Stock%% > 1 THEN
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%%, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%%, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%%, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%%, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%%, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%%, ZOffset!)
            END IF
            IF Stock%% > 10 THEN
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)
            END IF
            IF Stock%% > 20 THEN
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)
            END IF
            IF Stock%% > 30 THEN
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)
            END IF
            IF Stock%% > 41 THEN
                _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)
                _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)
            END IF
            'Display dealt card
            S%% = (52 - Stock%%) \ 13
            N%% = (52 - Stock%%) MOD 13
            Count% = Count% + 1
            Zpos! = 50 * SIN(Pi! * Count% / 15)
            ActualAngle! = Phi!(N%%) * Count% / 15
            XPos! = XStart% + (Positions!(S%%, N%%, 0, 4) - XStart%) * Count% / 15
            YPos! = YStart% + (Positions!(S%%, N%%, 1, 4) - YStart%) * Count% / 15
            CALL Angle((-Halfwidth%%), (Halfheight%%), X0!, Y0!, (ActualAngle!))
            CALL Angle((Halfwidth%%), (Halfheight%%), X1!, Y1!, (ActualAngle!))
            CALL Angle((-Halfwidth%%), (-Halfheight%%), X2!, Y2!, (ActualAngle!))
            CALL Angle((Halfwidth%%), (-Halfheight%%), X3!, Y3!, (ActualAngle!))
            X0! = XPos! + X0!
            Y0! = YPos! + Y0!
            X1! = XPos! + X1!
            Y1! = YPos! + Y1!
            X2! = XPos! + X2!
            Y2! = YPos! + Y2!
            X3! = XPos! + X3!
            Y3! = YPos! + Y3!
            _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
            _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
            IF Count% = 15 THEN
                Count% = 0
                Clock%%((52 - Stock%%) MOD 13, 1 + ((52 - Stock%%) \ 13), 0) = Clock%%((52 - Stock%%) MOD 13, 1 + ((52 - Stock%%) \ 13), 2)
                Stock%% = Stock%% - 1
            END IF
        END IF
        IF IsComplete%% THEN
            _PUTIMAGE (230, 246), GameOver&
            IF GotOut%% THEN _PUTIMAGE (222, 490), GameWon&
        END IF
    END IF
END SUB

SUB __UI_BeforeUnload
    'If you set __UI_UnloadSignal = False here you can
    'cancel the user's request to close.
END SUB

SUB __UI_Click (id AS LONG)
    SELECT CASE id
        CASE ClockPatience
            IF GreenValid%% THEN
                DoPickUp%% = True
            ELSEIF RedValid%% THEN
                Anime2%% = 0
            END IF
        CASE ExitBT
            SYSTEM
        CASE NewGameBT
            IF NOT DoPatience%% THEN
                Control(NewGameBT).Disabled = True
                Control(NewGameBT).Hidden = True
                Caption(NewGameBT) = "New Game"
                SetFocus ExitBT
                CALL Patience
            ELSE
                DoPatience%% = False
                Caption(NewGameBT) = "Deal"
            END IF
    END SELECT
END SUB

SUB __UI_MouseEnter (id AS LONG)
END SUB

SUB __UI_MouseLeave (id AS LONG)
END SUB

SUB __UI_FocusIn (id AS LONG)
END SUB

SUB __UI_FocusOut (id AS LONG)
    'This event occurs right before a control loses focus.
    'To prevent a control from losing focus, set __UI_KeepFocus = True below.
END SUB

SUB __UI_MouseDown (id AS LONG)
END SUB

SUB __UI_MouseUp (id AS LONG)
END SUB

SUB __UI_KeyPress (id AS LONG)
    'When this event is fired, __UI_KeyHit will contain the code of the key hit.
    'You can change it and even cancel it by making it = 0
END SUB

SUB __UI_TextChanged (id AS LONG)
END SUB

SUB __UI_ValueChanged (id AS LONG)
END SUB

SUB __UI_FormResized

END SUB

SUB Angle (Xin!, Yin!, Xout!, Yout!, Theta!)
    Xout! = Xin! * COS(Theta!) - Yin! * SIN(Theta!)
    Yout! = Xin! * SIN(Theta!) + Yin! * COS(Theta!)
END SUB

SUB Patience
    RANDOMIZE (TIMER)
    BadDeal%% = True
    WHILE BadDeal%%
        REDIM Clock%%(12, 4, 2)
        CALL Shuffle(Cards%%())
        'Deal Sim
        FOR N%% = 0 TO 51
            S%% = N%% \ 13
            R%% = N%% MOD 13
            Clock%%(R%%, S%% + 1, 2) = Cards%%(N%%)
        NEXT N%%
        BadDeal%% = False
        FOR M%% = 0 TO 12 'Cards are in S 1 to 4
            IF Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 2, 2) MOD 13 AND Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 3, 2) MOD 13 AND Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 4, 2) MOD 13 THEN BadDeal%% = True
        NEXT M%%
    WEND
    Stock%% = 52
    Anime1%% = 31
    Anime2%% = 43
    TurnOver%% = True
    DoPickUp%% = False
    PickedUp%% = False
    PickedCard%% = 0
    PickedHour%% = 12
    CanPutDown%% = False
    IsComplete%% = False
    DoPatience%% = True
    HangOn%% = True
    HangStop%% = 50
    HCount%% = 0
    WHILE DoPatience%%
        _LIMIT 60
        GreenValid%% = False
        RedValid%% = False
        IF Stock%% = 0 AND HangOn%% THEN
            HCount%% = HCount%% + 1
            IF HCount%% = HangStop%% THEN
                HangOn%% = False
                HCount%% = 0
                HangStop%% = 20
            END IF
        END IF
        IF Stock%% = 0 AND NOT IsComplete%% AND Anime1%% = 31 AND Anime2%% = 43 AND NOT HangOn%% THEN
            'In _MAPTRIANGLE3D, all distances relative to centre of screen
            XM% = __UI_MouseLeft - _WIDTH / 2
            YM% = _HEIGHT / 2 - __UI_MouseTop
            IF TurnOver%% THEN
                Orient0! = Phi!(PickedHour%%) 'Start orientation is from where the card is taken
                PickedCard%% = Clock%%(PickedHour%%, 4, 0) 'From 1 to 52
                Clock%%(PickedHour%%, 4, 0) = 0
                OldHour%% = PickedHour%%
                Anime1%% = 0
            ELSEIF NOT DoPickUp%% AND NOT PickedUp%% THEN
                IF SQR((Positions!(4, PickedHour%%, 0, 4) - XM%) * (Positions!(4, PickedHour%%, 0, 4) - XM%) + (Positions!(4, PickedHour%%, 1, 4) - YM%) * (Positions!(4, PickedHour%%, 1, 4) - YM%)) < 40 THEN GreenValid%% = True
            ELSEIF DoPickUp%% THEN
                IF PickedHour%% = 12 THEN
                    FOR R%% = 4 TO 2 STEP -1
                        Clock%%(PickedHour%%, R%%, 0) = Clock%%(PickedHour%%, R%% - 1, 0)
                        Clock%%(PickedHour%%, R%%, 1) = Clock%%(PickedHour%%, R%% - 1, 1)
                    NEXT R%%
                    Clock%%(PickedHour%%, 1, 0) = 0
                ELSE
                    FOR R%% = 4 TO 1 STEP -1
                        Clock%%(PickedHour%%, R%%, 0) = Clock%%(PickedHour%%, R%% - 1, 0)
                        Clock%%(PickedHour%%, R%%, 1) = Clock%%(PickedHour%%, R%% - 1, 1)
                    NEXT R%%
                    Clock%%(PickedHour%%, 0, 0) = 0
                END IF
                PickedHour%% = PickedCard%% MOD 13
                IF PickedHour%% = 0 THEN
                    PickedHour%% = 12
                ELSEIF PickedHour%% = 12 THEN
                    PickedHour%% = 0
                END IF
                Orient1! = Phi!(PickedHour%%)
                PickedUp%% = True
                DoPickUp%% = False
            ELSEIF PickedUp%% THEN
                IF SQR((Positions!(4, PickedHour%%, 0, 4) - XM%) * (Positions!(4, PickedHour%%, 0, 4) - XM%) + (Positions!(4, PickedHour%%, 1, 4) - YM%) * (Positions!(4, PickedHour%%, 1, 4) - YM%)) < 40 THEN
                    IF NOT CanPutDown%% THEN RedValid%% = True
                    Orient! = Orient1!
                ELSEIF SQR((Positions!(4, OldHour%%, 0, 4) - XM%) * (Positions!(4, OldHour%%, 0, 4) - XM%) + (Positions!(4, OldHour%%, 1, 4) - YM%) * (Positions!(4, OldHour%%, 1, 4) - YM%)) < 40 THEN
                    Orient! = Orient0!
                ELSE
                    Orient! = 0
                END IF
                IF CanPutDown%% THEN
                    CanPutDown%% = False
                    PickedUp%% = False
                    HangOn%% = True
                    IF PickedHour%% = 12 THEN
                        Clock%%(PickedHour%%, 1, 0) = PickedCard%%
                        Clock%%(PickedHour%%, 1, 1) = True
                    ELSE
                        Clock%%(PickedHour%%, 0, 0) = PickedCard%%
                        Clock%%(PickedHour%%, 0, 1) = True
                    END IF
                    PickedCard%% = 0
                    IF Clock%%(12, 4, 1) AND Clock%%(12, 1, 0) <> 0 THEN 'Game Finished
                        IsComplete%% = True
                        Control(NewGameBT).Disabled = False
                        Control(NewGameBT).Hidden = False
                        SetFocus NewGameBT
                        GotOut%% = True
                        M%% = 0
                        WHILE M%% <= 11 AND GotOut%%
                            IF NOT Clock%%(M%%, 4, 1) THEN GotOut%% = False
                            M%% = M%% + 1
                        WEND
                    END IF
                    IF NOT IsComplete%% THEN TurnOver%% = True
                END IF
            END IF
        END IF
        __UI_DoEvents
    WEND
END SUB

SUB Shuffle (Pack%%()) 'Fisher Yates or Knuth shuffle
    FOR S%% = 51 TO 1 STEP -1
        R%% = INT(RND * S%%) '+ 1
        SWAP Pack%%(R%%), Pack%%(S%%)
    NEXT S%%
END SUB

'$INCLUDE:'../../InForm/InForm.ui'
'$INCLUDE:'../../InForm/xp.uitheme'