save_exptl_crystal.colour
    _definition.id             '_exptl_crystal.colour'
    _definition.update           2000-11-03
    _description.text
;
     Colour and appearance of the crystal.
;
    _description.compact        'CrystalColour'
    _name.category_id            exptl_crystal
    _name.attribute_id           colour
    _type.container              Tuple
    _type.value                  Uchar
    _type_array.dimension        [3]
    _description_example.case    "[transluscent, pale, green]"
    _method.expression
;
     With  c  as  exptl_crystal_appearance
 
      _exptl_crystal.colour <- Tuple ( [ c.general, c.intensity, c.base_colour ])
;
     save_

save_EXPTL_CRYSTAL_APPEARANCE
 
    _definition.id               exptl_crystal_appearance
    _definition.scope            Category
    _definition.class            Datum
    _definition.update           2000-11-03
    _description.text
;
     The CATEGORY of ENUMERATION items used to specify information about the
     crystal colour and appearance.
;
    _category.parent_id          exptl_crystal
     save_

save_exptl_crystal_appearance.general
    _definition.id             '_exptl_crystal_appearance.general'
    _definition.update           2000-11-03
    _description.text
;
     Appearance of the crystal.
;
    _description.compact        'CrystalColourAppearance'
    _name.category_id            exptl_crystal_appearance
    _name.attribute_id           general
    _type.container              Single
    _type.value                  Uchar
    _type.purpose                Code
     loop_
    _enumeration_set.code       'metallic' 
                                'lustrous' 
                                'dull' 
                                'transluscent' 
                                'clear' 
                                ' '
    _enumeration.default        ' '
     save_

save_exptl_crystal_appearance.intensity
    _definition.id             '_exptl_crystal_appearance.intensity'
    _definition.update           2000-11-03
    _description.text
;
     Colour intensity of the crystal.
;
    _description.compact        'CrystalColourIntensity'
    _name.category_id            exptl_crystal_appearance
    _name.attribute_id           intensity
    _type.container              Single
    _type.value                  Uchar
    _type.purpose                Code
     loop_
    _enumeration_set.code       'dark' 'light' 'intense' 'pale' ' '
    _enumeration.default        ' '
     save_

save_exptl_crystal_appearance.base_colour
    _definition.id             '_exptl_crystal_appearance.base_colour'
    _definition.update           2000-11-03
    _description.text
;
     Base colour of the crystal.
;
    _description.compact        'CrystalColourBase'
    _name.category_id            exptl_crystal_appearance
    _name.attribute_id           base_colour
    _type.container              Single
    _type.value                  Uchar
    _type.purpose                Code
     loop_
    _enumeration_set.code       'black'      'blue'   'bronze' 'brown'
                                'colourless' 'gold'   'green'  'grey'
                                'orange'     'pink'   'purple' 'red'
                                'silver'     'violet' 'white'  'yellow'
    _enumeration.default        'colourless'
     save_

>>>>>>>>>Another more detailed approach. NOT recommended for DDL1 

save_DISPLAY_COLOUR
 
    _definition.id               display_colour
    _definition.scope            Category
    _definition.class            Datum
    _definition.update           2000-11-03
    _description.text
;
     The CATEGORY of data items used to enumerate the display
     colour codes used in the discipline.
;
    _category.parent_id          publication
    _category_key.item_id      '_display_colour.code'
     save_

save_display_colour.code
    _definition.id             '_display_colour.code'
    _definition.update           2000-11-03
    _description.text
;
     Name of permitted display colour code.
;
    _description.compact        'DisplayColourCode'
    _name.category_id            display_colour
    _name.attribute_id           code
    _type.container              Single
    _type.value                  Uchar
    _type.purpose                Idname
     save_

save_display_colour.RGB
    _definition.id             '_display_colour.RGB'
    _definition.update           2000-11-03
    _description.text
;
     The red-green-blue intensities, bases 256, for each colour code.
;
    _description.compact        'DisplayColourRGB'
    _name.category_id            display_colour
    _name.attribute_id           RGB
    _type.container              Tuple
    _type.value                  Integer
    _type_array.dimension        [3]
    _method.expression
;
     With c  as  display_colour
 
    _display_colour.RGB  <-  Tuple([ c.red, c.green, c.blue ])
;
     save_

save_display_colour.red
    _definition.id             '_display_colour.red'
    _definition.import_id      '_generic.display_colour_intensity'
    _name.category_id            display_colour
    _name.attribute_id           red
     save_

save_display_colour.green
    _definition.id             '_display_colour.green'
    _definition.import_id      '_generic.display_colour_intensity'
    _name.category_id            display_colour
    _name.attribute_id           green
     save_

save_display_colour.blue
    _definition.id             '_display_colour.blue'
    _definition.import_id      '_generic.display_colour_intensity'
    _name.category_id            display_colour
    _name.attribute_id           blue
     save_

#============================================================================

#============================================================================
#
#  This section of the dictionary contains NO data definitions.
#
#  It contains the enumeration codes referred to by some DDL attributes.
#
#============================================================================
 
loop_
    _display_colour.code
    _display_colour.RGB
 
     black                            "[ 000, 000, 000 ]"
     white                            "[ 255, 255, 255 ]"
 
     grey                             "[ 192, 192, 192 ]"
     grey_light                       "[ 211, 211, 211 ]"
     grey_slate                       "[ 112, 128, 144 ]"
 
     blue                             "[ 000, 000, 255 ]"
     blue_light                       "[ 176, 224, 230 ]"
     blue_medium                      "[ 000, 000, 205 ]"
     blue_dark                        "[ 025, 025, 112 ]"
     blue_navy                        "[ 000, 000, 128 ]"
     blue_royal                       "[ 065, 105, 225 ]"
     blue_sky                         "[ 135, 206, 235 ]"
     blue_steel                       "[ 070, 130, 180 ]"
 
     turquoise                        "[ 064, 224, 208 ]"
 
     cyan                             "[ 000, 255, 255 ]"
     cyan_light                       "[ 224, 255, 255 ]"
 
     green                            "[ 000, 255, 000 ]"
     green_light                      "[ 152, 251, 152 ]"
     green_dark                       "[ 000, 100, 000 ]"
     green_sea                        "[ 046, 139, 087 ]"
     green_lime                       "[ 050, 205, 050 ]"
     green_olive                      "[ 107, 142, 035 ]"
     green_khaki                      "[ 240, 230, 140 ]"
 
     yellow                           "[ 255, 255, 000 ]"
     yellow_light                     "[ 255, 255, 224 ]"
     yellow_gold                      "[ 255, 215, 000 ]"
 
     brown                            "[ 165, 042, 042 ]"
     brown_sienna                     "[ 160, 082, 045 ]"
     brown_beige                      "[ 245, 245, 220 ]"
     brown_tan                        "[ 210, 180, 140 ]"
 
     salmon                           "[ 250, 128, 114 ]"
     salmon_light                     "[ 255, 160, 122 ]"
     salmon_dark                      "[ 233, 150, 122 ]"
 
     orange                           "[ 255, 165, 000 ]"
     orange_dark                      "[ 255, 140, 000 ]"
 
     red                              "[ 255, 000, 000 ]"
     red_coral                        "[ 255, 127, 080 ]"
     red_tomato                       "[ 255, 099, 071 ]"
     red_orange                       "[ 255, 069, 000 ]"
     red_violet                       "[ 219, 112, 147 ]"
     red_maroon                       "[ 176, 048, 096 ]"
 
     pink                             "[ 255, 192, 203 ]"
     pink_light                       "[ 255, 182, 193 ]"
     pink_deep                        "[ 255, 020, 147 ]"
     pink_hot                         "[ 255, 105, 180 ]"
 
     violet                           "[ 238, 130, 238 ]"
     violet_red                       "[ 208, 032, 144 ]"
     violet_magenta                   "[ 255, 000, 255 ]"
     violet_dark                      "[ 148, 000, 211 ]"
     violet_blue                      "[ 138, 043, 226 ]"