From 1616b8d2d4e9fac52bbc82651fbd28cb25a6294d Mon Sep 17 00:00:00 2001
From: Lukas Mueller <lam87@cornell.edu>
Date: Wed, 12 May 2010 20:02:53 +0000
Subject: [PATCH] a ruler for the scaffold-based maps. A    ScaffoldRuler.pm

git-svn-id: svn+ssh://svn.sgn.cornell.edu/cxgn/Cview/trunk@18239 b4ddb4e3-33f1-0310-aa89-e703427ae9b8
---
 lib/CXGN/Cview/Ruler/ScaffoldRuler.pm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 lib/CXGN/Cview/Ruler/ScaffoldRuler.pm

diff --git a/lib/CXGN/Cview/Ruler/ScaffoldRuler.pm b/lib/CXGN/Cview/Ruler/ScaffoldRuler.pm
new file mode 100644
index 0000000..a32b14e
--- /dev/null
+++ b/lib/CXGN/Cview/Ruler/ScaffoldRuler.pm
@@ -0,0 +1,33 @@
+
+use strict;
+
+package CXGN::Cview::Ruler::ScaffoldRuler;
+
+use base "CXGN::Cview::Ruler";
+
+sub new { 
+    my $class = shift;
+    my ($x, $y, $height, $start, $end) = @_;
+
+    my $self = $class->SUPER::new($x, $y, $height, $start, $end);
+
+    $self->set_start_value($start);
+    $self->set_end_value($end);
+    $self->set_units('Mb');
+
+    return $self;
+}
+
+sub set_start_value { 
+    my $self = shift;
+    my $value = shift;
+    $self->{start_value} = (int($value / 1_000_000)); # show in megabases
+}
+
+sub set_end_value { 
+    my $self = shift;
+    my $value = shift;
+    $self->{end_value} = (int($value / 1_000_000));
+}
+
+return 1;
-- 
2.11.4.GIT