search for: cells_head

...fore cat('POINTS', 8,'int\n',file="vtk_header",append=TRUE) #write points writeBin(as.integer(c(0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1)),bfile_points,endian="swap") #cells header cat('\nCELLS', 1,9,'\n',file="cells_header") #write cells writeBin(as.integer(c(8, 0, 1, 3, 2, 4, 5, 7, 6)),bfile_cells,endian="swap") #cell types header cat('\nCELL_TYPES', 1,'\n',file="celltypes_header") #write cell types writeBin(as.integer(c(12)),bfile_celltypes,endian="swap") #cell...