Comprend | | | | - page 1 - |
| Andreas Gaida | Hi! Habe une kleine Include Dossier geschrieben pour 3D OBJ données einlesen et Dastellen sous XProfan 10. Einschränkungen: jusqu'à maintenant sommes seulement Triangels et Quads incorporé womit on eigentlich qui meisten OBJ Fichiers lesen peut sollte. Es peut seulement OBJ Fichiers gelesen volonté wohin chacun la ligne avec @Chr$(13)+@Chr$(10) abgeschlossen wurde. Fichiers dürfen pas trop grand son et es dürfen pas plusieurs objeckte dans einer Dossier son.
dans qui Zip fichier est sich un Demo Program comme Exe et comme Quellcode et qui OBJ Inc.
Comme je le disais ist encore pas entier fertig mais je hoffe cela qui une ou bien autre déjà avec cela quoi anfangen peux. Hoffe avec qui Zeit qui Inc erweitern trop peut.
Programme: avec Tasten : 1,2,3,4,5,6,0 peux on qui verschiedenen OBJ données magasin. je pour Rechenleistung dauert cela jusque 1 min vorallem qui nr.5 Tasten +/- sommes zum zoomen et qui Curso Tasten zum drehen des Objekts.
MfG Andreas |
| 683 kB | | Kurzbeschreibung: | OBJ Include avec 3D OBJ données et Beispiel Programme | | Hochgeladen: | 21.12.2006 | | Downloadcounter: | | | | Download |
| | | Athlon X2 4800 , 2GB Ram , GeForce 7800GT Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 21.12.2006 ▲ |
| |
| | | | - page 3 - |
| | | Habe maintenant la fois cela Programme zum transformer qui obj intensive getestet. il y a chez meinem Test überhaupt rien trop réclamer. Habe qui Hauptdatei pour mon Zwecke angepasst et qui INC intact gelassen(qui pouvoir qui komplette Umwandlungsarbeit).
Habe selber Texturen et 3d-Körper hergestellt im objet-Format , einmal avec Blender3d et Wings3d et ensuite umgewandelt. Alles wird net lire et bunt dargestellt (100%tig).
c'est selten so un wunderbares Tool pour trouver, welches qui Open-Gl-Anwender dringend braucht um pas den ganzen Körper trop Fuss einzugeben. Gratulation. j'ai cela sentiment, cela manche Open-Gl-Anwender garnicht savons, quoi pour une hilfreiche perle ici schlummert.
qui Texturen de une Bitmap sur den Körper trop apporter avec Blender3D et Wings3D ist pas schwer, allez zügig jusqu'à zum ersten Resultat. cela schwerste était, qui Lektüre trop chercher dans allemande.
qui vite Körper avec Texturen herstellen voudrais pour OpenGl, den peux je Wings3D à l' Herz poser, benutze je maintenant aussi. Blender3D dagegen est un Hyperprogramm, weil on avec cela presque alles faire peux quoi cela Künstlerherz begehrt. cela quoi je ici brauche, Körper herstellen et Texturen einrichten sommes seulement 0,00001% vom dem , quoi Blender3D encore faire peux.
qui plus sur einfacheTexturen pour qui 3D-Körper erfahren voudrais avec Blender3D ou bien Wings3D, den peux je weiterhelfen, bevor il sich im Dschungel berirrt et aucun Lust plus hat, Grafiken /Texturen einzuri chten.
mfg peter |
| | | | |
| | | qui Object.zip V002 dessus ist qui Neueste, qui chez mir alles einlesen peux sans beanstandungen.
mfg |
| | | | |
| | |
cela XPGL mais est déjà la fois pas mal...
XPGL finde je aussi super.
Eigentlich sommes alle Proceduren dans qui INC drin, vom Punkt sur Dreieck jusqu'à zum Polygon, (plus volonté dans dem 3d-Körpert pas benutzt.) quelle aussi dans qui XPGL genutzt volonté peut.
qui Anfang wäre déjà là.
mfg KompilierenMarqueSéparation
PROC Polygonx
Parameters datax$,anzahl&
declare data$,data2$,data3$,count&
declare x1!,y1!,z1!,V_Zeiger&
declare x2!,y2!,z2!,VT_Zeiger&
declare x3!,y3!,z3!,VN_Zeiger&
rückgabe& =oGL("glBegin",~GL_POLYGON)
------------------------------------------------------
WhileLoop (anzahl&-1)
count& = anzahl& - &loop
count& = 0 - count&
data2$ = SubStr$(datax$ ,count&," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
EndWhile
------------------------------------------------------
rückgabe& = oGL("glEnd")
ENDPROC
PROC Triangle
Parameters datax$,data$,data2$,data3$
declare x1!,y1!,z1!,V_Zeiger&
declare x2!,y2!,z2!,VT_Zeiger&
declare x3!,y3!,z3!,VN_Zeiger&
rückgabe& =oGL("glBegin",~GL_TRIANGLES)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-3," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-2," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-1," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
rückgabe& = oGL("glEnd")
ENDPROC
PROC Quadrat
Parameters datax$,data$,data2$,data3$
declare x1!,y1!,z1!,V_Zeiger&
declare x2!,y2!,z2!,VT_Zeiger&
declare x3!,y3!,z3!,VN_Zeiger&
rückgabe& =oGL("glBegin",~GL_QUADS)
data2$ = SubStr$(datax$ ,-4," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-3," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-2," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-1," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
rückgabe& = oGL("glEnd")
ENDPROC
PROC Linex
Parameters datax$,data$,data2$,data3$
declare x1!,y1!,z1!,V_Zeiger&
declare x2!,y2!,z2!,VT_Zeiger&
declare x3!,y3!,z3!,VN_Zeiger&
rückgabe& =oGL("glBegin",~GL_LINES)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-2," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-1," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------------
rückgabe& = oGL("glEnd")
ENDPROC
PROC Pointx
Parameters datax$,data$,data2$,data3$
declare x1!,y1!,z1!,V_Zeiger&
declare x2!,y2!,z2!,VT_Zeiger&
declare x3!,y3!,z3!,VN_Zeiger&
rückgabe& =oGL("glBegin",~GL_POINTS)
------------------------------------------------------
data2$ = SubStr$(datax$ ,-1," ")
data3$ = SubStr$(data2$, 1,"/")
V_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$, 2,"/")
VT_Zeiger& = @Val(data3$)
data3$ = SubStr$(data2$,-1,"/")
VN_Zeiger& = @Val(data3$)
data$ = OBJ_Vertex_V$[V_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x1! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y1! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z1! = @Val(data2$)
data$ = OBJ_Vertex_VT$[VT_Zeiger&]
data2$ = SubStr$(data$,-2," ")
x2! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
y2! = @Val(data2$)
data$ = OBJ_Vertex_VN$[VN_Zeiger&]
data2$ = SubStr$(data$,-3," ")
x3! = @Val(data2$)
data2$ = SubStr$(data$,-2," ")
y3! = @Val(data2$)
data2$ = SubStr$(data$,-1," ")
z3! = @Val(data2$)
oGL("glNormal3f",x3!,y3!,z3!)
oGL("glTexCoord2f",x2!,y2!)
oGL("glVertex3f",x1!,y1!,z1!)
------------------------------------------------/span>-----
rückgabe& = oGL("glEnd")
ENDPROC
|
| | | | |
| | |
Vertex données pour Linien, Dreiecke , Vierecke et Polygone et cela peux on soweit je cela vois pas dans un einzige XPGL Dossier pressen .
cela umändern pourrait qui Programmiervater qui XPGL prendre, cela on plusieurs verschiedene Körper einlesen peux. Dürfte pour ihn une facilité , wäre irgendwann doch la fois erforderlich gewesen cet trop changement.
mfg |
| | | | |
| | | So comment je cela vois bietet XPGL bereits cet Opportunités. XPGL-Erfahrungen habe je aucun. |
| | | | |
| | | alors chez Xprofan10 ca va pas. il peut zwar plusieurs verschiedene Körper reinbringen, avec Namen, angezeitg wird toujours seulement qui 1.
mfg |
| | | | |
| | | ...quoi peut-être daran liegt cela qui données trop einer ogl.list "kompiliert" volonté. |
| | | | |
| | | cela Programme Wings3d pour qui Obj-Fichiers avec Texturenerstellung gibt es maintenant dans allemande.
mfg peter |
| | | | |
| | | | | | | |
| | Frank Abbing | @&(N) N : Integer (0 ... 15)
Ergebnis: LongInt
qui N-te übergebene paramètre dans einer selbstdefinierten Funktion (ou bien Procédure) comme LongInt.
qui 0. paramètre ist pour Aufruf einer Procédure/Methode qui avec Retour <Wert> zurückgegebene Wert. |
| | | | |
| | 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 KompilierenMarqueSéparation appeler, sonst allez qui Aufruf de travers |
| | | Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 05.09.2008 ▲ |
| |
| | | alors marcher 1faire vous alle! Komisch....
mais quand même merci bien.
mfg |
| | | | |
|
répondreOptions du sujet | 60.517 Views |
Themeninformationencet Thema hat 7 participant: |