← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/latticeextra/oneiric

« back to all changes in this revision

Viewing changes to R/panel.3dmisc.R

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2011-05-13 15:40:08 UTC
  • mfrom: (1.4.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20110513154008-ogqy8zo6elhazff4
Tags: 0.6-16-1
* New upstream release

* debian/control: Set (Build-)Depends: to current R version
* debian/control: Set Standards-Version: to current version 

Show diffs side-by-side

added added

removed removed

Lines of Context:
R/panel.3dmisc.R
14
14
             zero.scaled,
15
15
             col = "black",
16
16
             lty = 1, lwd = 1,
17
 
             alpha,
 
17
             alpha = 1,
18
18
             ...,
19
19
             col.facet = "white",
20
20
             alpha.facet = 1)
21
21
{
22
 
    stopifnot(length(col.facet) == 1)
 
22
    n <- length(z)
 
23
    col <- rep(col, length = n)
 
24
    col.facet <- rep(col.facet, length = n)
 
25
    alpha <- rep(alpha, length = n)
 
26
    alpha.facet <- rep(alpha.facet, length = n)
 
27
    lty <- rep(lty, length = n)
 
28
    lwd <- rep(lwd, length = n)
23
29
    id <-
24
30
        ((x >= xlim.scaled[1]) & (x <= xlim.scaled[2]) &
25
31
         (y >= ylim.scaled[1]) & (y <= ylim.scaled[2]) &
70
76
                         xlim = xlim, xlim.scaled = xlim.scaled,
71
77
                         ylim = ylim, ylim.scaled = ylim.scaled,
72
78
                         zlim = zlim, zlim.scaled = zlim.scaled,
73
 
                         col = col, lty = lty, lwd = lwd,
74
 
                         alpha = alpha,
 
79
                         col = col[i], lty = lty[i], lwd = lwd[i],
 
80
                         alpha = alpha[i],
75
81
                         ...,
76
82
                         at = c(0, 1), # dummy
77
 
                         col.regions = col.facet,
78
 
                         alpha.regions = alpha.facet)
 
83
                         col.regions = col.facet[i],
 
84
                         alpha.regions = alpha.facet[i])
79
85
        }
80
86
    }
81
87
}