 TTagRef = record tag,nai,ndi,nao,ndo:Integer; val,tim:Real; end;
 TRamping = record t0,t1,v0,v1:real; end;
