as.hxsurf <- function(x, ...) UseMethod('as.hxsurf')

as.hxsurf.mesh3d <- function(x, region="Interior", col="grey", ...) {
  h=list()
  h$Vertices=data.frame(xyzmatrix(x))
  colnames(h$Vertices)=c("X","Y","Z")
  h$Vertices$PointNo=1:nrow(h$Vertices)
  h$Regions[[region]]=data.frame(t(x$it))
  colnames(h$Regions[[region]])=c("V1","V2","V3")
  h$RegionList=names(h$Regions)
  h$RegionColourList=col
  class(h)=c("hxsurf","list")
  h
}