equal
deleted
inserted
replaced
1839 recTexture:= Surface2Tex(tmpSurface, false); |
1839 recTexture:= Surface2Tex(tmpSurface, false); |
1840 SDL_FreeSurface(tmpSurface) |
1840 SDL_FreeSurface(tmpSurface) |
1841 end; |
1841 end; |
1842 DrawTexture( -(cScreenWidth shr 1) + 50, 20, recTexture); |
1842 DrawTexture( -(cScreenWidth shr 1) + 50, 20, recTexture); |
1843 |
1843 |
1844 a:= Byte(min(255, abs(-255 + ((RealTicks div 2) and 511)))); |
1844 t:= -255 + ((RealTicks div 2) and 511); |
|
1845 a:= Byte(min(255, abs(t))); |
1845 |
1846 |
1846 // draw red circle |
1847 // draw red circle |
1847 DrawCircleFilled(-(cScreenWidth shr 1) + 30, 35, 10, $FF, $00, $00, a); |
1848 DrawCircleFilled(-(cScreenWidth shr 1) + 30, 35, 10, $FF, $00, $00, a); |
1848 end; |
1849 end; |
1849 {$ENDIF} |
1850 {$ENDIF} |