From albrecht.gebhardt@uni-klu.ac.at  Mon Sep 13 02:02:22 1999
From: albrecht.gebhardt@uni-klu.ac.at (albrecht.gebhardt@uni-klu.ac.at)
Date: Mon, 13 Sep 1999 03:02:22 +0200 (MET DST)
Subject: axis() produces junk on DEC alpha (PR#274)
Message-ID: <199909130102.DAA16878@pubhealth.ku.dk>

Full_Name: Albrecht Gebhardt
Version: 0.65.0
OS: Digital Unix 4.0E
Submission from: (NULL) (212.17.104.62)


Plottimg on the Alpha stopped working with 0.65.0.

The tickmarks have a length of -Inf and go across the whole 
plot.

A first solution is the following patch:

--- src/main/plot.c.alpha-patch Mon Sep 13 01:37:11 1999
+++ src/main/plot.c     Mon Sep 13 01:58:16 1999
@@ -832,7 +832,7 @@
        }
        dd->gp.col = fg;
        GLine(REAL(at)[0], y, REAL(at)[n - 1], y, USER, dd);
-       if (R_FINITE(dd->gp.tck)) {
+       if (R_FINITE(dd->gp.tck) && !(ISNAN(dd->gp.tck))) {
            /* The S way of doing ticks */
            double y0, y1;
            if (dd->gp.tck > 0.5) {
@@ -922,7 +922,7 @@
        }
        dd->gp.col = fg;
        GLine(x, REAL(at)[0], x, REAL(at)[n - 1], USER, dd);
-       if (R_FINITE(dd->gp.tck)) {
+       if (R_FINITE(dd->gp.tck) && !(ISNAN(dd->gp.tck))) {
            /* The S way of doing ticks */
            double x0, x1;
            if (dd->gp.tck > 0.5) {


Albrecht Gebhardt


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


axis() produces junk on DEC alpha (PR#274)
albrecht.gebhardt@uni-klu.ac.at