DGL • Thema anzeigen - Neu und gleich ein Hinderniss

Neu und gleich ein Hinderniss

Moderator: DGL-Team

Seite 2 von 2

[ 18 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Gento

Betreff des Beitrags:

Verfasst: Fr Apr 06, 2007 21:29

DGL Member

Registriert: So Apr 01, 2007 17:51
Beiträge: 42
Wohnort: Hamm/Westf.

z.Z. bin ich leicht genervt.

Das mit den "Abwandlungen glVertex***" habe ich nicht kapiert.

Allerdings mit meinem Besseren Rechner beträgt die CPU Belastung um die 10 %.
Mag wohl Stromsparmaßnahme von Notebook sein, der verminderte Spped .

Nun ein weiteres Problem :cry:

Im Orginal ohne OpenGL:

Bild

Mit OpenGL:

Bild

es blendet nur Langsam um obwohl ich sage fahre mit Color(0,0,0) hin.

Der Code ist wie oben , nur eben anderes Vektorbild.

grüße Gento

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Apr 06, 2007 22:23

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Es gibt keinen Grund genervt zu sein! Es ist ein vollkommen neues Gebiet in was du dich einarbeitest. Und obwohl es in deinem Fall teilweise ähnlichkeit mit der GDI hat ist es nicht die GDI. Von daher solltest du dir bewusst machen, dass es anders ist. Das aber nur mal am Rande.

glVertex/glColor. ALLE Aufrufe von glVertex bewirken das SELBE. Die Zahl gibt an wie viele Komponenten existieren und die Buchstaben danach geben an welchen Type die Parameter habe. Mal ein kleines Beispiel. glColor3f(1, 0, 0.5) und glColor3ub(255, 0, 128) bewirken genau das Selbe. Die eine Methode möchte gerne Floats im Bereich zwischen 0 und 1 die andere Bytewerte im Bereich zwischen 0 und 255.

Komische Linien. OpenGL ist Vertexbasiert. Wenn du eine Farbe setzt, dann gilt diese für das aktuelle Vertex und die nachkommenden. Und du benutzt NACH WIE VOR NUR EINE LINIE. In dem Artikel zu glBegin sieht man sehr schön, dass ein Linestrip eine Linie ist. Oder um in GDI zu sprechen. Das wäre so wie als wenn du nur noch das erst MoveTo hättest. Und warum das so aussieht ist auch sehr einfach. OpenGL ist vertexbasiert. Sprich, wenn du einen Vertex mit der Farbe blau setzt und einen mit der Farbe grün, dann interpoliert OpenGL die Linie. Du bekommst also einen Farbverlauf auf der Linie. So wie in dem nachfolgenden Code.

Code:

glBegin(GL_LINES);
  glColor3f(1, 0, 0);
  glVertex2f(X1, Y1);
 
  glColor3f(0, 1, 0);
  glVertex2f(X2, Y2);
glEnd;

Beide Codes sind Identisch nur, dass ich beim Zweiten einmal absetzen musste, da die Linien nicht automatisch fortgesetzt wird.

Code:

glBegin(GL_LINE_STRIP); // Datt da
  glVertex2f(X1, Y1);
  glVertex2f(X2, Y2);
  glVertex2f(X3, Y3);
glEnd;

Code:

glBegin(GL_LINES);  // Datt da
  glVertex2f(X1, Y1);
  glVertex2f(X2, Y2);
 
  glVertex2f(X2, Y2);
  glVertex2f(X3, Y3);
glEnd;

Ein Vorschlag den du mit Sicherheit gar nicht gerne hören wirst. Wie wäre es, wenn du dich erst einmal in einer kleinen Testanwendung etwas mit den Grundlagen beschäftigst. Denn das Problem ist ja, dass du versuchst etwas vollkommen neues in eine bereits existierenden Project einzubauen. Und dein Project hat auch eine gewisse Komplexibilität. Da ist es nicht so einfach die Grundlagen mitzubekommen.

Nach oben

Gento

Betreff des Beitrags:

Verfasst: Sa Apr 07, 2007 20:33

DGL Member

Registriert: So Apr 01, 2007 17:51
Beiträge: 42
Wohnort: Hamm/Westf.

Problem gelöst ........

Wenn ich erst 1/2 Jahr Delphi schreibe bin ich froh das Delphi so ca. einigermaßen geht.

Über OpenGl hatte ich mir von 8 Tagen 2 Bücher gekauft.

ISBN 3-446-40009-5 Delphi / ISBN 3-446-22837-3 mehr C

Die springen im Buch gleich auf Stufe 8 von von 10 .

Hier beginnt die Erwartungshaltung bei Stufe 4. :oops:

Es war schon Schwer genug von BP (Dos) auf Delphi.

Die Lösung meines Problems will ich mal nicht euch vorenthalten,obwohl einige sagen werden haben wir doch genau so gemeint.

Init:

Code:

 
Procedure Tform1.FormCreate(Sender: TObject);    //Init beim Starten
Var NearClipping, FarClipping:single;
begin
//--------------
  DC:= GetDC(Zeichenflaeche.Handle);                                           // Init OpenGL
  if not InitOpenGL then Application.Terminate;
  RC:= CreateRenderingContext( DC,[opDoubleBuffered],24,0,0,0,0,0);
          //Device Contest,Optionen,ColorBits,ZBits,Accumbits,Auxbuffers,Layer
  ActivateRenderingContext(DC, RC);                                            // Ende Init Open Gl.
//--------------
  Form1.Statusfenster.canvas.brush.Color:=$00C08000;
  Form1.Statusfenster.canvas.Rectangle(-1,-1,281,131);
  Pango_Farben_Setzen;
  Winkel_Tabellen_Bauen;
  form1.speedanzeige.caption:='Speed : Frames je Sek: 25';
 
  Timer1.Enabled:=False;                                                            //Timer ausschalten, vorsichtshalber
  Timer1.Interval:=40;                                                               //Intervall einstellen  25 HZ 
  Im_IRQ:=0;
  Aktuelles_Frame:=0;
 
//--------------
  glMatrixMode(GL_PROJECTION);                                                 // Open GL Werte zuweisen
  glLoadIdentity;
  NearClipping := 1;
  FarClipping := 5000;
  gluPerspective(55, 1 , NearClipping, FarClipping);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glTranslatef(0, 0, -1);
  glScaleF((1/65535),(1/65535),(1/65535));
  glDisable(GL_DEPTH_TEST);
 
// ShowMessage(glGetString(GL_VENDOR));                             // Zum Test ob vorhanden.
//--------------
  end;
{---------------------------------------------------------------------}
 

Das eigentliche Zeichnen:

Code:

 
Procedure Laser_Frame_Zeigen_OpenGL(Frame_Nr,Punkte_Frame:Word);
Var Lauf:Word;
 
Begin
   glClear(GL_COLOR_BUFFER_BIT);                    // or GL_Depth_Buffer_Bit);
   glBegin(GL_Lines);
   For Lauf:=1 to Punkte_Frame-1 do
      Begin
        if Laser_3D_Frame[Frame_Nr][Lauf].Status > 0 then
                                                       Begin                         // Sichtbar
                                                         glColor3ub(Laser_3D_Frame[Frame_Nr][Lauf].Rot,Laser_3D_Frame[Frame_Nr][Lauf].Gruen,Laser_3D_Frame[Frame_Nr][Lauf].blau);
                                                         glVertex2F(Laser_3D_Frame[Frame_Nr][lauf-1].X,Laser_3D_Frame[Frame_Nr][lauf-1].Y);
                                                         glVertex2F(Laser_3D_Frame[Frame_Nr][lauf].X,Laser_3D_Frame[Frame_Nr][lauf].Y);
                                                       End
                                                     Else
                                                       if Zeige_Punkte=1 then
                                                                           Begin   // Unsichtbare Linien Zeigen wen ......
                                                                             glColor3ub($80,$80,$80);
                                                                             glVertex2F(Laser_3D_Frame[Frame_Nr][lauf-1].X,Laser_3D_Frame[Frame_Nr][lauf-1].Y);
                                                                             glVertex2F(Laser_3D_Frame[Frame_Nr][lauf].X,Laser_3D_Frame[Frame_Nr][lauf].Y);
                                                                           end;
      end;
   glEnd;
   SwapBuffers(DC);
   form1.Framescroll.Position:=Frame_Nr;
   form1.Fehlerfenster.caption:='Frame Nr: '+IntToStr(Frame_Nr+1)+' Punkte: '+inttostr(Punkte_Frame);
   form1.fehlerfenster.refresh;
end;
//-----------------------------------------------------------------------------
 

Mein Notebook ist recht langsam und GLClear bremst den gewaltig aus.
Löschen mit Linien war noch langsamer.
Löschen mit Quadrat ist gleich schnell kostet aber mehr Byte.
Also blieb GLClear drin.
Ab 80 Frames je Sekunde hat der 100& CPU.

Mein anderer Rechner macht die Übung 100 Frames / Sek < 10 % CPU.

Hier der Link zur eigendlichen Soft mit Testframes :http://www.Gento.de/Laserfileread.rar 2 MB

Grüße ,Dank für Eure Geduld und viel Ostereier.

Gento

Nach oben

Seite 2 von 2

[ 18 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: Google [Bot] und 3 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.