DGL • Thema anzeigen - koordinaten korrekt einlesen

koordinaten korrekt einlesen

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Kyro

Betreff des Beitrags: koordinaten korrekt einlesen

Verfasst: Sa Nov 01, 2003 13:45

DGL Member

Registriert: So Okt 26, 2003 20:07
Beiträge: 249

bin ich nur schwer von begriff? *g*

was ich versuche:

ich versuche koordinaten einzulesen, und diese dann zu zusammenhängenden rechtecken
zu verbinden.

was ich einlese:

eine datei in der steht:

Code:

000 000 000 000 000 -05 cvl 000 000 -02

cvl steht für: curve left
cvr würde für curve right stehen.

un das ist der code zum auslesen:

Code:

 
procedure LeseDateiAus(datei: string);
var
   f: textfile;
begin
     assignfile(f, datei);
     reset(f);
     while not EoF(f) do
     begin
          readln(f, koords);
     end;
     while pos(' ', koords) <> 0 do
     begin
          Delete(koords, Pos(' ', koords), 1);
     end;
end;
 

koords: string

in koords steht dann (hoffentlich XD): 000000000000000-05cvl000000-02

und so verarbeite ich das ganze:

Code:

 
procedure DrawObject;
var
   i : integer;
begin
     i := 1;
    while i <= trunc(length(koords)) do
    begin
         if koords[i] <> '' then
         begin
 
 
              if koords[i] = 'c' then
              begin
                   if koords[i + 2] = 'l' then
                   begin
                        glRotatef(90, 0, 1, 0);
 
                        delete(koords, i, 3);
 
                   end
                   else
                   begin
                        if koords[i + 2] = 'r' then
                        begin
                             glRotatef(-90, 0, 1, 0);
                             
                             delete(koords, i, 3);
 
                        end;
                   end;
              end;
         glBegin(GL_QUADS);
            glMultiTexCoord2fARB(GL_TEXTURE0_ARB,0,1);
            glMultiTexCoord2fARB(GL_TEXTURE1_ARB,0,1);
            glVertex3f(StrToInt(copy(koords, i, 3)) - 1, 0, StrToInt(copy(koords, i + 6, 3)));
 
            glMultiTexCoord2fARB(GL_TEXTURE0_ARB,0,0);
            glMultiTexCoord2fARB(GL_TEXTURE1_ARB,0,0);
            glVertex3f(StrToInt(copy(koords, i, 3)) + 1, 0, StrToInt(copy(koords, i + 6, 3)));
 
            glMultiTexCoord2fARB(GL_TEXTURE0_ARB,1,0);
            glMultiTexCoord2fARB(GL_TEXTURE1_ARB,1,0);
            glVertex3f(StrToInt(copy(koords, i + 9, 3)) + 1, 0, StrToInt(copy(koords, i + 15, 3)));
 
            glMultiTexCoord2fARB(GL_TEXTURE0_ARB,1,1);
            glMultiTexCoord2fARB(GL_TEXTURE1_ARB,1,1);
            glVertex3f(StrToInt(copy(koords, i + 9, 3)) - 1, 0, StrToInt(copy(koords, i + 15, 3)));
         glEnd();
         glTranslatef(StrToInt(copy(koords, i + 9, 3)), 0, StrToInt(copy(koords, i + 15, 3)));
         end;
         i := i + 9;
    end;
end;
 

das ergebnis soll ungefähr so aussehen

1111000
1111000
0000111
0000111
0000111
0000111
0000111

(1er = ein quadrat)

naja, ungefähr *g*

ich weiß, ein bissl viel auf einmal...

kann mir jemand sagen was ich falsch mache ?!

_________________
I'm not the signature, I'm just cleaning the floor...

Derzeitiges Projekt:
FireBlade Particle Engine (Release R2 2009.06.29)

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Sa Nov 01, 2003 14:00

DGL Member

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

Zwei Sachen :

1.) Es ist eine sehr schlechte Idee die Koordinaten bei jedem Objektrendern aus dem String auszulesen...das macht die Sache recht träge.

2.)Sag doch mal wo dein Problem liegt!Wie soll man dir denn helfen,wenn du uns da den Quellcode hinklatschtst und sagst das da was falsch ist.Konkretisiere dein Problem mal bitte.

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

Nach oben

Kyro

Betreff des Beitrags:

Verfasst: Sa Nov 01, 2003 16:52

DGL Member

Registriert: So Okt 26, 2003 20:07
Beiträge: 249

also:

wenn ich diesen code verwende, wird das erste rechteck richtig erzeugt.
das zweite rechteck wird aber 1. versetzt u. 2. NICHT gedreht (was ich komisch finde, den glRotatef führt er aus) angezeigt. desweiteren scheint es so, als ob ein drittes rechteck (etwa halb so groß wie das vorherige) auf der selben position gerendert wird, was ich überhaupt nicht verstehen kann.

_________________
I'm not the signature, I'm just cleaning the floor...

Derzeitiges Projekt:
FireBlade Particle Engine (Release R2 2009.06.29)

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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