equal
deleted
inserted
replaced
98 |
98 |
99 SetTextureParameters(true); |
99 SetTextureParameters(true); |
100 end; |
100 end; |
101 |
101 |
102 procedure Surface2GrayScale(surf: PSDL_Surface); |
102 procedure Surface2GrayScale(surf: PSDL_Surface); |
103 var tw, th, x, y: Longword; |
103 var tw, x, y: Longword; |
104 tmpp: pointer; |
|
105 fromP4: PLongWordArray; |
104 fromP4: PLongWordArray; |
106 begin |
105 begin |
107 fromP4:= Surf^.pixels; |
106 fromP4:= Surf^.pixels; |
108 for y:= 0 to Pred(Surf^.h) do |
107 for y:= 0 to Pred(Surf^.h) do |
109 begin |
108 begin |