File: boundary.R

package info (click to toggle)
rgl 1.3.31-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,984 kB
  • sloc: cpp: 23,234; ansic: 7,462; javascript: 6,121; sh: 3,555; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 352 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
library(rgl)

# WORKING

x <- cube3d()
b <- getBoundary3d(x)
open3d(); shade3d(b)


x <- cube3d()
x$ib <- x$ib[,-(1:2)]
b <- getBoundary3d(x)
open3d(); shade3d(x, alpha=0.2, col = "blue"); shade3d(b) 

x <- cube3d()
x$ib <- x$ib[,-(1:2)]
b <- getBoundary3d(x, sorted = TRUE, simplify = FALSE)
open3d(); shade3d(x, alpha=0.2, col = "blue"); shade3d(b)