clear all;figure(1);clf;set (gcf,'Name','CG - FFT, File: Nonname','NumberTitle','off')set(gcf,'Units','normalized','Position',[0.2 0.4 0.6 0.48],'MenuBar','none');
figure(1);U=1;
U_Old=U;mbox=0;melipsoid=0;mtcone=0;mttrai=0;x=[];y=[];z=[];ep1=[];ep2=[];xec=[];yec=[];zec=[];tes=[];tee=[];pes=[];pee=[];ae=[];be=[];ce=[];epel1=[];epel2=[];gridd=[];ztte=[];eptt1=[];eptt2=[];xtts=[];ytts=[];ztts=[];xtte=[];ytte=[];ztte=[];xtcs=[];ytcs=[];ztcs=[];xtce=[];ytce=[];ztce=[];rtcs=[];rtce=[];ptcs=[];ptce=[];eptc1=[];eptc2=[];nx=8;ny=8;nz=8;dx=1;dy=1;dz=1;Type_gcfile=uimenu(gcf,'Label','CG-File');   OpenF=uimenu(Type_gcfile,'Label','Open','CallBack','open1');   SaveF=uimenu(Type_gcfile,'Label','Save','CallBack','save1');
   ExitF=uimenu(Type_gcfile,'Label','Exit','CallBack','close(''all''); fclose(''all''); clear all;');Type_config=uimenu(gcf,'Label','Configuration');   GlobalCS=uimenu(Type_config,'Label','Global and Cell Size','CallBack','gcz');   Units=uimenu(Type_config,'Label','Units');   Meters=uimenu(Units,'Label','Meters','CallBack','U_Old=U; U=1; chku;','Checked','on');   mMeters=uimenu(Units,'Label','mMeters','CallBack','U_Old=U; U=0.001; chku;');   cmMeters=uimenu(Units,'Label','cm','CallBack','U_Old=U; U=0.01; chku;');   Inches=uimenu(Units,'Label','inches','CallBack','U_Old=U; U=0.0254; chku; ');Type_Obj=uimenu(gcf,'Label','Insert/Edit Geometry ');   Box=uimenu(Type_Obj,'Label','Rectangular Box');      BoxNew=uimenu(Box,'Label','New','CallBack','box');      BoxOld=uimenu(Box,'Label','Old (View/Change)','CallBack','boxo');   Elipsoid=uimenu(Type_Obj,'Label','Elipsoid');      ElipNew=uimenu(Elipsoid,'Label','New','CallBack','elipsoid');      ElipOld=uimenu(Elipsoid,'Label','Old (View/Change)','CallBack','elipsoo');   T_Cone=uimenu(Type_Obj,'Label','Trancated Cone');      T_ConeNew=uimenu(T_Cone,'Label','New','CallBack','tcone');      T_ConeOld=uimenu(T_Cone,'Label','Old (View/Change)','CallBack','tconeo');   T_train=uimenu(Type_Obj,'Label','Trancated Triangular');      T_trainNew=uimenu(T_train,'Label','New','CallBack','ttrai');      T_trainOld=uimenu(T_train,'Label','Old (View/Change)','CallBack','ttraio');
   Load_From_File=uimenu(Type_Obj,'Label','Translate from surface and grid it','CallBack','gr2');Type_view=uimenu(gcf,'Label','View Geometry');   Gridded=uimenu(Type_view,'Label','GRIDDED Geometry','CallBack','gr1');   Data=uimenu(Type_view,'Label','Data');Type_run=uimenu(gcf,'Label','Compute CG-FFT');   run=uimenu(Type_run,'Label','run the computation','CallBack','run1');