loop_demo_rb_gui.m

function loop_demo_rb_gui(fhandle,slidername,stepsize)
%function loop_demo_rb_gui(fhandle,slidername,stepsize)
%
% smalls script performing an animation of the currently stored
% information in the rb gui
% The figure handle of the demo_rb_gui instance must be
% passed. Optionally, the timestepsize (default 1) can be set to
% accellerate the animation.
% possible slidernames: 'time','N','M', etc.
%
% time slider: slider_time

% Bernard Haasdonk 14.11.2008

if nargin<2
  timestepsize = 1;
end;

slider = findobj(fhandle,'tag',['slider_',slidername]);
if isempty(slider)
  error ('no slider object found!');
end;

ud = get(fhandle,'UserData');
params = ud.model;

minval = get(slider,'Min');
maxval = get(slider,'Max');

[j,p] =  ismember(slidername, params.mu_names)
%keyboard;

% in case of parameters: sliders have range 0 to 1!!
if j~=0
  value_range = ud.model.mu_ranges{p};
  stepsize = stepsize /(value_range(2)-value_range(1));
end;

for i=minval:stepsize:maxval;
  set(slider,'value',i);
  demo_rb_gui([],[],[],[],[],fhandle,slider);
  drawnow;
  pause(0.1);
end;

%| \docupdate