Alignment of chords.

diff --git a/vs.pl b/vs.pl
index ad9be12d5fe9872a555fa3a086acc6c872ac7a02..6fd0db632c448d143c1f913b967093d4e75ac2d3 100755 (executable)
--- a/vs.pl
+++ b/vs.pl
@@ -287,7 +287,7 @@ sub view($$$) {
                        my @chords = ();
                        while (<X>) {
                                chomp;
                        my @chords = ();
                        while (<X>) {
                                chomp;

-                               if (s/^!//) { push @chords, 1; } else { push @chords, 0; }
+                               if (s/^! //) { push @chords, 1; } else { push @chords, 0; }

                                push @lines, $_;
                        }
                        close X;
                                push @lines, $_;
                        }
                        close X;


@@ -331,7 +331,7 @@ sub redraw_line($$) {
        my ($w,$i) = @_;
        my $win = $w->{"win"};
        my $l = $w->{"lines"}->[$i];
        my ($w,$i) = @_;
        my $win = $w->{"win"};
        my $l = $w->{"lines"}->[$i];

-       if ($w->{"linetypes"}->[$i]) { $win->attrset($attr_chord); }
+       if ($w->{"chords"}->[$i]) { $win->attrset($attr_chord); }

        if (length $l < $w->{"w"}) {
                $win->addstr($i-$w->{"top"}, 0, $l);
                $win->clrtoeol;
        if (length $l < $w->{"w"}) {
                $win->addstr($i-$w->{"top"}, 0, $l);
                $win->clrtoeol;