draw_color_repeat 1.0.0

data/VERSION

@@ -0,0 +1 @@
+1.0.0

data/app/dcr.rb

@@ -0,0 +1,51 @@
+# 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.
+
+$LOAD_PATH.unshift(File.expand_path('..', __FILE__))
+
+begin
+  require 'bundler/setup'
+  Bundler.require(:default)
+rescue
+  # gem mode requires manually
+  require 'glimmer-dsl-swt'
+  require 'glimmer-cp-stickfigure'
+  require 'strategic'
+  require 'equalizer'
+end
+
+require 'puts_debuggerer'
+require 'views/dcr/app_view'
+
+class Dcr
+  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'))
+            
+  def open
+    app_view.open
+  end
+end
+
+org.eclipse.swt.widgets.Display.app_name = 'Draw Color Repeat'
+org.eclipse.swt.widgets.Display.app_version = Dcr::VERSION

data/app/dcr/launch.rb

@@ -0,0 +1,3 @@
+require_relative '../dcr'
+
+Dcr.new.open

data/app/models/dcr/command.rb

@@ -0,0 +1,129 @@
+# 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.
+
+class Dcr
+  # Follows the Command, Strategy, and Chain of Responsibility Design Patterns
+  class Command
+    include Strategic
+    include Glimmer
+    
+    class << self
+      def create(program: , text: )
+        operation = parse_operation(text)
+        operation_strategy = strategies.detect { |strategy| strategy.match?(operation) } unless operation.nil?
+        operation_strategy ||= Command::Empty
+        operation_strategy&.new(program: program, text: text)
+      end
+      
+      def parse_operation(text)
+        text.to_s.strip.downcase.match(/([^ 0-9]+)/).to_a[1]
+      end
+
+      def parse_value(text)
+        text.to_s.strip.downcase.match(/[^ 0-9]+[ ]*([^ ]*)/).to_a[1]
+      end
+
+      def command_alias(alias_value)
+        command_aliases << alias_value
+      end
+
+      def command_aliases
+        @command_aliases ||= []
+      end
+
+      def command_exclusion(exclusion_value)
+        command_exclusions << exclusion_value
+      end
+
+      def command_exclusions
+        @command_exclusions ||= []
+      end
+
+      def match?(operation)
+        (operation_derivatives(command_operation) + command_aliases - command_exclusions).include?(operation.to_s.downcase)
+      end
+      
+      def command_operation
+        name.split('::').last.downcase
+      end
+      
+      def operation_derivatives(operation)
+        operation_length = operation.length
+        operation_length.times.map {|n| operation.chars.combination(operation_length - n).to_a}.reduce(:+).map(&:join)
+      end
+    end
+    
+    attr_reader :text
+      
+    def initialize(program: , text: )
+      @program = program
+      @text = text
+    end
+    
+    def operation=(new_operation)
+      return if parse_operation(new_operation) == parsed_operation
+      @text.sub(parsed_operation, new_operation)
+      command_index_of_self = @program.commands.index(self)
+      @program.commands[command_index_of_self..command_index_of_self] = create(program: @program, text: @text)
+    end
+    
+    def value=(new_value)
+      return if parse_value(new_value) == parsed_value
+      @text.sub(parsed_value, new_value)
+      @program.notify_observers('commands')
+    end
+    
+    # Subclasses must override to provide parsed operation (e.g. 'f' becomes 'forward')
+    def operation
+      parsed_operation
+    end
+    
+    def parsed_operation
+      Command.parse_operation(@text)
+    end
+    
+    def operation_options
+      Command.strategy_names
+    end
+    
+    # Subclasses must override to provide parsed value (e.g. 'r' becomes 'red' or '30' becomes 30)
+    def value
+      parsed_value
+    end
+    
+    def parsed_value
+      parsed_value = Command.parse_value(@text)
+      parsed_value.to_s.match(/\d+/) ? parsed_value.to_i : parsed_value
+    end
+    
+    def normalized_text
+      "#{operation} #{value}"
+    end
+    
+    # Subclasses must implement
+    def call
+      # No Op
+    end
+  end
+end
+
+# Require all command strategies
+Dir[File.expand_path(File.join('command', '**', '*.rb'), __dir__)].each {|f| require f}

data/app/models/dcr/command/backward.rb

@@ -0,0 +1,45 @@
+# 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.
+
+class Dcr
+  class Command
+    class Backward < Command
+      command_alias 'b'
+    
+      def call
+        p1 = java.awt.geom.Point2D::Double.new(value, 0)
+        p2 = java.awt.geom.Point2D::Double.new(0, 0)
+        t = java.awt.geom.AffineTransform.new
+        t.set_to_rotation(@program.angle*(Math::PI/2.0)/90.0 - Math::PI/2.0)
+        t.transform(p1, p2)
+        new_x = @program.location_x - p2.x
+        new_y = @program.location_y - p2.y
+        @program.polygons.last.point_array += [new_x, new_y]
+        @program.location_x = new_x
+        @program.location_y = new_y
+      end
+      
+      def value
+        super.to_f == 0 ? 1.0 : super.to_f
+      end
+    end
+  end
+end

data/app/models/dcr/command/color.rb

@@ -0,0 +1,120 @@
+# 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.
+
+class Dcr
+  class Command
+    class Color < Command
+      # color map from strings to Glimmer DSL for SWT colors
+      COLOR_MAP = {
+        'black' => :black,
+        'blue' => :cyan,
+        'gray' => :gray,
+        'grey' => :gray,
+        'green' => :green,
+        'orange' => [255, 127, 0],
+        'pink' => :magenta,
+        'purple' => :dark_magenta,
+        'red' => :red,
+        'white' => :white,
+        'yellow' => :yellow,
+      }
+      COLOR_MAP_ALIASES = {
+        'grey' => :gray,
+        'k' => :black,
+        'b' => :cyan,
+        'a' => :gray,
+        'g' => :green,
+        'o' => [255, 127, 0],
+        'i' => :magenta,
+        'p' => :dark_magenta,
+        'r' => :red,
+        'w' => :white,
+        'y' => :yellow,
+      }
+      command_alias 'c'
+      command_exclusion 'r'
+      
+      class << self
+        attr_reader :next_color_index
+        
+        def expanded_color_map
+          @expanded_color_map ||= COLOR_MAP.reduce({}) do |hash, pair|
+            color_string = pair.first
+            color_value = pair.last
+            color_hash = color_derivatives(color_string).reduce({}) do |color_derivative_hash, color_derivative|
+              color_derivative_hash.merge(color_derivative => color_value)
+            end
+            hash.merge(color_hash)
+          end.merge(COLOR_MAP_ALIASES)
+        end
+        
+        def color_derivatives(color_string)
+          color_string_length = color_string.length
+          color_string_length.times.map {|n| color_string.chars.combination(color_string_length - n).to_a}.reduce(:+).map(&:join)
+        end
+      
+        def next_color_string
+          reset_next_color_index! if @next_color_index.nil?
+          @next_color_index += 1
+          COLOR_MAP.keys[@next_color_index % COLOR_MAP.count]
+        end
+              
+        def next_color
+          COLOR_MAP[next_color_string]
+        end
+        
+        def reset_next_color_index!(next_color_index_value=nil)
+          @next_color_index = next_color_index_value || -2 # start at yellow (since it skips one with the first addition)
+        end
+        
+        def normalize_color_string(color_string)
+          color_value = Color.expanded_color_map[color_string]
+          COLOR_MAP.invert[color_value]
+        end
+      end
+      
+      def call
+        @program.polygons.last&.background = interpreted_value
+        @program.new_polygon!
+      end
+      
+      def value
+        value_string = super.to_s
+        if @value_string != value_string || @value_string.empty?
+          @value_string = value_string
+          # TODO beware of the edge case where if the last value string is empty, the comparable, which includes value, ends up returning a match with yellow (first color in series) thus not updating GUI
+          @value = Color.expanded_color_map.keys.include?(value_string) ? Color.normalize_color_string(value_string) : next_color_string
+        end
+        @value
+      end
+      
+      # interpreted value is used by GUI
+      def interpreted_value
+        the_value = value
+        COLOR_MAP[the_value]
+      end
+      
+      def next_color_string
+        Color.next_color_string
+      end
+    end
+  end
+end

data/app/models/dcr/command/empty.rb

@@ -0,0 +1,30 @@
+# 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.
+
+class Dcr
+  class Command
+    # This command represents an empty line,
+    # which separates repeatable groups of commands
+    class Empty < Command
+      command_alias ''
+    end
+  end
+end

data/app/models/dcr/command/forward.rb

@@ -0,0 +1,47 @@
+# 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_relative '../polygon'
+
+class Dcr
+  class Command
+    class Forward < Command
+      command_alias 'f'
+    
+      def call
+        p1 = java.awt.geom.Point2D::Double.new(value, 0)
+        p2 = java.awt.geom.Point2D::Double.new(0, 0)
+        t = java.awt.geom.AffineTransform.new
+        t.set_to_rotation(@program.angle*(Math::PI/2.0)/90.0 - Math::PI/2.0)
+        t.transform(p1, p2)
+        new_x = @program.location_x + p2.x
+        new_y = @program.location_y + p2.y
+        @program.polygons.last.point_array += [new_x, new_y]
+        @program.location_x = new_x
+        @program.location_y = new_y
+      end
+      
+      def value
+        super.to_f == 0 ? 1.0 : super.to_f
+      end
+    end
+  end
+end

data/app/models/dcr/command/left.rb

@@ -0,0 +1,37 @@
+# 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.
+
+class Dcr
+  class Command
+    class Left < Command
+      command_alias 'l'
+      command_exclusion 'f'
+      
+      def call
+        @program.angle -= value
+      end
+      
+      def value
+        super.to_f == 0 ? 90.0 : super.to_f
+      end
+    end
+  end
+end