fxruby-enhancement 0.1.0 → 0.2.0

data/lib/fxruby-enhancement/xtras/charting.rb

@@ -0,0 +1,336 @@
+# coding: utf-8
+require_relative 'charting-boxes'
+
+module Fox
+  module Enhancement
+    module Xtras
+      # Charting constructs. Note that the
+      # rulers have built-in their own labeling, with orientation.
+      module Charting
+        # range in real coordinates, beginning and end points
+        class Range
+          attr_accessor :x1, :y1, :x2, :y2
+          
+          def initialize x1, y1, x2, y2
+            @x1 = x1
+            @y1 = y1
+            @x2 = x2
+            @y2 = y2
+          end
+        end
+        
+        class Chart
+          extend Forwardable
+          include RGB
+          
+          def_delegators :@canvas, :width, :height, :visual
+          def_delegators :@cos, :type,
+                         :axial, :data, :series, :domain, :range,
+                         :background, :caption, :title
+          
+          attr_accessor :buffer, :x_range, :y_range
+          
+          def initialize cos, canvas
+            @cos = cos
+            @canvas = canvas
+            as (:app) {
+              @buffer = fx_image { opts IMAGE_KEEP }
+            }
+            # detailed chart parameters
+            @x_ruler_width = 20
+            @y_ruler_height = 20
+            @font_title = nil
+            @font_caption = nil
+            @font_ledgend = nil
+            @font_axis_name = nil
+
+            # chart layout
+            lytbox = ->(klass, **kv){ [kv[:name], klass.new(self, **kv)] }
+            @layout = lyt = [
+              lytbox.(NullBox, name: :null_left,    placement: :left),
+              lytbox.(NullBox, name: :null_right,   placement: :right),
+              lytbox.(NullBox, name: :null_top,     placement: :top),
+              lytbox.(NullBox, name: :null_bottom,  placement: :bottom),
+              lytbox.(Title,   name: :title,        float: true),
+              lytbox.(Ruler,   name: :top_ruler,    orient: :horizontal, placement: :top),
+              lytbox.(Ruler,   name: :bottom_ruler, orient: :horizontal, placement: :bottom),
+              lytbox.(Ruler,   name: :left_ruler,   orient: :vertical,   placement: :left),
+              lytbox.(Ruler,   name: :right_ruler,  orient: :vertical,   placement: :right),
+              lytbox.(Caption, name: :caption,      float: true),
+              lytbox.(Legend,  name: :legend,       float: true),
+              lytbox.(Graph,   name: :graph)
+            ].to_h
+            
+            # bottom connections
+            lyt[:null_top].bottom_box     = lyt[:title]
+            lyt[:title].bottom_box        = lyt[:top_ruler]
+            lyt[:top_ruler].bottom_box    = lyt[:graph]
+            lyt[:graph].bottom_box        = lyt[:bottom_ruler]
+            lyt[:bottom_ruler].bottom_box = lyt[:caption]
+            lyt[:caption].bottom_box      = lyt[:null_bottom]
+
+            # right connections
+            lyt[:null_left].right_box     = lyt[:left_ruler]
+            lyt[:left_ruler].right_box    = lyt[:graph]
+            lyt[:graph].right_box         = lyt[:right_ruler]
+            lyt[:right_ruler].right_box   = lyt[:legend]
+            lyt[:legend].right_box        = lyt[:null_right]
+            
+            backlink_boxes
+          end
+
+          def backlink_boxes
+            @layout.each{ |name, box|
+              box.bottom_box.top_box = box unless box.bottom_box.nil?
+              box.right_box.left_box = box unless box.right_box.nil?
+            }
+          end
+
+          # call inially and when there's an update.
+          def layout_boxes
+            clear_all_boxes
+            recalculate_dimensions
+            
+            # first pass -- out to in
+            (0..Box::MAX_DOMINANCE).each do |dom|
+              boxes_of_dominance(dom).each{ |box| layout_box box }
+            end
+            
+            # second pass -- in to out
+            (1..Box::MAX_DOMINANCE).to_a.reverse.each do |dom|
+              boxes_of_dominance(dom).each{ |box| layout_box box }
+            end
+          end
+
+          # All x,y,width,height are nilled for all boxes
+          def clear_all_boxes
+            @layout.each { |name, box|
+              box.x = box.y = box.width = box.height = nil
+            }
+          end
+
+          def recalculate_dimensions
+            @layout.each { |name, box|
+              box.calculate_dimensions
+            }
+          end
+          
+          # Layout given box, as much as possible, given neighbors.
+          # may be called twice per box.
+          # 
+          def layout_box box
+            if box.dominance == 0 # the only box with a dom of 0 are the null boxes
+              case box.name
+              when :null_left
+                box.x = 0
+                box.y = 0
+                box.width = 0
+                box.height = height
+              when :null_right
+                box.x = width
+                box.y = 0
+                box.width = 0
+                box.height = height
+              when :null_top
+                box.x = 0
+                box.y = 0
+                box.width = width
+                box.height = 0
+              when :null_bottom
+                box.x = 0
+                box.y = height
+                box.width = width
+                box.height = 0
+              end              
+            else # we do what we can.
+              box.calculate_dimensions
+              subordinates(box).each { |sub|
+                begin
+                  case sub
+                  when box.left_box
+                    box.x = sub.x + sub.width + sub.right_margin + box.left_margin
+                  when box.right_box
+                    box.x = sub.x - sub.left_margin - box.right_margin - box.width
+                  when box.top_box
+                    box.y = sub.y + sub.height + sub.bottom_margin + box.top_margin
+                  when box.bottom_box                  
+                    box.y = sub.y - sub.top_margin - box.bottom_margin - box.height
+                  end
+                rescue NoMethodError, TypeError => e
+                  #puts "-->subortinate unresolved: #{e}"
+                end
+              }
+              
+              superiors(box).each { |sup|
+                begin
+                  case sup
+                  when box.left_box
+                    box.height = sup.height 
+                    box.y = sup.y
+                    box.x = sup.x + sup.width + sup.right_margin + box.left_margin
+                  when box.right_box
+                    box.height = sup.height
+                    box.y = sup.y                                        
+                  when box.top_box
+                    box.width = sup.width
+                    box.x = sup.x
+                  when box.bottom_box
+                    box.width = sup.width
+                    box.x = sup.x
+                  end
+                rescue NoMethodError, TypeError => e
+                  #puts "-->superior unresolved: #{e}"
+                end unless box.floating?
+              }
+            end
+          end
+
+          # Give a list of subordinates
+          def subordinates box
+            Box::NÄHE.map{ |b| box.send(b) }
+              .compact
+              .select { |nbox| box.dominance > nbox.dominance }            
+          end
+          
+          # Give a list of superiors
+          def superiors box
+            Box::NÄHE.map{ |b| box.send(b) }
+              .compact
+              .select { |nbox| box.dominance < nbox.dominance }            
+          end
+
+          # return all boxes with the proscribed dominance
+          def boxes_of_dominance dom
+            @layout.map{ |name, box| box }.select{ |box| box.dominance == dom }
+          end
+          
+          def draw_dc &block
+            @buffer.starten if @buffer.inst.nil?
+            FXDCWindow.new(@buffer.inst) { |dc| block.(dc) }
+          end
+          
+          def update_chart
+            layout_boxes
+            draw_dc { |dc|
+              dc.setForeground white
+              dc.fillRectangle 0, 0, width, height
+              dc.drawImage @buffer.inst, 0, 0
+              @layout.each{ |name, box| box.render(dc) }
+            }
+            @canvas.update
+          end
+        end
+      end
+    end
+      
+    module Mapper
+      def fx_chart name = nil,
+                   ii: 0,
+                   pos: Enhancement.stack.last,
+                   reuse: nil,
+                   &block
+        Enhancement.stack << (@os = os =
+                              OpenStruct.new(klass: FXCanvas,
+                                               op: [],
+                                               ii: ii,
+                                               fx: nil,
+                                               kinder: [],
+                                               inst: nil,
+                                               instance_result: nil,
+                                               reusable: reuse,
+                                               type: :cartesian,
+                                               axial: OpenStruct.new,
+                                               background: OpenStruct.new,
+                                               caption: OpenStruct.new,
+                                               title: OpenStruct.new))
+        Enhancement.components[name] = os unless name.nil?
+        unless pos.nil?
+          pos.kinder << os 
+        else
+          Enhancement.base = os
+        end
+        
+        @os.op[0] = OpenStruct.new(:parent => :required,
+                                     :target => nil,
+                                     :selector => 0,
+                                     :opts => FRAME_NORMAL,
+                                     :x => 0,
+                                     :y => 0,
+                                     :width => 0,
+                                     :height => 0)
+        
+        # Initializers for the underlying 
+        def target var; @os.op[@os.ii].target = var; end
+        def selector var; @os.op[@os.ii].selector = var; end
+        def opts var; @os.op[@os.ii].opts = var; end
+        def x var; @os.op[@os.ii].x = var; end
+        def y var; @os.op[@os.ii].y = var; end
+        def width var; @os.op[@os.ii].width = var; end
+        def height var; @os.op[@os.ii].height = var; end
+        
+        # Chart specific
+          def type var; @os.type = var; end
+          
+          def axis ax, **kv
+            @os.axial[ax] = OpenStruct.new(**kv)
+          end
+          
+          def data *dat; @os.data = dat; end        
+          def series ser; @os.series = ser; end
+          def domain a, b; @os.domain = [a, b]; end
+          def range a, b; @os.range = [a, b]; end
+          
+          def background **kv; kv.each{ |k,v| @os.background[k] = v }; end
+          def caption **kv; kv.each{ |k,v| @os.caption[k] = v }; end
+          def title **kv; kv.each{ |k,v| @os.title[k] = v }; end
+          
+          # What will be executed after FXCanvas is created.
+          def instance aname=nil, &block
+            @os.instance_name = aname
+            @os.instance_block ||= []
+            @os.instance_block << [aname, block]
+          end
+          
+          # Internal use only.
+          def chart_instance os, &block
+            os.instance_name = nil
+            os.instance_block ||= []
+            os.instance_block << [nil, block]
+            return os
+          end
+          
+          self.instance_eval &block
+          
+          os.fx = ->(){
+            chart_instance (os) { |c|
+              os.chart = Xtras::Charting::Chart.new os, c
+              os.inst.instance_variable_set(:@chart, os.chart)
+            }
+            
+            c = FXCanvas.new(*([pos.inst] + os.op[os.ii].to_h.values[1..-1]
+                                            .map{ |v| (v.is_a?(OpenStruct) ? v.inst : v)} ))
+            c.extend SingleForwardable
+            c.def_delegators :@chart, :update_chart
+            c.sel_configure { |sender, sel, event|
+              os.chart.buffer.starten if os.chart.buffer.inst.nil?
+              bb = os.chart.buffer.inst
+              bb.create unless bb.created?
+              bb.resize sender.width, sender.height
+            }
+            c.sel_paint { |sender, sel, event|
+              FXDCWindow.new(sender, event) { |dc|
+                os.chart.buffer.starten if os.chart.buffer.inst.nil?
+                dc.drawImage(os.chart.buffer.inst, 0, 0)
+              }
+            }
+            c
+          }
+          
+          Enhancement.stack.pop                                                  
+          @os = Enhancement.stack.last
+          return os
+      end
+    end
+  end
+end
+

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: fxruby-enhancement
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.2.0
 platform: ruby
 authors:
 - Fred Mitchell
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-01-20 00:00:00.000000000 Z
+date: 2017-02-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: semver2
@@ -86,6 +86,20 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '0'
+- !ruby/object:Gem::Dependency
+  name: rgb
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0'
 - !ruby/object:Gem::Dependency
   name: rspec
   requirement: !ruby/object:Gem::Requirement
@@ -283,15 +297,30 @@ files:
 - examples/.ruby-version
 - examples/bounce.rb
 - examples/data_target.rb
+- examples/debug
 - examples/dialog_box.rb
 - examples/hello.rb
+- examples/images/bounce.rb.png
+- examples/images/data_target.rb.png
+- examples/images/dialog_box.rb.png
+- examples/images/hello-world-new-and-old.png
+- examples/images/hello.rb.png
+- examples/images/rubyneat-panel.png
+- examples/images/scribble.rb.png
+- examples/scribble.rb
 - fxruby-enhancement.gemspec
 - lib/fxruby-enhancement.rb
 - lib/fxruby-enhancement/api-mapper.rb
 - lib/fxruby-enhancement/api-mapper.rb.erb
+- lib/fxruby-enhancement/color-mapper.rb
+- lib/fxruby-enhancement/color-mapper.rb.erb
 - lib/fxruby-enhancement/core-monkey.rb
 - lib/fxruby-enhancement/enhancement.rb
 - lib/fxruby-enhancement/ostruct-monkey.rb
+- lib/fxruby-enhancement/rgb-monkey.rb
+- lib/fxruby-enhancement/xtras.rb
+- lib/fxruby-enhancement/xtras/charting-boxes.rb
+- lib/fxruby-enhancement/xtras/charting.rb
 - spec/fxruby-enhancement_spec.rb
 - spec/spec_helper.rb
 homepage: http://github.com/flajann2/fxruby-enhancement