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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
\name{writeOBJ}
\alias{writeOBJ}
\alias{readOBJ}
\title{
Read and write Wavefront OBJ format files
}
\description{
\code{writeOBJ} writes OBJ files. This is a file format that
is commonly used in 3D graphics applications. It does not represent text,
but does represent points, lines, polygons (and many other types that
RGL doesn't support). \code{readOBJ} reads only some parts
of OBJ files.
}
\usage{
writeOBJ(con,
pointRadius = 0.005, pointShape = icosahedron3d(),
lineRadius = pointRadius, lineSides = 20,
pointsAsPoints = FALSE, linesAsLines = FALSE,
withNormals = TRUE, withTextures = TRUE,
separateObjects = TRUE,
ids = tagged3d(tags),
tags = NULL)
readOBJ(con, ...)
}
\arguments{
\item{con}{
A connection or filename.
}
\item{pointRadius, lineRadius}{
The radius of points and lines relative to the overall scale of the figure,
if they are converted to polyhedra.
}
\item{pointShape}{
A mesh shape to use for points if they are converted. It is scaled by the \code{pointRadius}.
}
\item{lineSides}{
Lines are rendered as cylinders with this many sides.
}
\item{pointsAsPoints, linesAsLines}{
Whether to convert points and lines to \dQuote{point} and \dQuote{line} records in the OBJ output.
}
\item{withNormals}{
Whether to output vertex normals for smooth shading.
}
\item{separateObjects}{
Whether to mark each RGL object as a separate object in the file.
}
\item{withTextures}{
Whether to output texture coordinates.
}
\item{ids}{
The identifiers (from \code{\link{ids3d}}) of the
objects to write. If \code{NULL}, try to write everything.
}
\item{tags}{
Alternate way to specify \code{ids}. Ignored if \code{ids} is
given.
}
\item{...}{
Additional arguments (typically just \code{material}) to pass to
\code{\link{tmesh3d}}.
}
}
\details{
The current \code{writeOBJ} implementation only outputs triangles, quads, planes, spheres,
points, line segments, line strips and surfaces. It does not output material
properties such as colors, since the OBJ format does not support the per-vertex
colors that RGL uses.
The \code{readOBJ} implementation can
read faces, normals, and textures coordinates, but ignores
material properties (including the specification of the texture
file to use). To read a file that uses a single texture,
specify it in the \code{material} argument, e.g.
\code{readOBJ("model.OBJ", material = list(color = "white", texture = "texture.png"))}. There is no support for files that use
multiple textures.
The defaults for \code{pointsAsPoints} and \code{linesAsLines} have been
chosen because \code{Blender} does not import
points or lines, only polygons. If you are exporting to other software you
may want to change them.
If present, texture coordinates are output by default, but the
textures themselves are not.
Individual RGL objects are output as separate objects in the file when
\code{separateObjects = TRUE}, the default.
The output file should be readable by Blender and Meshlab; the latter can write in
a number of other formats, including U3D, suitable for import into a PDF document.
}
\value{
\code{writeObj} invisibly returns the name of the connection to which the
data was written.
\code{readObj} returns a mesh object constructed
from the input file.
}
\references{
The file format was found at \url{http://www.martinreddy.net/gfx/3d/OBJ.spec}
on November 11, 2012.
Blender is an open source 3D object editor. See
\code{www.blender.org} for details.
}
\author{
Duncan Murdoch
}
\seealso{
\code{\link{scene3d}} saves a copy of a scene to an R variable; \code{\link{rglwidget}}, \code{\link{writeASY}},
\code{\link{writePLY}} and \code{\link{writeSTL}}
write the scene to a file in various other formats.
}
\examples{
filename <- tempfile(fileext = ".obj")
open3d()
shade3d( icosahedron3d() )
writeOBJ(filename)
# The motivation for writing readObj() was to read a shape
# file of Comet 67P/Churyumov-Gerasimenko, from the ESA.
# The file no longer appears to be online, but may still be
# available on archive.org. Here was the original URL:
# cometurl <- "http://sci.esa.int/science-e/www/object/doc.cfm?fobjectid=54726"
# This code would read and display it:
# open3d()
# shade3d(readOBJ(url(cometurl),
# material = list(col = "gray")))
# Textures are used in a realistic hand image available from
# https://free3d.com/3d-model/freerealsichand-85561.html
# Thanks to Monte Shaffer for pointing this out.
# Decompress the files into the current directory, convert
# hand_mapNew.jpg to hand_mapNew.png, then use
\dontrun{
open3d()
shade3d(readOBJ("hand.OBJ", material = list(color = "white",
shininess = 1, texture = "hand_mapNew.png")))
}
}
\keyword{ graphics }
|
