## plot the position strings
position.strings <- seq(refseq.start,by=1,length.out=ncol(clustal))
if(length(position.strings) < 10) {
## plot the position strings
position.strings <- seq(refseq.start,by=1,length.out=ncol(clustal))
if(length(position.strings) < 10) {