1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# enumerations
rgl.enum <- function ( name, ..., multi = FALSE)
{
choices <- list( ... )
names <- attr(choices,"names")
if (multi) pos <- pmatch( name, c(names, "all") )
else pos <- pmatch( name, names )
max <- length(names)
if ( any( is.na(pos) ) )
stop("symbolic value must be chosen from ", list(names) )
else if ( (max+1) %in% pos )
pos <- seq(along = names)
id <- unlist(choices[pos])
if ( length(id) > 1 && !multi )
stop("multiple choices not allowed")
return( id )
}
rgl.enum.nodetype <- function (type)
rgl.enum( type, shapes=1, lights=2, bboxdeco=3, viewpoint=4, material=5, multi = TRUE )
rgl.enum.pixfmt <- function (fmt)
rgl.enum( fmt, png=0 )
rgl.enum.polymode <- function (mode)
rgl.enum( mode, filled=1, lines=2, points=3, culled=4)
rgl.enum.textype <- function (textype)
rgl.enum( textype, alpha=1, luminance=2, luminance.alpha=3, rgb=4, rgba=5 )
rgl.enum.fogtype <- function (fogtype)
rgl.enum (fogtype, none=1, linear=2, exp=3, exp2=4)
rgl.enum.primtype <- function (primtype)
rgl.enum( primtype, points=1, lines=2, triangles=3, quadrangles=4, linestrips=5 )
rgl.enum.halign <- function( halign)
rgl.enum (halign, left=-1, center=0, right=1 )
rgl.enum.texminfilter <- function (minfiltertype)
rgl.enum (minfiltertype, nearest=0, linear=1, nearest.mipmap.nearest=2, nearest.mipmap.linear=3, linear.mipmap.nearest=4, linear.mipmap.linear=5)
rgl.enum.texmagfilter <- function (magfiltertype)
rgl.enum (magfiltertype, nearest=0, linear=1)
rgl.enum.gl2ps <- function (postscripttype)
rgl.enum (postscripttype, ps=0, eps=1, tex=2, pdf=3, svg=4, pgf=5)
|
