person

type person = record

  WOpening: real;

  DDisplacement: real;

  SShape: real;

  TTranslation: real;

  Coarsegraininess: Integer;

  Reach: Integer;

  GeneratingCurve: Integer;

  TranslationGradient: real;

  DGradient: real;

  Handedness: -1..1;

end;