iluke_update_transpfaste

 script iluke_update_transpfaste

0001 % script iluke_update_transpfaste
0002 %
0003 for it = 1:ntimes,
0004     if isempty(transpfastes{it});
0005         transpfastes{it} = load_structures_yp('transpfaste','INIT','');% default dkeparam
0006     end
0007 end
0008 %
0009 if curtime > 0,
0010     %
0011     lukeobj.transp.modify.state = 'on';
0012     lukeobj.transp.load.state = 'on';
0013     lukeobj.transp.save.state = 'on';
0014     lukeobj.transp.disp.state = 'on';
0015     %
0016     if isfield(transpfastes{curtime},'orig'),
0017         lukeobj.transp.reset.state = 'on';
0018     else
0019         lukeobj.transp.reset.state = 'off';
0020     end
0021     %
0022     lukeobj.transp.text.string = transpfastes{curtime}.id;
0023     %
0024 else
0025     %
0026     comptest = true;
0027     %
0028     for it = 2:ntimes,
0029         comptest = comptest && comp_struct_jd(transpfastes{1},transpfastes{it},0);
0030     end
0031     %
0032     if ntimes > 0 && comptest,
0033         lukeobj.transp.modify.state = 'on';
0034         lukeobj.transp.load.state = 'on';
0035         lukeobj.transp.save.state = 'on';
0036         lukeobj.transp.disp.state = 'on';
0037         %
0038         if isfield(transpfastes{1},'orig'),
0039             lukeobj.transp.reset.state = 'on';
0040         else
0041             lukeobj.transp.reset.state = 'off';
0042         end
0043         %
0044         lukeobj.transp.text.string = transpfastes{1}.id;
0045     else
0046         lukeobj.transp.modify.state = 'off';
0047         lukeobj.transp.load.state = 'off';
0048         lukeobj.transp.save.state = 'off';
0049         lukeobj.transp.disp.state = 'off';
0050         lukeobj.transp.reset.state = 'off';
0051         if ntimes > 0,
0052             lukeobj.transp.text.string = '< time specific >';
0053         else
0054             lukeobj.transp.text.string = '< no shot times >';
0055         end
0056     end
0057     %
0058     clear it comptest
0059 end
0060 %