gerbilcharts 0.0.3

data/lib/gerbilcharts/surfaces/impulse_surface.rb

@@ -0,0 +1,47 @@
+module GerbilCharts::Surfaces
+
+# = Impulse Bar Surface w/ transparency
+#   impulse duration = width of bar
+class ImpulseSurface < Surface
+    def initialize(opts={})
+      super(opts)
+    end
+    
+    def int_render(g)
+      
+      rx = parent.modelgroup.effective_round_range_x
+      ry = parent.modelgroup.effective_round_range_y0
+      
+	  impulse_width = 2
+	  x2  = scale_x Time.at(0),rx
+	  x1  = scale_x Time.at(parent.modelgroup.models[0].bucket_size_secs),rx
+	  impulse_width = (x2-x1).abs if x2 != x1
+
+      # ajax if used
+      if parent.usesAjax?
+        set_ajaxSurfaceContext(rx.rmax,ry.rmax,"IMPULSE")
+      end
+
+
+      
+	  w=g.newwin("impulse", "stroke-width" => impulse_width)
+	  g.setactivewindow(w)
+
+      parent.modelgroup.each_model_with_index do | mod, i|
+        opts = {:id => "item#{i}"}
+        firstpoint=true
+        xpos=0
+        ypos=0
+        mod.each_tuple do |x,y|
+          xpos = scale_x x,rx
+          ypos = scale_y y,ry
+          g.line(xpos,@bounds.bottom,xpos,ypos,opts)
+        end
+      end
+      
+	  g.setactivewindow
+    end
+
+end
+
+end

data/lib/gerbilcharts/surfaces/legend.rb

@@ -0,0 +1,59 @@
+module GerbilCharts::Surfaces
+
+# = Legend
+# legend panel shows names/colors of items in a separate box (transparent)
+class Legend < GraphElement
+  
+    attr_reader   :width
+    attr_reader   :showvalues
+    
+    def initialize(opts={})
+      @class = "legendpanel"
+      super(opts)
+      @width = opts[:dim] if defined? opts[:dim]
+    end
+    
+    def int_render(g)
+      
+      # count determines the bounds
+      @bounds.bottom = @bounds.top + 15 * parent.modelgroup.count
+      g.rectangle_r(@bounds, {:class => @class})
+      
+      rbox = Rect.new
+      rbox.initfrom(@bounds)
+      rbox.left += 2
+      rbox.right = rbox.left + 10
+      rbox.top += 2
+      rbox.bottom = rbox.top+10
+       
+      parent.modelgroup.each_model_with_index do | mod, i|
+      
+        
+        g.rectangle_r(rbox, :id => "item#{i}")
+        g.textout(rbox.right+5, rbox.bottom-2, mod.name, {:class => "legendtext"})
+        
+        rbox.top += 10 + 5
+        rbox.bottom = rbox.top+10
+
+      end
+      
+    end
+
+
+    def align_to_anchor(anc)
+      super
+      
+      @bounds.deflate_v(10,10)
+      @bounds.deflate_h(2,4)
+      
+      if @width
+        @bounds.left = @bounds.right - @width
+      end
+      
+    end
+    
+
+end
+
+end
+

data/lib/gerbilcharts/surfaces/line_surface.rb

@@ -0,0 +1,53 @@
+module GerbilCharts::Surfaces
+
+# = Line Surface
+# Simple line drawing 
+# Control the color,thickness of the line via the stylesheet item lineitem1, lineitem2 etc
+#
+# Supported global options
+#
+# [+circle_data_points+]    Draw a solid circle around datapoints
+#
+class LineSurface < Surface
+    def initialize(opts={})
+      super(opts)
+    end
+    
+    def int_render(g)
+      
+      rx = parent.modelgroup.effective_round_range_x
+      ry = parent.modelgroup.effective_round_range_y0
+      
+      # ajax if used
+      if parent.usesAjax?
+        set_ajaxSurfaceContext(rx.rmax,ry.rmax,"LINE")
+      end
+
+      parent.modelgroup.each_model_with_index do | mod, i|
+      
+        mod.each_tuple do |x,y|
+
+		  # the basic line 
+          xpos = scale_x x,rx
+          ypos = scale_y y,ry
+          g.lineto xpos,ypos
+
+
+		  # datapoint and a tooltip 
+       	  opts = {:id => "item#{i}"}
+		  if parent.get_global_option(:auto_tooltips,false)
+				  opts.merge!(:onmouseover => "OpacityDown(evt)", :onmouseout => "OpacityUp(evt)") 
+				  opts.store(:gerbiltooltip1, mod.name) 
+				  opts.store(:gerbiltooltip2, "Val = #{y}")
+		  end
+		  g.circle(xpos,ypos,4,opts) if parent.get_global_option(:circle_data_points,false)
+        end
+        g.endline(:id => "lineitem#{i}")
+      end
+      
+      #draw each model in the group
+    end
+
+end
+
+end

data/lib/gerbilcharts/surfaces/mark_band.rb

@@ -0,0 +1,17 @@
+module GerbilCharts::Surfaces
+
+# = MarkBand
+# Mark out a rectangular area on the surface (eg, critical zone)
+class MarkBand < GraphElement
+    def initialize(opts={})
+      @class = "markband"
+      super(opts)
+    end
+    
+    def int_render(g)
+      g.rectangle_r(@bounds, {:class => @class})
+    end
+end
+
+end
+

data/lib/gerbilcharts/surfaces/panel.rb

@@ -0,0 +1,17 @@
+module GerbilCharts::Surfaces
+
+# = Panel
+# General purpose rectangular panel
+class Panel < GraphElement
+    def initialize(opts={})
+      @class = "panel"
+      super(opts)
+    end
+    
+    def int_render(g)
+      g.rectangle_r(@bounds, {:class => @class})
+    end
+  
+end
+
+end

data/lib/gerbilcharts/surfaces/pie_surface.rb

@@ -0,0 +1,16 @@
+module GerbilCharts::Surfaces
+
+# = Pie Surface
+# Not yet implemented
+class PieSurface < Surface
+    def initialize(opts={})
+      super(opts)
+    end
+    
+    def int_render(g)
+      g.rectangle_r(@bounds, {:class => @class})
+    end
+
+end 
+
+end

data/lib/gerbilcharts/surfaces/rect.rb

@@ -0,0 +1,86 @@
+module GerbilCharts::Surfaces
+
+# = Rect
+# Utility class for manipulations on a rectangle
+#
+class Rect
+
+  attr_accessor :left, :top, :right, :bottom
+  
+  def initialize()
+    @left,@top,@right,@bottom=0,0,0,0
+  end
+  
+  def from_wh(w,h)
+    @left=0
+    @right=w
+    @top=0
+    @bottom=h
+  end
+  
+  def deflate_h(l,r)
+    @left += l
+    @right -= r
+  end
+  
+  def deflate_v(t,b)
+    @top += t
+    @bottom -= b
+  end
+  
+  def initfrom(r)
+      @left=r.left
+      @right=r.right
+      @top=r.top
+      @bottom=r.bottom
+  end
+  
+  def clip_b(dim)    
+      @top=@bottom-dim
+  end
+  
+  def clip_t(dim)
+      @bottom=@top+dim
+  end
+  
+  def clip_l(dim)
+      @right=@left+dim
+  end
+
+  def clip_r(dim)
+      @left=@right-dim
+  end
+
+  def crop_b(dim)
+      @bottom=@bottom-dim
+  end
+  
+  def crop_t(dim)
+      @top=@top+dim
+  end
+  
+  def crop_l(dim)
+      @left=@left+dim
+  end
+
+  def crop_r(dim)
+      @right=@right-dim
+  end
+  
+  def width
+      @right-@left
+  end
+  
+  def height
+      @bottom-@top
+  end
+    
+ 
+  def to_s
+    "#{@left},#{@top} [w=#{width} h=#{height}]"
+  end
+  
+end
+
+end
+

data/lib/gerbilcharts/surfaces/stacked_area_surface.rb

@@ -0,0 +1,66 @@
+module GerbilCharts::Surfaces
+
+# == Stacked Area Surface w/ transparency
+# models are expected to be 'sweepable' (use a bucketized time series model)
+#
+class StackedAreaSurface < Surface
+    def initialize(opts={})
+      super(opts)
+    end
+    
+    def int_render(g)
+      
+      
+      rx = parent.modelgroup.effective_round_range_x
+      ry = parent.modelgroup.cumulative_sweep_round_range_y0
+
+      # ajax if used
+      if parent.usesAjax?
+        set_ajaxSurfaceContext(rx.rmax,ry.rmax,"SA")
+      end
+            
+      # prepare models for sweeping
+      sweep_pos= rx.rmin
+      sweep_to = rx.rmax
+      polygons = []
+      parent.modelgroup.each_model do | mod|
+          mod.begin_sweep
+          polygons << GerbilCharts::SVGDC::SVGPolygon.new
+      end
+        
+      # sweep interval
+      sweep_interval = parent.modelgroup.sweep_interval
+      
+      # perform the sweep
+      while (sweep_pos<=sweep_to)  
+      
+            acc_y = 0
+            
+            parent.modelgroup.each_model_with_index do | mod, i|
+            
+              acc_y +=  mod.sweep(sweep_pos)
+              xpos = scale_x sweep_pos,rx
+              ypos = scale_y acc_y,ry
+              
+              if polygons[i].isempty?
+                  polygons[i].addpoint(xpos,@bounds.bottom)
+              end
+              
+              polygons[i].addpoint(xpos,ypos)
+            end
+            
+            sweep_pos += sweep_interval
+      end
+
+      # layout all polygons in reverse
+      i=polygons.length-1
+      polygons.reverse_each do |p|
+        g.addshape(p, {:id => "item#{i}"})
+        i -= 1
+      end
+      
+    end
+
+end
+
+end

data/lib/gerbilcharts/surfaces/stacked_grid.rb

@@ -0,0 +1,15 @@
+module GerbilCharts::Surfaces
+
+# Stacked Grid - grid overlay
+# Used for stacked area surface. Maps the sum of the model values
+class StackedGrid < Grid
+    
+  protected
+    
+    def grid_range_y
+      return parent.modelgroup.cumulative_round_range_y0
+    end
+  
+end
+
+end

data/lib/gerbilcharts/surfaces/surface.rb

@@ -0,0 +1,20 @@
+module GerbilCharts::Surfaces
+
+# = Surface - graph surface
+# Base class for all surfaces (line,bar,pie,area,...)
+#
+class Surface < GraphElement
+    def initialize(opts={})
+      @class = "surfacepanel"
+      super(opts)
+    end
+    
+    def int_render(g)
+   end
+
+    def set_ajaxSurfaceContext(mxx, mxy, type)
+      parent.set_ajaxContext(:axmxx => mxx, :axmxy => mxy, :axsurface => type)
+    end
+end
+
+end

data/lib/gerbilcharts/surfaces/surface_background.rb

@@ -0,0 +1,13 @@
+module GerbilCharts::Surfaces
+
+# = SurfaceBackground
+# See the stylesheet surfaceback for customization
+#
+class SurfaceBackground < Panel
+    def initialize(opts={})
+      super(opts)
+      @class = "surfaceback"
+    end
+end
+
+end

data/lib/gerbilcharts/surfaces/title_panel.rb

@@ -0,0 +1,44 @@
+module GerbilCharts::Surfaces
+
+# == TitlePanel
+#   just  - left or right justify the title
+class TitlePanel < Panel
+
+    attr_accessor   :just
+    
+    def initialize(opts={})
+      @class = "titlepanel"
+      @just  = :left
+      @just  = opts[:just] if opts[:just]
+      
+      super(opts)
+    end
+    
+    def int_render(g)
+      opts = {:class => "titletext"}
+      opts.store(:href, @parent.href) if @parent.href
+      
+      if @just == :left
+        g.textout(@bounds.left, @bounds.top+16,  parent.modelgroup.name, opts)
+      else
+        opts.store( "text-anchor", "end" )
+        g.textout(@bounds.right, @bounds.top+16, parent.modelgroup.name, opts)
+      end
+      
+    end
+    
+    def align_to_anchor(anc)
+      super
+      @bounds.deflate_v(4,4)
+      @bounds.deflate_h(2,2)
+      
+      if @width
+        @bounds.bottom= @bounds.top + @lay_dimension
+      end
+      
+    end
+
+end
+
+
+end