glimmer_klondike_solitaire 1.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 54d996d4a509aa9da6b6600c54ba8bc464969ed0acf1b6e28f26ebf0ce534d81
+  data.tar.gz: 0a1617a8b1d5215a01a3945c637189f04e0a97c94634dbc5a4572fdb6cda3761
+SHA512:
+  metadata.gz: bc27a4a541277bfc2bff4a9d54730839c8ebfc0bcc8565493836fc808b68a6fd60b5c19be583167b7368256b7b9ec3008269c195e7075065b1724a3ac1e1ae28
+  data.tar.gz: 6897ce772b1b1df41c8d83a89a4d4ba67b3278eada7ead56b699da14fcb8262b1e691f66a9a0b6106e82895865aab3daf7512d3c4d8d22b10ea217ee965dfafb

data/LICENSE.txt

@@ -0,0 +1,7 @@
+Copyright (c) 2021 Andy Maleh
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,41 @@
+# <img alt="Glimmer Tetris Icon" src="https://raw.githubusercontent.com/AndyObtiva/glimmer_klondike_solitaire/master/package/linux/Glimmer%20Klondike%20Solitaire.png" height=85 /> Glimmer Klondike Solitaire
+
+## [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=40 /> Glimmer Application](https://github.com/AndyObtiva/glimmer-dsl-swt)
+
+[Glimmer DSL for SWT](https://github.com/AndyObtiva/glimmer-dsl-swt) External Sample.
+
+![Klondike Solitaire Screenshot](/images/glimmer-klondike-soliatire.png)
+
+Note: this was built in one week only and currently suffers from performance issues, but is fully playable otherwise.
+
+<img alt="Glimmer Klondike Solitaire Icon" src="https://raw.githubusercontent.com/AndyObtiva/glimmer_klondike_solitaire/master/package/linux/Glimmer%20Klondike%20Solitaire.png" height=40 /> [Download v1.0.1 for the Mac (x64 Big Sur and older)](https://www.dropbox.com/s/h6ntl5wma1xs6bz/Glimmer%20Klondike%20Solitaire-1.0.1.dmg?dl=1)
+
+Contributing to glimmer_klondike_solitaire
+------------------------------------------
+
+-   Check out the latest master to make sure the feature hasn't been
+    implemented or the bug hasn't been fixed yet.
+-   Check out the issue tracker to make sure someone already hasn't
+    requested it and/or contributed it.
+-   Fork the project.
+-   Start a feature/bugfix branch.
+-   Commit and push until you are happy with your contribution.
+-   Make sure to add tests for it. This is important so I don't break it
+    in a future version unintentionally.
+-   Please try not to mess with the Rakefile, version, or history. If
+    you want to have your own version, or is otherwise necessary, that
+    is fine, but please isolate to its own commit so I can cherry-pick
+    around it.
+
+Copyright
+---------
+
+[MIT](LICENSE.txt)
+
+Copyright (c) 2021 Andy Maleh
+
+--
+
+[<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=40 />](https://github.com/AndyObtiva/glimmer) Built with [Glimmer](https://github.com/AndyObtiva/glimmer)
+
+Logo was made by <a href="https://www.flaticon.com/authors/freepik" title="Freepik">Freepik</a> from <a href="https://www.flaticon.com/" title="Flaticon"> www.flaticon.com</a>

data/VERSION

@@ -0,0 +1 @@
+1.0.1

data/app/glimmer_klondike_solitaire.rb

@@ -0,0 +1,34 @@
+$LOAD_PATH.unshift(File.expand_path('..', __FILE__))
+
+begin
+  require 'bundler/setup'
+  Bundler.require(:default)
+rescue
+  # this runs when packaged as a gem (no bundler)
+  require 'glimmer-dsl-swt'
+  # add more gems if needed
+end
+  
+require 'glimmer_klondike_solitaire/model/playing_card'
+
+class GlimmerKlondikeSolitaire
+  include Glimmer
+  
+  APP_ROOT = File.expand_path('../..', __FILE__)
+  VERSION = File.read(File.join(APP_ROOT, 'VERSION'))
+  LICENSE = File.read(File.join(APP_ROOT, 'LICENSE.txt'))
+  PLAYING_CARD_MARGIN = 10
+  PLAYING_CARD_WIDTH = 106
+  PLAYING_CARD_HEIGHT = 162
+  PLAYING_CARD_SPACING = 5
+  PLAYING_CARD_COLUMN_SPACING = 35
+  
+  IMAGES = Model::PlayingCard::SUITS.reduce({}) do |hash, suit|
+    hash.merge(suit => 1.upto(13).reduce({}) do |suit_hash, rank|
+      suit_hash.merge(rank => image(File.join(APP_ROOT, 'images', 'resized', "#{rank}#{suit.to_s[0].upcase}.png")))
+    end)
+  end
+  IMAGE_BACK = image(File.join(APP_ROOT, 'images', 'resized', 'BACK.png'))
+end
+
+require 'glimmer_klondike_solitaire/view/app_view'

data/app/glimmer_klondike_solitaire/launch.rb

@@ -0,0 +1,3 @@
+require_relative '../glimmer_klondike_solitaire'
+
+GlimmerKlondikeSolitaire::View::AppView.launch

data/app/glimmer_klondike_solitaire/model/column_pile.rb

@@ -0,0 +1,60 @@
+class GlimmerKlondikeSolitaire
+  module Model
+    class ColumnPile
+      include Glimmer::DataBinding::ObservableModel
+      attr_reader :count
+    
+      def initialize(game, count)
+        @game = game
+        @count = count
+        reset!
+      end
+      
+      def reset!
+        playing_cards.clear
+        populate!(count.times.map { @game.deck.pop })
+        notify_observers(:playing_cards)
+      end
+    
+      # this method does not validate
+      def populate!(new_playing_cards)
+        new_playing_cards.each_with_index do |playing_card, index|
+          playing_card.hidden = true if index < (new_playing_cards.size - 1)
+          playing_cards.push(playing_card)
+        end
+      end
+      
+      # this method validates that playing card fits at the bottom of the column (opposite color and one number smaller)
+      # throws an error if it does not fit
+      def add!(new_playing_card)
+        bottom_card = playing_cards.last
+        if (playing_cards.empty? && new_playing_card.rank == 13) ||
+            (new_playing_card.color != bottom_card.color && new_playing_card.rank == (bottom_card.rank - 1))
+          playing_cards.push(new_playing_card)
+        else
+          raise "Cannot add #{new_playing_card} to #{self}"
+        end
+      end
+      
+      def remove!(card)
+        remove_cards_starting_at(playing_cards.index(card)).tap do |result|
+          playing_cards.last&.hidden = false
+        end
+      end
+      
+      def remove_cards_starting_at(index)
+        removed_cards = playing_cards[index...playing_cards.size]
+        playing_cards[index...playing_cards.size] = []
+        removed_cards
+      end
+      
+      def playing_cards
+        @playing_cards ||= []
+      end
+      
+      def to_s
+        "Column Pile #{count} (#{playing_cards.map {|card| "#{card.rank}#{card.suit.to_s[0].upcase}"}.join(" | ")})"
+      end
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/model/dealing_pile.rb

@@ -0,0 +1,33 @@
+class GlimmerKlondikeSolitaire
+  module Model
+    class DealingPile
+      DEALING_INITIAL_COUNT = 24
+      
+      def initialize(game)
+        @game = game
+        reset!
+      end
+      
+      def reset!
+        playing_cards.clear
+        DEALING_INITIAL_COUNT.times { playing_cards << @game.deck.pop }
+      end
+
+      def deal!
+        playing_card = playing_cards.shift
+        if playing_card.nil?
+          @game.dealt_pile.playing_cards.each do |a_playing_card|
+            playing_cards << a_playing_card
+          end
+          @game.dealt_pile.playing_cards.clear
+        else
+          @game.dealt_pile.push!(playing_card)
+        end
+    end
+      
+      def playing_cards
+        @playing_cards ||= []
+      end
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/model/dealt_pile.rb

@@ -0,0 +1,25 @@
+class GlimmerKlondikeSolitaire
+  module Model
+    class DealtPile
+      def initialize(game)
+        @game = game
+      end
+      
+      def reset!
+        playing_cards.clear
+      end
+    
+      def push!(playing_card)
+        playing_cards.push(playing_card)
+      end
+      
+      def remove!(card)
+        playing_cards.delete(card)
+      end
+      
+      def playing_cards
+        @playing_cards ||= []
+      end
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/model/foundation_pile.rb

@@ -0,0 +1,40 @@
+class GlimmerKlondikeSolitaire
+  module Model
+    class FoundationPile
+      attr_reader :suit
+    
+      def initialize(game, suit)
+        @game = game
+        @suit = suit
+        reset!
+      end
+      
+      def reset!
+        playing_cards.clear
+      end
+    
+      # adds a card
+      # validates if it is a card that belongs to the suit
+      def add!(playing_card)
+        if playing_card.suit == suit &&
+          (
+            (playing_cards.empty? && playing_card.rank == 1) ||
+            playing_card.rank == (playing_cards.last.rank + 1)
+          )
+          playing_cards.push(playing_card)
+        else
+          raise "Cannot add #{playing_card} to #{self}"
+        end
+      end
+      
+      def playing_cards
+        @playing_cards ||= []
+      end
+            
+      def to_s
+        "Foundation Pile #{suit} (#{playing_cards.map {|card| "#{card.rank}#{card.suit.to_s[0].upcase}"}.join(" | ")})"
+      end
+      
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/model/game.rb

@@ -0,0 +1,37 @@
+require_relative 'playing_card'
+require_relative 'dealt_pile'
+require_relative 'dealing_pile'
+require_relative 'column_pile'
+require_relative 'foundation_pile'
+
+class GlimmerKlondikeSolitaire
+  module Model
+    class Game
+      COLUMN_PILE_COUNT = 7
+        
+      attr_reader :deck, :dealing_pile, :dealt_pile, :column_piles, :foundation_piles
+      
+      def initialize
+        @deck = new_deck
+        @dealt_pile = DealtPile.new(self)
+        @dealing_pile = DealingPile.new(self)
+        @column_piles = COLUMN_PILE_COUNT.times.map {|n| ColumnPile.new(self, n + 1)}
+        @foundation_piles = PlayingCard::SUITS.map {|suit| FoundationPile.new(self, suit)}
+      end
+                  
+      def restart!
+        @deck = new_deck
+        @dealt_pile.reset!
+        @dealing_pile.reset!
+        @column_piles.each(&:reset!)
+        @foundation_piles.each(&:reset!)
+      end
+        
+      private
+      
+      def new_deck
+        PlayingCard.deck.shuffle
+      end
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/model/playing_card.rb

@@ -0,0 +1,50 @@
+class GlimmerKlondikeSolitaire
+  module Model
+    class PlayingCard
+      SUITS = [:spades, :hearts, :clubs, :diamonds]
+      BLACK_SUITS = [:spades, :clubs]
+      RED_SUITS = [:hearts, :diamonds]
+      RANK_COUNT = 13
+      
+      class << self
+        def deck
+          suit_decks.flatten
+        end
+        
+        def suit_decks
+          SUITS.map do |suit|
+            suit_deck(suit)
+          end
+        end
+        
+        def suit_deck(suit)
+          1.upto(RANK_COUNT).map do |rank|
+            new(rank, suit)
+          end
+        end
+      end
+      
+      attr_reader :rank, :suit
+      attr_accessor :hidden
+      alias hidden? hidden
+      
+      def initialize(rank, suit, hidden = false)
+        @rank = rank
+        @suit = suit
+        @hidden = hidden
+      end
+      
+      def color
+        if BLACK_SUITS.include?(suit)
+          :black
+        elsif RED_SUITS.include?(suit)
+          :red
+        end
+      end
+      
+      def to_s
+        "Playing Card #{rank}#{suit.to_s[0].upcase}"
+      end
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/view/action_panel.rb

@@ -0,0 +1,34 @@
+require 'glimmer_klondike_solitaire/model/game'
+
+class GlimmerKlondikeSolitaire
+  module View
+    class ActionPanel
+      include Glimmer::UI::CustomWidget
+
+      option :game
+      
+      body {
+        composite {
+          grid_layout(1, false) {
+            margin_width 10
+            margin_height 0
+            margin_top 10
+            margin_bottom 5
+          }
+          
+          background :dark_green
+          
+          button {
+            layout_data :center, :center, true, false
+            
+            text 'Restart Game'
+            
+            on_widget_selected {
+              game.restart!
+            }
+          }
+        }
+      }
+    end
+  end
+end

data/app/glimmer_klondike_solitaire/view/app_view.rb

@@ -0,0 +1,84 @@
+require_relative 'tableau'
+require_relative 'action_panel'
+
+class GlimmerKlondikeSolitaire
+  module View
+    class AppView
+      include Glimmer::UI::CustomShell
+    
+      before_body {
+        @game = Model::Game.new
+        Display.app_name = 'Glimmer Klondike Solitaire'
+        Display.app_version = VERSION
+        @display = display {
+          on_about {
+            display_about_dialog
+          }
+          on_preferences {
+            display_preferences_dialog
+          }
+        }
+      }
+  
+      body {
+        shell {
+          row_layout(:vertical) {
+            fill true
+            center true
+            margin_width 0
+            margin_height 0
+          }
+          minimum_size 2*PLAYING_CARD_MARGIN + 7*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING) - PLAYING_CARD_SPACING, 700 + PLAYING_CARD_MARGIN
+          image File.join(APP_ROOT, 'package', 'linux', "Glimmer Klondike Solitaire.png")
+          text "Glimmer Klondike Solitaire"
+          background :dark_green
+        
+          action_panel(game: @game)
+          tableau(game: @game) {
+            layout_data {
+              width 2*PLAYING_CARD_MARGIN + 7*(PLAYING_CARD_WIDTH + PLAYING_CARD_SPACING) - PLAYING_CARD_SPACING
+              height 700 + PLAYING_CARD_MARGIN
+            }
+          }
+          
+          menu_bar {
+            menu {
+              text '&Game'
+              menu_item {
+                text '&Restart'
+                accelerator OS.mac? ? :command : :ctrl, :r
+                on_widget_selected {
+                  @game.restart!
+                }
+              }
+              menu_item {
+                text 'E&xit'
+                accelerator :alt, :f4
+                on_widget_selected {
+                  exit(0)
+                }
+              }
+            }
+            menu {
+              text '&Help'
+              menu_item {
+                text '&About...'
+                on_widget_selected {
+                  display_about_dialog
+                }
+              }
+            }
+          }
+        }
+      }
+  
+      def display_about_dialog
+        message_box(body_root) {
+          text 'About'
+          message "Glimmer Klondike Solitaire #{VERSION}\n\n#{LICENSE}"
+        }.open
+      end
+      
+    end
+  end
+end