123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516 |
- function saveas(this,filename,format)
- % Save GIfTI object in external file format
- % FORMAT saveas(this,filename,format)
- % this - GIfTI object
- % filename - name of file to be created [Default: 'untitled.vtk']
- % format - optional argument to specify encoding format, among
- % VTK (.vtk,.vtp), Collada (.dae), IDTF (.idtf), Wavefront OBJ
- % (.obj), JavaScript (.js), JSON (.json), FreeSurfer
- % (.surf,.curv), MZ3 (.mz3) [Default: VTK]
- %__________________________________________________________________________
- % Copyright (C) 2008 Wellcome Trust Centre for Neuroimaging
- % Guillaume Flandin
- % $Id: saveas.m 7470 2018-11-01 17:40:18Z guillaume $
- % Check filename and file format
- %--------------------------------------------------------------------------
- ext = '.vtk';
- if nargin == 1
- filename = ['untitled' ext];
- else
- if nargin == 3 && strcmpi(format,'js')
- ext = '.js';
- end
- if nargin == 3 && strcmpi(format,'json')
- ext = '.json';
- end
- if nargin == 3 && strcmpi(format,'collada')
- ext = '.dae';
- end
- if nargin == 3 && strcmpi(format,'idtf')
- ext = '.idtf';
- end
- if nargin == 3 && strncmpi(format,'vtk',3)
- format = lower(format(5:end));
- ext = '.vtk';
- end
- if nargin == 3 && strcmpi(format,'obj')
- ext = '.obj';
- end
- if nargin == 3 && strcmpi(format,'curv')
- ext = '.curv';
- end
- if nargin == 3 && strcmpi(format,'surf')
- ext = '.surf';
- end
- if nargin == 3 && strcmpi(format,'mz3')
- ext = '.mz3';
- end
- [p,f,e] = fileparts(filename);
- if strcmpi(e,'.gii')
- warning('Use save instead of saveas.');
- save(this,filename);
- return;
- end
- if ~ismember(lower(e),{ext})
- warning('Changing file extension from %s to %s.',e,ext);
- e = ext;
- end
- filename = fullfile(p,[f e]);
- end
- % Write file
- %--------------------------------------------------------------------------
- s = struct(this);
- switch ext
- case {'.js','.json'}
- save_js(s,filename);
- case '.dae'
- save_dae(s,filename);
- case '.idtf'
- save_idtf(s,filename);
- case {'.vtk','.vtp'}
- if nargin < 3, format = 'legacy-ascii'; end
- mvtk_write(s,filename,format);
- case '.obj'
- save_obj(s,filename);
- case {'.curv','.surf'}
- write_freesurfer_file(s,filename,format);
- case '.mz3'
- mz3_write(s,filename,true);
- otherwise
- error('Unknown file format.');
- end
- %==========================================================================
- % function save_js(s,filename)
- %==========================================================================
- function save_js(s,filename)
- % Vertices & faces
- %--------------------------------------------------------------------------
- trace = struct(...
- 'type','mesh3d',...
- 'x',s.vertices(:,1),...
- 'y',s.vertices(:,2),...
- 'z',s.vertices(:,3),...
- 'i',s.faces(:,1)-1,...
- 'j',s.faces(:,2)-1,...
- 'k',s.faces(:,3)-1);
- if isfield(s,'cdata') && ~isempty(s.cdata)
- if size(s.cdata,2) == 1
- trace.intensity = s.cdata(:,1);
- elseif size(s.cdata,2) == 3
- trace.vertexcolor = cell(1,size(trace.x,1));
- for i=1:numel(trace.vertexcolor)
- trace.vertexcolor{i} = sprintf('rgb(%d,%d,%d)',floor(s.cdata(i,:)*255));
- end
- end
- end
- data = {trace};
- %-Save as JS variable or JSON file
- %--------------------------------------------------------------------------
- if filename(end) == 's' % JS
- if exist('jsonencode','builtin')
- data = jsonencode(data);
- else
- data = spm_jsonwrite(data);
- end
- fid = fopen(filename,'wt');
- if fid == -1
- error('Unable to write file %s: permission denied.',filename);
- end
- fprintf(fid,'/*\n * JavaScript file saved by %s\n */\n\n','SPM'); % spm('Version')
- fprintf(fid,'/*\n <!DOCTYPE html><html><head><meta charset="utf-8"/>\n');
- fprintf(fid,' <script src="%s"></script>\n','https://cdn.plot.ly/plotly-latest.min.js');
- fprintf(fid,' </head><body>\n');
- fprintf(fid,' <div id="%s" style="height: %dpx;width: %dpx;"></div>\n','plotly',650,800);
- fprintf(fid,' <script type="text/javascript">\n*/\n');
- fprintf(fid,'var data=%s;\n',data);
- fprintf(fid,'/*\n </script>\n');
- fprintf(fid,' <script type="text/javascript">Plotly.plot("%s", data, {}, {});</script>\n','plotly');
- fprintf(fid,' </body></html>\n*/\n');
- fclose(fid);
- else % JSON
- if exist('jsonencode','builtin')
- fid = fopen(filename,'wt');
- if fid == -1
- error('Unable to write file %s: permission denied.',filename);
- end
- fprintf(fid,'%s',jsonencode(struct('data',{data},'layout',struct())));
- fclose(fid);
- else
- spm_jsonwrite(filename,struct('data',{data},'layout',struct()),struct('indent',' '));
- end
- end
- %==========================================================================
- % function save_dae(s,filename)
- %==========================================================================
- function save_dae(s,filename)
- o = @(x) blanks(x*3);
- % Split the mesh into connected components
- %--------------------------------------------------------------------------
- try
- C = spm_mesh_label(s.faces);
- d = [];
- for i=1:numel(unique(C))
- d(i).faces = s.faces(C==i,:);
- u = unique(d(i).faces);
- d(i).vertices = s.vertices(u,:);
- a = 1:max(d(i).faces(:));
- a(u) = 1:size(d(i).vertices,1);
- %a = sparse(1,double(u),1:1:size(d(i).vertices,1));
- d(i).faces = a(d(i).faces);
- end
- s = d;
- end
- % Open file for writing
- %--------------------------------------------------------------------------
- fid = fopen(filename,'wt');
- if fid == -1
- error('Unable to write file %s: permission denied.',filename);
- end
- % Prolog & root of the Collada XML file
- %--------------------------------------------------------------------------
- fprintf(fid,'<?xml version="1.0"?>\n');
- fprintf(fid,'<COLLADA xmlns="http://www.collada.org/2008/03/COLLADASchema" version="1.5.0">\n');
- % Assets
- %--------------------------------------------------------------------------
- fprintf(fid,'%s<asset>\n',o(1));
- fprintf(fid,'%s<contributor>\n',o(2));
- fprintf(fid,'%s<author_website>%s</author_website>\n',o(3),...
- 'http://www.fil.ion.ucl.ac.uk/spm/');
- fprintf(fid,'%s<authoring_tool>%s</authoring_tool>\n',o(3),'SPM');
- fprintf(fid,'%s</contributor>\n',o(2));
- fprintf(fid,'%s<created>%s</created>\n',o(2),datestr(now,'yyyy-mm-ddTHH:MM:SSZ'));
- fprintf(fid,'%s<modified>%s</modified>\n',o(2),datestr(now,'yyyy-mm-ddTHH:MM:SSZ'));
- fprintf(fid,'%s<unit name="millimeter" meter="0.001"/>\n',o(2));
- fprintf(fid,'%s<up_axis>Z_UP</up_axis>\n',o(2));
- fprintf(fid,'%s</asset>\n',o(1));
- % Image, Materials, Effects
- %--------------------------------------------------------------------------
- %fprintf(fid,'%s<library_images/>\n',o(1));
- fprintf(fid,'%s<library_materials>\n',o(1));
- for i=1:numel(s)
- fprintf(fid,'%s<material id="material%d" name="material%d">\n',o(2),i,i);
- fprintf(fid,'%s<instance_effect url="#material%d-effect"/>\n',o(3),i);
- fprintf(fid,'%s</material>\n',o(2));
- end
- fprintf(fid,'%s</library_materials>\n',o(1));
- fprintf(fid,'%s<library_effects>\n',o(1));
- for i=1:numel(s)
- fprintf(fid,'%s<effect id="material%d-effect" name="material%d-effect">\n',o(2),i,i);
- fprintf(fid,'%s<profile_COMMON>\n',o(3));
- fprintf(fid,'%s<technique sid="COMMON">\n',o(4));
- fprintf(fid,'%s<lambert>\n',o(5));
- fprintf(fid,'%s<emission>\n',o(6));
- fprintf(fid,'%s<color>%f %f %f %d</color>\n',o(7),[0 0 0 1]);
- fprintf(fid,'%s</emission>\n',o(6));
- fprintf(fid,'%s<ambient>\n',o(6));
- fprintf(fid,'%s<color>%f %f %f %d</color>\n',o(7),[0 0 0 1]);
- fprintf(fid,'%s</ambient>\n',o(6));
- fprintf(fid,'%s<diffuse>\n',o(6));
- fprintf(fid,'%s<color>%f %f %f %d</color>\n',o(7),[0.5 0.5 0.5 1]);
- fprintf(fid,'%s</diffuse>\n',o(6));
- fprintf(fid,'%s<transparent>\n',o(6));
- fprintf(fid,'%s<color>%d %d %d %d</color>\n',o(7),[1 1 1 1]);
- fprintf(fid,'%s</transparent>\n',o(6));
- fprintf(fid,'%s<transparency>\n',o(6));
- fprintf(fid,'%s<float>%f</float>\n',o(7),0);
- fprintf(fid,'%s</transparency>\n',o(6));
- fprintf(fid,'%s</lambert>\n',o(5));
- fprintf(fid,'%s</technique>\n',o(4));
- fprintf(fid,'%s</profile_COMMON>\n',o(3));
- fprintf(fid,'%s</effect>\n',o(2));
- end
- fprintf(fid,'%s</library_effects>\n',o(1));
- % Geometry
- %--------------------------------------------------------------------------
- fprintf(fid,'%s<library_geometries>\n',o(1));
- for i=1:numel(s)
- fprintf(fid,'%s<geometry id="shape%d" name="shape%d">\n',o(2),i,i);
- fprintf(fid,'%s<mesh>\n',o(3));
- fprintf(fid,'%s<source id="shape%d-positions">\n',o(4),i);
- fprintf(fid,'%s<float_array id="shape%d-positions-array" count="%d">',o(5),i,numel(s(i).vertices));
- fprintf(fid,'%f ',reshape(s(i).vertices',1,[]));
- fprintf(fid,'</float_array>\n');
- fprintf(fid,'%s<technique_common>\n',o(5));
- fprintf(fid,'%s<accessor count="%d" offset="0" source="#shape%d-positions-array" stride="3">\n',o(6),size(s(i).vertices,1),i);
- fprintf(fid,'%s<param name="X" type="float" />\n',o(7));
- fprintf(fid,'%s<param name="Y" type="float" />\n',o(7));
- fprintf(fid,'%s<param name="Z" type="float" />\n',o(7));
- fprintf(fid,'%s</accessor>\n',o(6));
- fprintf(fid,'%s</technique_common>\n',o(5));
- fprintf(fid,'%s</source>\n',o(4));
- fprintf(fid,'%s<vertices id="shape%d-vertices">\n',o(4),i);
- fprintf(fid,'%s<input semantic="POSITION" source="#shape%d-positions"/>\n',o(5),i);
- fprintf(fid,'%s</vertices>\n',o(4));
- fprintf(fid,'%s<triangles material="material%d" count="%d">\n',o(4),i,size(s(i).faces,1));
- fprintf(fid,'%s<input semantic="VERTEX" source="#shape%d-vertices" offset="0"/>\n',o(5),i);
- fprintf(fid,'%s<p>',o(5));
- fprintf(fid,'%d ',reshape(s(i).faces',1,[])-1);
- fprintf(fid,'</p>\n');
- fprintf(fid,'%s</triangles>\n',o(4));
- fprintf(fid,'%s</mesh>\n',o(3));
- fprintf(fid,'%s</geometry>\n',o(2));
- end
- fprintf(fid,'%s</library_geometries>\n',o(1));
- % Scene
- %--------------------------------------------------------------------------
- fprintf(fid,'%s<library_visual_scenes>\n',o(1));
- fprintf(fid,'%s<visual_scene id="VisualSceneNode" name="SceneNode">\n',o(2));
- for i=1:numel(s)
- fprintf(fid,'%s<node id="node%d">\n',o(3),i);
- fprintf(fid,'%s<instance_geometry url="#shape%d">\n',o(4),i);
- fprintf(fid,'%s<bind_material>\n',o(5));
- fprintf(fid,'%s<technique_common>\n',o(6));
- fprintf(fid,'%s<instance_material symbol="material%d" target="#material%d"/>\n',o(7),i,i);
- fprintf(fid,'%s</technique_common>\n',o(6));
- fprintf(fid,'%s</bind_material>\n',o(5));
- fprintf(fid,'%s</instance_geometry>\n',o(4));
- fprintf(fid,'%s</node>\n',o(3));
- end
- fprintf(fid,'%s</visual_scene>\n',o(2));
- fprintf(fid,'%s</library_visual_scenes>\n',o(1));
- fprintf(fid,'%s<scene>\n',o(1));
- fprintf(fid,'%s<instance_visual_scene url="#VisualSceneNode" />\n',o(2));
- fprintf(fid,'%s</scene>\n',o(1));
- % End of XML
- %--------------------------------------------------------------------------
- fprintf(fid,'</COLLADA>\n');
- % Close file
- %--------------------------------------------------------------------------
- fclose(fid);
- %==========================================================================
- % function save_idtf(s,filename)
- %==========================================================================
- function save_idtf(s,filename)
- o = @(x) blanks(x*3);
- % Compute normals
- %--------------------------------------------------------------------------
- if ~isfield(s,'normals')
- try
- s.normals = spm_mesh_normals(...
- struct('vertices',s.vertices,'faces',s.faces),true);
- catch
- s.normals = [];
- end
- end
- % Split the mesh into connected components
- %--------------------------------------------------------------------------
- try
- C = spm_mesh_label(s.faces);
- d = [];
- try
- if size(s.cdata,2) == 1 && (any(s.cdata>1) || any(s.cdata<0))
- mi = min(s.cdata); ma = max(s.cdata);
- s.cdata = (s.cdata-mi)/ (ma-mi);
- else
- end
- end
- for i=1:numel(unique(C))
- d(i).faces = s.faces(C==i,:);
- u = unique(d(i).faces);
- d(i).vertices = s.vertices(u,:);
- d(i).normals = s.normals(u,:);
- a = 1:max(d(i).faces(:));
- a(u) = 1:size(d(i).vertices,1);
- %a = sparse(1,double(u),1:1:size(d(i).vertices,1));
- d(i).faces = a(d(i).faces);
- d(i).mat = s.mat;
- try
- d(i).cdata = s.cdata(u,:);
- if size(d(i).cdata,2) == 1
- d(i).cdata = repmat(d(i).cdata,1,3);
- end
- end
- end
- s = d;
- end
- % Open file for writing
- %--------------------------------------------------------------------------
- fid = fopen(filename,'wt');
- if fid == -1
- error('Unable to write file %s: permission denied.',filename);
- end
- % FILE_HEADER
- %--------------------------------------------------------------------------
- fprintf(fid,'FILE_FORMAT "IDTF"\n');
- fprintf(fid,'FORMAT_VERSION 100\n\n');
- % NODES
- %--------------------------------------------------------------------------
- for i=1:numel(s)
- fprintf(fid,'NODE "MODEL" {\n');
- fprintf(fid,'%sNODE_NAME "%s"\n',o(1),sprintf('Mesh%04d',i));
- fprintf(fid,'%sPARENT_LIST {\n',o(1));
- fprintf(fid,'%sPARENT_COUNT %d\n',o(2),1);
- fprintf(fid,'%sPARENT %d {\n',o(2),0);
- fprintf(fid,'%sPARENT_NAME "%s"\n',o(3),'<NULL>');
- fprintf(fid,'%sPARENT_TM {\n',o(3));
- I = s(i).mat; % eye(4);
- for j=1:size(I,2)
- fprintf(fid,'%s',o(4)); fprintf(fid,'%f ',I(:,j)'); fprintf(fid,'\n');
- end
- fprintf(fid,'%s}\n',o(3));
- fprintf(fid,'%s}\n',o(2));
- fprintf(fid,'%s}\n',o(1));
- fprintf(fid,'%sRESOURCE_NAME "%s"\n',o(1),sprintf('Mesh%04d',i));
- %fprintf(fid,'%sMODEL_VISIBILITY "BOTH"\n',o(1));
- fprintf(fid,'}\n\n');
- end
- % NODE_RESOURCES
- %--------------------------------------------------------------------------
- for i=1:numel(s)
- fprintf(fid,'RESOURCE_LIST "MODEL" {\n');
- fprintf(fid,'%sRESOURCE_COUNT %d\n',o(1),1);
- fprintf(fid,'%sRESOURCE %d {\n',o(1),0);
- fprintf(fid,'%sRESOURCE_NAME "%s"\n',o(2),sprintf('Mesh%04d',i));
- fprintf(fid,'%sMODEL_TYPE "MESH"\n',o(2));
- fprintf(fid,'%sMESH {\n',o(2));
- fprintf(fid,'%sFACE_COUNT %d\n',o(3),size(s(i).faces,1));
- fprintf(fid,'%sMODEL_POSITION_COUNT %d\n',o(3),size(s(i).vertices,1));
- fprintf(fid,'%sMODEL_NORMAL_COUNT %d\n',o(3),size(s(i).normals,1));
- if ~isfield(s(i),'cdata') || isempty(s(i).cdata)
- c = 0;
- else
- c = size(s(i).cdata,1);
- end
- fprintf(fid,'%sMODEL_DIFFUSE_COLOR_COUNT %d\n',o(3),c);
- fprintf(fid,'%sMODEL_SPECULAR_COLOR_COUNT %d\n',o(3),0);
- fprintf(fid,'%sMODEL_TEXTURE_COORD_COUNT %d\n',o(3),0);
- fprintf(fid,'%sMODEL_BONE_COUNT %d\n',o(3),0);
- fprintf(fid,'%sMODEL_SHADING_COUNT %d\n',o(3),1);
- fprintf(fid,'%sMODEL_SHADING_DESCRIPTION_LIST {\n',o(3));
- fprintf(fid,'%sSHADING_DESCRIPTION %d {\n',o(4),0);
- fprintf(fid,'%sTEXTURE_LAYER_COUNT %d\n',o(5),0);
- fprintf(fid,'%sSHADER_ID %d\n',o(5),0);
- fprintf(fid,'%s}\n',o(4));
- fprintf(fid,'%s}\n',o(3));
-
- fprintf(fid,'%sMESH_FACE_POSITION_LIST {\n',o(3));
- fprintf(fid,'%d %d %d\n',s(i).faces'-1);
- fprintf(fid,'%s}\n',o(3));
-
- fprintf(fid,'%sMESH_FACE_NORMAL_LIST {\n',o(3));
- fprintf(fid,'%d %d %d\n',s(i).faces'-1);
- fprintf(fid,'%s}\n',o(3));
-
- fprintf(fid,'%sMESH_FACE_SHADING_LIST {\n',o(3));
- fprintf(fid,'%d\n',zeros(size(s(i).faces,1),1));
- fprintf(fid,'%s}\n',o(3));
-
- if c
- fprintf(fid,'%sMESH_FACE_DIFFUSE_COLOR_LIST {\n',o(3));
- fprintf(fid,'%d %d %d\n',s(i).faces'-1);
- fprintf(fid,'%s}\n',o(3));
- end
-
- fprintf(fid,'%sMODEL_POSITION_LIST {\n',o(3));
- fprintf(fid,'%f %f %f\n',s(i).vertices');
- fprintf(fid,'%s}\n',o(3));
-
- fprintf(fid,'%sMODEL_NORMAL_LIST {\n',o(3));
- fprintf(fid,'%f %f %f\n',s(i).normals');
- fprintf(fid,'%s}\n',o(3));
-
- if c
- fprintf(fid,'%sMODEL_DIFFUSE_COLOR_LIST {\n',o(3));
- fprintf(fid,'%f %f %f\n',s(i).cdata');
- fprintf(fid,'%s}\n',o(3));
- end
-
- fprintf(fid,'%s}\n',o(2));
- fprintf(fid,'%s}\n',o(1));
- fprintf(fid,'}\n');
- end
- % Close file
- %--------------------------------------------------------------------------
- fclose(fid);
- %==========================================================================
- % function save_obj(s,filename)
- %==========================================================================
- function save_obj(s,filename)
- % Open file for writing
- %--------------------------------------------------------------------------
- fid = fopen(filename,'wt');
- if fid == -1
- error('Unable to write file %s: permission denied.',filename);
- end
- % Vertices & faces
- %--------------------------------------------------------------------------
- fprintf(fid,'# Wavefront OBJ file saved by %s\n','SPM'); % spm('Version')
- fprintf(fid,'v %f %f %f\n',s.vertices');
- fprintf(fid,'f %d %d %d\n',s.faces');
- % Close file
- %--------------------------------------------------------------------------
- fclose(fid);
- %==========================================================================
- % function write_freesurfer_file(s,filename,format)
- %==========================================================================
- function write_freesurfer_file(s,filename,format)
- switch lower(format)
- case 'surf'
- fid = fopen(filename,'wb','ieee-be');
- if fid == -1, error('Cannot open "%s".',filename); end
- fwrite(fid,[255 255 254],'uchar');
- fprintf(fid,'created by @gifti on %s\n\n',...
- datestr(now,'ddd mmm dd HH:MM:SS yyyy'));
- fwrite(fid,size(s.vertices,1),'int32'); % nv
- fwrite(fid,size(s.faces,1),'int32'); % nf
- fwrite(fid,s.vertices','float32');
- fwrite(fid,s.faces'-1,'int32');
- fclose(fid);
- case 'curv'
- fid = fopen(filename,'wb','ieee-be');
- if fid == -1, error('Cannot open "%s".',filename); end
- fwrite(fid,[255 255 255],'uchar');
- fwrite(fid,size(s.cdata,1),'int32'); % nv
- if isfield(s,'faces')
- nf = size(s.faces,1);
- else
- nf = 0;
- end
- fwrite(fid,nf,'int32'); % nf
- fwrite(fid,size(s.cdata,2),'int32'); % n
- fwrite(fid,s.cdata','float32');
- fclose(fid);
- otherwise
- error('File format not supported.');
- end
|