README.md

In ozjimbob/r-povray: R interface to POVRay raytracer

r-povray

An R Package to interface with the POVRay raytracing system.

Introduction

R-povray (R package name povray) aims to allow R users to produce 3D rendered graphics in the POVRay raytracing software. Initially, classes will be provided to create basic POVRay objects (lights, cameras, primitives, textures). Further higher-level classes to render graphs will be the ultimate aim. The page does not aim to provide an interface to all POVRay functions, but does aim to make basic, commonly-used POVRay objects available in an easy to use manner from within R.

Structure

The package provides a range of environment-based classes, for example a Scene class that brings together the 3D objects, writes POVRay source files and rengers them, a Light class that allows placement of lights of a certain colour in a certain location, a Box class, a Camera class etc.

The image above is created as follows:

Define scene, default background colour

sc=Scene()

Place some lights and cameras

l1=Light(c(14,5,-15),Colour(1,1,1))
l2=Light(c(-14,15,-10),Colour(1,1,0))
c1=Camera(c(3,12,-20),c(3,2,2))

Define two colours, and a simple reflective texture

green=Color(0,1,0)
red=Color(1,0,0)
shinyt=Texture("finish{reflection 0.5}")

Place 30 random green poles with spheres.

for(idx in 1:30){
    x=rnorm(1,0,10)
    z=rnorm(1,0,10)
    y=rnorm(1,3,3)
    cyl = Cylinder(c(x,0,z),c(x,y,z),0.3,col=green,tex=shinyt)
    sph= Sphere(c(x,y,z),1,col=green,tex=shinyt)
    sc$push(cyl)
    sc$push(sph)
}

Place 20 random red poles.

for(idx in 1:20){
    x=rnorm(1,0,7)
    z=rnorm(1,0,7)
    y=rnorm(1,6,3)
    cyl = Cylinder(c(x,0,z),c(x,y,z),0.5,col=red)
    sc$push(cyl)
}

Translucent box for y=0.

half_grey=Colour(.6,.6,.6,.6)
b=Box(c(-20,-0.1,-10),c(20,0.1,10),col=half_grey)
sc$push(b)

And a glass sphere using inbuilt texture and interior.

sp=Sphere(c(3,2,2),6,tex=glass,interior=i_glass)
sc$push(sp)

Push in the lights and camera as well, save and render the scene.

sc$push(l1)
sc$push(l2)
sc$push(c1)
sc$save()
sc$render(aa=T)

This will create a scene with a camera, a two lights, and red and green cylinders.

ozjimbob/r-povray documentation built on May 24, 2019, 5:56 p.m.