tAnimOb

type tAnimOb = record

  NextOb: pAnimOb;

  PrevOb: pAnimOb;

  Clock: LongInt;

  AnOldY: SmallInt;

  AnOldX: SmallInt;

  AnY: SmallInt;

  AnX: SmallInt;

  YVel: SmallInt;

  XVel: SmallInt;

  YAccel: SmallInt;

  XAccel: SmallInt;

  RingYTrans: SmallInt;

  RingXTrans: SmallInt;

  AnimORoutine: Pointer;

  HeadComp: pAnimComp;

  AUserExt: AUserStuff;

end;