www.pudn.com > snake_program.rar > sdemo.m

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%  
% 		SNAKE DEMO ver 1.0 beta 
%  
%   Interface by 
% 
%	 Dejan Tomazevic	(e-mail dejan.tomazevic@kiss.uni-lj.si)	10/2/98 
%   Copyright (c) 1998 by Dejan Tomazevic 
%	 BIPROG, Faculty of Electrical Engineering, University of Ljubljana 
% 
%   Snake and GVF functions by 
%   Chenyang Xu and Jerry L. Prince 6/17/97 
%   Copyright (c) 1996-97 by Chenyang Xu and Jerry L. Prince 
%   Image Analysis and Communications Lab, Johns Hopkins University 
% 
% 
%	 This program was written during Dejan Tomazevic visit Johns Hopkins University in 
% 	 purpose to show the use of traditional snakes and GVF snakes M fuctions. 
% 
% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
 
%%%%%%%%%% PROGRAM BEGINS %%%%%%%%%% 
 
 
%%%%%%% INICIALIZATIONA %%%%%%%%%%%%%% 
clear; 
 
% Add the tools to the current path 
p = path; 
path(p, './snake;./subf'); 
 
%%%%%%%%%%%%% define global variables %%%%%%%%%%%%%%%%%%% 
%%%% image processing variables 
global Image1;							% original image 
global sigma; 
global mu; 
global alpha beta gamma kappa dmin dmax;		% parameters for the snake 
global NoGVFIterations;				% number of GVF iterations 
global NoSnakeIterations;		   % number of Snake iterations 
global SchangeInFieldType; 
global VectorFieldButt;				% define the type of vector filed 
global SnakeON;						% indicate if snake is visible 
global IncSnakeRadius;				% inicializaton snake radius 
global CircleOn;						% inicalization snake will be circle 
global SnakeDotsON;				   % 1 if snake dots should be displeyed 
global GradientOn;					% 1 if gradient is applayed with blur 
global XSnake YSnake;				% conture of the snake 
global XSnakeInc YSnakeInc;   	% incicialization conture of the snake 
 
 
sigma=0; 
mu=0.1; 
alpha=0.05; 
beta=0; 
gamma=1; 
kappa=0.6;			 
dmin=0.5; 
dmax=2; 
SchangeInFieldType=1; 
 
NoGVFIterations=80; 
NoSnakeIterations=40; 
 
VectorFieldButt(1)=1;				% standard field 
VectorFieldButt(2)=0;				% GVF filed 
VectorFieldButt(3)=1;				% normalized GVF 
SnakeON=0;								% snake is not drown on the picture at the begining 
IncSnakeRadius=0.5; 
 
CircleOn=1; 
SnakeDotsON=1; 
GradientOn=0; 
 
%%%% interface variables 
global VectorOfLocalMenuHD;		%vector of local objects that can be arased 
VectorOfLocalMenuHD=[]; 
global HDmainf;			 			%main figure handle 
global HDorigPic;						%original picture axes handle 
global HDbluredPic;				   %blured picture axes handle 
global HDvectorFPic;					%handle of vector field picture 
global HDhelpAxes;					%handle of help window 
global HDhelpSlider1 HDhelpSlider2;	%handle of the slider for help text  
global HDvectorOfTexthd;			% vector of help text handels 
global xsize ysize;					%size of the picture 
global HDMenuAxes;					%Axes for the help 
global HDSnakeLine;					%vector of Handles of Snake lines on the picture 
global FileName PathName;			% name of the file 
global ExampleNo;						% number of exampel 
global DotsSize;						% size in pixels of the dots on the snake 
global HDRadioButton1; 
 
HDRadioButton1=[]; 
HDbluredPic=[]; 
HDvectorFPic=[]; 
HDSnakeLine=[]; 
HDvectorOfTexthd=[]; 
ExampleNo=1; 
 
global adgeD MinSize MenuSizeX MenuSizeY MenuPosX MenuPosY; 
global ButtHeight ButtWidth ButtDist TextHeight; 
 
adgeD=30;								% picture distance form the edge of the figure and each other 
MinSize=180;							% min size of picture in pixel on the scren (othewise picture is scaled larger) 
MenuSizeX=235;							% menu x size x=135 ,y=300 
MenuSizeY=400; 
MenuPosX=0; %%							% menu position on the figure 
MenuPosY=0; %% 
ButtHeight=22;							% size of the button 
ButtWidth=50; %%% 
ButtDist=7;							% Button distance from the adge of the menu bar 
TextHeight=20; 
DotsSize=5; 
             
menu0;