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
56
57
58
59
60
61
62
63
64
65
|
##
## R source file
## This file is part of rgl
##
## $Id: enum.R,v 1.3 2004/03/03 22:59:20 dadler Exp $
##
##
## ===[ SECTION: enumerations ]===============================================
##
##
## FUNCTIONS
## rgl.enum
##
## utility function translating literals to ids
##
rgl.enum <- function ( name, ... )
{
choices <- list( ... )
names <- attr(choices,"names")
pos <- pmatch( name, names )
if ( is.na(pos) )
stop("symbolic value must be of ", list(names) )
id <- choices[[pos]]
return( id )
}
##
## ENUM FUNCTIONS
##
rgl.enum.nodetype <- function (type)
return ( rgl.enum( type, shapes=1, lights=2, bboxdeco=3 ) )
rgl.enum.pixfmt <- function (fmt)
return ( rgl.enum( fmt, png=0 ) )
rgl.enum.polymode <- function (mode)
return ( rgl.enum( mode, filled=1, lines=2, points=3, culled=4) )
rgl.enum.textype <- function (textype)
return ( rgl.enum( textype, alpha=1, luminance=2, luminance.alpha=3, rgb=4, rgba=5 ) )
rgl.enum.fogtype <- function (fogtype)
return ( rgl.enum (fogtype, none=1, linear=2, exp=3, exp2=4) )
rgl.enum.primtype <- function (primtype)
return ( rgl.enum( primtype, points=1, lines=2, triangles=3, quadrangles=4 ) )
rgl.enum.halign <- function( halign)
return ( rgl.enum (halign, left=-1, center=0, right=1 ) )
rgl.enum.texminfilter <- function (minfiltertype)
return ( 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)
return ( rgl.enum (magfiltertype, nearest=0, linear=1) )
|
