glimmer-dsl-swt 4.21.2.4 → 4.22.1.1

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

@@ -0,0 +1,124 @@
+# 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'
+require_relative 'piece/cube'
+require_relative 'piece/cylinder'
+
+class Quarto
+  module Model
+    class Game
+      MOVES = [:select_piece, :place_piece]
+      PLAYER_NUMBERS = [1, 2]
+      ROW_COUNT = 4
+      COLUMN_COUNT = 4
+    
+      attr_accessor :board, :available_pieces, :selected_piece, :current_move, :current_player_number, :over, :winner_player_number
+      alias over? over
+      
+      def initialize
+        start
+      end
+      
+      def start
+        self.over = false
+        self.board = ROW_COUNT.times.map {COLUMN_COUNT.times.map {nil}}
+        self.available_pieces = Piece.all_pieces.dup
+        self.selected_piece = nil
+        self.current_player_number = 1
+        self.current_move = MOVES.first
+        self.winner_player_number = nil
+      end
+      alias restart start
+      
+      def select_piece(piece)
+        self.selected_piece = piece
+        next_player
+        next_move
+      end
+      
+      def place_piece(piece, row:, column:)
+        if @board[row][column].nil?
+          @board[row][column] = piece
+          if win?
+            self.winner_player_number = current_player_number # must set before updating observed over attribute
+            self.over = true
+          elsif draw?
+            self.winner_player_number = nil # must set before updating observed over attribute
+            self.over = true
+          else
+            next_move
+          end
+        end
+      end
+      
+      def next_move
+        last_move = current_move
+        last_move_index = MOVES.index(last_move)
+        self.current_move = MOVES[(last_move_index + 1)%MOVES.size]
+      end
+      
+      def next_player
+        last_player_number = current_player_number
+        last_player_number_index = PLAYER_NUMBERS.index(current_player_number)
+        self.current_player_number = PLAYER_NUMBERS[(last_player_number_index + 1)%PLAYER_NUMBERS.size]
+      end
+      
+      def draw?
+        !win? && board.flatten.compact.count == 12
+      end
+      
+      def win?
+        row_win? || column_win? || diagonal_win?
+      end
+      
+      def row_win?
+        ROW_COUNT.times.any? { |row| equivalent_pieces?(@board[row]) }
+      end
+      
+      def column_win?
+        COLUMN_COUNT.times.any? do |column|
+          equivalent_pieces?(ROW_COUNT.times.map {|row| @board[row][column]})
+        end
+      end
+      
+      def diagonal_win?
+        diagonal1_win? || diagonal2_win?
+      end
+      
+      def diagonal1_win?
+        equivalent_pieces?(ROW_COUNT.times.map { |n| @board[n][n] })
+      end
+      
+      def diagonal2_win?
+        equivalent_pieces?(ROW_COUNT.times.map { |n| @board[ROW_COUNT - 1 - n][n] })
+      end
+      
+      def equivalent_pieces?(the_pieces)
+        return false if the_pieces.any?(&:nil?)
+        the_pieces.map(&:class).uniq.size == 1 ||
+          the_pieces.map(&:pitted).uniq.size == 1 ||
+          the_pieces.map(&:height).uniq.size == 1 ||
+          the_pieces.map(&:color).uniq.size == 1
+      end
+    end
+  end
+end

data/samples/elaborate/quarto/model/piece/cube.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 Cube < Piece
+      end
+    end
+  end
+end

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