| |
| |
|
| - Página 1 - |
|
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 |
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
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") |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
| | Búsqueda veces después de Tron y W3D - mindestens en una de beiden Tuve imho el Sources Nuevo - y beide nutzen dieses Verfahren. Kann Yo aber auch nochmals puesto si yo otra vez en el Lande bin. |
|
| |
| |
| |
|
|
Matz
Progger | 
Lo va immernoch no. Und Yo verstehe no.
El Sphere se sí adecuado allso es doch alles Haga clic en Aceptar. Aber por qué se
el no Triangles no adecuado.
KompilierenMarcaSeparaciónPrint %maxx,%maxy
declare hWnd&
oGL("Init",%hWnd, 0,.2, 1, 1)
oGl("glTranslatef",0, 0,-50)
Proc Rendern
oGL("Clear")
OGl("Origin",0,0,-6)
OGl("Sphere",1,16,16)
oGl("glBegin",~GL_TRIANGLES)
OGl("glColor3f",1, 0, 0):OGl("glVertex3f",-1,-1, 0)
OGl("glColor3f",1, 0, 0):OGl("glVertex3f", 1,-1, 0)
OGl("glColor3f",1, 0, 0):OGL("glVertex3f", 0, 1, 0)
OGL("glEnd")
OGL("Show")
EndProc
cls
WhileNot %ScanKey=27
Rendern
endwhile
Das Turtorial es de hay her:
[...] |
|
| |
| |
| |
|
(534)
Deutsch
English
Français
Español
Italia