| changeset 10196 | 514e338f2eaf |
| parent 10192 | bb1310c4bd79 |
| child 10199 | fdb689b57b1b |
| 10195:d1c23bb73346 | 10196:514e338f2eaf |
|---|---|
52 end; |
52 end; |
53 |
53 |
54 |
54 |
55 function lerp(t, a, b: LongInt) : LongInt; inline; |
55 function lerp(t, a, b: LongInt) : LongInt; inline; |
56 begin |
56 begin |
57 lerp:= a + (t * (b - a) shr 12) |
57 lerp:= a + (Int64(b - a) * t shr 12) |
58 end; |
58 end; |
59 |
59 |
60 |
60 |
61 function grad(hash, x, y: LongInt) : LongInt; inline; |
61 function grad(hash, x, y: LongInt) : LongInt; inline; |
62 var h, v, u: LongInt; |
62 var h, v, u: LongInt; |