XProfan

- Page 4 -

Frank
Abbing

Dieter Zornow

Der Ausdruck ist aber falsch, ich nehme mal an, dass laden_obj eine Procedure ist und die wird hier als Funktion aufgerufen. Dann muss es korrekterweise
Kompilieren Markieren Separieren

objekt_1% = laden_obj("auto.obj")
oder
laden_obj "auto.obj"
object_1% = @&(0)pre>

heißen, sonst geht der Aufruf schief

Das funktioniert auch so. Die Variable speichert IMHO immer den letzten Rückwert.

Ich habe jetzt mit Wings3D ein Quader erstellt mit 4 Zylinder als Räder.
( Wings3D 0.99.03)

Habe die dann mit Wings3D eine Textur angezogen.

Mit den Tasten QWESAY kann man das /die Objekte drehen.

Mir kam es nur auf die Anpassung der Textur an.
Jedem Vertex kann man eine Textur verpassen die man möchte.
Schaut mal die BMP-Texturen an und die auf dem Auto.

Aber jeder einzelne Körper kann nur eine Textur haben.
Einem Quader kann man keine 2 Texturen zuweisen.

Jedem einzelnen Körper , hier die Räder oder Quader oder Zylinder kann je eine eigene Textur haben.

Hat spass gemacht.

mfg

3dobjekte-einlesen.zip	23 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

Der Code hat Fehler und das Paket keine Exe. (jag mal xpse drüber)

Dann ist wohl der XProfan10-Compiler irgendwo am hudeln und keiner merkt es.
Der Compiler spuckt keine Fehlermeldung raus. Warum nicht?
Eine Variablenüberschreitung wird nicht gemeldet.

Vielleicht kann das einer mal mit Xprofan11 compilieren.

mfg

Ich wollte es mit XProfan11 kompilieren, aber XPSE bricht mit Fehlermeldungen ab. Pack wenigstens eine Exe mit herein.

Wenn ich es ohne XPSE kompilieren möchte dann klappt es auch mit XProfan11. Versuche den Fehler mal zu beseitigen.

Der Fehler scheint bereits in der 3d-einlesen1.inc zu stecken:

Error : OBJDRAWX(LISTENNUMMER2&) UNDEKLARIERT.
Procnaehe: POINTX
Naehe: : ~65, LISTENNUMMER2&=OGL("STARTLIST")

So sehen jetz die Variablen in derr INC aus :
Kompilieren Markieren Separieren

Declare OBJ_vertex![1,1],OBJ_vertex_vn![1,1],OBJ_vertex_vt![1,1],OBJ_face_Quad&[1,1,1],OBJ_counter_v1&,OBJ_counter_vt1&
Declare OBJ_face_TRI%[1,1,1],OBJ_face_POLY%[1,1,1],OBJ_Textur%[1000],OBJ_Texture$[1000],MTL_counter&
Declare OBJ_counter_vn1&,OBJ_counter_f_QUAD&,OBJ_counter_f_TRI&,OBJ_counter_f_POLY&,OBJ_counter_f_POINT&,OBJ_counter_f_LINE&
Declare OBJ_Face_x&,OBJ_MTL$[1000],OBJ_Faces$[61000],OBJ_Vertex_V$[65000],OBJ_Vertex_VN$[65000],OBJ_Vertex_VT$[65000]
Declare OBJ_Textur_count%,OBJ_Textur%,Tex_Data_geladen$
declare rückgabe&,Listennum

Eine war doppelt, eine fehlte, weil die in im Hauptprogramm war.

XPIA/XPSE compilieren jetzt fehlerfrei, aber linken ist "0".

Fehler liegt wahrscheinlich in irgendeiner Profandatei des compilers.

Ein Überlauf, der nicht kontrolliert wird.

mfg

Lad bitte ein komplettes integeres Paket hoch welches keine Fehler besitzt.

Dieter
Zornow

@Frank:

Frank Abbing

Das funktioniert auch so. Die Variable speichert IMHO immer den letzten Rückwert.

Ich glaube du must alles zurücknehmen und das Gegenteil behaupten. probiers erst mal aus
Kompilieren Markieren Separieren

proc abc

    parameters a&
    return 200 + a&

endproc

cls
Print abc(10)
abc(10)
Print @&(0)
w

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Kompilieren Markieren Separieren

test{

    return 3

}

test2{}
test
print @&(0)
test2
print @&(0)
ey

ist doch sehr aufschlussreich mit

3
3

Nachtrag:

@Dieter: Interessant! Wird eine Funktion als Argument aufgerufen scheint sie @& nicht zu füllen meinst Du?

Compiliert fehlerfrei: XPIA/XPSE.

mfg

opengl-3d.zip	15 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

Dieter
Zornow

@IF: Ich habe davon geschrieben, eine Procedure als Funktion aufzurufen, die füllt nicht.. Kann man auch aus meinem ersten Posting ersehen.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2