| ... | ... |
@@ -2605,7 +2605,7 @@ setMethod("drawGD", signature("AlignmentsTrack"), function(GdObject, minBase, ma
|
| 2605 | 2605 |
tck <- tckText |
| 2606 | 2606 |
exponent <- if (is.null(.dpOrDefault(GdObject, "exponent"))) {
|
| 2607 | 2607 |
exp <- 0 |
| 2608 |
- while (all(tck[tck > 0] / 10^exp >= 1)) {
|
|
| 2608 |
+ while (all(abs(tck)[abs(tck) > 0] / 10^exp >= 1)) {
|
|
| 2609 | 2609 |
exp <- exp + 3 |
| 2610 | 2610 |
} |
| 2611 | 2611 |
exp - 3 |
