equal
deleted
inserted
replaced
65 procedure RenderClear (); |
65 procedure RenderClear (); |
66 {$IFDEF USE_S3D_RENDERING} |
66 {$IFDEF USE_S3D_RENDERING} |
67 procedure RenderClear (mode: TRenderMode); |
67 procedure RenderClear (mode: TRenderMode); |
68 {$ENDIF} |
68 {$ENDIF} |
69 procedure RenderSetClearColor (r, g, b, a: real); |
69 procedure RenderSetClearColor (r, g, b, a: real); |
70 procedure Tint (r, g, b, a: Byte); inline; |
70 procedure Tint (r, g, b, a: Byte); |
71 procedure Tint (c: Longword); inline; |
71 procedure Tint (c: Longword); inline; |
72 procedure untint(); inline; |
72 procedure untint(); inline; |
73 procedure setTintAdd (enable: boolean); inline; |
73 procedure setTintAdd (enable: boolean); inline; |
74 |
74 |
75 // call this to finish the rendering of current frame |
75 // call this to finish the rendering of current frame |
2042 {$ELSE} |
2042 {$ELSE} |
2043 glColor4ub(r, g, b, a); |
2043 glColor4ub(r, g, b, a); |
2044 {$ENDIF} |
2044 {$ENDIF} |
2045 end; |
2045 end; |
2046 |
2046 |
2047 procedure Tint(r, g, b, a: Byte); inline; |
2047 procedure Tint(r, g, b, a: Byte); |
2048 var |
2048 var |
2049 nc, tw: Longword; |
2049 nc, tw: Longword; |
2050 begin |
2050 begin |
2051 nc:= (r shl 24) or (g shl 16) or (b shl 8) or a; |
2051 nc:= (r shl 24) or (g shl 16) or (b shl 8) or a; |
2052 |
2052 |