render sequence correctly in mussa aligned window

[mussa.git] / alg / glsequence.cpp

diff --git a/alg/glsequence.cpp b/alg/glsequence.cpp
index 4a3b9899d208a31e8da5ec7488873662bb24e92c..1283af9e766519918debbd82e9a233bdc3022237 100644 (file)
--- a/alg/glsequence.cpp
+++ b/alg/glsequence.cpp
@@ -62,7 +62,7 @@ GLfloat GlSequence::x() const
 
 GLfloat GlSequence::right() const
 {
-  return length()-seq_x;
+  return length()+seq_x;
 }
 
 void GlSequence::setY(GLfloat value)
@@ -306,7 +306,7 @@ void GlSequence::draw_sequence(GLfloat left, GLfloat right) const
   {
     assert ( basepair < seq.size() );
     glPushMatrix();
-    glTranslatef( leftbase(left) + basepair, seq_y, 1.0 );
+    glTranslatef( seq_x+leftbase(left) + basepair, seq_y, 1.0 );
     glScalef(0.1, 1.0, 1.0);
     switch (*seq_itor) {
       case 'A': case 'a':