# TextFileFormat (leave this tag as magic token!)

# BVQX file format for *.VOI files (Volume Of Interest)
# VOI FileVersions supported: 1, 3 (1 only reading, converted to 3)
#
# VOI files contain coordinates of a group voxels of interest.
#
# Version:  v0.7a
# Build:    7081110
# Date:     Aug-11 2007, 10:45 AM CEST
# Author:   Jochen Weber, Brain Innovation, B.V., Maastricht, NL
# URL/Info: http://wiki.brainvoyager.com/BVQXtools

# FILE FORMAT
Description:Volume of interest files
Extensions:voi
FieldDelimiters: {[32]}
LineDelimiters: {[13, 10], [10]}
ParagraphArrays:0
SkipEmptyLines:1
Magic:|
name          |range       |type    |magic
VOI_NrVOIs    |1, 256      |regexpi |nrofvois\:\s*\d+\s*nameofvoi\:
EndMagic

# FIELDS
ListOfFields:!
type !cond               !field               !datatype!format !dim    !default !varname
WRTLN!!!!!!!  # empty line
FIELD!                   !FileVersion         !double  !%d     !1      !2       !FileVersion
WRTLN!!!!!!!  # empty line
FIELD!                   !CoordsType          !string  !%s     !1      !        !CoordsType
WRTLN!!!!!!!  # empty line
EXPRE!$TFFREAD      !!!!!!@FileVersion = 3; @SubjectVOINamingConvention = '<SUBJ>_<VOI>';
FLIST!                   !SubjectVOINamingConvention!string!%s !1      !        !SubjectVOINamingConvention
WRTLN!!!!!!!  # empty line
WRTLN!!!!!!!  # empty line
EXPRE!$TFFWRITE     !!!!!!@NrOfVOIs = prod(size(@VOI));
FIELD!                   !NrOfVOIs            !double  !%d     !1      !1       !NrOfVOIs

# loop over VOIs
EXPRE!$TFFREAD      !!!!!!@VOI = cell2struct(cell(0, 0, 4), {'Name', 'Color', 'NrOfVoxels', 'Voxels'}, 3); if @NrOfVOIs > 0, @VOI(@NrOfVOIs).Name = ''; end
BLOOP!                   ! ! ! !@NrOfVOIs ! !VOINo
WRTLN!!!!!!!  # empty line
FIELD!                   !NameOfVOI           !string  !%s     !1      !1       !VOI($VOINo).Name
EXPRE!$TFFREAD      !!!!!!@VOI($VOINo).Color = floor(255.999 * rand(1, 3));
FLIST!                   !ColorOfVOI          !double  !%d     !3      !        !VOI($VOINo).Color
WRTLN!!!!!!!  # empty line
EXPRE!$TFFWRITE     !!!!!!@VOI($VOINo).NrOfVoxels = size(@VOI($VOINo).Voxels, 1);
FIELD!                   !NrOfVoxels          !double  !%d     !1      !        !VOI($VOINo).NrOfVoxels
ARRAY!                   !Voxels              !double  !%.0f   !@VOI($VOINo).NrOfVoxels, 3 !!VOI($VOINo).Voxels
WRTLN!!!!!!!  # empty line
ELOOP!                   ! ! ! !  ! !VOINo

# VTCs
WRTLN!!!!!!!  # empty line
EXPRE!$TFFWRITE     !!!!!!@NrOfVTCs = prod(size(@VTCList));
FIELD!                   !NrOfVOIVTCs         !double  !%d     !1      !1       !NrOfVTCs
ARRAY!$TFFWRITE          !VTCList             !string  !%s     !@NrOfVTCs, 1 !  !VTCList

# for reading, take care of empty lines (possible bug in BVQX ROI interface)
EXPRE!$TFFREAD      !!!!!!@VTCList = cell(@NrOfVTCs, 1);
BLOOP!$TFFREAD           ! ! ! !@NrOfVTCs ! !VTCNo
XLOOP!linec > linecount  ! ! ! !  ! !VTCNo
EXPRE!              !!!!!!@VTCList{$VTCNo} = linecont{linec}; linec = linec + 1;
ELOOP!                   ! ! ! !  ! !VTCNo
EXPRE!$TFFREAD      !!!!!!@VTCList($VTCNo:end) = []; @VTCList = @VTCList(:); @NrOfVTCs = numel(@VTCList);
EndListOfFields

NewFileCode:!
@FileVersion = 3;
@CoordsType = 'TAL';
@SubjectVOINamingConvention = '<SUBJ>_<VOI>';
@NrOfVOIs = 1;
@VOI.Name = 'NewVOI';
@VOI.Color = [255, 0, 0];
@VOI.NrOfVoxels = 0;
@VOI.Voxels = zeros(0, 3);
@NrOfVTCs = 0;
@VTCList = cell(0, 1);
EndNewFileCode