view.rb

Shoes.setup do
  gem 'rbtree'
  #gem 'ruby-debug'
end
require 'rbtree'
require 'clusterer.rb'
require 'classes.rb'


WIDTH = 800
HEIGHT= 600
BORDER = 10
MARKER_RADIUS = 7
CLUSTER_RADIUS = 30



#$points = PointReader::random(500)
$points = PointReader::read('data.csv')
#$points.each{|p| puts p}
$canvas = PointCanvas.new(WIDTH,HEIGHT,$points)
#$clusterer = Clusterer.new($points, 6)
$clusterer = Clusterer2.new($canvas)
#$clusterer.clusterize_bottom_up(6)



puts "maxX:#{$canvas.max_x} minX:#{$canvas.min_x} maxY:#{$canvas.max_y} minY:#{$canvas.min_y}"

Shoes.app(:width => WIDTH + BORDER * 2, :height => HEIGHT + BORDER * 2 + 50, :resizable => false) do
  
  @cluster_width = CLUSTER_RADIUS
  @cluster_height = CLUSTER_RADIUS
  
  
  stack do
    @menu = flow do
      para "set radius of degrees to cluster within"
      @limit_field = edit_line :width => 40
      @limit_field.text = 4
      button "Go!" do
        @map.clear
        $clusterer.reset
        limit = @limit_field.text.to_i
        @cluster_width = $canvas.lng_to_px(limit)
        @cluster_height = $canvas.lat_to_px(limit)
        #$clusterer.clusterize_bottom_up(limit)
        $clusterer.clusterize(limit)
        draw_clusters
        
        #attach_listers_to_map
      end
      
      @status_text = para :width => 200, 
                          :attach => Window, 
                          :left => WIDTH - 200,
                          :align => 'right'
                          
      @status_text.text = "click on clusters"
      
    end
    
    @map = flow do
      #para "map"
    end
  end
  
  def draw_point(point, color)
    x, y = $canvas.to_xy(point)
    #puts "#{x} #{y} #{color}"
    #fill color
    #stroke_width 0
    @map.stroke color
    @map.strokewidth 0
    @map.fill color
    @map.oval x + BORDER,y + BORDER,MARKER_RADIUS, {:center=>true}
  end
  
  
  @drawn_cluster_centers = []
  def draw_cluster(cluster)
    x, y = $canvas.to_xy(cluster)
    
    #puts "drawing cluster"
    @map.stroke rgb(255,0,0,0.1)
    @map.strokewidth 0
    @map.fill rgb(255,0,0,0.2)
    
    @map.oval :left => x + BORDER,
              :top => y + BORDER,
              :width => @cluster_width,
              :height => @cluster_height,
              :center=> true
              
    clr = rgb(rand,rand,rand,1.0)
    cluster.points.each{|point| draw_point(point, clr) }
    
    @drawn_cluster_centers << {:left => x + BORDER, :top => y + BORDER, :size => cluster.points.length}
    
  end
  
  def draw_clusters
    @drawn_cluster_centers = []
    
    $clusterer.clusters.each do |cluster|
      puts "cluster lat:#{cluster.lat} lng:#{cluster.lng}"
      
      draw_cluster(cluster)
      
    end
  end
  
  def draw_all_points(points)
    $points.each do |point| 
      x, y = $canvas.to_xy(point)
      draw_point(x,y, rgb(rand, rand, rand, 1))
    end
  end
  
  #use clicks to show information about the clusters
  click do |button, left, top|
  
    #relativize clicks to map pane
    left -= @map.left
    top -= @map.top
    
    #find if we're in a cluster, AFAIK you cant bind mouse events to art objects
    results = @drawn_cluster_centers.select do |pos_hash|
      
      #puts "#{pos_hash[:top]} #{pos_hash[:left]} top:#{top} left:#{left} w:#{@cluster_width} h:#{@cluster_height}"
      if left > pos_hash[:left] - @cluster_width / 2 &&
          left < pos_hash[:left] + @cluster_width / 2 &&
          top > pos_hash[:top] - @cluster_height / 2 &&
          top < pos_hash[:top] + @cluster_height / 2 
        pos_hash
      else
        nil
      end
      
    end
    
    result = results.first
    if result
      @status_text.text = "#{result[:size]} nodes"
    end
    
  end
    

  
  
  draw_clusters
  
  
end