| |
|
|
Matz Progger | Hi. Erst gesten bin I esta vermutlich wunderbare Lenguaje de programación gestossen.
Posesiones 6Jahre BlitzBasic hinter me, por lo tanto me está el Basic Dialekt no neu.
Als erstes möchte Soy un pequeño SpaceShooter programa.
Und ya en ersten Anweisung komme Yo no más.
Como macht mann una 1024x768ger Vollbildmodus. Was wäre mejor/más rápido Sprites a benutzen oder ogl Quads con Textur.
¿Cómo se puede mann una Pixelgenaue Kollision hacer.
Und entonces vieleicht todavía en wieviel Es el Vollversion más rápido. So rápidamente como C++? Gibs eigentlich auch para OGL Shader.
Achso sí. Noch qué. Como siehts con Online de. Also UDP oder TCP |
|
|
| |
|
|
|
Jörg Sellmeyer | ¡Hola Matz, Es mejor, si Deinem Hilo una aussagekräftigeren Titel gibst. Usted willst sí nix a SpaceShooter wissen y aquí weiß auch niemand qué a SpaceShooter. Sinnvoller wäre: "Vollbildmodus - como va el?". Und entonces ruhig una zweiten Thrad abierto: "Sprites / Kollision - Einige Fragen a ogl"
Zu Deiner ersten Cuestión debería Usted que aquí weiterhelfen: KompilierenMarcaSeparación Su dritte Cuestión: El Vollversion es tal vez algo más rápido como el 7él-Versión aber genauso rápidamente, como XPRofanFree. Si usted mehr Geschwindigkeit necesidad kannst Usted Dir veces P2CCP ansehen [...] oder XPSE [...] zusammen con XPIA [...] nutzen. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 23.08.2008 ▲ |
|
|
|
|
Matz Progger | @Jörg Sellmeyer. Gracias para deinen Tipp. |
|
|
| |
|
|
|
| @¡Hola Matz Tal vez kannst Usted el código brauchen... KompilierenMarcaSeparación
PROC FREE_WINDOW
PARAMETERS win_breit%,win_hoch%,win_stil%,win_titel$,win_icon$
Abfangen von zu grossen Eingaben
Case win_breit% > %MaxX:win_breit% = %MaxX
Case win_hoch% > %MaxY:win_hoch% = %MaxY
----------------------------------------
1. Parameter - Breite
2. Parameter - Höhe
3. Parameter - Stil
4. Parameter - Überschrift
5. Parameter - Icon
----------------------------------------
WindowStyle win_stil%
WINDOW (%MaxX/2 - (win_breit%/2)),(%MaxY/2 - (win_hoch%/2)) - win_breit%,win_hoch%
Das Fenster wird immer zentriert ausgegeben
WindowTitle win_titel$
UseIcon win_icon$
ENDPROC
#########################
FREE_WINDOW 800,600,26,"Zentriertes Hauptfenster","Gesicht"
WAITINPUT
end
|
|
|
| |
|
|
|
Matz Progger | |
|
| |
|
|
|
Frank Abbing | Matz, 2D-Juegos en XProfan verlangen einiges a Programmkenntnissen, si später alles sauber y ruckelfrei laufen se. Yo habe genau para solche Juegos una Dll en Ensamblador geschrieben, el kostenlose ProSpeed.dll. Damit kannst du muy simplemente una beliebige Anzahl Sprites benutzen - ähnlich como damals al C64 agieren esta bastante unabhängig de deinem Hauptprogramm. Hier una Spiel de me, el con XProfan7 y ProSpeed.dll entstanden es: [...] |
|
|
| |
|
|
|
Matz Progger | Franco. Gracias para deinen netten Tipp.
Den SpaceShooter voluntad Yo sí hacer en ersteinmal el Grundlagen de XProfan a verstehen. Früher oder später voluntad Yo el alles en 3D oGL hacer. |
|
|
| |
|
|
|
Frank Abbing | Sí, verstehe. So una Spiel es siempre bien geeignet, una Programmsprache a erlernen, allein ya wegen el Grafikausgaben. |
|
|
| |
|
|
|
Matz Progger | Yo habe gerade veces a la Test gemacht. In el Test ging lo por lo tanto möglichst viele Polygone darzustellen. Entweder Yo qué falch gemacht oder XProfan es mega langsamm.
En una Test de 100x100 Triangles *10 Also 100000 Triangles Läuft mein PC en 100% Kann el ser? 6GHz. Aber sólo una Kern se genutzt also 3GHz. KompilierenMarcaSeparaciónprint %maxx,%Maxy
ShowMax
Declare TriProLayer%
proc DrawGLScene
declare GesTriangles%
oGL("Clear")
oGL("Origin", 0, 0, -15)
WhileLoop 0,9
oGL("DrawXPGL", 0,TriProLayer%)
Add GesTriangles%,TriProLayer%
EndWhile
oGL("Show")
Return GesTriangles%
endproc
Proc CreatePlane
Parameters PosX%,PosZ%,SegX%,SegZ%
Declare VPos%,X!,Y!,Z!
Declare MoveX!
MoveX!=.1
Y!=-SegZ%*.05
X!=-SegX%*.05
SegX%=SegX%-1
SegZ%=SegZ%-1
WhileLoop 0,SegZ%
WhileLoop 0,SegX%
Float Vertex#,VPos%+ 0=X!
Float Vertex#,VPos%+ 8=Y!
Float Vertex#,VPos%+16=Z!
Float Vertex#,VPos%+24=X!
Float Vertex#,VPos%+32=Y!+0.1
Float Vertex#,VPos%+40=Z!
Add VPos%,48:X!=X!+MoveX!
Inc TriProLayer%
EndWhile
MoveX!=MoveX!*-1:Y!=Y!+.1
EndWhile
EndProc
Hauptprogramm
-------------
declare hWnd&, ende%
declare vertex#, color#
Declare Plane&
Declare VMaxSize%
VMaxSize%=180*180*48
Dim Vertex#,VMaxSize%
Dim Color#,20000
CreatePlane(0,0,100,100)
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
Plane&=OGl("CreateXPGL","TS","V",0,Vertex#,Color#,0,0)
oGl("UseXPGL",Plane&)
Declare Text$,Text2$
Declare GesTriangles%
WhileNot %ScanKey=27
GesTriangles%=DrawGLScene()
Text$=GesTriangles%
Text2$=TriProLayer%
WindowTitle "GesammtTriangles:"+Text$
+" Triangles Pro Layer:"+Text2$
le
end
Editar: Quellcodes möglichst con el Code-Tag umschließen (no con quote). Habs veces angepaßt. Dietmar |
|
|
| |
|
|
|
| Ab así en un ogl-Liste y el GPU erzeugen dejar... |
|
|
| |
|
|
|
Matz Progger | Hammer!! Que el Liste es voll rápidamente.
@IF Gracias. |
|
|
| |
|
|
|
Matz Progger | Hi. Yo como otra vez una Cuestión.
Gibt lo una möglichkeit Vertexpunkte y Triangles sebst a conjunto
Also así ungefär
A_B_C_ D
E_F_G_H
I_J_K_L
Und entonces cada Vertexpunkte con Triangles a verbinden.
Also Triangle A,B,C
Triangle E,F,I usw.
Hab ahora ya intenta Direkt oGl a benutzen, aber el va irgendwie auch no.
oGL("Clear") oGL("Origin", 0, 0, -15) oGl("glBegin","GL_TRIANGLES") OGl("glVertex3f",-1,-1,0) OGl("glVertex3f",1,-1,0) OGl("glVertex3f",0,1,0) Ogl("glEnd")
oGL("Show") |
|
|
| |
|
|