PointCloud demo

Demo nekoliko rezultata skupljenja point clouda u AR Core

Dnevna

cloud <- read.csv("pointcloud_115.csv")

cloud <- cloud %>% filter(y > 0.1)

rgl::plot3d(cbind(-cloud[2], cloud[c(4,3)]), aspect=FALSE, col=rgb(cloud[,6:8]/255))

You must enable Javascript to view this page properly.

Dnevna

cloud <- read.csv("pointcloud_dnevna.csv")

cloud <- cloud %>% filter(y > 0.1)

rgl::plot3d(cbind(-cloud[2], cloud[c(4,3)]), aspect=FALSE, col=rgb(cloud[,6:8]/255))

You must enable Javascript to view this page properly.

Dnevna sa podom

cloud <- read.csv("pointcloud_dnevna.csv")

cloud <- cloud %>% filter(y > -0.05)

rgl::plot3d(cbind(-cloud[2], cloud[c(4,3)]), aspect=FALSE, col=rgb(cloud[,6:8]/255))

You must enable Javascript to view this page properly.

Hodnik

cloud <- read.csv("pointcloud_hodnik.csv")

cloud <- cloud %>% filter(y > 0.1)

rgl::plot3d(cbind(-cloud[2], cloud[c(4,3)]), aspect=FALSE, col=rgb(cloud[,6:8]/255))

You must enable Javascript to view this page properly.