XProfan

- page 4 -

Frank
Abbing

Dieter Zornow

qui Ausdruck ist mais faux, je prends la fois à, dass laden_obj une Procedure ist et qui wird ici comme Funktion aufgerufen. ensuite muss es korrekterweise
Kompilieren Marque Séparation

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

appeler, sonst allez qui Aufruf de travers

cela funktioniert aussi so. qui Variable speichert IMHO toujours den letzten Rückwert.

j'ai maintenant avec Wings3D un Quader erstellt avec 4 Zylinder comme Räder.
( Wings3D 0.99.03)

Habe qui ensuite avec Wings3D une Textur angezogen.

avec den Tasten QWESAY peux on cela /qui Objekte drehen.

Mir kam es seulement sur qui Anpassung qui Textur à.
Jedem Vertex peux on une Textur verpassen qui on voudrais.
Schaut fois le BMP-Texturen à et qui sur dem voiture.

mais chacun einzelne Körper peux seulement une Textur avons.
Einem Quader peux on aucun 2 Texturen zuweisen.

Jedem individuel Körper , ici qui Räder ou bien Quader ou bien Zylinder peux je une eigene Textur avons.

Hat spass gemacht.

mfg

3dobjekte-einlesen.zip	23 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

qui Code hat faute et cela paquet aucun Exe. (jag la fois xpse drüber)

ensuite ist wohl qui XProfan10-Compiler irgendwo am hudeln et aucun merkt es.
qui Compiler spuckt aucun Fehlermeldung raus. pourquoi pas?
une Variablenüberschreitung wird pas gemeldet.

peut-être peux cela einer la fois avec Xprofan11 compilieren.

mfg

je voulais es avec XProfan11 kompilieren, mais XPSE bricht avec Fehlermeldungen ab. Pack wenigstens une Exe avec herein.

si je es sans XPSE kompilieren voudrais ensuite klappt es aussi avec XProfan11. Versuche den faute la fois trop beseitigen.

qui faute scheint bereits dans qui 3d-einlesen1.inc trop stecken:

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

So voyons jetz qui Variablen dans derr INC aus :
Kompilieren Marque Séparation

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

une était doppelt, une fehlte, weil qui dans im Hauptprogramm était.

XPIA/XPSE compilieren maintenant correct, mais linken ist "0".

faute liegt wahrscheinlich dans irgendeiner Profandatei des compilers.

un Überlauf, qui pas kontrolliert wird.

mfg

Lad s'il te plaît un komplettes integeres paquet hoch welches aucun faute besitzt.

Dieter
Zornow

@Frank:

Frank Abbing

cela funktioniert aussi so. qui Variable speichert IMHO toujours den letzten Rückwert.

je crois du must alles zurücknehmen et cela Gegenteil behaupten. probiers seulement la fois aus
Kompilieren Marque Séparation

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 Marque Séparation

test{

    return 3

}

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

mais est très aufschlussreich avec

3
3

Nachtrag:

@Dieter: intéressant! Wird une Funktion comme Argument aufgerufen scheint vous @& pas trop füllen meinst Du?

Compiliert correct: XPIA/XPSE.

mfg

opengl-3d.zip	15 kB

Hochgeladen:	05.09.2008

Downloadcounter:
		Download

Dieter
Zornow

@IF: j'ai en geschrieben, une Procedure comme Funktion aufzurufen, qui füllt pas.. peux on aussi 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