Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Disk positionieren (https://www.delphipraxis.net/189901-disk-positionieren.html)

EWeiss 6. Aug 2016 10:22


Disk positionieren
 
Ich zeichne mein Cover auf diese weise.
Delphi-Quellcode:
 
    if not(LastAddCover = Round(NoCoverTexture)) then
      if LastAddCover = Trunc(quadTexture[I]) then
      begin
        glColor3f(1.0, 1.0, 1.0);
        glDisable(GL_TEXTURE_2D);
        // rahmen zeichnen
        glLineWidth(1);
        glBegin(GL_LINE_LOOP);
        glVertex3f(aPos[0] - QuadSizeS, aPos[1] + QuadSizeS * 2, aPos[2]);
        glVertex3f(aPos[0] - QuadSizeS, aPos[1], aPos[2]);
        glVertex3f(aPos[0] + QuadSizeS, aPos[1], aPos[2]);
        glVertex3f(aPos[0] + QuadSizeS, aPos[1] + QuadSizeS * 2, aPos[2]);
        glEnd;
        glEnable(GL_TEXTURE_2D);
 
        // Quad zeichnen
        glBegin(GL_QUADS);
        glTexCoord2f(0, 1);
        glVertex3f(aPos[0] - QuadSizeS, aPos[1] + QuadSizeS * 2, aPos[2]);
        glTexCoord2f(0, 0);
        glVertex3f(aPos[0] - QuadSizeS, aPos[1], aPos[2]);
        glTexCoord2f(1, 0);
        glVertex3f(aPos[0] + QuadSizeS, aPos[1], aPos[2]);
        glTexCoord2f(1, 1);
        glVertex3f(aPos[0] + QuadSizeS, aPos[1] + QuadSizeS * 2, aPos[2]);
        glEnd();
      end;
Wie bekomme ich nun meine Disk auf diese Position?
Der sinn dahinter die soll anschließend aus der CD Hülle herausschauen.

Ich finde nur Rotation Samples.. Das hab ich soll aber weg.

crosspost.. https://delphigl.com/forum/viewtopic...100601#p100601

EDIT:
Hat sich erledigt.. funktioniert nun.


gruss

tcoman 8. Aug 2016 18:15

AW: Disk positionieren
 
Duerfen wir die nun funktionierende Loesung sehen?

Da du OpenGL verwendest waeren fuer OpenGL Anfaengern
wie ich es bin die
Delphi-Quellcode:
 uses ...
vllt interessant.

MfG,
Terence

EWeiss 8. Aug 2016 19:12

AW: Disk positionieren
 
Zitat:

wie ich es bin die uses ... vllt interessant.
dglOpenGL..

Zitat:

Duerfen wir die nun funktionierende Loesung sehen?
Klar kannst du sie sehn..

Delphi-Quellcode:
glTranslatef((aPos[0] + QuadSizeS) - 2, aPos[1] + QuadSizeS - 1, aPos[2] - 0.12);



Auf der anderen Seite scheint es nicht wirklich jemanden zu interessieren oder (es kann niemand bei meinem Problem helfen.)
Die Lösung hatte ich ja schon gepostet.
http://www.delphipraxis.net/1344324-post1.html



gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz