root/trunk/FRII/gui/_PairMapCanvas.cc

/*
 * This file is part of the FamilyRelations II source distribution.
 *
 * FamilyRelations II is part of the FamilyJewels package for comparative
 * sequence analysis: http://family.caltech.edu/.
 *
 * Contact author: C. Titus Brown, titus@caltech.edu.
 *
 * This program and all associated source code files are Copyright (C) 2003,
 * 2004 the California Institute of Technology, Pasadena, CA, 91125 USA.  It
 * is under the Lesser GNU Public License; please see the included
 * LICENSE.txt file for more information, or contact Titus directly.
 *
 */

// Implementation of a canvas that handles drawing between two (prespecified)
// sequences.  This class handles the math involved in computing positions,
// and actually draws the line.  That's about it... -- CTB

#include <iostream>
#include <FL/Fl.H>
#include <FL/fl_draw.H>

#include "_PairMapCanvas.hh"

using namespace gui;

//
// recompute -- the intelligence that computes where things go.
//

void _PairMapCanvas::recompute()
{
  _top_scale = (float) _top_w / (float) (_top_end - _top_start);
  _bot_scale = (float) _bot_w / (float) (_bot_end - _bot_start);
}

//
// draw_feature -- draw a line.
//

void _PairMapCanvas::draw_feature(int top_pos, int bot_pos,
                                  unsigned int width, int orientation)
{
  for (unsigned int i = 0; i < width; i++) {
    top_pos++;
    bot_pos += orientation;

    draw_feature(top_pos, bot_pos);
  }
#if 0
  top_pos -= _top_start;
  if (top_pos < 0) top_pos = 0;
  bot_pos -= _bot_start;
  if (bot_pos < 0) bot_pos = 0;

  int top_pixel, bot_pixel;

  float top_pixel_width = _top_scale * width;
  float bot_pixel_width = _bot_scale * width;
  float max_pixel_width = top_pixel_width > bot_pixel_width ? top_pixel_width :
    bot_pixel_width;

  // normalize.  One of the steps should now be 1, the other should be <= 1.
  float top_step = top_pixel_width / max_pixel_width;
  float bot_step = bot_pixel_width / max_pixel_width;

  int top_pixel_start = (int) (_top_scale * top_pos + .5) + _top_x;
  int bot_pixel_start = (int) (_bot_scale * bot_pos + .5) + _bot_x;
  
  float top = 0;
  float bot = 0;
  while (top < max_pixel_width || bot < max_pixel_width) {
    top_pixel = (int) (top_pixel_start + top);
    bot_pixel = (int) (bot_pixel_start + bot * orientation);

    fl_line(top_pixel, _top_y, bot_pixel, _bot_y);

    top += top_step;
    bot += bot_step;
  }
#endif // 0
}

//
// draw_feature -- draw a line, without a width or orientation.
//

void _PairMapCanvas::draw_feature(int top_pos, int bot_pos)
{
  if (top_pos < _top_start || top_pos > _top_end ||
      bot_pos < _bot_start || bot_pos > _bot_end) {
    return;
  }
      
  top_pos -= _top_start;
  bot_pos -= _bot_start;

  int top_pixel = (int) (_top_scale * top_pos + .5) + _top_x;
  int bot_pixel = (int) (_bot_scale * bot_pos + .5) + _bot_x;
  
  fl_line(top_pixel, _top_y, bot_pixel, _bot_y);
}

//
// set_*_canvas_coords -- set the coordinates of the top/bottom sequences
// on the canvas.  Recomputes things.
//

void _PairMapCanvas::set_top_canvas_coords(int x_start, int width, int y)
{
  _top_x = x_start;
  _top_w = width;
  _top_y = y;

  recompute();
}

void _PairMapCanvas::set_bot_canvas_coords(int x_start, int width, int y)
{
  _bot_x = x_start;
  _bot_w = width;
  _bot_y = y;

  recompute();
}

void _PairMapCanvas::push_clip()
{
  int min_x, max_width;
  if (_top_x < _bot_x) {
    min_x = _top_x;
    max_width = _top_w;
  } else {
    min_x = _bot_x;
    max_width = _bot_w;
  }
  fl_push_clip(min_x, _top_y, max_width, _bot_y - _top_y);
}

//
// set_*_sequence_coords -- set the coordinates of the displayed part of the
// top/bot sequences.  Recomputes things.
//

void _PairMapCanvas::set_top_sequence_coords(int start, int end)
{
  _top_start = start;
  _top_end = end;

  recompute();
}

void _PairMapCanvas::set_bot_sequence_coords(int start, int end)
{
  _bot_start = start;
  _bot_end = end;

  recompute();
}