+
−% COPY copies all fields of the data3D class to the new object.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: COPY copies all fields of the data3D class to the new
+
−%              object.
+
−%
+
−% CALL:        b = copy(new, old, flag)
+
−%
+
−% INPUTS:      new  - new object which should be created in the sub class.
+
−%              old  - old object
+
−%              flag - 1: make a deep copy, 0: return copies of handles
+
−%
+
−% OUTPUTS:     b - copy of inputs
+
−%
+
−% VERSION:     $Id: copy.m,v 1.1 2009/08/14 10:53:05 ingo Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function varargout = copy(new, old, deepcopy)
+
−  
+
−  if deepcopy
+
−    obj = copy@data2D(new, old, 1);
+
−    
+
−    for kk = 1:numel(obj)
+
−      %%% copy all fields of the data3D class
+
−      obj(kk).zunits = copy(old(kk).zunits,1);
+
−      obj(kk).z      = old(kk).z;
+
−    end
+
−    
+
−  else
+
−    obj = old;
+
−  end
+
−  
+
−  varargout{1} = obj;
+
−end