plotcylsurf

 Copyright (C) 2007-2013  Murphy Lab
 Carnegie Mellon University

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published
 by the Free Software Foundation; either version 2 of the License,
 or (at your option) any later version.

 This program is distributed in the hope that it will be useful, but
 WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 02110-1301, USA.

 For additional information visit http://murphylab.web.cmu.edu or
 send email to murphy@cmu.edu

0001 function plotcylsurf( nucsurf, delta )
0002 
0003 % Copyright (C) 2007-2013  Murphy Lab
0004 % Carnegie Mellon University
0005 %
0006 % This program is free software; you can redistribute it and/or modify
0007 % it under the terms of the GNU General Public License as published
0008 % by the Free Software Foundation; either version 2 of the License,
0009 % or (at your option) any later version.
0010 %
0011 % This program is distributed in the hope that it will be useful, but
0012 % WITHOUT ANY WARRANTY; without even the implied warranty of
0013 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
0014 % General Public License for more details.
0015 %
0016 % You should have received a copy of the GNU General Public License
0017 % along with this program; if not, write to the Free Software
0018 % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
0019 % 02110-1301, USA.
0020 %
0021 % For additional information visit http://murphylab.web.cmu.edu or
0022 % send email to murphy@cmu.edu
0023 
0024 
0025      colors = {'r','g','b','c','m','y','k'};
0026 
0027      for i=1:size(nucsurf,1)
0028          [XX,YY]=pol2cart(-pi:delta:pi,nucsurf(i,:));
0029          plot(XX,YY,colors{mod(i-1,length(colors))+1});
0030          legend(['slice' num2str(i)]);
0031          pause(0.1);
0032          hold on
0033      end
0034      hold off
0035 
0036 end
0037