dieses 0.0.1

data/lib/dieses/application/sheet.rb

@@ -0,0 +1,111 @@
+# frozen_string_literal: true
+
+require 'forwardable'
+require 'ostruct'
+
+module Dieses
+  module Application
+    class Sheet
+      module DSL
+        def sheet(name, desc, default: Undefined)
+          Sheets.register name, klass: self, desc: desc, default: default
+        end
+
+        def variant(key, desc, **kwargs)
+          variants key.to_sym => Proto.new(name: key, desc: desc, param: Param.new(**kwargs))
+        end
+
+        def variate(**kwargs, &block)
+          kwargs.transform_values! { |value| [*value] }
+
+          builder = proc { |keys, values| Proto.(**keys.zip(values).to_h) }
+          variants = [nil].product(*kwargs.values).map { |_, *values| builder.call(kwargs.keys, values) }
+          variants.each do |variant|
+            variant.instance_exec(&block)
+            self.variant variant.name, variant.desc, **variant.to_h
+          end
+          variants
+        end
+
+        def self.extended(klass)
+          super
+
+          klass.extend Support::ClassAttribute
+
+          klass.define :proto
+          klass.define :variants, default: {}
+          klass.define :param,    default: Param.new
+        end
+      end
+
+      extend DSL
+
+      class Proto < OpenStruct
+        def derivate(**kwargs)
+          self.class.new(name: name, desc: desc, **kwargs).freeze
+        end
+
+        def to_s
+          name.to_s
+        end
+
+        def self.call(**kwargs)
+          new(**kwargs)
+        end
+
+        def self.formatted(*protos, prefix: EMPTY_STRING)
+          longest_length = protos.map { |proto| proto.name.to_s.length }.max
+
+          protos.map do |proto|
+            lines = ["#{prefix}#{proto.name.to_s.ljust(longest_length)}  #{proto.desc}"]
+            lines = [*lines, *yield(proto)] if block_given?
+            lines
+          end.flatten.join("\n")
+        end
+      end
+
+      extend Forwardable
+      def_delegators :@pen, :draw
+
+      attr_reader :paper, :variant
+
+      def initialize(paper, variant: Undefined)
+        @paper   = paper
+        @variant = Undefined.equal?(variant) ? self.class.default_variant : self.class.variant!(variant)
+        @param   = parametrize
+        @canvas  = Canvas.new(paper)
+        @pen     = Pen.new(@canvas)
+
+        setup if respond_to? :setup
+      end
+
+      def produce(**kwargs)
+        call
+        canvas.render(**kwargs)
+      end
+
+      private
+
+      attr_reader :canvas, :param
+
+      def parametrize(**param)
+        Param.new(**self.class.param.to_h, **variant.param.to_h, **param.to_h)
+      end
+
+      class << self
+        def default_variant
+          return variant!(default) unless Undefined.equal?(proto.default)
+
+          variants.values.first
+        end
+
+        def variant!(name)
+          raise Error, "No variant defined: #{self.class}" if variants.empty?
+          raise Error, "No such variant for #{self.class}: #{name}" unless variants.key?(name = name.to_sym)
+
+          variants[name]
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets.rb

@@ -0,0 +1,58 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      @registry = {}
+
+      def self.available?(name)
+        @registry.key? name.to_sym
+      end
+
+      def self.register(name, klass:, desc:, default: nil)
+        @registry[name = name.to_sym] = Sheet::Proto.new(name:    name,
+                                                         desc:    desc,
+                                                         klass:   klass,
+                                                         default: default).tap do |proto|
+          klass.proto proto
+        end
+      end
+
+      def self.proto(name)
+        raise Error, "No such sheet available: #{name}" unless @registry[name = name.to_sym]
+
+        @registry[name]
+      end
+
+      def self.sheet(name)
+        proto(name).klass
+      end
+
+      def self.call(name, paper, variant: nil, param: {})
+        sheet(name).new(paper, variant, **param).call
+      end
+
+      def self.available
+        @registry.sort.to_h.transform_values do |proto|
+          proto.derivate(variants: proto.klass.variants.values.map(&:derivate))
+        end
+      end
+
+      def self.defaults
+        {}.tap do |defaults|
+          available.each_key do |name|
+            defaults[name] = sheet(name).default_variant
+          end
+        end
+      end
+
+      def self.dump(prefix: '')
+        Sheet::Proto.formatted(*available.values, prefix: prefix) do |proto|
+          Sheet::Proto.formatted(*proto.variants, prefix: prefix * 2)
+        end
+      end
+
+      Dir[File.join(__dir__, 'sheets', '*.rb')].each { |file| require file }
+    end
+  end
+end

data/lib/dieses/application/sheets/copperplate.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Copperplate < Sheet
+        sheet :copperplate, 'Copperplate worksheet'
+
+        include Mixins::Scribes[:sextet].with unit: [5, 7], ratio: [3/2r, 2/1r]
+
+        cline :slant,      angle: 55.0, style: Style.(stroke: 'blue', 'stroke-width': 0.1)
+        cline :connective, angle: 50.0, style: Style.(stroke: 'blue', 'stroke-width': 0.07, 'stroke-dasharray': '2, 2')
+
+        def call
+          scribes
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/cursive.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Cursive < Sheet
+        sheet :cursive, 'Cursive worksheet'
+
+        include Mixins::Scribes[:quartet].with unit: [5, 7, 10]
+
+        cline :slant, angle: 60.0, style: Style.(stroke: 'blue', 'stroke-width': 0.05)
+
+        def call
+          scribes
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/graph.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Graph < Sheet
+        sheet :graph, 'Graph worksheet'
+
+        include Mixins::Lines
+        include Mixins::Squares
+
+        variate unit: [5, 7, 10], square: [6, 8] do
+          self.name = "#{unit}#{square}"
+          self.desc = "#{square} squares with #{unit} mm unit"
+        end
+
+        hline :hline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+        vline :vline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+
+        def call
+          lines   multiple: param.square
+          squares multiple: param.square
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/italics.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Italics < Sheet
+        sheet :italics, 'Italics worksheet'
+
+        include Mixins::Scribes[:quartet].with unit: [5, 7, 10]
+
+        cline :slant, angle: 81.0, style: Style.(stroke: 'blue', 'stroke-width': 0.05)
+
+        def call
+          scribes
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/lettering.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Lettering < Sheet
+        sheet :lettering, 'Lettering worksheet'
+
+        include Mixins::Lines
+        include Mixins::Squares
+
+        variate unit: [5], square: [6, 8] do
+          self.name = "#{unit}#{square}"
+          self.desc = "#{square} squares with #{unit} mm unit"
+        end
+
+        hline :hline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+        vline :vline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+
+        cline :slant,      angle: 52.0, style: Style.(stroke: 'blue', 'stroke-width': 0.1)
+        cline :connective, angle: 30.0, style: Style.(stroke: 'blue', 'stroke-width': 0.07, 'stroke-dasharray': '2, 2')
+
+        def call
+          lines   multiple: param.square
+          squares multiple: param.square
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/lined.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Lined < Sheet
+        sheet :lined, 'Lined worksheet'
+
+        include Mixins::Lines
+
+        variate unit: [5, 7, 10] do
+          self.name = unit.to_s
+          self.desc = "#{unit} mm unit"
+        end
+
+        hline :hline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+
+        def call
+          lines
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/print.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Print < Sheet
+        sheet :print, 'Print style worksheet'
+
+        include Mixins::Scribes[:quartet].with unit: [5, 7, 10]
+
+        vline :vline, style: Style.(stroke: 'blue', 'stroke-width': '0.05')
+
+        def call
+          scribes
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/ruled.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Ruled < Sheet
+        sheet :ruled, 'Ruled worksheet'
+
+        include Mixins::Lines
+
+        variate unit: [5, 7, 10] do
+          self.name = unit.to_s
+          self.desc = "#{unit} mm unit"
+        end
+
+        hline :hline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+        vline :vline, style: Style.(stroke: 'blue', 'stroke-width': '0.1')
+
+        def call
+          lines
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/spencerian.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Spencerian < Sheet
+        sheet :spencerian, 'Spencerian worksheet'
+
+        include Mixins::Scribes[:sextet].with unit: [5, 7], ratio: [3/2r, 2/1r]
+
+        cline :slant,      angle: 52.0, style: Style.(stroke: 'blue', 'stroke-width': 0.1)
+        cline :connective, angle: 30.0, style: Style.(stroke: 'blue', 'stroke-width': 0.07, 'stroke-dasharray': '2, 2')
+
+        def call
+          scribes
+        end
+      end
+    end
+  end
+end

data/lib/dieses/application/sheets/thumbnail.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+module Dieses
+  module Application
+    module Sheets
+      class Thumbnail < Sheet
+        sheet :thumbnail, 'Thumbnails'
+
+        DENSITY = {
+          '1': Param.(row: 4, col: 4, width: 8, height: 10),
+          '3': Param.(row: 3, col: 6, width: 8, height: 10),
+          '2': Param.(row: 5, col: 5, width: 6, height: 8),
+          '4': Param.(row: 4, col: 7, width: 6, height: 8)
+        }.freeze
+
+        variate density: %i[1 2 3 4], unit: 5 do
+          self.name = density.to_s
+          self.desc = "Density #{density}"
+        end
+
+        def call
+          row, col, width, height = DENSITY[param.density].to_a
+
+          draw unit: param.unit do
+            repeat row do
+              repeat col do
+                rect :rect, width: width, height: height, style: Style.(stroke: 'blue', 'stroke-width': '0.2', fill: 'none') # rubocop:disable Layout/LineLength
+                right(width + 1)
+              end
+              down(height + 1)
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/dieses/error.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Dieses
+  Error = Class.new StandardError
+end

data/lib/dieses/geometry.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+require_relative 'geometry/error'
+require_relative 'geometry/element'
+require_relative 'geometry/point'
+require_relative 'geometry/equation'
+require_relative 'geometry/line'
+require_relative 'geometry/rect'