equal
deleted
inserted
replaced
120 |
120 |
121 type HwColor4f = record |
121 type HwColor4f = record |
122 r, g, b, a: byte |
122 r, g, b, a: byte |
123 end; |
123 end; |
124 |
124 |
|
125 var cWaterOpacity: byte = $80; |
|
126 |
125 var WaterColorArray: array[0..3] of HwColor4f; |
127 var WaterColorArray: array[0..3] of HwColor4f; |
126 |
128 |
127 function hwSign(r: hwFloat): LongInt; |
129 function hwSign(r: hwFloat): LongInt; |
128 function Min(a, b: LongInt): LongInt; |
130 function Min(a, b: LongInt): LongInt; |
129 function Max(a, b: LongInt): LongInt; |
131 function Max(a, b: LongInt): LongInt; |