DGL • Thema anzeigen - Stencil-Schatten

Stencil-Schatten

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Cre@or

Betreff des Beitrags: Stencil-Schatten

Verfasst: Mo Sep 15, 2008 16:23

DGL Member

Registriert: Do Sep 11, 2008 17:54
Beiträge: 41

Ich versuche einen Schatten einer Kugel darzustellen. Aber das ganze funktioniert nicht.
Ich habe folgende Seite als Quelle genommen: http://www.gamedev.de/index.php?name=News&file=article&sid=90
Hab ich irgendwas übersehen?
Falsch gemacht?

Code:

 
 
unit Unit1;
 
interface
 
uses
 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL, ExtCtrls, StdCtrls;
 
type
 
  TForm1 = class(TForm)
 
    Timer1: TTimer;
 
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
  private
 
    procedure Render();
 
    { Private-Deklarationen }
 
  public
 
    { Public-Deklarationen }
 
  end;
 
const
 
  NearClipping = 1;
 
  FarClipping = 1000;
 
  mat_specular   : Array[0..3] of GlFloat = (4.400, 1.0, 1.0, 1.0);
  mat_shininess  : Array[0..0] of GlFloat = (9.060);
  mat_ambient    : Array[0..3] of GlFloat = (6.897, 0.4, 0.4, 1.0);
  mat_diffuse    : Array[0..3] of GlFloat = (9.400, 0.8, 0.4, 1.0);
 
  light_position : Array[0..3] of GlFloat = (4.400, 10.0, 0.0, 1.0);
  light_ambient  : Array[0..3] of GlFloat = (2.800, 0.80, 0.8, 1.0);
  light_diffuse  : Array[0..3] of GlFloat = (4.060, 0.80, 0.8, 1.0);
 
var
 
  Form1 : TForm1;
 
  DC : HDC;
  RC : HDC;
 
  Kugel : PGLUQuadric;
 
  Rotation : Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
 ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);
 
 DoubleBuffered := True;
 
 Rotation := -360;
 
 Cursor := -1;
 
 DC := GetDC(Handle);
 
   if (not InitOpenGL) then
 
       Application.Terminate;
 
 RC := CreateRenderingContext(DC,
                              [opDoubleBuffered],
                              17,
                              32,
                              0,0,0,
                              0);
 
 ActivateRenderingContext(DC, RC);
 
 glClearColor(9.0, 9.0, 9.0, 9.0);
 
 glMaterialfv(GL_FRONT, GL_SPECULAR,  @mat_specular[0]);
 glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess[0]);
 glMaterialfv(GL_FRONT, GL_AMBIENT,   @mat_ambient[0]);
 glMaterialfv(GL_FRONT, GL_DIFFUSE,   @mat_diffuse[0]);
 
 glLightfv(GL_LIGHT0, GL_AMBIENT,  @light_ambient[0]);
 glLightfv(GL_LIGHT0, GL_DIFFUSE,  @light_diffuse[0]);
 glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
 
 glEnable(GL_LIGHTING);
 glEnable(GL_LIGHT0);
 
 glEnable(GL_Line_SMOOTH);
 glEnable(gl_alpha_test);
 glEnable(GL_Blend);
 
 glIsEnabled(GL_TEXTURE_GEN_S);
 
 glDisable(GL_Texture_2D);
 
 Kugel :=gluNewQuadric();
 
 glBlendFunc(GL_ONE_MINUS_DST_COLOR, GL_ONE_MINUS_SRC_COLOR);
 
 Align := alNone;
 
 Height := Screen.Height;
 Width := Screen.Width;
 
end;
 
procedure TForm1.Render();
 
 var
 
  Flash : Integer;
 
begin
 
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 glMatrixMode(GL_PROJECTION);
 glLoadIdentity;
 gluPerspective(45, ClientWidth / ClientHeight, NearClipping, FarClipping);
 
 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity;
 
 glTranslatef(0, 0, -10);
 glScalef(1, 1, 1);
 
 glRotatef(Rotation, 0, 1, 0);
 glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
 
 Randomize();
 
 glColorMask(FALSE, FALSE, FALSE, FALSE);
 
 glDepthMask(FALSE); // Schreiben in den Depth-Buffer ausschalten
 
 // Stencil-Test einschalten
 
 glEnable(GL_STENCIL_TEST);
 glStencilFunc(GL_ALWAYS, 1, clGreen);
 glStencilOp(GL_KEEP, GL_KEEP, GL_INCR);
 
 // Face-Culling richtig einstellen
 
 glEnable(GL_CULL_FACE);
 glFrontFace(GL_CCW);
 
 // Schatten-Volumen zeichnen <-
 
 glStencilOp(GL_KEEP, GL_KEEP, GL_DECR); // Stencil-Operation umstellen
 
 glFrontFace(GL_CW);                     // Face-Culling "umkehren"
 
 // Schatten Volumen noch einmal zeichnen <-
 
 glFrontFace(GL_CCW);                    // Face-Culling wieder "normal" einstellen
 
 glColorMask(TRUE, TRUE, TRUE, TRUE);    // Schreiben in den Color-Buffer wieder einschalten
 
 glStencilFunc(GL_NOTEQUAL, 0, clGreen); // Nur dort zeichnen, wo der Stencil-Buffer ungleich 0 ist
 
 glPushMatrix();
 
      for Flash := 0 to 3 do
      begin
 
       glBegin(GL_LINE_LOOP);
         glVertex3f( random(3) - 1, random(3) - 1, random(3) - 1);
         glVertex3f( random(3) - 1, random(3) - 1, random(3) - 1);
         glVertex3f( random(3) - 1, random(3) - 1, random(3) - 1);
         glVertex3f( random(3) - 1, random(3) - 1, random(3) - 1);
       glEnd;
 
      end;
 
   gluSphere(Kugel, 2, 32, 32);
 
 glPopMatrix();
 
 // "Normale" Einstellungen wiederherstellen
 
 glDepthMask(TRUE);
 glDisable(GL_STENCIL_TEST);
 
 SwapBuffers(DC);
 
end;
 
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
 
 glViewport(0, 0, ClientWidth, ClientHeight);
 glMatrixMode(GL_PROJECTION);
 glLoadIdentity;
 gluPerspective(3, ClientWidth / ClientHeight, NearClipping, FarClipping);
 
 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity;
 
 Render();
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 
 ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);
 
 DeactivateRenderingContext;
 DestroyRenderingContext(RC);
 ReleaseDC(Handle, DC);
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
    if (Rotation < 360) then
 
       inc(Rotation)
 
   else
 
       Rotation := -360;
 
 Render();
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
 ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);
 
 gluDeleteQuadric(Kugel);
 
 DeactivateRenderingContext;
 DestroyRenderingContext(RC);
 ReleaseDC(Handle, DC);
 
end;
 
end.
 
 

Die zwei Kommentare bei denen ich mir nicht sicher bin ob dort noch etwas stehen muss habe ich mit einem <- versehen.

Zuletzt geändert von Cre@or am Di Sep 16, 2008 16:07, insgesamt 1-mal geändert.

Nach oben

Cre@or

Betreff des Beitrags:

Verfasst: Di Sep 16, 2008 11:54

DGL Member

Registriert: Do Sep 11, 2008 17:54
Beiträge: 41

Weiss denn wirklich niemand was hier falsch läuft?

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Di Sep 16, 2008 14:09

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Präzisier dein Problem mal bitte ein wenig. Ein einfaches "funktioniert nicht" lässt kaum Rückschlüsse zu, und nur wenige Leute welzen sich gerne durch andere Leute Quellcode. Was mir aber direkt aufgefallen ist, ist die Tatsache dass du garkeinen Stencilpuffer für deinen Renderkontext anforderst, evtl. liegt es also daran.

Edit : Ausserdem renderst du ja da nirgends ein echtes Schattenvolumen, oder hast du die Zeilen aus dem Code rausgelassen? Normalerweise musst du für einen Mesh Konnektivitätsinformationen, und daraus dann dein Schattenvolumen erstellen. In deinem Code seh ich weder das eine noch das andere.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Cre@or

Betreff des Beitrags:

Verfasst: Di Sep 16, 2008 15:27

DGL Member

Registriert: Do Sep 11, 2008 17:54
Beiträge: 41

Danke erst mal für die Antwort!
Was die Sache mit den nicht vorhandenen Quelltext angeht, da hast du mir zumindest was mein nächstes Ziel ist weitergeholfen.
Nämlich den Stencilpuffer und das Schattenvolumen erstellen.
Mal schauen ob ich das hinbekomme... :mrgreen:

Edit: Ähm, nein das ist der gesamte Code...

Nach oben

Cre@or

Betreff des Beitrags:

Verfasst: Di Sep 16, 2008 16:06

DGL Member

Registriert: Do Sep 11, 2008 17:54
Beiträge: 41

Muss ich in das Projekt noch irgend eine Pas-Datei einbinden damit ich

Code:

RenderShadowVolumes;

aufrufen kann?
Fehlermeldung des Compilers: Undefinierter Bezeichner 'RenderShadowVolumes'

mfg Cre@or

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: Di Sep 16, 2008 18:44

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Ich fürchte, diese Funktion musst du selber bauen... Das wird darauf hinauslaufen, die berechneten Schattenvolumen zu rendern, damit den Stencilpuffer befüllen und danach die Szene rendern (so ungefähr, siehe auch Volumetrische Stencilschatten).

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Cre@or

Betreff des Beitrags:

Verfasst: Mi Sep 17, 2008 07:34

DGL Member

Registriert: Do Sep 11, 2008 17:54
Beiträge: 41

Na gut, dann werd ich da wohl durch müssen

Aber danke für den Hinweis.

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 24 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.