| calibrate - флаг, указывающий, нужно ли таблицу цветов калибровать применительно к монитору; по умолчанию false. |
|
Команда UpdateGamma должна использоваться после выполнения команды SetGamma, чтобы изменения вступили в силу.
Смотрите также: SetGamma. |
| ;gamma demo - используйте стрелки вправо/влево ;для изменения яркости экрана ; ;нажмите левый control для получения "красного" эффекта! Graphics 640,480,16,1 SetBuffer BackBuffer() n=0 While Not KeyHit(1) If KeyDown(203) And n>0 Then n=n-1 If KeyDown(205) And n<255 Then n=n+1 If KeyDown(29) SetGammaRed(n) Else SetGammaIntensity(n) EndIf Cls SeedRnd 1234 For k=1 To 1000 Color Rnd(255),Rnd(255),Rnd(255) Rect Rnd(640),Rnd(480),Rnd(64),Rnd(64) Next Text 0,0,"Яркость="+n Flip Wend End ; bye! Function SetGammaRed( n ) For k=0 To 255 SetGamma k,k,k,k+n,0,0 Next UpdateGamma End Function Function SetGammaIntensity( n ) For k=0 To 255 SetGamma k,k,k,k+n,k+n,k+n Next UpdateGamma End Function |