sevgi 0.0.0

data/lib/sevgi/standard/data.rb

@@ -0,0 +1,79 @@
+# frozen_string_literal: true
+
+module Sevgi
+  module Standard
+    module Group
+      def all                    = @all ||= Set[*data.values.flatten.uniq.sort]
+
+      def is?(name, group)       = self[group].include?(name)
+
+      def pick(names, *groups)   = names.select { |name| groups.any? { is?(name, _1) } }
+
+      def set(*groups)           = groups.empty? ? all : Set[*data.values_at(*groups).flatten.compact.uniq.sort]
+
+      def unpick(names, *groups) = names.reject { |name| groups.any? { is?(name, _1) } }
+
+      class << self
+        def extended(base) = base.extend(List)
+      end
+    end
+
+    private_constant :Group
+
+    module Attribute
+      extend Group
+
+      require_relative "data/attribute"
+    end
+
+    private_constant :Attribute
+
+    module Element
+      extend Group
+
+      require_relative "data/element"
+    end
+
+    private_constant :Element
+
+    module Specification
+      extend List
+      extend self
+
+      require_relative "data/specification"
+
+      def [](name)              = expand(name)
+
+      def group?(name)          = F.start_with_upper?(name)
+
+      def model?(name, *models) = models.any? { (self[name] || {})[:model] == name }
+
+      private
+
+      @spec = {}
+
+      def expand(name)
+        @spec[name] ||= if data[name]
+          data[name].dup.tap do |spec|
+            expand_names(spec[:elements],   Element.data)
+            expand_names(spec[:attributes], Attribute.data)
+          end
+        end
+      end
+
+      def expand_names(names, list)
+        return unless names
+
+        names.replace(names.map { |name| group?(name) ? list[name] : name }.flatten)
+      end
+
+      # For testing purposes
+
+      def charge = data.keys { expand(_1) }
+
+      def flush  = (@spec = {})
+    end
+
+    private_constant :Specification
+  end
+end

data/lib/sevgi/standard/errors.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+module Sevgi
+  class ValidationError < Error
+    def initialize(context, args)
+      @context = context
+      @args    = Array(args)
+
+      super()
+    end
+
+    class << self
+      def call(context, args) = raise(new(context, args))
+
+      def variant(message)
+        Class.new(self) do
+          define_method(:message) { [@context, message, @args.map { "'#{_1}'" }.join(", ")].join(": ") }
+        end
+      end
+    end
+  end
+
+  InvalidAttributesError = ValidationError.variant("Invalid attribute(s)")
+  InvalidElementsError   = ValidationError.variant("Invalid element(s)")
+  UnallowedCDataError    = ValidationError.variant("Character data not allowed")
+  UnallowedElementsError = ValidationError.variant("Element(s) not allowed")
+  UnmetConditionError    = ValidationError.variant("Condition unmet for the element")
+end

data/lib/sevgi/standard/model.rb

@@ -0,0 +1,82 @@
+# frozen_string_literal: true
+
+module Sevgi
+  module Standard
+    module Model
+      module CDataOnly
+        def apply(cdata:, elements:)
+          UnallowedElementsError.(element, elements) unless elements.empty?
+        end
+      end
+
+      module CDataOrSomeElements
+        def apply(cdata:, elements:)
+          unallowed = elements - spec[:elements]
+          UnallowedElementsError.(element, unallowed) unless unallowed.empty?
+        end
+      end
+
+      module NoneElements
+        def apply(cdata:, elements:)
+          UnallowedCDataError.(element, cdata) if cdata
+
+          UnallowedElementsError.(element, elements) unless elements.empty?
+        end
+      end
+
+      module SomeElements
+        def apply(cdata:, elements:)
+          UnallowedCDataError.(element, cdata) if cdata
+
+          unallowed = elements - spec[:elements]
+          UnallowedElementsError.(element, unallowed) unless unallowed.empty?
+        end
+      end
+
+      module SpecialFeDiffuseLighting
+        # Any number of Descriptive elements and exactly one FilterLightSource element, in any order.
+        def apply(cdata:, elements:)
+          UnallowedCDataError.(element, cdata) if cdata
+
+          unless (filter_light_source_elements = Element.pick(elements, :FilterLightSource)).size == 1
+            UnmetConditionError.(element, "Exactly one FilterLightSource element required")
+          end
+
+          unless (unallowed = Element.unpick(elements - filter_light_source_elements, :Descriptive)).empty?
+            UnallowedElementsError.(element, unallowed)
+          end
+        end
+      end
+
+      module SpecialFeSpecularLighting
+        # Exactly one FilterLightSource element first and any number of Descriptive elements in any order.
+        def apply(cdata:, elements:)
+          UnallowedCDataError.(element, cdata) if cdata
+
+          unless Element.is?(elements.first, :FilterLightSource)
+            UnmetConditionError.(element, "Exactly one FilterLightSource element as first required")
+          end
+
+          unless (unallowed = Element.unpick(elements[1..], :Descriptive)).empty?
+            UnallowedElementsError.(element, unallowed) unless unallowed.empty?
+          end
+        end
+      end
+
+      module SpecialFontFace
+        # Any number of Descriptive elements and at most one font-face element in any order.
+        def apply(cdata:, elements:)
+          UnallowedCDataError.(element, cdata) if cdata
+
+          if (font_face_elements = elements.select { |element| element == :"font-face" }).size > 1
+            UnmetConditionError.(element, "At most one font-face element allowed")
+          end
+
+          unless (unallowed = Element.unpick(elements - font_face_elements, :Descriptive)).empty?
+            UnallowedElementsError.(element, unallowed)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/sevgi/standard.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+require_relative "standard/errors"
+
+require_relative "standard/data"
+require_relative "standard/conform"
+
+module Sevgi
+  module Standard
+    extend self
+
+    def attributes(...)  = Attribute.set(...)
+
+    def attribute?(name) = Attribute.all.include?(name.to_sym)
+
+    def conform(...)     = Conform.(...)
+
+    def elements(...)    = Element.set(...)
+
+    def element?(name)   = Element.all.include?(name.to_sym)
+
+    def model?(...)      = Specification.model?(...)
+
+    def [](name)         = Specification[name.to_sym]
+  end
+end

data/lib/sevgi/utensils/external.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+module Sevgi
+  module Utensils
+    module External
+      def Ruler(...)
+        Ruler.new(...)
+      end
+
+      def Ts(canvas, unit:, multiple:)
+        ArgumentError.("Must be a Canvas: #{canvas}") unless canvas.is_a?(Graphics::Canvas)
+
+        Tsquare.new(
+          hruler: Utensils::Ruler.new(brut: canvas.width,  unit:, multiple:, minspace: canvas.left),
+          vruler: Utensils::Ruler.new(brut: canvas.height, unit:, multiple:, minspace: canvas.top),
+        )
+      end
+    end
+
+    extend External
+  end
+end

data/lib/sevgi/utensils/grid.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+module Sevgi
+  module Utensils
+    class Grid
+      Types = Struct.new(:point, :contour, :segment)
+      private_constant :Types
+
+      Parts = Struct.new(:halves, :majors, :minors)
+      private_constant :Parts
+
+      attr_reader :h, :v
+
+      def initialize(ts)
+        @h = Types.new
+        @v = Types.new
+
+        compute(ts)
+      end
+
+      def all = @all ||= Parts.new(halves: h.point.halves.flatten, majors: h.point.majors.flatten, minors: h.point.minors.flatten)
+
+      alias_method :a, :all
+
+      private
+
+      def compute(ts)
+        lps = points(ts.v.ls, ts.h.ls) # array of halve (l) points
+        mps = points(ts.v.ms, ts.h.ms) # array of major (m) points
+        nps = points(ts.v.ns, ts.h.ns) # array of minor (n) points
+
+        h.point, h.contour, h.segment = parts(lps,           mps,           nps)
+        v.point, v.contour, v.segment = parts(lps.transpose, mps.transpose, nps.transpose)
+      end
+
+      def parts(lps, mps, nps)
+        [
+          Parts.new(halves: lps,                   majors: mps,                   minors: nps),                   # points
+          Parts.new(halves: [lps.first, lps.last], majors: [mps.first, mps.last], minors: [nps.first, nps.last]), # contours
+          Parts.new(halves: segments(lps),         majors: segments(mps),         minors: segments(nps)),         # segments
+        ]
+      end
+
+      def segments(a)    = a.first.zip(a.last).map { Geometry::Segment[_1, _2] }
+
+      def points(va, ha) = va.map { |y| ha.map { |x| Geometry::Point[x, y] } }
+    end
+  end
+end

data/lib/sevgi/utensils/ruler.rb

@@ -0,0 +1,47 @@
+# frozen_string_literal: true
+
+# codebeat:disable[TOO_MANY_IVARS]
+
+module Sevgi
+  module Utensils
+    #
+    # <------------------------------------------------- brut -------------------------------------------------->
+    #              <------------------------- length = (n - 1) x minor = (m - 1) x major ----------------------->
+    # <-   space  ->         <- minor ->                   <------- major = multiple x minor ------>
+    # |............|---------+---------+---------+---------|---------+---------+---------+---------|............|
+    #       |
+    #       +--> space = minspace + computed space for evenness
+    #
+    class Ruler
+      attr_reader :unit, :multiple, :brut, :minspace
+
+      def initialize(unit:, multiple:, brut:, minspace:)
+        @brut, @unit, @minspace = brut.to_f, unit.to_f, minspace.to_f
+        @multiple               = multiple
+      end
+
+      def halve  = @halve  ||= major / 2.0
+      def length = @length ||= (n - 1) * unit
+      def major  = @major  ||= multiple * unit
+      def space  = @space  ||= brut - length
+
+      def l      = @l      ||= 2 * m - 1
+      def ls     = @ls     ||= Array.new(l) { |i| i * halve }
+
+      def m      = @m      ||= even(unit: major) + 1
+      def ms     = @ms     ||= Array.new(m) { |i| i * major }
+
+      def n      = @n      ||= even(unit:, multiple:) + 1
+      def ns     = @ns     ||= Array.new(n) { |i| i * unit }
+
+      alias_method :minor, :unit
+
+      private
+
+      def even(unit: nil, multiple: 1)
+        (n = ((brut - 2 * minspace) / (multiple * unit).to_f).to_i).even? ? n : (n - 1)
+        n * multiple
+      end
+    end
+  end
+end

data/lib/sevgi/utensils/tsquare.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+require "forwardable"
+
+module Sevgi
+  module Utensils
+    class Tsquare
+      extend Forwardable
+      def_delegators :@h, :halve, :major, :minor
+
+      def_delegator  :@h, :length, :width
+      def_delegator  :@v, :length, :height
+
+      attr_reader :h, :v
+
+      def initialize(hruler:, vruler:)
+        @h = hruler
+        @v = vruler
+      end
+
+      def canvas = Graphics::Canvas.new(**Dim[h.brut, v.brut].to_h, margins: Margin[v.space / 2.0, h.space / 2.0].to_a)
+
+      def grid   = Grid.new(self)
+
+      alias_method :unit, :minor
+    end
+  end
+end

data/lib/sevgi/utensils.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+require_relative "utensils/ruler"
+require_relative "utensils/tsquare"
+require_relative "utensils/grid"
+
+require_relative "utensils/external"

data/lib/sevgi/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Sevgi
+  VERSION = "0.0.0"
+end

data/lib/sevgi.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+require_relative "sevgi/internal"
+require_relative "sevgi/errors"
+require_relative "sevgi/function"
+
+require_relative "sevgi/graphics"
+require_relative "sevgi/geometry"
+require_relative "sevgi/standard"
+require_relative "sevgi/utensils"

metadata

@@ -0,0 +1,127 @@
+--- !ruby/object:Gem::Specification
+name: sevgi
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+platform: ruby
+authors:
+- Recai Oktaş
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2023-09-23 00:00:00.000000000 Z
+dependencies: []
+description: Toolkit for Creating SVG Content Programmatically with Ruby
+email: roktas@gmail.com
+executables:
+- sevgi
+extensions: []
+extra_rdoc_files: []
+files:
+- CHANGELOG.md
+- LICENSE
+- README.md
+- bin/sevgi
+- lib/sevgi.rb
+- lib/sevgi/errors.rb
+- lib/sevgi/external.rb
+- lib/sevgi/function.rb
+- lib/sevgi/geometry.rb
+- lib/sevgi/geometry/elements.rb
+- lib/sevgi/geometry/elements/rect.rb
+- lib/sevgi/geometry/elements/segment.rb
+- lib/sevgi/geometry/equation.rb
+- lib/sevgi/geometry/equation/line.rb
+- lib/sevgi/geometry/equation/line/diagonal.rb
+- lib/sevgi/geometry/equation/line/horizontal.rb
+- lib/sevgi/geometry/equation/line/vertical.rb
+- lib/sevgi/geometry/errors.rb
+- lib/sevgi/geometry/external.rb
+- lib/sevgi/geometry/operation.rb
+- lib/sevgi/geometry/operation/align.rb
+- lib/sevgi/geometry/operation/sweep.rb
+- lib/sevgi/geometry/point.rb
+- lib/sevgi/graphics.rb
+- lib/sevgi/graphics/attribute.rb
+- lib/sevgi/graphics/canvas.rb
+- lib/sevgi/graphics/content.rb
+- lib/sevgi/graphics/document.rb
+- lib/sevgi/graphics/document/base.rb
+- lib/sevgi/graphics/document/default.rb
+- lib/sevgi/graphics/document/html.rb
+- lib/sevgi/graphics/document/inkscape.rb
+- lib/sevgi/graphics/document/minimal.rb
+- lib/sevgi/graphics/element.rb
+- lib/sevgi/graphics/external.rb
+- lib/sevgi/graphics/mixtures.rb
+- lib/sevgi/graphics/mixtures/core.rb
+- lib/sevgi/graphics/mixtures/duplicate.rb
+- lib/sevgi/graphics/mixtures/hatch.rb
+- lib/sevgi/graphics/mixtures/identify.rb
+- lib/sevgi/graphics/mixtures/inkscape.rb
+- lib/sevgi/graphics/mixtures/lint.rb
+- lib/sevgi/graphics/mixtures/render.rb
+- lib/sevgi/graphics/mixtures/replicate.rb
+- lib/sevgi/graphics/mixtures/save.rb
+- lib/sevgi/graphics/mixtures/transform.rb
+- lib/sevgi/graphics/mixtures/underscore.rb
+- lib/sevgi/graphics/mixtures/validate.rb
+- lib/sevgi/graphics/mixtures/wrappers.rb
+- lib/sevgi/internal.rb
+- lib/sevgi/internal/constant.rb
+- lib/sevgi/internal/dim.rb
+- lib/sevgi/internal/function.rb
+- lib/sevgi/internal/function/file.rb
+- lib/sevgi/internal/function/float.rb
+- lib/sevgi/internal/function/formula.rb
+- lib/sevgi/internal/function/math.rb
+- lib/sevgi/internal/function/string.rb
+- lib/sevgi/internal/list.rb
+- lib/sevgi/internal/locate.rb
+- lib/sevgi/internal/margin.rb
+- lib/sevgi/internal/minitest.rb
+- lib/sevgi/internal/minitest/script.rb
+- lib/sevgi/internal/minitest/shell.rb
+- lib/sevgi/internal/minitest/suite.rb
+- lib/sevgi/internal/paper.rb
+- lib/sevgi/standard.rb
+- lib/sevgi/standard/conform.rb
+- lib/sevgi/standard/data.rb
+- lib/sevgi/standard/data/attribute.rb
+- lib/sevgi/standard/data/element.rb
+- lib/sevgi/standard/data/specification.rb
+- lib/sevgi/standard/errors.rb
+- lib/sevgi/standard/model.rb
+- lib/sevgi/utensils.rb
+- lib/sevgi/utensils/external.rb
+- lib/sevgi/utensils/grid.rb
+- lib/sevgi/utensils/ruler.rb
+- lib/sevgi/utensils/tsquare.rb
+- lib/sevgi/version.rb
+homepage: https://roktas.dev/sevgi
+licenses:
+- GPL-3.0-or-later
+metadata:
+  changelog_uri: https://github.com/roktas/sevgi/blob/main/CHANGELOG.md
+  source_code_uri: https://github.com/roktas/sevgi
+  bug_tracker_uri: https://github.com/roktas/sevgi/issues
+  rubygems_mfa_required: 'true'
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.2.2
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.4.19
+signing_key: 
+specification_version: 4
+summary: Toolkit for Creating SVG Content Programmatically with Ruby
+test_files: []