vb_timeseries_viewer_specify_display_time

 Display specified time point.
 [USAGE]
    [obj] = timeseriesviewer_specify_display_time(obj);
 [IN]
    obj : vb_timeseries_viewer object.
 [OUT]
    obj : vb_timeseries_viewer object.

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function [obj] = vb_timeseries_viewer_specify_display_time(obj)
0002 % Display specified time point.
0003 % [USAGE]
0004 %    [obj] = timeseriesviewer_specify_display_time(obj);
0005 % [IN]
0006 %    obj : vb_timeseries_viewer object.
0007 % [OUT]
0008 %    obj : vb_timeseries_viewer object.
0009 %
0010 % Copyright (C) 2011, ATR All Rights Reserved.
0011 % License : New BSD License(see VBMEG_LICENSE.txt)
0012 
0013 %
0014 % --- Previous check
0015 %
0016 if ~exist('obj', 'var')
0017     error('obj is a required parameter.');
0018 end
0019 
0020 %
0021 % --- Main Procedure
0022 %
0023 
0024 H = obj.H;
0025 time = str2double(get(H.timepoint_current_text, 'String'));
0026 if isnan(time)
0027     errordlg('Invalid time were specified.', 'Display time');
0028     range = xlim(H.data_axes);
0029     center = range(2) - range(1) / 2;
0030     set(H.timepoint_current_text, 'String', num2str(center,3));
0031     [obj] = vb_timeseries_viewer_update_display_time_range(obj);
0032     return;
0033 end
0034 
0035 
0036 Nsample = obj.Nsample;
0037 freq    = obj.freq;
0038 max_sec  = Nsample/freq;
0039 
0040 % Display area
0041 % 0s                     max_sec
0042 %  |---|----------------|---|
0043 %      |<--- 0 to 1 --->|
0044 %    A         B          C
0045 %  0 = window_len/2
0046 %  1 = max_sec - window_len/2
0047 
0048 B_start = obj.window_len / 2;
0049 B_end   = max_sec - obj.window_len/2;
0050 
0051 
0052 if time > B_end
0053     % C
0054     slider_val = 1;
0055 elseif time < B_start
0056     % A
0057     slider_val = 0;
0058 else
0059     % B
0060     B_len = B_end - B_start;
0061     if B_len == 0
0062         slider_val = 0;
0063     else
0064         slider_val = (time - B_start) / B_len;
0065     end
0066 end
0067 
0068 set(H.timeseries_slider, 'Value', slider_val);
0069 obj = vb_timeseries_viewer_callback(obj, H.timeseries_slider);
0070 
0071 %
0072 % --- After check
0073 %
0074 if nargout ~= 1
0075     error('function caller should receive obj.');
0076 end