vol <- vol.create (pt000 = c(1,10,10), dxyz = c (1 , 1, 1),
n.ijk = c(100, 100, 100))
fan.origin <- c (50,50,50)
fan <- fan.sphere (angle = 10, origin = fan.origin)
fan.voxel <- fan.to.voxel (vol = vol, fan = fan)
head (fan.voxel)
# Use of the 2nd column of fan.voxel to select voxels
bin <- vol.copy (vol, modality = "binary")
bin$vol3D.data[] <- FALSE
bin$vol3D.data[fan.voxel[,2]] <- TRUE
bin$max.pixel <- TRUE
bin$min.pixel <- FALSE
display.kplane(bin, k=10)
Run the code above in your browser using DataLab