data <- read.csv("C://Documents and Settings//ccc4//Desktop//framestnc.csv")
attach(data)

library(rgl)

     rgl.bbox( 
       xat=NULL, xlab=NULL, xunit=0, xlen=5, 
       yat=NULL, ylab=NULL, yunit=0, ylen=5,
       zat=NULL, zlab=NULL, zunit=0, zlen=5,
       marklen=15.0, marklen.rel=TRUE)
for(i in 1:37) {  rgl.lines(x[id==i|id==40+i],y[id==i|id==40+i],z[id==i|id==40+i], color=heat.colors(1330))}
for(i in 38:40) { rgl.lines(x[id==i|id==40+i],y[id==i|id==40+i],z[id==i|id==40+i], size=2)}
bg3d(“white”)
rgl.bbox(color="#333377", emission="#333377", specular="#3333FF", shininess=5, alpha=0.8)