DGL • Thema anzeigen - wie krieg ich das flackern weg?

wie krieg ich das flackern weg?

Moderator: DGL-Team

Seite 1 von 2

[ 24 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Axalus

Betreff des Beitrags: wie krieg ich das flackern weg?

Verfasst: Mo Dez 05, 2005 22:46

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

ja hallo erst mal....
ich bin hier n ganz neuer und lerne Delphi an der schule.
für die Facharbeit brauche ich dgl und lerne das nun.

ich hab n programm geschrieben das sich um alle Achsen drehen und wenden lässt. aber das ganze flackert ...
ich hab n guten rechner und das flackern dürfte doch garnicht sein oder?
wie krieg ich das weg???
helft mir bitte! :cry:

Nach oben

Ziz

Betreff des Beitrags:

Verfasst: Mo Dez 05, 2005 22:50

DGL Member

Registriert: Di Sep 20, 2005 13:18
Beiträge: 1054
Wohnort: Dresden
Programmiersprache: C, C++, Pascal, OPL

Flackern hat nichts mit der Leistung eines Rechners zu tun.
Im Gegenteil.
Wenn dein Bildschirm z.b. 75 mal die Sekunde erneuert wird, du aber 300 Bilder die Sekunde erzeugst, kann es zu flackern kommen, wenn "gerade beim zeichnen" der Inhalt des GraKa-Rams geleert wird.
Abhilfe schafft hierbei Wait Retrace.
Ich weiß leider nurnicht, wie das unter Windows/OpenGL/SDL heißt und wie man ex nun genau realisiert.

Was nutzt du?
WinAPI, Glut, SDL?

_________________
Denn wer nur schweigt, weil er Konflikte scheut, der macht Sachen, die er hinterher bereut.
Und das ist verkehrt, denn es ist nicht so schwer, jeden Tag zu tun als ob's der letzte wär’.
Und du schaust mich an und fragst ob ich das kann.
Und ich denk, ich werd' mich ändern irgendwann.
_________________Farin Urlaub - Bewegungslos

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 01:05

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Und wie sieht dein Code aus ?

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 08:30

DGL Member

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

Cyberputer: Dieses Phänomen welches du meinst tritt normal aber nur bei Single Buffer Kontexten auf. Aus genau einem solchen Grund wurde Doublebuffering erfunden. Da wird in den nicht sichtbaren Buffer gezeichnet und wenn dieser fertig ist werden sie getauscht und der dann auf dem Monitor dargestellt. Das kann auch genau zu einem Zeitpunkt passieren an dem der Monitor sein Bild neu aufbaut. Das führt dann dazu, dass du schon einen Teil des "neuen" Bildes siehst wärend der Rest noch zu dem "alten" Bild gehört. Das sieht man unter umständen auch ist aber normal nicht so gravierend.

Den Begriff den du suchst ist Vertikal Sync oder kurz V-Sync.

Axalus: Ich denke mal, dass bei dir das Problem existiert, dass du ohne Doublebuffering arbeitest. Genau sagen könnten wir das aber nur mit ein bisschen Code von dir. Aber tu dir keinen Zwang an und schau schon mal selber ob du nicht das Problem findest.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 13:14

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Je nachdem was du machst könnte es auch noch Z-Fighting sein. Aber dazu müsste man deinen Code sehn. Wenn du eine schlechte Tiefenpufferauflösung hast wäre das möglich...

PS: Ein Programm in alle Möglichen Richtungen zu rotieren...wie hast du das geschafft? 3D-Speicher?

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Axalus

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 20:52

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

Warnung

ist mein erster code
hab da mal alles zusammen gewürfelt was ich finden konnte
und hab das mal ausprobiert
also wird da ziemlicher Blödsinn stehen
ich denke ich hab irgendwo was vom doublebuffer stehen...

achja
ich wollte da n objekt namens tatom machen aber da wird wieder n zugriffsfehler angezeigt.
*verzweifel*
wie geht das wieder weg?
und hier das chaos: :twisted:

Code:

 
procedure gluwiresphere(obj:GLUQuadricOBJ;x,y,z,r:double;sl,st:integer;cr,cg,cb,ca:single);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    private
    hrc: HGLRC;
    procedure DrawScene;
 
 procedure SetDCPixelFormat(Handle: HDC);
   
 
 
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
////////////////////////////////////////////////////////////
//tatom
end;
TAtom=class (tobject)
 
   Name:string;
   x:double;
   y:double;
   z:double;
   r:double;
   ElectronCount:integer;
   vElectroncount:integer;
   NeutronCount:integer;
   ProtonCount:integer;
   obj:gluquadricobj;
   color:array[1..4]of single;
   hyllen:array[1..2]of integer;
   vectors:array[1..6]of double;//zwei vectoren ; um eine exakte darstellung im Raum zu ermöglichen
   constructor create(x,y,z,r:double;vectors:array of double);
   private
 
 
 
///////////////////////////////////////////////////////////
  end;
const
 
Ambient : array[0..3] of GLFloat = (0.3, 0.3, 0.3, 1);
 
Diffuse : array[0..3] of GLFloat = (0.7, 0.7, 0.7, 1);
 
Specular : array[0..3] of GLFloat = (0.2, 0.2, 0.2, 1);
 
Position : array[0..3] of GLFloat = (0.0, 0.2, 1.0, 1);
 
Direction: array[0..2] of GLFloat = (0.0 ,0.0, -1.0);
 
 
var
   Form1: TForm1; 
   Obj1,obj2: GLUQuadricOBJ; FDC:HDC;  
   atome:array[1..1000]of tatom;
   i,angle,mdown:integer;
 
    vx,vy,vz,lx,ly,lz,ax,ay,az, wmx,wmy,mx,my,mxa,mya,xx,yy,zz,rx,ry,rz,gradAnimiert:single;
 
    state,repetition:integer;
 
 
 
 
 
implementation
 
{$R *.DFM}
///////////////////////////////////////////////////////////////////
//atom deklaration
constructor TAtom.create(x,y,z,r:double;vectors:array of double);
begin
     inherited create;
     form1.gluwiresphere(obj,x,y,z,r,16,16,1,0,1,1);
end;
 
 
 
 
 
 
//////////////////////////////////////////////////////////////////
 
procedure TForm1.gluwiresphere(obj:GLUQuadricOBJ;x,y,z,r:double;sl,st:integer;cr,cg,cb,ca:single);
     var i,ii,t,v,m:integer; grad,grad2,rep:single;
begin
     rep:=0;
     randomize;
 
 
     rep:=random(1345)+1 div 100;
 
     glBlendFunc(GL_ONE, GL_SRC_ALPHA);
 
     grad:=(360/sl);
     grad2:=(360/st);
 
     glcolor4f(1,1,0,0.9);
 
     gltranslatef(x,y,z);
     ii:=1;
     i:=1;
     v:=0;
     m:=0;
     r:=r-(r/100*2);
 
     for t:=1 to st do 
     begin
         m:=m+1; glrotatef(grad2*m+rep,1,0,0);
 
         while ii=1 do begin
         v:=v+1;
         glbegin(gl_lines);
 
         glcolor4f(cr,cg,cb,ca+0.1);
         glvertex3f(r*cos(grad*i),r*sin(grad*i),0);
         glvertex3f(r*cos(grad*i+1),r*sin(grad*i+1),0);
 
         {glvertex3f(0,r*sin(grad*i),r*cos(grad2*i));
         glvertex3f(0,r*sin(grad*i+1),r*cos(grad2*i+1));}
 
         {glvertex3f(r*sin(grad*i),0,r*cos(grad2*i));
         glvertex3f(r*sin(grad*i+1),0,r*cos(grad2*i+1));}
         glend();
          i:=i+2;
          if i>sl then
          begin
                  ii:=0;
 
          end;
     end;
          i:=0;
          ii:=1;
          glrotatef(-grad2*m-rep,1,0,0);
          glrotatef(grad2*m+rep,0,1,0);
          while ii=1 do 
          begin
                  v:=v+1;
                  glbegin(gl_lines);
 
 
                  {glvertex3f(r*cos(grad*i),r*sin(grad*i),0);
                  glvertex3f(r*cos(grad*i+1),r*sin(grad*i+1),0);}
 
                  glvertex3f(0,r*sin(grad*i),r*cos(grad2*i));
                  glvertex3f(0,r*sin(grad*i+1),r*cos(grad2*i+1));
 
                 {glvertex3f(r*sin(grad*i),0,r*cos(grad2*i));
                 glvertex3f(r*sin(grad*i+1),0,r*cos(grad2*i+1));}
                 glend();
                  i:=i+2;
                  if i>sl then
                  begin
                          ii:=0;
 
                  end;
        end;
        i:=0;
        ii:=1;
        glrotatef(-grad2*m-rep,0,1,0);
        glrotatef(grad2*m+rep,0,0,1);
        while ii=1 do begin
                v:=v+1;
                glbegin(gl_lines);
 
                {glcolor4f(1,1,0.1,0.9);
                glvertex3f(r*cos(grad*i),r*sin(grad*i),0);
                glvertex3f(r*cos(grad*i+1),r*sin(grad*i+1),0);
 
                glvertex3f(0,r*sin(grad*i),r*cos(grad2*i));
                glvertex3f(0,r*sin(grad*i+1),r*cos(grad2*i+1)); }
 
                glvertex3f(r*sin(grad*i),0,r*cos(grad2*i));
                glvertex3f(r*sin(grad*i+1),0,r*cos(grad2*i+1));
                glend();
                i:=i+2;
                if i>sl then
                begin
                          ii:=0;
 
                end;
        end;
   i:=0;
  ii:=1;
  glrotatef(-grad2*m-rep,0,0,1);
 end;
 
 
 
 
  glcolor4f(cr/2,cg/2,cb/2,0.99999);
 
  glusphere(obj,r,sl,st);
 glflush();
gltranslatef(-x,-y,-z);
 glCallList(66);
 
 
 
 end;
 
 
 
procedure TForm1.SetDCPixelFormat(Handle: HDC);
 
var
 
pfd: TPixelFormatDescriptor;
 
nPixelFormat: Integer;
 
begin
 
{Feld wird mit 0-en gefüllt}
 
FillChar(pfd, SizeOf(pfd), 0);
 
with pfd do
 
begin
 
nSize := sizeof(pfd);
 
nVersion := 1;
 
dwFlags := PFD_DRAW_TO_WINDOW or
 
PFD_SUPPORT_OPENGL;
 
iPixelType:= PFD_TYPE_RGBA;
 
cColorBits:= 24;
 
cDepthBits:= 64;
 
iLayerType:= PFD_MAIN_PLANE;
 
end;
 
nPixelFormat := ChoosePixelFormat(Handle, @pfd);
 
SetPixelFormat(Handle, nPixelFormat, @pfd);
 
end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
repetition:=0;
 
 
gradanimiert:=0;
 
vx:=0;
vy:=0;
vz:=0;
lx:=0;
ly:=0;
lz:=0;
ax:=0;
ay:=0;
az:=0;
 
mx:=0;
my:=0;
wmx:=0;
wmy:=0;
mxa:=0;
mya:=0;
mdown:=0;
angle:=0;
xx:=0;
yy:=0;
zz:=0;
rx:=0;
ry:=0;
rz:=0;
state:=0;
i:=0;
SetDCPixelFormat(Canvas.Handle);
 glEnable(GL_DEPTH_TEST) ;
 glenable(gl_blend);
 gluPerspective(30.0, width/height, 0.0, 10.0);
 
 
 glBlendFunc(GL_ONE, GL_SRC_ALPHA);
hrc := wglCreateContext(Canvas.Handle);
Obj1:= gluNewQuadric;
obj2:= gluNewQuadric;
     glEnable(GL_LIGHTING);
 
glEnable(GL_LIGHT0);
 
 
glLightfv(GL_LIGHT0, GL_AMBIENT, @Ambient);
 
glLightfv(GL_LIGHT0, GL_DIFFUSE, @Diffuse);
 
glLightfv(GL_LIGHT0, GL_SPECULAR, @Specular);
 
  glLightModelf (GL_LIGHT_MODEL_LOCAL_VIEWER, 1.0);
 
 
 
 
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
i:=i+1;
wmx:=mx-mxa;
wmy:=my-mya;
mxa:=mx;
mya:=my;
wglMakeCurrent(Canvas.Handle, hrc);
repetition:=repetition+1;
DrawScene;
 
 
wglMakeCurrent(0, 0);
 
 
end;
procedure TForm1.DrawScene;
var base:integer; nix:array[1..6]of double;
begin
 
 
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
if i=1 then
{gluLookAt(vx,vy,vz,lx,ly,lz,ax,ay,az);}
base:=0;
glEnable(GL_DEPTH_TEST) ;
 glenable(gl_blend);
  if i=2 then begin
  {koordinatenkreuz}
   glnewlist(1,gl_compile);
   //
 
   FDC:=CreateCompatibleDC(0);
 
SelectObject(FDC,Font.Handle);
 
Base:=glGenLists(255);
 
wglUseFontOutLines(FDC,0,255,base,0,0.1,WGL_FONT_POLYGONS,nil);
 
 
   //
 
gluwiresphere(obj1,1,0,0,0.1,16,16,0,0,1,0.99);
gluwiresphere(obj1,0,1,0,0.1,16,16,0,1,1,0.99);
gluwiresphere(obj1,0,0,-1,0.1,16,16,0,1,0,0.99);
   glEnable(GL_DEPTH_TEST) ;
 glenable(gl_blend);
glbegin(gl_lines);
 glcolor4f(0.5,0.5,0,1);
 glCallList(66);
 
 
   glvertex3f(1,0,0);
   glcolor4f(1,1,0,1);
  glvertex3f(0,0,0);
 
  glcolor4f(1,1,0,1);
  glvertex3f(0,1,0);
  glcolor4f(0.5,0.5,1,1);
  glvertex3f(0,0,0);
 
 
 
  glcolor4f(1,1,0,1);
  glvertex3f(0,0,-1);
  glcolor4f(0,1,1,1);
  glvertex3f(0,0,0);
  
 
 glcolor4f(1,1,1,1);
 
 glend();
 
 
   glendlist;
end;
glcalllist(1);
glBlendFunc(GL_ONE, GL_SRC_ALPHA);
gltranslatef(xx,yy,zz);
 glRotatef(angle,rx,ry,rz);
 {ab hier einfügen}////////////////////////////////////////////////////////////
 
 
 
 
   glnewlist(300,gl_compile);
 
   {gluwiresphere(obj1,0,1.3,0,0.25,16,16,1,0.3,0,9);
   gluwiresphere(obj2,-0.15,1.5,0,0.1,16,16,0,0,1,0.9);
   gluwiresphere(obj1,0.15,1.5,0,0.1,16,16,0,0,1,0.9);}
 
   glendlist;
 
   glcalllist(300);
 
    atome[1]:=tatom.create(1,1,1,0.3,nix);
 
 
 
 
 
 
 
glFlush();
 
 
 
 
 
 
 
 
end;
 
 
 
 
 
 
 
 
procedure TForm1.FormResize(Sender: TObject);
 
var
 
gldAspect: Single;
 
begin
 
wglMakeCurrent(canvas.handle, hrc);
 
gldAspect := Width / Height;
 
{Projektions-, nicht ModellMatrix}
 
glMatrixMode(GL_PROJECTION);
 
glLoadIdentity;
 
{Perspektive oder Parallel}
 
 
 
gluPerspective(30.0, gldAspect, 1.0, 100.0) ;
 
 
 
{Den Sichtbereich bzw. die Größe der Zeichenfläche}
 
glviewport(0,0,width,height);
 
glTranslatef(0.5,0.5,-5);
 
wglMakeCurrent(0,0);
 
end;
 
 
//menu sichtbar/ unsichtbar
procedure TForm1.Button1Click(Sender: TObject);
begin
if state>=2 then state:=0;
if state=0 then
begin
button2.visible:=true;
button3.visible:=true;
button4.visible:=true;
button5.visible:=true;
button6.visible:=true;
button7.visible:=true;
button8.visible:=true;
button9.visible:=true;
button10.visible:=true;
button11.visible:=true;
button12.visible:=true;
end;
if state=1 then
begin
button2.visible:=false;
button3.visible:=false;
button4.visible:=false;
button5.visible:=false;
button6.visible:=false;
button7.visible:=false;
button8.visible:=false;
button9.visible:=false;
button10.visible:=false;
button11.visible:=false;
button12.visible:=false;
end;
state:=state+1;
 
end;
//hier die Bewegung über die Tastatur
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
zz:=0.2;
end;
 
procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
zz:=-0.2;
end;
 
procedure TForm1.Button5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xx:=0.2;
end;
 
procedure TForm1.Button4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xx:=-0.2;
end;
 
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
zz:=0;
end;
 
procedure TForm1.Button4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xx:=0;
end;
 
procedure TForm1.Button6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
rz:=0.2;
end;
 
procedure TForm1.Button9MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
rx:=0.2;
end;
 
procedure TForm1.Button7MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
rz:=-0.2;
end;
 
procedure TForm1.Button8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
rx:=-0.2;
end;
 
procedure TForm1.Button6MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=0;
rz:=0;
end;
 
procedure TForm1.Button8MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=0;
rx:=0;
end;
//hier die bewegung durch Tasten
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.text:=inttostr(key);
if key=87 then
zz:=0.2;
if key=83 then
zz:=-0.2;
if key=68 then
xx:=-0.2;
if key=65 then
xx:=0.2;
if key=69 then
 yy:=-0.2;
if key=88 then
 yy:=0.2;
 
 
{if key=80 then
rx:=0.2;
if key=192 then
rx:=-0.2;
if key=76 then
ry:=0.2;
if key=222 then
ry:=-0.2;
if key=79 then
rz:=0.2;
if key=76 then
rz:=-0.2;}
 
end;
 
procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
xx:=0;
zz:=0;
yy:=0;
rx:=0;
ry:=0;
rz:=0;
angle:=0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 
if key='w' then
zz:=0.2;
if key='s' then
zz:=-0.2;
if key='a' then
xx:=0.2;
if key='d' then
xx:=-0.2;
 
 
if key='p' then begin 
rx:=0.2;  angle:=5;      end;
if key='ö' then begin
rx:=-0.2; angle:=5;       end;
if key='l' then begin
ry:=0.2;  angle:=5;      end;
if key='ä' then begin
ry:=-0.2; angle:=5;      end;
if key='o' then begin
rz:=0.2;  angle:=5;      end;
if key='.' then begin
rz:=-0.2; angle:=5;      end;
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
edit2.text:='';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
i:=0;
vx:=1;
vy:=1;
vz:=-5;
lx:=0;
ly:=0;
lz:=0;
ax:=0;
ay:=1;
az:=0;
 
end;
 
procedure TForm1.Button11MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
ry:=-0.2;
end;
 
procedure TForm1.Button12MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=5;
ry:=0.2;
end;
 
procedure TForm1.Button11MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
angle:=0;
ry:=0;
end;
//timer deaktivieren/pause
procedure TForm1.Button13Click(Sender: TObject);
var t:integer;
begin
t:=0;
if button13.Caption='pause' then begin
timer1.enabled:=false;
button13.Caption:='weiter';
t:=1;
end;
if (button13.Caption='weiter')and (t<>1) then begin
timer1.enabled:=true;
button13.Caption:='pause';
end;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
if  panel1.visible=false then
panel1.visible:=true
else
panel1.visible:=false;
panel1.caption:='w:z-(vor), s:z+(zurück), a:links(x-), d:x+(rechts), e/x:y+/-,  l/ä:y-achse drehen,   p/ö:x.achse drehen,   o/.:z-achse drehen';
 
end;
 
end.
 
 
 

ihr wolltet es nicht anders

Zuletzt geändert von Axalus am Mi Dez 07, 2005 17:58, insgesamt 3-mal geändert.

Nach oben

Axalus

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 20:56

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

ach ja
ein oder mehrere Tutorial für völlig hirnlose , denen man alles zehnmal erklären muss, würde solche codes verhindern.
vielen dank für eure hilfe und aufmerksamkeit.
ps:
viel spass beim rätseln

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 21:05

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Axalus hat geschrieben:

Mach ruhig Vorschläge für solche Tuts und gib uns Feedback

Ändere mal deinen obigen Code von [ Code] zu [ Pascal]

Nach oben

Axalus

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 21:20

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

Vorschläge für tuts

Vorschlag1:
wie wäre es mit einem Tut für die Grundelemente der 3D Programmierung
ähnlich meinem programm.
man könne das Programm ja schritt für Schritt erweitern...
z.b. erstmal nur das koordinatenkreuz einzeichnen.
dann die ersten Objekte wie kugeln...

und dann das ganze drehen und rotieren.
und der gesammte Quelltext sollte dann für jeden Schritt abrufbar sein und die Värenderungen erklärt werden und besonsers gekennzeichnet.

_________________
tja Mein Motto:
Faulheit ist eine Tugend!

Nach oben

Axalus

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 21:25

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

lieber ionos
:shock:

du bist mathestudent?! :shock:

dann könntest du mir doch bestimmt einige Anregungen zur Themenfindung für meine Facharbeit in Mathe angeben :?:

*ausnutz*
wäre echt nett!
:wink:

_________________
tja Mein Motto:
Faulheit ist eine Tugend!

Nach oben

Ziz

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 22:27

DGL Member

Registriert: Di Sep 20, 2005 13:18
Beiträge: 1054
Wohnort: Dresden
Programmiersprache: C, C++, Pascal, OPL

Mein Tipp: Editier deine Beiträge anstatt 2 direkt hintereinander zu schreiben!

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Di Dez 06, 2005 23:41

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Also wegen den Tutorials...

Wenn du unsere Tutorialsektion durcharbeitest passiert sowas net. Ein einfaches Wintemplate wo man nicht so hässlichen Initialisierungscode brauch baust du in diesem Tutorial: http://wiki.delphigl.com/index.php/Tutorial_quickstart

Was mir außerdem bisl Angst macht, ist die Tatsache, dass du da auch recht seltsamen VCL-Code mit stehen hast (die ganzen Button-Reaktionen).
Beschreib mal bitte wie du dir dein zukünftiges Programm vorstellst. Eventuell geht da schon grundlegend was schief. (Zeichnest du eigentlich auf ein Panel? Wenn man VCL Compos mit OpenGL kombinieren will, sollte man die beiden Teile auch schön trennen...)

Mach mal nen Screenshot vom momentanen Programm und häng den mal als jpg an.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mi Dez 07, 2005 00:05

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Also...ich würde das ändern

Code:

dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL;

Und zwar so:

Code:

dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Mi Dez 07, 2005 16:39

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Und noch was: Rücke bitte deinen Code ein. Das macht so keinen Spaß zu Lesen...

_________________
"Für kein Tier wird so viel gearbeitet wie für die Katz'."

Nach oben

Axalus

Betreff des Beitrags:

Verfasst: Mi Dez 07, 2005 17:46

DGL Member

Registriert: Mo Nov 21, 2005 17:11
Beiträge: 10
Wohnort: Siegburg

bitte nicht lachen
aber wie macht man einen Screenshot :?:

ach und wenn man das schreibt:
dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
klappt nix mehr. d.h. es wird nur die form1 mit den buttons angezeigt aber nix von opengl
Die Darstellung erfolgt auf der TForm1
mit den ganzen schaltern hab ich zuerst mal die Steuerung über buttons programmiert.
dazu habe ich mehrere Möglichkeiten ausprobiert.
dann kam mir die Ideeüber Tasten die Steuerung zu programmieren.
es ist ein echtes chaos...
aber ich hab euch gewarnt. :wink:

_________________
tja Mein Motto:
Faulheit ist eine Tugend!

Nach oben

Seite 1 von 2

[ 24 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 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.