| |
| |
|
| - Page 1 - |
|
Matz
Progger | Hi. first gesten be I on these presumably marvellous Programming-Language bumped.
have 6years Blitz Basic behind me, therefore is me the Basic dialect not new.
first thing would like I a small SpaceShooter program.
and already with the first instruction come I do not moreover.
How power man one 1024x768ger Vollbildmodus.
what would rather/faster Sprites To using or ogl Quads with Textur.
How can man a Pixelgenaue Kollision make.
And then Maybe yet circa how much is the Full Version faster.
so quick How C++? Gibs really too for OGL Shader.
Achso Yes. yet what. How siehts with Online from. means UDP or TCP |
|
| |
| |
| |
|
|
| |
| |
| - Page 1 - |
|
Matz
Progger | | @Jörg Sellmeyer. thanks for your Tipp. |
|
| |
| |
| |
|
|
| @Hello Matz
Perhaps can You whom code need...
CompileMarkSeparation
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-Games in XProfan desires some on Programmkenntnissen, if later everything tidy and ruckelfrei walk should. I have very for such Games a Dll in Assembler written, The Free ProSpeed.dll. so can you very simply a arbitrary amount Sprites using - like then on the C64 agieren these right independent of your Hauptprogramm.
here one game of me, with the XProfan7 and the ProSpeed.dll emerged is: [...]  |
|
| |
| |
| |
|
|
Matz
Progger | Frank. thanks for your nice Tipp.
whom SpaceShooter I will Yes make circa ersteinmal The Grundlagen of XProfan to understand. former or later I will the everything in 3D oGL make. |
|
| |
| |
| |
|
|
Frank
Abbing | Yes, understand. so one game is always well suitable, a Programmsprache To erlernen, alone already because of the Grafikausgaben.  |
|
| |
| |
| |
|
|
Matz
Progger | I have straight time a Test made. in the Test went it therefore as many as possible Polygone darzustellen. either have I what falch made or XProfan is mega langsamm.
with one Test of 100x100 Triangles *10 means 100000 Triangles Runs my PC on 100% can the his? 6GHz. but only one core becomes used means 3GHz.
CompileMarkSeparationprint %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
Edit: Source code possible with the code-day umschließen (not quote). Habs time angepaßt.
Dietmar |
|
| |
| |
| |
|
|
 | | ex so in a ogl-list and the GPU produce let... |
|
| |
| |
| |
|
|
Matz
Progger | gavel!! That the list is fully quick.
@IF thanks. |
|
| |
| |
| |
|
|
Matz
Progger | Hi. I Have there again a question.
gives it a possibility Vertexpunkte and Triangles sebst To settle
means so ungefär
A_B_C_ D
E_F_G_H
I_J_K_L
And then each Vertexpunkte with Triangles To contact.
means Triangle A,B,C
Triangle E,F,I
etc.
Have now already attempts directly oGl To using, but the goes somehow too
not.
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") |
|
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
| | Search time to Tron and W3D - at least with one of both I had imho The Sources posted - and both benefit this take action. can I but too over again post if I again in the land be. |
|
| |
| |
| |
|
|
Matz
Progger | 
It's all right immernoch not. what about me understand not.
The Sphere becomes Yes displayed allso is still everything aale. but Why becomes
not Triangles not displayed.
CompileMarkSeparationPrint %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
the Turtorial is of there since:
[...] |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia