wolffd@0: function val = get(a, propName)
wolffd@0: % GET Get properties from the MIRemotion object
wolffd@0: % and return the value
wolffd@0: 
wolffd@0: switch propName
wolffd@0:     case 'Dim'
wolffd@0:         val = a.dim;
wolffd@0:     case 'Class'
wolffd@0:         val = a.class;
wolffd@0:     case 'DimData'
wolffd@0:         val = a.dimdata;
wolffd@0:     case 'ClassData'
wolffd@0:         val = a.classdata;
wolffd@0:     case 'ActivityFactors'
wolffd@0:         val = a.activity_fact;
wolffd@0:     case 'ValenceFactors'
wolffd@0:         val = a.valence_fact;
wolffd@0:     case 'TensionFactors'
wolffd@0:         val = a.tension_fact;
wolffd@0:     case 'HappyFactors'
wolffd@0:         val = a.happy_fact;
wolffd@0:     case 'SadFactors'
wolffd@0:         val = a.sad_fact;
wolffd@0:     case 'TenderFactors'
wolffd@0:         val = a.tender_fact;
wolffd@0:     case 'AngerFactors'
wolffd@0:         val = a.anger_fact;
wolffd@0:     case 'FearFactors'
wolffd@0:         val = a.fear_fact;
wolffd@0:     otherwise
wolffd@0:         val = get(mirdata(a),propName);
wolffd@0: end