 TYPE

    fdt$object_definition = record
      case key: {input} fdt$object_definition_key of {input}

      = fdc$box =
        box_width: fdt$width,
        box_height: fdt$height,

      = fdc$constant_text =
        constant_text_width: fdt$width,
        p_constant_text: ^fdt$text,

      = fdc$constant_text_box =
        constant_box_height: fdt$height,
        constant_box_processing: fdt$text_box_processing,
        constant_box_width: fdt$width,
        p_constant_box_text: ^fdt$text,

      = fdc$line =
        x_increment: fdt$x_increment,
        y_increment: fdt$y_increment,

      = fdc$table =
        table_width: fdt$width,
        table_height: fdt$height,

      = fdc$variable_text =
        p_variable_text: ^fdt$text,
        variable_text_width: fdt$width,

      = fdc$variable_text_box =
        p_variable_box_text: ^fdt$text,
        variable_box_height: fdt$height,
        variable_box_processing: fdt$text_box_processing,
        variable_box_width: fdt$width,

      casend
    recend;

*copyc fdt$object_definition_key
*copyc fdt$text
*copyc fdt$width
*copyc fdt$height
*copyc fdt$x_increment
*copyc fdt$y_increment
*copyc fdt$text_length
*copyc fdt$text_box_processing
