From me@naxgul.kais.kyoto-u.ac.jp  Fri Feb 12 18:22:59 1999
From: me@naxgul.kais.kyoto-u.ac.jp (Yusuke Uchiyama)
Date: Fri, 12 Feb 1999 18:22:59 GMT
Subject: A subroutine for plotting stars
Message-ID: <199902121822.SAA00623@naxgul.kais.kyoto-u.ac.jp>


Hello,

I implemented "symbols.stars", a sub routine plotting stars.

It is intended to be called from "symbols".

Please use it if it is acceptable.

Yusuke Uchiyama

Laboratory of Insect Physiology
Graduate School of Agriculture
Kyoto University

e-mail: yusuke@kais.kyoto-u.ac.jp

---cut here---

"symbols.stars" <-
function (x, y, stars, add = FALSE, ...) 
{
    stars <- t(stars)
    i <- dim(stars)[1]
    anstep <- 2 * pi/i
    anstep <- anstep * 0:(i - 1) + pi/2
    dim(anstep) <- length(anstep)
    anstep <- t(apply(anstep, 1, rep, dim(stars)[2]))
    dim(x) <- length(x)
    dim(y) <- length(y)
    x <- apply(x, 1, rep, i)
    y <- apply(y, 1, rep, i)
    x <- x + stars * cos(anstep)
    y <- y + stars * sin(anstep)
    x <- c(apply(x, 2, c, NA))
    y <- c(apply(y, 2, c, NA))
    if (add == FALSE) {
        xlim <- c(min(x[!is.na(x)]) - 1.5, max(x[!is.na(x)]) + 
            1.5)
        ylim <- c(min(y[!is.na(y)]) - 1.5, max(y[!is.na(y)]) + 
            1.5)
        plot.new()
        plot.window(xlim, ylim)
    }
    polygon(x, y)
}





-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


A subroutine for plotting stars
Yusuke Uchiyama