def SetDefaultDData(dType, histoName, NShkl=0, NDij=0):
    """Create an initial Histogram dictionary

    Author: Jackson O'Donnell (jacksonhodonnell .at. gmail.com)
    """
    if dType in ['SXC', 'SNC']:
        return {'Histogram': histoName, 'Show': False, 'Scale': [1.0, True],
            'Babinet': {'BabA': [0.0, False], 'BabU': [0.0, False]},
            'Extinction': ['Lorentzian', 'None', {'Tbar': 0.1, 'Cos2TM': 
            0.955, 'Eg': [1e-10, False], 'Es': [1e-10, False], 'Ep': [1e-10,
            False]}], 'Flack': [0.0, False]}
    elif dType == 'SNT':
        return {'Histogram': histoName, 'Show': False, 'Scale': [1.0, True],
            'Babinet': {'BabA': [0.0, False], 'BabU': [0.0, False]},
            'Extinction': ['Lorentzian', 'None', {'Eg': [1e-10, False],
            'Es': [1e-10, False], 'Ep': [1e-10, False]}]}
    elif 'P' in dType:
        return {'Histogram': histoName, 'Show': False, 'Scale': [1.0, False
            ], 'Pref.Ori.': ['MD', 1.0, False, [0, 0, 1], 0, {}, [], 0.1],
            'Size': ['isotropic', [1.0, 1.0, 1.0], [False, False, False], [
            0, 0, 1], [1.0, 1.0, 1.0, 0.0, 0.0, 0.0], 6 * [False]],
            'Mustrain': ['isotropic', [1000.0, 1000.0, 1.0], [False, False,
            False], [0, 0, 1], NShkl * [0.01], NShkl * [False]], 'HStrain':
            [NDij * [0.0], NDij * [False]], 'Extinction': [0.0, False],
            'Babinet': {'BabA': [0.0, False], 'BabU': [0.0, False]}}
