glimmer-dsl-swt 4.22.0.0 → 4.22.1.0

data/samples/elaborate/quarto/model/piece/cylinder.rb

@@ -0,0 +1,31 @@
+# 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 '../piece'
+
+class Quarto
+  module Model
+    class Piece
+      class Cylinder < Piece
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/model/piece.rb

@@ -0,0 +1,70 @@
+# 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 Quarto
+  module Model
+    class Piece
+      class << self
+        def all_pieces
+          [
+            Cube.new(pitted: false, height: :tall, color: :light),
+            Cylinder.new(pitted: false, height: :tall, color: :light),
+            Cube.new(pitted: true, height: :short, color: :light),
+            Cube.new(pitted: false, height: :short, color: :light),
+            Cube.new(pitted: false, height: :tall, color: :dark),
+            Cylinder.new(pitted: true, height: :short, color: :dark),
+            Cylinder.new(pitted: false, height: :short, color: :dark),
+            Cylinder.new(pitted: true, height: :tall, color: :dark),
+            Cylinder.new(pitted: false, height: :tall, color: :dark),
+            Cube.new(pitted: true, height: :short, color: :dark),
+            Cube.new(pitted: false, height: :short, color: :dark),
+            Cube.new(pitted: true, height: :tall, color: :dark),
+          ].freeze
+        end
+      end
+      
+      attr_reader :pitted, :height, :color
+      alias pitted? pitted
+      
+      def initialize(pitted: , height: , color: )
+        @pitted = pitted
+        @height = height
+        @color = color
+      end
+      
+      def light?
+        @color == :light
+      end
+      
+      def dark?
+        @color == :dark
+      end
+      
+      def tall?
+        @height == :tall
+      end
+      
+      def short?
+        @height == :short
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/available_pieces_area.rb

@@ -0,0 +1,72 @@
+# 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 'piece'
+
+class Quarto
+  module View
+    class AvailablePiecesArea
+      include Glimmer::UI::CustomShape
+      
+      options :game
+      option :location_x, default: 0
+      option :location_y, default: 0
+      
+      attr_reader :pieces
+      
+      after_body do
+        reset_pieces
+      end
+      
+      body {
+        rectangle(location_x, location_y, PIECES_AREA_WIDTH, AVAILABLE_PIECES_AREA_HEIGHT) {
+          background COLOR_WOOD
+          
+          rectangle(0, 0, :max, :max, round: true) { # border
+            foreground :black
+            line_width 2
+          }
+          
+          text('Available Pieces', 15, 10) {
+            font height: 18, style: :bold
+          }
+        }
+      }
+      
+      def reset_pieces
+        @pieces&.dup&.each { |piece| piece.dispose(redraw: false) }
+        body_root.content {
+          x_offset = 15
+          y_offset = 10 + 18 + 10
+          x_spacing = 10
+          y_spacing = 35
+          row_count = 3
+          column_count = 4
+          @pieces = row_count.times.map do |row|
+            column_count.times.map do |column|
+              piece(game: game, model: game.available_pieces[row*column_count + column], location_x: x_offset + column*(View::Piece::BASIC_SHAPE_WIDTH + x_spacing), location_y: y_offset + row*(View::Piece::SIZE_TALL + y_spacing))
+            end
+          end.flatten
+        }
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/board.rb

@@ -0,0 +1,65 @@
+# 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 'cell'
+
+class Quarto
+  module View
+    class Board
+      include Glimmer::UI::CustomShape
+      
+      option :game
+      option :location_x, default: 0
+      option :location_y, default: 0
+      
+      after_body do
+        reset_cells
+      end
+      
+      body {
+        rectangle(location_x, location_y, BOARD_DIAMETER, BOARD_DIAMETER, round: true) {
+          background :black
+          
+          text("Glimmer\nQuarto", BOARD_DIAMETER - 69, BOARD_DIAMETER - 43) {
+            foreground COLOR_WOOD
+          }
+          
+          @cell_container = oval(0, 0, :max, :max) {
+            foreground COLOR_WOOD
+            line_width CELL_LINE_WIDTH
+            
+          }
+        }
+      }
+      
+      def reset_cells
+        @cell_container.shapes.dup.each(&:dispose)
+        @cell_container.content {
+          @cells = ROW_COUNT.times.map do |row|
+            COLUMN_COUNT.times.map do |column|
+              cell(game: game, row: row, column: column)
+            end
+          end.flatten
+        }
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/cell.rb

@@ -0,0 +1,85 @@
+# 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 Quarto
+  module View
+    class Cell
+      include Glimmer::UI::CustomShape
+      
+      options :game, :row, :column
+      
+      attr_reader :placed_piece
+      
+      before_body do
+        @board_x_offset = (BOARD_DIAMETER - COLUMN_COUNT * (CELL_DIAMETER + CELL_LINE_WIDTH + CELL_MARGIN) + CELL_LINE_WIDTH + CELL_MARGIN) / 2.0
+        @board_y_offset = (BOARD_DIAMETER - ROW_COUNT * (CELL_DIAMETER + CELL_LINE_WIDTH + CELL_MARGIN) + CELL_LINE_WIDTH + CELL_MARGIN) / 2.0
+      end
+      
+      body {
+        oval(@board_x_offset + column * (CELL_DIAMETER + CELL_LINE_WIDTH + CELL_MARGIN),
+             @board_y_offset + row * (CELL_DIAMETER + CELL_LINE_WIDTH + CELL_MARGIN),
+             CELL_DIAMETER,
+             CELL_DIAMETER) {
+          background :black
+          line_width CELL_LINE_WIDTH
+          transform board_rotation_transform
+          
+          oval { # this draws an outline around max dimensions by default (when no x,y,w,h specified)
+            foreground COLOR_WOOD
+            line_width CELL_LINE_WIDTH
+            transform board_rotation_transform
+          }
+          
+          on_drop do |drop_event|
+            dragged_piece = drop_event.dragged_shape
+            if dragged_piece.parent.get_data('custom_shape').is_a?(SelectedPieceArea)
+              model = dragged_piece.get_data('custom_shape').model
+              dragged_piece.dispose
+              new_x, new_y = body_root.transform_point(body_root.absolute_x, body_root.absolute_y)
+              parent_proxy.content {
+                piece(game: game, model: model, location_x: new_x, location_y: new_y) {
+                  transform {
+                    translate -38, -14
+                  }
+                }
+              }
+              game.place_piece(model, row: row, column: column)
+            else
+              drop_event.doit = false
+            end
+          end
+        }
+      }
+      
+      def board_rotation_transform
+        @board_rotation_transform ||= transform {
+          # main rotation is done by moving shape to be centered in origin, rotating, and then moving shape back
+          translate (SHELL_MARGIN + BOARD_DIAMETER)/2.0, (SHELL_MARGIN + BOARD_DIAMETER)/2.0
+          rotate 45
+          translate -(SHELL_MARGIN + BOARD_DIAMETER)/2.0, -(SHELL_MARGIN + BOARD_DIAMETER)/2.0
+          
+          # extra translation to improve location of rotated cells
+          translate 7, -4
+        }
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/cube.rb

@@ -0,0 +1,73 @@
+# 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 Quarto
+  module View
+    class Cube
+      include Glimmer::UI::CustomShape
+      
+      DEFAULT_SIZE = 28
+      
+      options :location_x, :location_y, :rectangle_width, :rectangle_height, :cube_height, :pitted, :background_color, :line_thickness
+      alias pitted? pitted
+      
+      before_body do
+        self.location_x ||= 0
+        self.location_y ||= 0
+        self.rectangle_width ||= rectangle_height || cube_height || DEFAULT_SIZE
+        self.rectangle_height ||= rectangle_width || cube_height || DEFAULT_SIZE
+        self.cube_height ||= rectangle_width || rectangle_height || DEFAULT_SIZE
+        self.line_thickness ||= 1
+      end
+      
+      body {
+        shape(location_x, location_y) {
+          polygon(0, cube_height + rectangle_height / 2.0, rectangle_width / 2.0, cube_height, rectangle_width, cube_height + rectangle_height / 2.0, rectangle_width / 2.0, cube_height + rectangle_height) {
+            background background_color
+          }
+          polygon(0, cube_height + rectangle_height / 2.0, rectangle_width / 2.0, cube_height, rectangle_width, cube_height + rectangle_height / 2.0, rectangle_width / 2.0, cube_height + rectangle_height) {
+            line_width line_thickness
+          }
+          rectangle(0, rectangle_height / 2.0, rectangle_width, cube_height) {
+            background background_color
+          }
+          polyline(0, rectangle_height / 2.0 + cube_height, 0, rectangle_height / 2.0, rectangle_width, rectangle_height / 2.0, rectangle_width, rectangle_height / 2.0 + cube_height) {
+            line_width line_thickness
+          }
+          polygon(0, rectangle_height / 2.0, rectangle_width / 2.0, 0, rectangle_width, rectangle_height / 2.0, rectangle_width / 2.0, rectangle_height) {
+            background background_color
+          }
+          polygon(0, rectangle_height / 2.0, rectangle_width / 2.0, 0, rectangle_width, rectangle_height / 2.0, rectangle_width / 2.0, rectangle_height) {
+            line_width line_thickness
+          }
+          line(rectangle_width / 2.0, cube_height + rectangle_height, rectangle_width / 2.0, rectangle_height) {
+            line_width line_thickness
+          }
+          if pitted?
+            oval(rectangle_width / 4.0, rectangle_height / 4.0, rectangle_width / 2.0, rectangle_height / 2.0) {
+              background :black
+            }
+          end
+        }
+      }
+    end
+  end
+end

data/samples/elaborate/quarto/view/cylinder.rb

@@ -0,0 +1,72 @@
+# 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 Quarto
+  module View
+    class Cylinder
+      include Glimmer::UI::CustomShape
+      
+      DEFAULT_SIZE = 28
+      
+      options :location_x, :location_y, :oval_width, :oval_height, :cylinder_height, :pitted, :background_color, :line_thickness
+      alias pitted? pitted
+      
+      before_body do
+        self.location_x ||= 0
+        self.location_y ||= 0
+        self.oval_width ||= oval_height || cylinder_height || DEFAULT_SIZE
+        self.oval_height ||= oval_width || cylinder_height || DEFAULT_SIZE
+        self.cylinder_height ||= oval_width || oval_height || DEFAULT_SIZE
+        self.line_thickness ||= 1
+      end
+      
+      body {
+        shape(location_x, location_y) {
+          oval(0, cylinder_height, oval_width, oval_height) {
+            background background_color
+            
+            oval { # draws with foreground :black and has max size within parent by default
+              line_width line_thickness
+            }
+          }
+          rectangle(0, oval_height / 2.0, oval_width, cylinder_height) {
+            background background_color
+          }
+          polyline(0, oval_height / 2.0 + cylinder_height, 0, oval_height / 2.0, oval_width, oval_height / 2.0, oval_width, oval_height / 2.0 + cylinder_height) {
+            line_width line_thickness
+          }
+          oval(0, 0, oval_width, oval_height) {
+            background background_color
+            
+            oval { # draws with foreground :black and has max size within parent by default
+              line_width line_thickness
+            }
+          }
+          if pitted?
+            oval(oval_width / 4.0, oval_height / 4.0, oval_width / 2.0, oval_height / 2.0) {
+              background :black
+            }
+          end
+        }
+      }
+    end
+  end
+end

data/samples/elaborate/quarto/view/message_box_panel.rb

@@ -0,0 +1,114 @@
+# 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 Quarto
+  module View
+    class MessageBoxPanel
+      include Glimmer::UI::CustomShape
+      
+      FONT_HEIGHT_DEFAULT = 12
+      BUTTON_TEXT_DEFAULT = 'OK'
+      
+      option :message
+      option :location_x, default: :default
+      option :location_y, default: :default
+      option :size_width
+      option :size_height
+      option :background_color, default: :white
+      option :foreground_color, default: :black
+      option :border_line_width, default: 1
+      option :text_font, default: {height: FONT_HEIGHT_DEFAULT}
+      option :text_color, default: :black
+      
+      attr_reader :closed
+      alias closed? closed
+      
+      def can_handle_observation_request?(observation_request)
+        observation_request == 'on_closed' || super
+      end
+      
+      def handle_observation_request(observation_request, &block)
+        if observation_request == 'on_closed'
+          @on_closed_handlers ||= []
+          @on_closed_handlers << block
+        else
+          super
+        end
+      end
+      
+      before_body do
+        @font_height = text_font[:height] || FONT_HEIGHT_DEFAULT
+        self.size_width ||= [:default, @font_height*4.0]
+        self.size_height ||= [:default, @font_height*4.0]
+        @text_offset = -1.2*@font_height
+        
+        display {
+          on_swt_keyup do |key_event|
+            close if key_event.keyCode == swt(:cr)
+          end
+        }
+      end
+      
+      body {
+        rectangle(location_x, location_y, size_width, size_height, round: true) {
+          background background_color
+                      
+          text(message, :default, [:default, @text_offset]) {
+            foreground :black
+            font text_font
+          }
+          
+          rectangle(0, 0, :max, :max, round: true) { # border drawn around max dimensions of parent
+            foreground foreground_color
+            line_width border_line_width
+          }
+          
+          rectangle(:default, [:default, @font_height + (@font_height/2.0)], @font_height*5.5, @font_height*2.0, @font_height, @font_height, round: true) {
+            background background_color
+
+            text(BUTTON_TEXT_DEFAULT) {
+              foreground text_color
+              font text_font
+            }
+            
+            on_mouse_up do
+              close
+            end
+          }
+          
+          rectangle(:default, [:default, @font_height + (@font_height/2.0)], @font_height*5.5, @font_height*2.0, @font_height, @font_height, round: true) { # border
+            foreground foreground_color
+            line_width border_line_width
+          }
+        }
+      }
+      
+      def close
+        unless @closed
+          @closed = true
+          @on_closed_handlers&.each {|handler| handler.call}
+          @on_closed_handlers&.clear
+          body_root.dispose
+        end
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/view/piece.rb

@@ -0,0 +1,56 @@
+# 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 'cylinder'
+require_relative 'cube'
+
+class Quarto
+  module View
+    class Piece
+      include Glimmer::UI::CustomShape
+      
+      SIZE_SHORT = 28
+      SIZE_TALL = 48
+      BASIC_SHAPE_WIDTH = 48
+      BASIC_SHAPE_HEIGHT = 28
+      LINE_THICKNESS = 2
+      
+      options :game, :model, :location_x, :location_y
+      
+      before_body do
+        @background_color = model.light? ? COLOR_LIGHT_WOOD : COLOR_DARK_WOOD
+        @size = model.short? ? SIZE_SHORT : SIZE_TALL
+        @shape_location_x = 0
+        @shape_location_y = model.short? ? 20 : 0
+      end
+      
+      body {
+        shape(location_x, location_y) {
+          if model.is_a?(Model::Piece::Cylinder)
+            cylinder(location_x: @shape_location_x, location_y: @shape_location_y, cylinder_height: @size, oval_width: BASIC_SHAPE_WIDTH, oval_height: BASIC_SHAPE_HEIGHT, pitted: model.pitted?, background_color: @background_color, line_thickness: LINE_THICKNESS)
+          else
+            cube(location_x: @shape_location_x, location_y: @shape_location_y, cube_height: @size, rectangle_width: BASIC_SHAPE_WIDTH, rectangle_height: BASIC_SHAPE_HEIGHT, pitted: model.pitted?, background_color: @background_color, line_thickness: LINE_THICKNESS)
+          end
+        }
+      }
+    end
+  end
+end