Gamma - Control

[THE MATRIX]

Hi @ll
ich hab mal google durchstöbert und das forum aber nicht wirklich fündig geworden :(

Ich habe ein C++ und ein VB Source gefunden der die GAMMA-CONTROL macht

Delphi-Quellcode:

void CGammaSlider::SetGamma(float Gamma)
{
   WORD ramp[256*3];

   for(int i = 0; i < 256; i++) {
      ramp[i] = ramp[i+256] = ramp[i+512] = 
      (WORD)min(65535, max(0, pow((i+1) / 256.0, Gamma) * 65535 + 0.5));
   }

    SetDeviceGammaRamp(::GetDC(NULL), ramp);
}

das ist der C++ Source Code
ich hab das mal wiefolg übersetzt ( c++ ist nicht sooo mein ding ;) )

Delphi-Quellcode:

procedure SetGamma(var Gamma: Double);
Var
Ramp: array[0 .. 255, 0 .. 2] of double;
nVal: double;
I: integer;
begin
 For I:= 0 To 255 do
  begin
   nVal:= ((((I + 1) / 256) * (1 / Gamma)) * 65535 + 0.5);
   Ramp[I, 0]:= nVal;
   Ramp[I, 1]:= nVal;
   Ramp[I, 2]:= nVal;
 end;
SetDeviceGammaRamp(GetDC(0), Ramp);
end;

Jedoch ändert sich mein Gamma gar nicht , wenn ich das setgamma aufrufe ( natürlich mit werten )
setgamma(20) z.b.

Ich hoffe hier sind ein paar die das vielleicht besser übersetzten können,damit es funktioniert - oder ob ich über ne function fürs SetDeviceGammaRamp genen muss , welches im moment in der windows.pas ist jedoch auch in der gdi32 ...

So ich pack an Anhang das C++ Compilte programm damit ihr seht das es funktioniert
Hoffe mir kann jemand helfen ! :cheers:

[Muetze1]

Moin!

Mal schnell neu übersetzt...

Delphi-Quellcode:

Procedure SetGamma(Const AGamma : Double);
Var
  Ramp : Array[256*3] of Word;
  i : Integer;
  nVal : Word;
Begin
  For i := 0 To 255 Do
  Begin
    nVal := Word( Min(65535, Max(0, Power( (i+1) / 256, AGamma) * 65535 + 0.5)) );
    Ramp[000+i] := nVal;
    Ramp[256+i] := nVal;
    Ramp[512+i] := nVal;
  End;
  SetDeviceGammaRamp(GetDC(0), Ramp);
End;

(direkt hier eingegeben, nix ausgetestet)

MfG
Muetze1

[THE MATRIX]

So hatte ich das auch zuerst probiert
aber er erkennt die Array dekleration nicht dann das POWER , Min und Max kp was das zu tun hat :)
Ich pack mal kompletten C-source hier rein

Delphi-Quellcode:

#include "stdafx.h"
#include "GammaSlider.h"
#include <math.h>

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

#define MIN_POS     0
#define MAX_POS     40
#define POS_FACTOR  10.0

#define REG_SECTION "GammaSlider"
#define REG_ENTRY   "Settings"

/*===========================================================================

@mfunc CGammaSlider - Constructor

===========================================================================*/
CGammaSlider::CGammaSlider()
{
}



/*===========================================================================

@mfunc ~CGammaSlider - Destructor

===========================================================================*/
CGammaSlider::~CGammaSlider()
{
    Restore();
}



/*===========================================================================

@mfunc OnDestroy - See MFC

===========================================================================*/
void CGammaSlider::OnDestroy()
{
    SaveSettings();

   CSliderCtrl::OnDestroy();
}



BEGIN_MESSAGE_MAP(CGammaSlider, CSliderCtrl)
   //{{AFX_MSG_MAP(CGammaSlider)
   ON_WM_HSCROLL_REFLECT()
   ON_WM_DESTROY()
   //}}AFX_MSG_MAP
END_MESSAGE_MAP()



/*===========================================================================

@mfunc PreSubclassWindow - See MFC

===========================================================================*/
void CGammaSlider::PreSubclassWindow()
{
   if (!GetDeviceGammaRamp(::GetDC(NULL), m_RampSaved))
   {
      TRACE("WARNING: Cannot initialize DeviceGammaRamp.\n");
      EnableWindow(FALSE);
   }
   else
   {
      SetRange(MIN_POS, MAX_POS);
      SetTicFreq(5);
        LoadSettings();
    }

   CSliderCtrl::PreSubclassWindow();
}



/*===========================================================================

@mfunc  GetGammaPos - Get current gamma average (Originaly for RGB input)

===========================================================================*/
int CGammaSlider::GetGammaPos()
{
   float rgb[3]  = {1.0, 1.0, 1.0};

   for (int i = 0; i < 3; i++) {

      float Csum       = 0.0;
      int   Ccount   = 0;
      int   min      = 256 * i;
      int   max      = min + 256;

      for (int j = min; j < max; j++) {

         if (j != 0 && m_RampSaved[j] != 0 && m_RampSaved[j] != 65536)
         {
            double B = (j % 256) / 256.0;
            double A = m_RampSaved[j] / 65536.0;
            float  C = (float)(log(A) / log(B));

            Csum += C;
            Ccount++;
         }
      }

      rgb[i] = Csum / Ccount;
   }

   return (int)(MAX_POS-(rgb[0] * POS_FACTOR));
}



/*===========================================================================

@mfunc HScroll   - Refelction

@parm  nSBCode   - Reflection code

@parm  nPos      - Poition value

===========================================================================*/
void CGammaSlider::HScroll(UINT nSBCode, UINT nPos)
{
   if (nSBCode == SB_THUMBTRACK || nSBCode == TB_LINEDOWN ||
      nSBCode == TB_LINEUP || nSBCode == TB_TOP)
   {
      SetGamma((float)((MAX_POS-nPos) / POS_FACTOR));
   }
}



/*===========================================================================

@mfunc SetGamma - Set current gamma average (Originaly for RGB input)

@parm  Gamma - Gamma value

===========================================================================*/
void CGammaSlider::SetGamma(float Gamma)
{
   WORD ramp[256*3];

   for(int i = 0; i < 256; i++) {
      ramp[i] = ramp[i+256] = ramp[i+512] =
      (WORD)min(65535, max(0, pow((i+1) / 256.0, Gamma) * 65535 + 0.5));
   }

    SetDeviceGammaRamp(::GetDC(NULL), ramp);
}



/*===========================================================================

@mfunc LoadSettings - Load current state

===========================================================================*/
void CGammaSlider::LoadSettings()
{
    int nPos = AfxGetApp()->GetProfileInt(REG_SECTION, REG_ENTRY, GetGammaPos());

    SetPos(nPos);
   SetGamma((float)((MAX_POS-((nPos == MAX_POS) ? MAX_POS-3 : nPos)) / POS_FACTOR));
}



/*===========================================================================

@mfunc SaveSettings - Save current state

===========================================================================*/
void CGammaSlider::SaveSettings()
{
    AfxGetApp()->WriteProfileInt(REG_SECTION, REG_ENTRY, GetPos());
}



/*===========================================================================

@mfunc RestoreGamma - Restore saved gamma

===========================================================================*/
void CGammaSlider::RestoreGamma()
{
    SetPos(GetGammaPos());
    Restore();
}



/*===========================================================================

@mfunc Restore - Restore saved gamma

===========================================================================*/
void CGammaSlider::Restore()
{
   if (!SetDeviceGammaRamp(::GetDC(NULL), m_RampSaved))
      TRACE("WARNING: Cannot restore DeviceGammaRamp.\n");
}

So ... Hab das auch im VBBasic hier und mal mit nem VBtoDelphi convertieren lassen aber da lief gar nichts von :'(


Also wer noch ideen hat bitte posten - BiT THX

[THE MATRIX]

So habs hinbekommen

Delphi-Quellcode:

type
  TGammaRamp = packed record
    R : array[0..255] of word;
    G : array[0..255] of word;
    B : array[0..255] of word;
  end;

zum ändern das Gammas

Delphi-Quellcode:

procedure TForm1.BarGammaChange(Sender: TObject);
var
  v, i: Integer;
  adjustedRamp: TGammaRamp;
begin
Caption := Format('%.1f', [barGamma.Position/10]);
 for i := 0 to 255 do
  begin
    v := Round(255 * Power(i/255, barGamma.Position/10));
    if v > 255 then v := 255;
    adjustedRamp.R[i] := v shl 8;
    adjustedRamp.G[i] := v shl 8;
    adjustedRamp.B[i] := v shl 8;
  end;
 SetDeviceGammaRamp(getdc(0), adjustedRamp);
end;

und am Besten vorher das GAMMA speichern ( was vorher war )

GetDeviceGammaRamp(GetDC(0), OldGamma);

OldGamma muss dann TGAMMARAMP sein ;)

So Endlich kann ich meine GRAKA wieder auf 1.0 stellen wenn mir nen Game gecrashed ist :] *fettSmile*

[Phantom1]

ich hab den code mal probiert, leider tut sich bei mir garnix. warscheinlich funktioniert es bei ATI (radeon9700) grafikkarten etwas anders als bei nvidia.

[THE MATRIX]

Hier mal mein compiltes wenns geht auch ich source auch noch hoch probiers mal.

[Muetze1]

Moin!

Ich habe eine Radeon 9600 und der Regler in der EXE bewirkt.... nix. Keine Reaktion, nix.

Wäre vielleicht mal gut, wenn du den Rückgabewert der GDI Funktion abfragen würdest und mit ShowMessage(SysErrorMessage(GetLastError)); im Fehlerfall mal den Grund ausgibst...

MfG
Muetze1

[dizzy]

GF4 Ti4400 ...und läuft!

[Muetze1]

Moin!

Zitat:

Zitat von MSDN

SetDeviceGammaRamp succeeds only for devices with drivers that support downloadable gamma ramps in hardware

MSDN SetDeviceGammaRamp

MfG
Muetze1

[Phantom1]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von MSDN

SetDeviceGammaRamp succeeds only for devices with drivers that support downloadable gamma ramps in hardware

Schade eigentlich. Gibt's für ATI Grafikkarten keine andere möglichkeit?

[THE MATRIX]

Delphi-Quellcode:

function IsGammaRampSupported : Boolean;
var
TmpRamp : TGammaRamp;
DC      : HDC;
begin
DC := GetDC(0);
Result := GetDeviceGammaRamp(DC, TmpRamp);
ReleaseDC(0, DC);
end;

Diese Funktion liefert den erwartet True oder False zurück, also eine Unterstützung von Gammarampen seitens der Hardware oder nicht.

für Radeon hat ATI hier was zu geschrieben
http://www.ati.com/developer/sdk/RAD...DEONGamma.html

Zitat:

RADEON™ Support


From the RAGE 128 PRO™ onward, ATI chips have supported 8.2 fixed-point gamma table entries, which is higher precision than their predecessors (8.0). By providing meaningful 8.8 fixed-point data to the API entrypoint(s) above, you take advantage of this added precision.


Links

* Charles Poynton's Gamma FAQ and the Gamma Chapter in his book.
* Figure out your monitor's gamma at the RADIANCE site

Leider funktionieren die Links bei ATI nicht mehr :(
Aber gehen muss doch ! Da ATI doch im Treiber selbst ein Gamma Control drin hat ?!

[Ultimator]

Mit meiner Radeon 8500 läufts wunderbar :thuimb:

[H4ndy]

Also mit meiner Radeon9500 Pro (SoftMod zu Radeon9700)
mit Omega-Treiber v2544 (Catalyst 4.5) funzt es einwandfrei!
(Nur seh ich keinen Unterschied zwischen 0.0, 0.1, 0.2 und 0.3)

[dizzy]

... also funzt es nicht ... :roll: ;)

[THE MATRIX]

Zitat:

Nur seh ich keinen Unterschied zwischen 0.0, 0.1, 0.2 und 0.3

ja das ist mir auch schon aufgefallen ... hab den code aber wie gesagt teilweise zusammen gepflückt und aus nem c s.o. übersetzt geht dann wohl nur von 3.7 bis 0 das gamme wa :D

[Ben]

Feines Tool, mich irritiert aber, dass alles über 1 dunkel und alles unter 1 hell ist. Ist das nicht normalerweise andersrum?

Übrigens funktioniert SetDeviceGammaRamp nur bei neueren ATI-Treibern (Catalyst), der Rest untertstützt es nicht.

[THE MATRIX]

JOr hab mir das mal genau angeguckt irgendwie ändert sich nur was von 0 - 3,7 .... kp :) aber mit ATI sollst wohl nur mit den neuen gehen wie du sagst....

[a65365]

Hello.

Ich bin Michał und ich wohne in Polen. Ich interessiere mich für eine solche Wirkung, da das Programm über den Link im ersten Post suchen. Ich kann nicht die Wirkung auf Schwarz und Weiß zu verhängen. Ich schaffte es gerade die Wirkung der Beitrag Nummer 6 erhalten

Grüße und sorry für die Sprache.