TFloor1

type TFloor1 = record

  partitions: uint8;

  partition_class_list: array [0..32-1] of uint8;

  class_dimensions: array [0..16-1] of uint8;

  class_subclasses: array [0..16-1] of uint8;

  class_masterbooks: array [0..16-1] of uint8;

  subclass_books: array [0..16-1,0..8-1] of int16;

  Xlist: array [0..31*8+2-1] of uint16;

  sorted_order: array [0..31*8+2-1] of uint8;

  neighbors: array [0..31*8+2-1,0..2-1] of uint8;

  floor1_multiplier: uint8;

  rangebits: uint8;

  values: Integer;

end;