function show3cut(varargin)%SHOW3CUT Display lattice in three cuts.%   SHOE3CUT(L1,L2,...,Style1,Style2,...) capture the chages performed%   on desired lattice and displays result in 3-cut view. This function%   is better to use with 3-dimensional lattices or sphere packings. %%   Examples:%       Z2 = makelatt('Z',9,2);%       RZ2 = rotlatt(Z2);%       N6 = sshell(RZ2,6);%       show3cut(Z2,RZ2,N6,0,1,2);% %       A2 = makelatt('A',9,2);%       Hex = makelatt('Hex',9,2);%       show3cut(Hex,A2,0,1);% %   See also SHOWLATT%   Copyright 2001-2003 Kamil Anis, anisk@feld.cvut.cz%   Dept. of Radioelectronics, %   Faculty of Electrical Engineering%   Czech Technical University in Prague%   $Revision: 0.1 $  $Date: 2003/1/16 17:33:28 $%   --%   <additional stuff goes here>name = 'SHOW3CUT';[idt,tag] = iecho(name);if rem(nargin,2) ~= 0 % odd number of input argumrnts	disp(' ');	disp([tag,'Invalid number of input arguments.']);	disp([idt,'Each plot must have assigned own plot style.']);	disp(' ');	returnendplots = nargin / 2;str = strvcat('X-Y view','Y-Z view','X-Z view','3D view');str1 = strvcat('0 0 1','1 0 0','0 1 0','3');str2 = num2str(plots);clf;for j = 1:4	subplot(2,2,j);	for i = 1:plots		hold on;		showlatt(varargin{i},'Style',varargin{plots + i});	end		cut = str2num(str1(j,:));		view(cut);		title(str(j,:));		xlabel('X'); ylabel('Y'); zlabel('Z');end	set(gcf,'Name',['SHOW3CUT: 3-cut of ',str2,' lattice(s)']);