Homec4science
Diffusion MSM (command_line) Browse

msm/TOOLBOX_Subject_Specific/SUBJECT_TOOL_script_generator.m
74ce03b0ec87command_line

Last Change
Raw File

SUBJECT_TOOL_script_generator.m
View Options

function CBScript = SUBJECT_TOOL_script_generator(task)
%{
Uicontrol Callback Script Generator for Subject Specific Tool GUI.
--------------------------------------------------------------------------
Syntax :
CBScript = SUBJECT_TOOL_script_generator(task)
--------------------------------------------------------------------------
File Description :
This function generates the uicontrol callback scripts for the subject
specific tool GUI. The task input variable inidicates which script to return.
List of Scripts :
Task 1: Close Subject Tool
Task 2:
Task 3:
Task 4:
Task 5:
Task 6:
Task 7:
Task 8: Help
--------------------------------------------------------------------------
%}
% Initialise the output
CBScript = [];
%--------------------------------------------------------------------------
% Task 1 : Close the Subject GUI
% Closes the subject specific tool GUI and deletes the variables that are no
% longer needed. indicate other parts that are updated to account for these
% changes.
%--------------------------------------------------------------------------
if isequal(task, 'Close Subject Tool')
CBScript = [...
'clear SHandle;',...
'clear SPlotHandles;',...
'close gcf;'];
%--------------------------------------------------------------------------
% Task 2 : Build the Ellipsoid
% Runs the optimisation overhead function which controls the
% optimsation routine.
%--------------------------------------------------------------------------
elseif isequal(task, 'Update Muscle PCSA')
CBScript = 'MWDATA = SUBJECT_TOOL_Update_PCSA(SGUIHandle, MWDATA);';
%--------------------------------------------------------------------------
% Task 3 : Update the Visualisation
%--------------------------------------------------------------------------
elseif isequal(task, 'RESET TO GENERIC MODEL')
CBScript = ['set(SGUIHandle.Gender_Selection.Gender,''Value'', 1);',...
'set(SGUIHandle.Weight_Selection.Weight,''string'', ''85.5'');',...
'set(SGUIHandle.Height_Selection.Height,''string'', ''1.86'');',...
'BLDATA = MAIN_INITIALISATION_build_data_bony_landmark();',...
'MWDATA = MAIN_INITIALISATION_build_data_muscle_wrapping(BLDATA);',...
'set(SGUIHandle.PCSA_Selection.MuscleName,''Value'', 1);',...
'set(SGUIHandle.Glenoid_Orientations.Popupmenu,''Value'', 1);',...
'SUBJECT_TOOL_Show_PCSA(SGUIHandle, MWDATA);',...
'SUBJECT_TOOL_Clear_WireFrame(SPlotHandles);',...
'SUBJECT_TOOL_Show_Glenoid_Orientation(SGUIHandle, BLDATA);'];
%--------------------------------------------------------------------------
% Task 4 : Save Current Visualisation
% Calls the main function for saving visualisations
%--------------------------------------------------------------------------
elseif isequal(task, 'Show PCSA From List')
CBScript = 'SUBJECT_TOOL_Show_PCSA(SGUIHandle, MWDATA);';
%--------------------------------------------------------------------------
% Task 5 : Update Selected Ribcage points
% Updates the selected points on the ribcage that are selected given the
% current bounds.
%--------------------------------------------------------------------------
elseif isequal(task, 'Update Subject Weight')
CBScript = ['DYDATA = SUBJECT_TOOL_Update_Weight(SGUIHandle, DYDATA);'...
'BLDATA = SUBJECT_TOOL_build_data_bony_landmark(BLDATA, DYDATA);'...
'MWDATA = SUBJECT_TOOL_build_data_muscle_wrapping(BLDATA,MWDATA,DYDATA);'];
%--------------------------------------------------------------------------
% Task 5 : Update Selected Ribcage points
% Updates the selected points on the ribcage that are selected given the
% current bounds.
%--------------------------------------------------------------------------
% elseif isequal(task, 'Define Gender')
% %CBScript = 'DYDATA.Gender = SGUIHandle.Gender_Selection.Gender.Value;';
% CBScript = 'DYDATA = SUBJECT_TOOL_Update_Weight(SGUIHandle, DYDATA);';
%--------------------------------------------------------------------------
% Task 6 : Set Optimisation Parameters
% Sets the data structure is the inial values or bounds are changed.
%--------------------------------------------------------------------------
elseif isequal(task, 'VISUALIZATION')
CBScript = 'SPlotHandles = SUBJECT_TOOL_Visualization(SHandle, SPlotHandles, BLDATA, DYDATA);';
%--------------------------------------------------------------------------
% Task 7 : Show Glenoid Orientations
% Sets the data structure is the inial values or bounds are changed.
%--------------------------------------------------------------------------
elseif isequal(task, 'Show Glenoid Orientation')
CBScript = 'SUBJECT_TOOL_Show_Glenoid_Orientation(SGUIHandle, BLDATA);';
%--------------------------------------------------------------------------
% Task 7 : Update Glenoid Orientations
% Sets the data structure is the inial values or bounds are changed.
%--------------------------------------------------------------------------
elseif isequal(task, 'Update Glenoid Orientation')
CBScript = 'BLDATA = SUBJECT_TOOL_Update_Glenoid_Orientation(SGUIHandle, BLDATA);';
%--------------------------------------------------------------------------
% Task 7 : Set Optimisation Settings
% When an optimisation setting is changed, this callback sets the data
% structure.
%--------------------------------------------------------------------------
elseif isequal(task, 'Set Optimisation Settings')
CBScript = '[EOPTDATA] = ELLIPSOID_TOOL_optimisation_setup(EGUIHandle, EOPTDATA);';
Load Measured Kinematics
%--------------------------------------------------------------------------
% Task 7 : Load Measured Kinematics
% When an optimisation setting is changed, this callback sets the data
% structure.
%--------------------------------------------------------------------------
elseif isequal(task, 'Load Measured Kinematics')
CBScript = 'SSDATA = SUBJECT_TOOL_Load_Kinematics(SGUIHandle);';
%--------------------------------------------------------------------------
% Task 7 : SCALING OVERWRITE
% When an optimisation setting is changed, this callback sets the data
% structure.
%--------------------------------------------------------------------------
elseif isequal(task, 'SCALING OVERWRITE')
%CBScript = 'SUBJECT_TOOL_Overwirte_Scaling(SGUIHandle);';
%--------------------------------------------------------------------------
% Task 9 : Open The Ellipsoid Fitting Tool
%--------------------------------------------------------------------------
elseif isequal(task, 'Open Ellipsoid Tool')
CBScript = 'ELLIPSOID_TOOL_main_file;';
%--------------------------------------------------------------------------
% Task 8 : Help
% Displays a help message in the command window when the help menu option
% is clicked.
%--------------------------------------------------------------------------
elseif isequal(task, 'Help')
CBScript = [...
'sprintf([''------------- INTERFACE FOR SUBJECT SPECIFIC TOOLBOX -----------------\n'',',...
' ''This GUI helps you adapt the generic model to a specific subject.\n'',',...
' ''You can do certain things that I am going explain later.\n'',',...
' ''details 1: PCSA\n'',',...
' ''details 2: glenoid orientation, what each angle means?\n'', ',...
' ''details 3: the kinematic data and the characteristics of the uploaded file\n'',',...
' ''\n'',',...
' ''\n'','...
' '''']);',...
'disp(ans);'];
%--------------------------------------------------------------------------
% Throw an error if task is not valid
%--------------------------------------------------------------------------
else
% Throw an error. No valid task was given
ErrorMsg = [...
'The user supplied task is not valid.',...
'SUBJECT_SPECIFIC_TOOL_script_generator requires a valid task as input.\n',...
'Try the Following : \n',...
'1) Close the Tool,\n',...
'2) ,\n',...
'3) ,\n',...
'4) ,\n',...
'5) ,\n',...
'6) ,\n',...
'7) .'];
error('ScptGen:ErrorMsg', ErrorMsg);
end
return;
c4science · Help