Incluye | | | | - Página 1 - |
|  Andreas Gaida | Hi! Posesiones una kleine Incluir Expediente geschrieben para 3D OBJ Daten einlesen y Dastellen bajo XProfan 10. Einschränkungen: Bis ahora son sólo Triangels y Quads instalado womit uno eigentlich el meisten OBJ Archivos lesen puede debería. Lo puede sólo OBJ Archivos gelesen voluntad wo jede zeile con @Chr$(13)+@Chr$(10) abgeschlossen wurde. Archivos dürfen no a groß ser y lo dürfen no mehrere objeckte en uno Expediente ser.
In el Zip datei befindet se una Demo Program como Exe y como Quellcode y el OBJ Inc.
Como ya he dicho es todavía no bastante fertig pero yo hoffe el el una u otros ya así qué anfangen kann. Hoffe con el Tiempo el Inc erweitern a puede.
Programa: con Tasten : 1,2,3,4,5,6,0 puede ser el verschiedenen OBJ Daten invitar. je después de Rechenleistung dauert el a a 1 min vorallem el nr.5 Tasten +/- son para zoomen y el Curso Tasten para drehen des Objekts.
MfG Andreas |
 | 683 kB | | Kurzbeschreibung: | OBJ Incluir con 3D OBJ Daten y Ejemplo Programa | | Hochgeladen: | 21.12.2006 | | Ladeanzahl: |  | | | Descargar |
| | | Athlon X2 4800 , 2GB Ram , GeForce 7800GT Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 21.12.2006 ▲ |
| |
| | | | - Página 3 - |
| |  | Posesiones ahora veces el Programa para Umwandeln el obj intensive getestet. Lo son en mi Test überhaupt nichts a beanstanden. Posesiones el Hauptdatei para mi Zwecke adaptado y el INC unangetastet gelassen(el macht el komplette Umwandlungsarbeit).
Posesiones selber Texturen y 3d-Körper producido en el Objeto-Formato , una vez con Blender3d y Wings3d y luego umgewandelt. Alles se sauber eingelesen y bunt dargestellt (100%tig).
Es selten así una wunderbares Tool para encontrar, welches el Open-Gl-Anwender dringend braucht en no el ganzen Körper a Fuss einzugeben. Gratulation. Yo habe el gefühl, el manche Open-Gl-Anwender garnicht wissen, qué para una hilfreiche Perle hier schlummert.
El Texturen de una De mapa de bits en el Körper a bringen con Blender3D y Wings3D es no schwer, va zügig a para ersten Resultat. Das schwerste war, el Lektüre a suchen en Alemán.
Wer rápidamente Körper con Texturen herstellen möchte para OpenGl, el kann Yo Wings3D ans Herz legen, benutze Yo ahora. Blender3D dagegen es una Hyperprogramm, porque uno así fast alles hacer kann qué el Künstlerherz begehrt. Das Yo hier brauche, Körper herstellen y Texturen einrichten son sólo 0,00001% vom el , qué Blender3D todavía hacer kann.
Wer mehr encima einfacheTexturen para el 3D-Körper erfahren möchte con Blender3D oder Wings3D, el kann Yo weiterhelfen, bevor él se en el Dschungel berirrt y no Lust mehr ha, Gráficos /Texturen einzuri chten.
mfg peter |
| | | | |
| |  | El Object.zip V002 oben Es el Neueste, el en me alles einlesen kann sin beanstandungen.
mfg |
| | | | |
| |  |
Das XPGL es doch ya veces no schlecht...
XPGL finde Yo auch klasse.
Eigentlich son todos Proceduren en el INC drin, vom Punkt encima Dreieck a para Polygon, (mehr voluntad en el 3d-Körpert no benutzt.) welche auch en el XPGL genutzt voluntad puede.
Der Anfang wäre ya como.
mfg KompilierenMarcaSeparación
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 Daten para Linien, Dreiecke , Vierecke y Polygone y el puede ser soweit Yo el sehe no en un einzige XPGL Expediente pressen .
Das umändern podría el Programmiervater el XPGL tomar, el uno mehrere verschiedene Körper einlesen kann. Dürfte para ihn una leichtigkeit , wäre irgendwann doch veces erforderlich gewesen dieses a ändern.
mfg |
| | | | |
| |  | So como yo sehe bietet XPGL ya esta Möglichkeiten. XPGL-Erfahrungen Yo no. |
| | | | |
| |  | Also en Xprofan10 es no. Se puede zwar mehrere verschiedene Körper reinbringen, con Namen, angezeitg se siempre sólo el 1.
mfg |
| | | | |
| |  | ...qué tal vez daran liegt el el Daten a uno ogl.list "kompiliert" voluntad. |
| | | | |
| |  | Das Programa Wings3d para el Obj-Archivos con Texturenerstellung hay ahora en Alemán.
mfg peter |
| | | | |
| |  | | | | | |
| |  Frank Abbing | @&(N) N : Integer (0 ... 15)
Ergebnis: LongInt
Der N-te übergebene Parámetro en uno selbstdefinierten Función (oder Procedimiento) como LongInt.
Der 0. Parámetro es después de Aufruf uno Procedimiento/Método el con Volver <Wert> zurückgegebene Valor. |
| | | | |
| |  Dieter Zornow | Der Ausdruck es aber falso, Yo nehme veces a, dass laden_obj una Procedure es y el se aquí como Función aufgerufen. Dann muss lo korrekterweise KompilierenMarcaSeparación heißen, sonst va el Aufruf torcido |
| | | 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 ▲ |
| |
| |  | Also trabajo tun ellos todos! Komisch....
Aber trotzdem vielen dank.
mfg |
| | | | |
|
RespuestaTema opciones | 62.080 Views |
ThemeninformationenDieses Thema ha 7 subscriber: |