glimmer-dsl-libui 0.2.16 → 0.2.17

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 8a31446583d7ac10399c0049f7735ad4de97be8142d71acb34bc97606e945754
-  data.tar.gz: d613addf5ba20feb610d43531288d9c50080d42f2873c14e5195d59b48735021
+  metadata.gz: d6e095fec39866bb2bfe5b9d1295a642dfaea6d8014c0fe99e56d038435a4589
+  data.tar.gz: c884e58ae378f0a453f0f40ec5e5f61f96b786894eeabf74d954c3fd58329d41
 SHA512:
-  metadata.gz: c6bcfd1c455419275e95922115f8e82b9b0918834eab9ad1bf9b975d4ada823806c8822cc9b5f09b032673caca53f8084abed53d53e642d76b13deaa7ad11347
-  data.tar.gz: d149dc38cfa8456b4557d351ca25e0968daf20dc0a52b0faa9ee66ef2b1f046da8002bd7bf06dd154f1754730a2adc0b4796eb13172ef0cfa040bc1b0dd421a7
+  metadata.gz: b4148815da2f069acc297de2b882277cb0026ff2cb9f8175a78e0d8b54cabaec6afc03db5a3be1b8abca89ba3b29727c5b9b0aa3f3b659ae4e36838074eaed9c
+  data.tar.gz: 255e3885c541a8bb73a5887ef21e1ec2dcbd8a288c07973cf7c3ae6e17dd31121fa784fc2e8af0a8b5c0ed974831e59ca752f3617a1821c6ec73e0faf6489b8e

data/CHANGELOG.md

@@ -1,5 +1,9 @@
 # Change Log
 
+## 0.2.17
+
+- Tetris example - basic version with simple color squares
+
 ## 0.2.16
 
 - Document all examples with Windows screenshots

data/README.md

@@ -1,4 +1,4 @@
-# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for LibUI 0.2.16
+# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for LibUI 0.2.17
 ## Prerequisite-Free Ruby Desktop Development GUI Library
 [![Gem Version](https://badge.fury.io/rb/glimmer-dsl-libui.svg)](http://badge.fury.io/rb/glimmer-dsl-libui)
 [![Join the chat at https://gitter.im/AndyObtiva/glimmer](https://badges.gitter.im/AndyObtiva/glimmer.svg)](https://gitter.im/AndyObtiva/glimmer?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
@@ -284,6 +284,7 @@ Other [Glimmer](https://rubygems.org/gems/glimmer) DSL gems you might be interes
     - [Basic Draw Text](#basic-draw-text)
     - [Custom Draw Text](#custom-draw-text)
     - [Method-Based Custom Keyword](#method-based-custom-keyword)
+    - [Tetris](#tetris)
   - [Applications](#applications)
     - [Manga2PDF](#manga2pdf)
     - [Befunge98 GUI](#befunge98-gui)
@@ -376,7 +377,7 @@ gem install glimmer-dsl-libui
 Or install via Bundler `Gemfile`:
 
 ```ruby
-gem 'glimmer-dsl-libui', '~> 0.2.16'
+gem 'glimmer-dsl-libui', '~> 0.2.17'
 ```
 
 Add `require 'glimmer-dsl-libui'` at the top, and then `include Glimmer` into the top-level main object for testing or into an actual class for serious usage.
@@ -1076,6 +1077,7 @@ window('Method-Based Custom Keyword') {
 - `table` controls on Windows intentionally get an extra empty row at the end because if any row were to be deleted for the first time, double-deletion happens due to an issue in [libui](https://github.com/andlabs/libui) on Windows.
 - `table` `progress_bar` column on Windows cannot be updated with a positive value if it started initially with `-1` (it ignores update to avoid crashing due to an issue in [libui](https://github.com/andlabs/libui) on Windows.
 - It seems that [libui](https://github.com/andlabs/libui) does not support nesting multiple `area` controls under a `grid` as only the first one shows up in that scenario. To workaround that limitation, use a `vertical_box` with nested `horizontal_box`s instead to include multiple `area`s in a GUI.
+- As per the code of [examples/basic_transform.rb](#basic-transform), Windows requires different ordering of transforms than Mac and Linux.
 
 ### Original API
 
@@ -6198,6 +6200,134 @@ window('Method-Based Custom Keyword') {
 }.show
 ```
 
+### Tetris
+
+[examples/tetris.rb](examples/tetris.rb)
+
+Run with this command from the root of the project if you cloned the project:
+
+```
+ruby -r './lib/glimmer-dsl-libui' examples/tetris.rb
+```
+
+Run with this command if you installed the [Ruby gem](https://rubygems.org/gems/glimmer-dsl-libui):
+
+```
+ruby -r glimmer-dsl-libui -e "require 'examples/tetris'"
+```
+
+Mac
+
+![glimmer-dsl-libui-mac-tetris.png](images/glimmer-dsl-libui-mac-tetris.png)
+
+New [Glimmer DSL for LibUI](https://rubygems.org/gems/glimmer-dsl-libui) Version:
+
+```ruby
+require 'glimmer-dsl-libui'
+
+require_relative 'tetris/model/game'
+
+class Tetris
+  include Glimmer
+  
+  BLOCK_SIZE = 25
+  BEVEL_CONSTANT = 20
+    
+  attr_reader :game
+  
+  def initialize
+    @game = Model::Game.new
+    create_gui
+    register_observers
+  end
+  
+  def launch
+    @game.start!
+    @main_window.show
+  end
+  
+  def create_gui
+    @main_window = window('Glimmer Tetris', Model::Game::PLAYFIELD_WIDTH * BLOCK_SIZE, Model::Game::PLAYFIELD_HEIGHT * BLOCK_SIZE) {
+      playfield(playfield_width: Model::Game::PLAYFIELD_WIDTH, playfield_height: Model::Game::PLAYFIELD_HEIGHT, block_size: BLOCK_SIZE)
+    }
+  end
+  
+  def register_observers
+    Glimmer::DataBinding::Observer.proc do |game_over|
+      if game_over
+        show_game_over_dialog
+      else
+        start_moving_tetrominos_down
+      end
+    end.observe(@game, :game_over)
+    
+    Model::Game::PLAYFIELD_HEIGHT.times do |row|
+      Model::Game::PLAYFIELD_HEIGHT.times do |column|
+        Glimmer::DataBinding::Observer.proc do |new_color|
+          @blocks[row][column].fill = new_color
+        end.observe(@game.playfield[row][column], :color)
+      end
+    end
+  end
+  
+  def playfield(playfield_width: , playfield_height: , block_size: )
+    area {
+      @blocks = playfield_height.times.map do |row|
+        playfield_width.times.map do |column|
+          block(row: row, column: column, block_size: block_size)
+        end
+      end
+      
+      on_key_down do |key_event|
+        case key_event
+        in ext_key: :down
+          game.down!
+        in ext_key: :up
+          case game.up_arrow_action
+          when :instant_down
+            game.down!(instant: true)
+          when :rotate_right
+            game.rotate!(:right)
+          when :rotate_left
+            game.rotate!(:left)
+          end
+        in ext_key: :left
+          game.left!
+        in ext_key: :right
+          game.right!
+        in modifier: :shift
+          game.rotate!(:right)
+        in modifier: :control
+          game.rotate!(:left)
+        else
+          # Do Nothing
+        end
+      end
+    }
+  end
+  
+  def block(row: , column: , block_size: )
+    path {
+      square(column * block_size, row * block_size, block_size)
+      
+      fill Model::Block::COLOR_CLEAR
+    }
+  end
+  
+  def start_moving_tetrominos_down
+    Glimmer::LibUI.timer(@game.delay) do
+      @game.down! if !@game.game_over? && !@game.paused?
+    end
+  end
+  
+  def show_game_over_dialog
+    msg_box('Game Over', "Score: #{@game.high_scores.first.score}")
+  end
+end
+
+Tetris.new.launch
+```
+
 ## Applications
 
 Here are some applications built with [Glimmer DSL for LibUI](https://rubygems.org/gems/glimmer-dsl-libui)

data/VERSION

@@ -1 +1 @@
-0.2.16
+0.2.17

data/examples/meta_example.rb

@@ -11,7 +11,7 @@ class MetaExample
   
   def examples
     if @examples.nil?
-      example_files = Dir.glob(File.join(File.expand_path('.', __dir__), '**', '*.rb'))
+      example_files = Dir.glob(File.join(File.expand_path('.', __dir__), '*.rb'))
       example_file_names = example_files.map { |f| File.basename(f, '.rb') }
       example_file_names = example_file_names.reject { |f| f == 'meta_example' || f.match(/\d$/) }
       @examples = example_file_names.map { |f| f.underscore.titlecase }
@@ -110,6 +110,8 @@ class MetaExample
                   FileUtils.mkdir_p(parent_dir)
                   example_file = File.join(parent_dir, "#{selected_example.underscore}.rb")
                   File.write(example_file, @code_entry.text)
+                  example_supporting_directory = File.expand_path(selected_example.underscore, __dir__)
+                  FileUtils.cp_r(example_supporting_directory, parent_dir) if Dir.exist?(example_supporting_directory)
                   FileUtils.cp_r(File.expand_path('../icons', __dir__), File.dirname(parent_dir))
                   FileUtils.cp_r(File.expand_path('../sounds', __dir__), File.dirname(parent_dir))
                   run_example(example_file)

data/examples/tetris/model/block.rb

@@ -0,0 +1,48 @@
+# Copyright (c) 2007-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.
+
+class Tetris
+  module Model
+    class Block
+      COLOR_CLEAR = :white
+    
+      attr_accessor :color
+      
+      # Initializes with color. Default color (gray) signifies an empty block
+      def initialize(color = COLOR_CLEAR)
+        @color = color
+      end
+      
+      # Clears block color. `quietly` option indicates if it should not notify observers by setting value quietly via variable not attribute writer.
+      def clear
+        self.color = COLOR_CLEAR unless self.color == COLOR_CLEAR
+      end
+      
+      def clear?
+        self.color == COLOR_CLEAR
+      end
+      
+      def occupied?
+        !clear?
+      end
+    end
+  end
+end

data/examples/tetris/model/game.rb

@@ -0,0 +1,306 @@
+# Copyright (c) 2007-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.
+
+require 'fileutils'
+require 'json'
+require 'glimmer/data_binding/observer'
+require 'glimmer/config'
+
+require_relative 'block'
+require_relative 'tetromino'
+require_relative 'past_game'
+
+class Tetris
+  module Model
+    class Game
+      PLAYFIELD_WIDTH = 10
+      PLAYFIELD_HEIGHT = 20
+      PREVIEW_PLAYFIELD_WIDTH = 4
+      PREVIEW_PLAYFIELD_HEIGHT = 2
+      SCORE_MULTIPLIER = {1 => 40, 2 => 100, 3 => 300, 4 => 1200}
+      
+      attr_reader :playfield_width, :playfield_height
+      attr_accessor :game_over, :paused, :preview_tetromino, :lines, :score, :level, :high_scores, :beeping, :added_high_score, :show_high_scores, :up_arrow_action
+      alias game_over? game_over
+      alias paused? paused
+      alias beeping? beeping
+      alias added_high_score? added_high_score
+      
+      def initialize(playfield_width = PLAYFIELD_WIDTH, playfield_height = PLAYFIELD_HEIGHT)
+        @playfield_width = playfield_width
+        @playfield_height = playfield_height
+        @high_scores = []
+        @show_high_scores = false
+        @beeping = true
+        @up_arrow_action = :rotate_left
+        load_high_scores!
+      end
+      
+      def configure_beeper(&beeper)
+        @beeper = beeper
+      end
+      
+      def game_in_progress?
+        !game_over? && !paused?
+      end
+      
+      def start!
+        self.show_high_scores = false
+        self.paused = false
+        self.level = 1
+        self.score = 0
+        self.lines = 0
+        reset_playfield
+        reset_preview_playfield
+        reset_tetrominoes
+        preview_next_tetromino!
+        consider_adding_tetromino
+        self.game_over = false
+      end
+      alias restart! start!
+      
+      def game_over!
+        add_high_score!
+        beep
+        self.game_over = true
+      end
+      
+      def clear_high_scores!
+        high_scores.clear
+      end
+      
+      def add_high_score!
+        self.added_high_score = true
+        high_scores.prepend(PastGame.new("Player #{high_scores.count + 1}", score, lines, level))
+      end
+      
+      def save_high_scores!
+        high_score_file_content = @high_scores.map {|past_game| past_game.to_a.join("\t") }.join("\n")
+        FileUtils.mkdir_p(tetris_dir)
+        File.write(tetris_high_score_file, high_score_file_content)
+      rescue => e
+        # Fail safely by keeping high scores in memory if unable to access disk
+        Glimmer::Config.logger.error {"Failed to save high scores in: #{tetris_high_score_file}\n#{e.full_message}"}
+      end
+      
+      def load_high_scores!
+        if File.exist?(tetris_high_score_file)
+          self.high_scores = File.read(tetris_high_score_file).split("\n").map {|line| PastGame.new(*line.split("\t")) }
+        end
+      rescue => e
+        # Fail safely by keeping high scores in memory if unable to access disk
+        Glimmer::Config.logger.error {"Failed to load high scores from: #{tetris_high_score_file}\n#{e.full_message}"}
+      end
+      
+      def tetris_dir
+        @tetris_dir ||= File.join(File.expand_path('~'), '.glimmer-tetris')
+      end
+      
+      def tetris_high_score_file
+        File.join(tetris_dir, "high_scores.txt")
+      end
+      
+      def down!(instant: false)
+        return unless game_in_progress?
+        current_tetromino.down!(instant: instant)
+        game_over! if current_tetromino.row <= 0 && current_tetromino.stopped?
+      end
+      
+      def right!
+        return unless game_in_progress?
+        current_tetromino.right!
+      end
+      
+      def left!
+        return unless game_in_progress?
+        current_tetromino.left!
+      end
+      
+      def rotate!(direction)
+        return unless game_in_progress?
+        current_tetromino.rotate!(direction)
+      end
+      
+      def current_tetromino
+        tetrominoes.last
+      end
+    
+      def tetrominoes
+        @tetrominoes ||= reset_tetrominoes
+      end
+      
+      # Returns blocks in the playfield
+      def playfield
+        @playfield ||= @original_playfield = @playfield_height.times.map do
+          @playfield_width.times.map do
+            Block.new
+          end
+        end
+      end
+      
+      # Executes a hypothetical scenario without truly changing playfield permanently
+      def hypothetical(&block)
+        @playfield = hypothetical_playfield
+        block.call
+        @playfield = @original_playfield
+      end
+      
+      # Returns whether currently executing a hypothetical scenario
+      def hypothetical?
+        @playfield != @original_playfield
+      end
+      
+      def hypothetical_playfield
+        @playfield_height.times.map { |row|
+          @playfield_width.times.map { |column|
+            playfield[row][column].clone
+          }
+        }
+      end
+      
+      def preview_playfield
+        @preview_playfield ||= PREVIEW_PLAYFIELD_HEIGHT.times.map {|row|
+          PREVIEW_PLAYFIELD_WIDTH.times.map {|column|
+            Block.new
+          }
+        }
+      end
+      
+      def preview_next_tetromino!
+        self.preview_tetromino = Tetromino.new(self)
+      end
+      
+      def calculate_score!(eliminated_lines)
+        new_score = SCORE_MULTIPLIER[eliminated_lines] * (level + 1)
+        self.score += new_score
+      end
+      
+      def level_up!
+        self.level += 1 if lines >= self.level*10
+      end
+      
+      def delay
+        [1.1 - (level.to_i * 0.1), 0.001].max
+      end
+      
+      def beep
+        @beeper&.call if beeping
+      end
+      
+      def instant_down_on_up=(value)
+        self.up_arrow_action = :instant_down if value
+      end
+      
+      def instant_down_on_up
+        self.up_arrow_action == :instant_down
+      end
+      
+      def rotate_right_on_up=(value)
+        self.up_arrow_action = :rotate_right if value
+      end
+      
+      def rotate_right_on_up
+        self.up_arrow_action == :rotate_right
+      end
+      
+      def rotate_left_on_up=(value)
+        self.up_arrow_action = :rotate_left if value
+      end
+      
+      def rotate_left_on_up
+        self.up_arrow_action == :rotate_left
+      end
+      
+      def reset_tetrominoes
+        @tetrominoes = []
+      end
+      
+      def reset_playfield
+        playfield.each do |row|
+          row.each do |block|
+            block.clear
+          end
+        end
+      end
+      
+      def reset_preview_playfield
+        preview_playfield.each do |row|
+          row.each do |block|
+            block.clear
+          end
+        end
+      end
+      
+      def consider_adding_tetromino
+        if tetrominoes.empty? || current_tetromino.stopped?
+          preview_tetromino.launch!
+          preview_next_tetromino!
+        end
+      end
+      
+      def consider_eliminating_lines
+        eliminated_lines = 0
+        playfield.each_with_index do |row, playfield_row|
+          if row.all? {|block| !block.clear?}
+            eliminated_lines += 1
+            shift_blocks_down_above_row(playfield_row)
+          end
+        end
+        if eliminated_lines > 0
+          beep
+          self.lines += eliminated_lines
+          level_up!
+          calculate_score!(eliminated_lines)
+        end
+      end
+            
+      def playfield_remaining_heights(tetromino = nil)
+        @playfield_width.times.map do |playfield_column|
+          bottom_most_block = tetromino.bottom_most_block_for_column(playfield_column)
+          (playfield.each_with_index.detect do |row, playfield_row|
+            !row[playfield_column].clear? &&
+            (
+              tetromino.nil? ||
+              bottom_most_block.nil? ||
+              (playfield_row > tetromino.row + bottom_most_block[:row_index])
+            )
+          end || [nil, @playfield_height])[1]
+        end.to_a
+      end
+      
+      private
+      
+      def shift_blocks_down_above_row(row)
+        row.downto(0) do |playfield_row|
+           playfield[playfield_row].each_with_index do |block, playfield_column|
+             previous_row = playfield[playfield_row - 1]
+             previous_block = previous_row[playfield_column]
+             block.color = previous_block.color unless block.color == previous_block.color
+           end
+        end
+        playfield[0].each(&:clear)
+      end
+      
+    end
+  
+  end
+
+end

data/examples/tetris/model/past_game.rb

@@ -0,0 +1,39 @@
+# Copyright (c) 2007-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.
+
+class Tetris
+  module Model
+    class PastGame
+      attr_accessor :name, :score, :lines, :level
+      
+      def initialize(name, score, lines, level)
+        @name = name
+        @score = score.to_i
+        @lines = lines.to_i
+        @level = level.to_i
+      end
+      
+      def to_a
+        [@name, @score, @lines, @level]
+      end
+    end
+  end
+end

data/examples/tetris/model/tetromino.rb

@@ -0,0 +1,329 @@
+# Copyright (c) 2007-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.
+
+require_relative 'block'
+
+require 'matrix'
+
+class Tetris
+  module Model
+    class Tetromino
+      ORIENTATIONS = [:north, :east, :south, :west]
+      
+      LETTER_COLORS = {
+        I: :cyan,
+        J: :blue,
+        L: :dark_yellow,
+        O: :yellow,
+        S: :green,
+        T: :magenta,
+        Z: :red,
+      }
+      
+      attr_reader :game, :letter, :preview
+      alias preview? preview
+      attr_accessor :orientation, :blocks, :row, :column
+      
+      def initialize(game)
+        @game = game
+        @letter = LETTER_COLORS.keys.sample
+        @orientation = :north
+        @blocks = default_blocks
+        @preview = true
+        new_row = 0
+        new_column = (Model::Game::PREVIEW_PLAYFIELD_WIDTH - width)/2
+        update_playfield(new_row, new_column)
+      end
+      
+      def playfield
+        @preview ? game.preview_playfield : game.playfield
+      end
+      
+      def launch!
+        remove_from_playfield
+        @preview = false
+        new_row = 1 - height
+        new_column = (game.playfield_width - width)/2
+        update_playfield(new_row, new_column)
+        game.tetrominoes << self
+      end
+      
+      def update_playfield(new_row = nil, new_column = nil)
+        remove_from_playfield
+        if !new_row.nil? && !new_column.nil?
+          @row = new_row
+          @column = new_column
+          add_to_playfield
+        end
+      end
+      
+      def add_to_playfield
+        update_playfield_block do |playfield_row, playfield_column, row_index, column_index|
+          playfield[playfield_row][playfield_column].color = blocks[row_index][column_index].color if playfield_row >= 0 && playfield[playfield_row][playfield_column]&.clear? && !blocks[row_index][column_index].clear? && playfield[playfield_row][playfield_column].color != blocks[row_index][column_index].color
+        end
+      end
+      
+      def remove_from_playfield
+        return if @row.nil? || @column.nil?
+        update_playfield_block do |playfield_row, playfield_column, row_index, column_index|
+          playfield[playfield_row][playfield_column].clear if playfield_row >= 0 && !blocks[row_index][column_index].clear? && playfield[playfield_row][playfield_column]&.color == color
+        end
+      end
+      
+      def stopped?
+        return true if @stopped || @preview
+        playfield_remaining_heights = game.playfield_remaining_heights(self)
+        result = bottom_most_blocks.any? do |bottom_most_block|
+          playfield_column = @column + bottom_most_block[:column_index]
+          playfield_remaining_heights[playfield_column] &&
+            @row + bottom_most_block[:row_index] >= playfield_remaining_heights[playfield_column] - 1
+        end
+        if result && !game.hypothetical?
+          @stopped = result
+          game.consider_eliminating_lines
+          @game.consider_adding_tetromino
+        end
+        result
+      end
+      
+      # Returns bottom-most blocks of a tetromino, which could be from multiple rows depending on shape (e.g. T)
+      def bottom_most_blocks
+        width.times.map do |column_index|
+          row_blocks_with_row_index = @blocks.each_with_index.to_a.reverse.detect do |row_blocks, row_index|
+            !row_blocks[column_index].clear?
+          end
+          bottom_most_block = row_blocks_with_row_index[0][column_index]
+          bottom_most_block_row = row_blocks_with_row_index[1]
+          {
+            block: bottom_most_block,
+            row_index: bottom_most_block_row,
+            column_index: column_index
+          }
+        end
+      end
+      
+      def bottom_most_block_for_column(column)
+        bottom_most_blocks.detect {|bottom_most_block| (@column + bottom_most_block[:column_index]) == column}
+      end
+      
+      def right_blocked?
+        (@column == game.playfield_width - width) ||
+          right_most_blocks.any? { |right_most_block|
+            (@row + right_most_block[:row_index]) >= 0 &&
+              playfield[@row + right_most_block[:row_index]][@column + right_most_block[:column_index] + 1].occupied?
+          }
+      end
+      
+      # Returns right-most blocks of a tetromino, which could be from multiple columns depending on shape (e.g. T)
+      def right_most_blocks
+        @blocks.each_with_index.map do |row_blocks, row_index|
+          column_block_with_column_index = row_blocks.each_with_index.to_a.reverse.detect do |column_block, column_index|
+            !column_block.clear?
+          end
+          if column_block_with_column_index
+            right_most_block = column_block_with_column_index[0]
+            {
+              block: right_most_block,
+              row_index: row_index,
+              column_index: column_block_with_column_index[1]
+            }
+          end
+        end.compact
+      end
+      
+      def left_blocked?
+        (@column == 0) ||
+          left_most_blocks.any? { |left_most_block|
+            (@row + left_most_block[:row_index]) >= 0 &&
+              playfield[@row + left_most_block[:row_index]][@column + left_most_block[:column_index] - 1].occupied?
+          }
+      end
+
+      # Returns right-most blocks of a tetromino, which could be from multiple columns depending on shape (e.g. T)
+      def left_most_blocks
+        @blocks.each_with_index.map do |row_blocks, row_index|
+          column_block_with_column_index = row_blocks.each_with_index.to_a.detect do |column_block, column_index|
+            !column_block.clear?
+          end
+          if column_block_with_column_index
+            left_most_block = column_block_with_column_index[0]
+            {
+              block: left_most_block,
+              row_index: row_index,
+              column_index: column_block_with_column_index[1]
+            }
+          end
+        end.compact
+      end
+            
+      def width
+        @blocks[0].size
+      end
+      
+      def height
+        @blocks.size
+      end
+      
+      def down!(instant: false)
+        launch! if preview?
+        unless stopped?
+          block_count = 1
+          if instant
+            remaining_height, bottom_touching_block = remaining_height_and_bottom_touching_block
+            block_count = remaining_height - @row
+          end
+          new_row = @row + block_count
+          update_playfield(new_row, @column)
+        end
+      end
+      
+      def left!
+        unless left_blocked?
+          new_column = @column - 1
+          update_playfield(@row, new_column)
+        end
+      end
+      
+      def right!
+        unless right_blocked?
+          new_column = @column + 1
+          update_playfield(@row, new_column)
+        end
+      end
+      
+      # Rotate in specified direcation, which can be :right (clockwise) or :left (counterclockwise)
+      def rotate!(direction)
+        return if stopped?
+        can_rotate = nil
+        new_blocks = nil
+        game.hypothetical do
+          hypothetical_rotated_tetromino = hypothetical_tetromino
+          new_blocks = hypothetical_rotated_tetromino.rotate_blocks(direction)
+          can_rotate = !hypothetical_rotated_tetromino.stopped? && !hypothetical_rotated_tetromino.right_blocked? && !hypothetical_rotated_tetromino.left_blocked?
+        end
+        if can_rotate
+          remove_from_playfield
+          self.orientation = ORIENTATIONS[ORIENTATIONS.rotate(direction == :right ? -1 : 1).index(@orientation)]
+          self.blocks = new_blocks
+          update_playfield(@row, @column)
+        end
+      rescue => e
+        puts e.full_message
+      end
+      
+      def rotate_blocks(direction)
+        new_blocks = Matrix[*@blocks].transpose.to_a
+        if direction == :right
+          new_blocks = new_blocks.map(&:reverse)
+        else
+          new_blocks = new_blocks.reverse
+        end
+        Matrix[*new_blocks].to_a
+      end
+      
+      def hypothetical_tetromino
+        clone.tap do |hypo_clone|
+          remove_from_playfield
+          hypo_clone.blocks = @blocks.map do |row_blocks|
+            row_blocks.map do |column_block|
+              column_block.clone
+            end
+          end
+        end
+      end
+      
+      def remaining_height_and_bottom_touching_block
+        playfield_remaining_heights = game.playfield_remaining_heights(self)
+        bottom_most_blocks.map do |bottom_most_block|
+          playfield_column = @column + bottom_most_block[:column_index]
+          [playfield_remaining_heights[playfield_column] - (bottom_most_block[:row_index] + 1), bottom_most_block]
+        end.min_by(&:first)
+      end
+      
+      def default_blocks
+        case @letter
+        when :I
+          [
+            [block, block, block, block]
+          ]
+        when :J
+          [
+            [block, block, block],
+            [empty, empty, block],
+          ]
+        when :L
+          [
+            [block, block, block],
+            [block, empty, empty],
+          ]
+        when :O
+          [
+            [block, block],
+            [block, block],
+          ]
+        when :S
+          [
+            [empty, block, block],
+            [block, block, empty],
+          ]
+        when :T
+          [
+            [block, block, block],
+            [empty, block, empty],
+          ]
+        when :Z
+          [
+            [block, block, empty],
+            [empty, block, block],
+          ]
+        end
+      end
+      
+      def color
+        LETTER_COLORS[@letter]
+      end
+      
+      def include_block?(block)
+        @blocks.flatten.include?(block)
+      end
+      
+      private
+      
+      def block
+        Block.new(color)
+      end
+      
+      def empty
+        Block.new
+      end
+      
+      def update_playfield_block(&updater)
+        @row.upto(@row + height - 1) do |playfield_row|
+          @column.upto(@column + width - 1) do |playfield_column|
+            row_index = playfield_row - @row
+            column_index = playfield_column - @column
+            updater.call(playfield_row, playfield_column, row_index, column_index)
+          end
+        end
+      end
+    end
+  end
+end

data/examples/tetris.rb

@@ -0,0 +1,124 @@
+# 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.
+
+require 'glimmer-dsl-libui'
+
+require_relative 'tetris/model/game'
+
+class Tetris
+  include Glimmer
+  
+  BLOCK_SIZE = 25
+  BEVEL_CONSTANT = 20
+    
+  attr_reader :game
+  
+  def initialize
+    @game = Model::Game.new
+    create_gui
+    register_observers
+  end
+  
+  def launch
+    @game.start!
+    @main_window.show
+  end
+  
+  def create_gui
+    @main_window = window('Glimmer Tetris', Model::Game::PLAYFIELD_WIDTH * BLOCK_SIZE, Model::Game::PLAYFIELD_HEIGHT * BLOCK_SIZE) {
+      playfield(playfield_width: Model::Game::PLAYFIELD_WIDTH, playfield_height: Model::Game::PLAYFIELD_HEIGHT, block_size: BLOCK_SIZE)
+    }
+  end
+  
+  def register_observers
+    Glimmer::DataBinding::Observer.proc do |game_over|
+      if game_over
+        show_game_over_dialog
+      else
+        start_moving_tetrominos_down
+      end
+    end.observe(@game, :game_over)
+    
+    Model::Game::PLAYFIELD_HEIGHT.times do |row|
+      Model::Game::PLAYFIELD_HEIGHT.times do |column|
+        Glimmer::DataBinding::Observer.proc do |new_color|
+          @blocks[row][column].fill = new_color
+        end.observe(@game.playfield[row][column], :color)
+      end
+    end
+  end
+  
+  def playfield(playfield_width: , playfield_height: , block_size: )
+    area {
+      @blocks = playfield_height.times.map do |row|
+        playfield_width.times.map do |column|
+          block(row: row, column: column, block_size: block_size)
+        end
+      end
+      
+      on_key_down do |key_event|
+        case key_event
+        in ext_key: :down
+          game.down!
+        in ext_key: :up
+          case game.up_arrow_action
+          when :instant_down
+            game.down!(instant: true)
+          when :rotate_right
+            game.rotate!(:right)
+          when :rotate_left
+            game.rotate!(:left)
+          end
+        in ext_key: :left
+          game.left!
+        in ext_key: :right
+          game.right!
+        in modifier: :shift
+          game.rotate!(:right)
+        in modifier: :control
+          game.rotate!(:left)
+        else
+          # Do Nothing
+        end
+      end
+    }
+  end
+  
+  def block(row: , column: , block_size: )
+    path {
+      square(column * block_size, row * block_size, block_size)
+      
+      fill Model::Block::COLOR_CLEAR
+    }
+  end
+  
+  def start_moving_tetrominos_down
+    Glimmer::LibUI.timer(@game.delay) do
+      @game.down! if !@game.game_over? && !@game.paused?
+    end
+  end
+  
+  def show_game_over_dialog
+    msg_box('Game Over', "Score: #{@game.high_scores.first.score}")
+  end
+end
+
+Tetris.new.launch

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: glimmer-dsl-libui
 version: !ruby/object:Gem::Version
-  version: 0.2.16
+  version: 0.2.17
 platform: ruby
 authors:
 - Andy Maleh
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-28 00:00:00.000000000 Z
+date: 2021-11-03 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: glimmer
@@ -252,6 +252,11 @@ files:
 - examples/method_based_custom_keyword.rb
 - examples/midi_player.rb
 - examples/simple_notepad.rb
+- examples/tetris.rb
+- examples/tetris/model/block.rb
+- examples/tetris/model/game.rb
+- examples/tetris/model/past_game.rb
+- examples/tetris/model/tetromino.rb
 - examples/timer.rb
 - glimmer-dsl-libui.gemspec
 - icons/glimmer.png