63     dig: TSHA1Digest;

    63     dig: TSHA1Digest;

    64 begin

    64 begin

    65 SHA1Init(ctx);

    65 SHA1Init(ctx);

    66 SHA1Update(ctx, @Land, sizeof(Land));

    66 SHA1Update(ctx, @Land, sizeof(Land));

    67 dig:= SHA1Final(ctx);

    67 dig:= SHA1Final(ctx);

    68 AddFileLog('SHA1 Land digest: {'+inttostr(dig.LongWords[0])+':'

    69 AddFileLog('SHA1 Land digest: {'+inttostr(dig.LongWords[0])+':'

    69            +inttostr(dig.LongWords[1])+':'+inttostr(dig.LongWords[2])+':'

    70            +inttostr(dig.LongWords[1])+':'+inttostr(dig.LongWords[2])+':'

    70            +inttostr(dig.LongWords[3])+':'+inttostr(dig.LongWords[4])+'}');

    71            +inttostr(dig.LongWords[3])+':'+inttostr(dig.LongWords[4])+'}');

    71 end;

    73 end;

    72 

    74 

    73 procedure DrawBezierEdge(var pa: TPixAr);

    75 procedure DrawBezierEdge(var pa: TPixAr);

    74 var x, y, i: integer;

    76 var x, y, i: integer;

    75     tx, ty, vx, vy, vlen, t: real;

    77     tx, ty, vx, vy, vlen, t: real;