gerbilcharts 0.0.3

data/lib/gerbilcharts/surfaces/basic_grid.rb

@@ -0,0 +1,17 @@
+module GerbilCharts::Surfaces
+
+# Basic Grid - just X-markers light dashed
+#
+class BasicGrid < Grid
+    def initialize(opts={})
+      super(opts)
+      @class = "grid"
+    end
+    
+    def int_render(g)
+      super
+    end
+    
+end
+
+end

data/lib/gerbilcharts/surfaces/chart.rb

@@ -0,0 +1,132 @@
+module GerbilCharts::Surfaces
+
+# == Chart - container class
+# Base from which all chart are derived
+class Chart < GraphElement
+
+  attr_reader    :anchor
+  attr_reader    :elements
+  attr_reader    :needslayout
+  attr_reader    :modelgroup
+  attr_reader    :stylesheet
+  attr_reader    :filters
+  attr_reader    :href
+  attr_reader    :javascripts
+  attr_reader    :ajaxOptions
+  attr_reader    :ajaxContext
+  
+  def initialize( opt={})
+    super(opt)
+    set_defaults
+    @children  = []
+    @filters = []
+    @stylesheet = opt[:style] if defined? opt[:style] 
+    @javascripts = opt[:javascripts] if opt[:javascripts]
+    @needslayout=false
+  end
+  
+  def set_defaults
+     @javascripts = { "/javascripts/gerbil.js" => false, "/javascripts/prototype.js" => false }
+  end
+  
+  def set_modelgroup(g)
+    @modelgroup=g
+  end
+  
+  def usesAjax?
+    if @ajaxOptions
+      return true
+    else
+      return false
+    end
+  end
+  
+  def set_ajaxOptions(h)
+    @ajaxOptions={} if @ajaxOptions == nil
+    @ajaxOptions.merge!(h)
+  end
+  
+  def set_ajaxContext(h)
+    @ajaxContext={} if @ajaxContext == nil
+    @ajaxContext.merge!(h)
+  end
+  
+  
+  def add_child(e,opts={})
+      @children << e
+      @needslayout=true
+      e.setparent(self)
+	 set_anchor(e) if opts[:anchor]
+  end
+  
+  def render(ropts={})
+    svgdc = GerbilCharts::SVGDC::SVGDC.new(@bounds.width, @bounds.height)
+    
+    dolayout if @needslayout
+    
+    @children.each do |ch|
+      ch.render(svgdc)
+    end
+    
+    @filters.each do |f|
+      svgdc.add_filter(f)
+    end
+    
+    @javascripts.each_pair do |scr,inline|
+      svgdc.add_javascriptfile(scr, inline) 
+    end
+    
+    # set model hash, and other template contexts
+    if @ajaxOptions
+      @ajaxContext.store(:axdigest,@modelgroup.models_digest)
+    end
+    
+    svgdc.set_ajaxOptions(@ajaxOptions) if @ajaxOptions
+    
+    svgdc.set_ajaxContext(@ajaxContext) if @ajaxContext
+       
+    svgdc.set_stylesheet(@stylesheet)  if  @stylesheet
+    
+    svgdc.render(ropts)
+  end
+  
+  def getmodelgroup
+    return @modelgroup
+  end
+  
+  def create_filter(f)
+    @filters << f
+  end
+  
+  def sethref(h)
+    @href=h
+  end
+  
+protected
+  def dolayout
+      spare = Rect.new
+      spare.from_wh @bounds.width,@bounds.height
+      
+      @children.each do |ch|
+        spare=ch.munch spare
+      end
+
+      @anchor.setbounds spare
+      
+      @children.each do |ch|
+        ch.align_to_anchor @anchor
+      end
+      
+      @needslayout=false
+  end
+
+private
+  def set_anchor(a)
+    raise "Only one anchor element supported" if @anchor
+    @anchor =a 
+  end
+end
+
+end
+
+

data/lib/gerbilcharts/surfaces/graph_element.rb

@@ -0,0 +1,170 @@
+module GerbilCharts::Surfaces
+
+# Graph - base for everything you place on the graph (all rectangular)
+#
+class GraphElement
+
+  # constants 
+  EXP_FIXED=1
+  EXP_FILL=2
+
+  # orientations
+  ORIENT_NORTH=1
+  ORIENT_SOUTH=2
+  ORIENT_EAST=3
+  ORIENT_WEST=4
+  ORIENT_NORTHEAST=5
+  ORIENT_NORTHWEST=6
+  ORIENT_SOUTHEAST=7
+  ORIENT_SOUTHWEST=8
+  ORIENT_OVERLAY=9
+
+  
+  # public ro attributes
+  attr_reader   :class
+  attr_reader   :group
+  attr_reader   :bounds
+  attr_reader   :lay_orient
+  attr_reader   :lay_expand
+  attr_reader   :lay_dimension
+  attr_reader   :parent
+  
+  def initialize( opt={} )
+      @lay_orient= opt[:orient] if defined? opt[:orient]
+      @lay_expand= opt[:expand] if defined? opt[:expand]
+      @lay_dimension= opt[:dim] if defined? opt[:dim]
+      @bounds = Rect.new
+      if opt[:width] and opt[:height]
+        @bounds.from_wh(opt[:width],opt[:height]) 
+      end
+      if opt[:class]
+        @class=opt[:class]
+      end
+      @group="default"
+	  @global_chart_options=opt
+  end
+  
+  def needslayout?
+    if @lay_orient 
+      return true
+    else
+      return false
+    end
+  end
+  
+  def setparent(par)
+      @parent=par
+  end
+  
+  def isoverlay?
+    if defined? @lay_orient and @lay_orient == ORIENT_OVERLAY
+      return true
+    else
+        return false
+    end
+  end
+  
+  def scale_x val,range
+    return @bounds.left + @bounds.width * range.scale_factor(val)
+  end
+  
+  def scale_y val,range
+    return @bounds.bottom - @bounds.height * range.scale_factor(val)
+  end
+  
+  
+  def setbounds rcbounds
+    @bounds.initfrom rcbounds
+  end
+
+  # setup SVG group element and call int_render
+  def render(sdc)
+      w=sdc.newwin(@group)
+      # w.add_transformation(TTranslate.new(@bounds.left, @bounds.top))
+      sdc.setactivewindow(w)
+      int_render(sdc)
+      sdc.setactivewindow
+  end
+  
+  # render direct  - directly render SVG using builder for complex elements
+  def render_direct(sdc)
+      raise "This Graph Element cannot render directly, incorrect usage"
+  end
+  
+  def munch(layrect)
+    raise "Element does not need to be laid out" if not needslayout?
+    
+    @bounds.initfrom(layrect)
+    case @lay_orient
+      when ORIENT_SOUTH
+            @bounds.clip_b @lay_dimension
+            layrect.crop_b @lay_dimension
+      when ORIENT_NORTH
+            @bounds.clip_t @lay_dimension
+            layrect.crop_t @lay_dimension
+      when ORIENT_EAST
+            @bounds.clip_r @lay_dimension
+            layrect.crop_r @lay_dimension
+      when ORIENT_WEST
+            @bounds.clip_l @lay_dimension
+            layrect.crop_l @lay_dimension
+      when ORIENT_SOUTHEAST
+            @bounds.clip_b @lay_dimension
+            @bounds.clip_r @lay_dimension
+      when ORIENT_NORTHEAST
+            @bounds.clip_t @lay_dimension
+            @bounds.clip_r @lay_dimension
+      when ORIENT_SOUTHWEST
+            @bounds.clip_b @lay_dimension
+            @bounds.clip_l @lay_dimension
+      when ORIENT_NORTHWEST
+            @bounds.clip_t @lay_dimension
+            @bounds.clip_l @lay_dimension
+    end
+    return layrect
+  end
+  
+  def align_to_anchor(anc)
+      case @lay_orient
+      when ORIENT_SOUTH
+            @bounds.left= anc.bounds.left
+            @bounds.right=anc.bounds.right
+      when ORIENT_NORTH
+            @bounds.left= anc.bounds.left
+            @bounds.right=anc.bounds.right
+      when ORIENT_EAST
+            @bounds.top= anc.bounds.top
+            @bounds.bottom=anc.bounds.bottom
+      when ORIENT_WEST
+            @bounds.top= anc.bounds.top
+            @bounds.bottom=anc.bounds.bottom
+      when ORIENT_OVERLAY
+            @bounds.initfrom anc.bounds
+    end
+  end
+
+  # query a global option, return the defval if option is not set
+  def get_global_option(optsym, defval)
+		  if @global_chart_options[optsym]
+			return @global_chart_options[optsym]
+		  else
+			return defval
+		  end
+  end
+  
+# utility methods to derived classes  
+protected
+  
+  def max(a,b)
+    return (a>b)?a:b
+  end
+  
+  def min(a,b)
+    return (a<b)?a:b
+  end
+
+
+end
+
+end
+

data/lib/gerbilcharts/surfaces/grid.rb

@@ -0,0 +1,38 @@
+module GerbilCharts::Surfaces
+
+# = Grid - grid overlay
+#  Draws both x and y grids
+class Grid < GraphElement
+    
+    def initialize(opts={})
+      super(opts)
+    end
+    
+    def int_render(g)
+      ry = grid_range_y
+      ry.each_label do |val,label|
+          yp = scale_y val,ry
+          g.line(@bounds.left,yp,@bounds.right,yp, {:class => "gridlineh"})
+        end
+        
+      rx = grid_range_x
+      rx.each_label do |val,label|
+          xp = scale_x val,rx
+          g.line(xp,@bounds.top,xp,@bounds.bottom, {:class => "gridlinev"})
+      end
+    end
+    
+  protected
+    
+    def grid_range_x
+      return parent.modelgroup.effective_round_range_x
+    end
+    
+    def grid_range_y
+      return parent.modelgroup.effective_round_range_y0
+    end
+    
+  
+end
+
+end

data/lib/gerbilcharts/surfaces/horizontal_axis.rb

@@ -0,0 +1,32 @@
+module GerbilCharts::Surfaces
+
+class HorizontalAxis < Axis
+
+    def initialize(opts={})
+      @class = "haxis"
+      super(opts)
+    end
+        
+    def int_render(g)
+      super
+      
+      return if parent.modelgroup.empty?
+      
+      rx = parent.modelgroup.effective_round_range_x
+      rx.each_label do |val,label|
+          xp = scale_x val,rx
+          
+          # make sure edge ones are visible
+          if (xp>=@bounds.right-10)
+            xp = @bounds.right-10
+          end
+          
+          g.textout(xp, @bounds.top+10, label, {:class => "axislabel"})
+          g.line(xp,@bounds.top-2,xp,@bounds.top+3, {:class => "axistickmajor"})
+      end
+      
+    end
+    
+end
+
+end

data/lib/gerbilcharts/surfaces/horizontal_name_axis.rb

@@ -0,0 +1,28 @@
+module GerbilCharts::Surfaces
+
+# = Horizontal name axis
+#
+# Draws names of models instead of values, used for bar charts 
+class HorizontalNameAxis < Axis
+
+    def initialize(opts={})
+      @class = "haxis"
+      super(opts)
+    end
+        
+    def int_render(g)
+      super
+      
+	  # p "Horiz name axis #{parent.anchor.element_spacing} spacing"
+      xp = @bounds.left + parent.anchor.element_spacing + parent.anchor.element_width/2
+      parent.modelgroup.each_model_with_index  do |m,i|
+          yoff=get_stagger_off(i,10)
+          g.textout(xp, @bounds.top+15+yoff, m.name, {:class => "axislabel","text-anchor" => "middle"})
+          xp += parent.anchor.element_width + parent.anchor.element_spacing
+      end
+      
+    end
+  
+end
+
+end

data/lib/gerbilcharts/surfaces/horizontal_time_axis.rb

@@ -0,0 +1,25 @@
+module GerbilCharts::Surfaces
+
+# =  HorizontalTimeAxis
+# 	 Draws time labels along x-axis
+# 	 Most charts use this type of x-axis in time series charts
+class HorizontalTimeAxis < HorizontalAxis
+
+    def initialize(opts={})
+      @class = "haxis"
+      super(opts)
+    end
+    
+    def int_render(g)
+      super
+      
+      rx = parent.modelgroup.effective_round_range_x
+      sfmt = rx.format_min_value
+      g.textout(@bounds.left-20, @bounds.top+20, sfmt, {:class => "axislabelt0"})
+      g.line(@bounds.left,@bounds.top,@bounds.left,@bounds.top+10,{:class => "axistickmajor"})
+      
+    end
+    
+end
+
+end