On 5/2/2012 11:40 AM, Duncan Murdoch wrote:
> On 02/05/2012 12:26 PM, Duncan Murdoch wrote:
>> On 02/05/2012 11:00 AM, Alexander Shenkin wrote:
>> > Hi Folks,
>> >
>> > I'm trying to get rgl.Sweave to produce plots with transparency.
>> > However, it just seems to produce opaque plots when pdf is the output
>> > type. Perhaps this is a known issue? I'll just use .png in the
>> > meantime, but wanted to see about this, as I didn't see it in the
>> > documentation (though it's possible I missed it).
>> That uses the rgl.postscript() function, which uses the GL2PS library to
>> convert to PDF. It may be that it doesn't support transparency in your
>> scene. Or perhaps it just hasn't been turned on: GL2PS didn't support
>> transparency when rgl.postscript was written.
>
> I just took a look: transparency is turned off, and when it's turned
> on, it doesn't look very good.
>
> It's possible that there are tuning parameters that could make it look
> good, but I don't know what they are.
>
> Duncan Murdoch
Thanks Duncan, I'll just stick with png for now then.
>
>>
>> Duncan Murdoch
>>
>> >
>> > Thanks,
>> > Allie
>> >
>> >
>> >
>> >
>> > \documentclass{article}
>> > \title {rgl test}
>> > \usepackage{Sweave}
>> > \begin {document}
>> >
>> > This is a test of rgl.sweave's alpha capability.
>> >
>> > \begin{figure}
>> > % uncomment line below for png output (correct transparency)
>> > %<<echo=FALSE, grdevice=rgl.Sweave, fig=TRUE, width=5, height=5,
>> > resolution=100>>=
>> > <<echo=FALSE, grdevice=rgl.Sweave, fig=TRUE, width=5, height=5,
>> > resolution=100, outputtype=pdf, pdf=TRUE>>=
>> > library(rgl)
>> > data(volcano)
>> > z<- 2 * volcano # Exaggerate the relief
>> > x<- 10 * (1:nrow(z)) # 10 meter spacing (S to N)
>> > y<- 10 * (1:ncol(z)) # 10 meter spacing (E to W)
>> > zlim<- range(y)
>> > zlen<- zlim[2] - zlim[1] + 1
>> > colorlut<- terrain.colors(zlen) # height color lookup table
>> > col<- colorlut[ z-zlim[1]+1 ] # assign colors to heights for each
>> point
>> > #open3d()
>> > surface3d(x, y, z, color=col, back="lines", alpha=0.75)
>> > @
>> > \end{figure}
>> >
>> > \end{document}
>> >
>> > ______________________________________________
>> > R-help@r-project.org mailing list
>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> > PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> > and provide commented, minimal, self-contained, reproducible code.
>>
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
