R/write_bscan_header.R

In barefootbiology/heyexr: Import, Transform and Visualize Optical Coherence Tomography Volumes in R

#' Write b-scan header information to a file connection
#'
#' Writes the b-scan header information to a file connection.
#'
#' @param vol_con the connection to a VOL file
#' @param bscan_header_list previously imported b-scan header data
#'
#' @importFrom magrittr %>%
write_bscan_header <- function(vol_con, bscan_header_list) {
    bscan_header_list$version %>%
        charToRaw() %>%
        pad_raw(n = 12) %>%
        writeBin(vol_con, "raw", endian = "little")
    writeBin(bscan_header_list$bscan_hdr_size, vol_con, integer(), endian = "little")
    writeBin(bscan_header_list$start_x, vol_con, double(), endian = "little")
    writeBin(bscan_header_list$start_y, vol_con, double(), endian = "little")
    writeBin(bscan_header_list$end_x, vol_con, double(), endian = "little")
    writeBin(bscan_header_list$end_y, vol_con, double(), endian = "little")
    writeBin(bscan_header_list$num_seg, vol_con, integer(), endian = "little")
    writeBin(bscan_header_list$off_seg, vol_con, integer(), endian = "little")
    writeBin(bscan_header_list$quality, vol_con, size = 4, endian = "little")
    writeBin(raw(196), vol_con, "raw", endian = "little")

}