Dragon's fury(fallait pas l'énerver!):MAJ6 chgt de planches

Polux · Message par **Polux** » lun. 06/août/2007 14:30

InitSprite():InitKeyboard()

OpenScreen(1024,768,32,"Laby2D") ;16x12 sprites de 64x64

CreateSprite(0,64,64) ; creation d'un sprite bidon pour le mur
CreateSprite(1,64,64) ; creation de la bille
StartDrawing(SpriteOutput(0))
  Box(0,0,64,64,RGB(255,255,255))
StopDrawing()  
StartDrawing(SpriteOutput(1))
  Circle(32,32,30,RGB(255,255,255))
StopDrawing() 

Structure murs ; structure pour utiliser une liste chainée
  flag.w
EndStructure
Global NewList murflag.murs():Global n.w,i.w,o.w,x.w,y.w
Global temp1.w,temp2.w,temp3.w,temp4.w
; les listes chainées sont très rapides et optimisées

Restore labyby ; on rempli la liste
For i=1 To 192
  Read o
  AddElement(murflag())
    murflag()\flag=o
Next i
x=1:y=1

Repeat

ClearScreen(0)
i=0:n=0
ResetList(murflag()) ; affichage du tableau
While NextElement(murflag())  ; on balaye la liste
  If murflag()\flag=1:DisplaySprite(0,i*64,n*64):EndIf
  i+1:If i=16:i=0:n+1:EndIf ; on décale si besoin est
Wend

DisplaySprite(1,x*64,y*64)
ResetList(murflag()) ;là on vérifie ce qui entoure notre baballe
i=0:n=0
For o=1 To 192:NextElement(murflag()):i+1
  If i=x+2 And n=y
    temp1=murflag()\flag ; on stocke les valeurs des cases avoisinantes
    PreviousElement(murflag()):PreviousElement(murflag())
    temp2=murflag()\flag    
    SelectElement(murflag(),o-18)
    temp3=murflag()\flag
    SelectElement(murflag(),o+14)
    temp4=murflag()\flag    
    Break
  EndIf
  If i=16:n+1:i=0:EndIf ;ligne suivante
Next o

FlipBuffers()

ExamineKeyboard()

If KeyboardPushed(#PB_Key_Left)
  If temp2=0:x-1:EndIf ; si pas de mur
EndIf
If KeyboardPushed(#PB_Key_Right)
  If temp1=0:x+1:EndIf; si pas de mur
EndIf
If KeyboardPushed(#PB_Key_Up)
  If temp3=0:y-1:EndIf; si pas de mur
EndIf
If KeyboardPushed(#PB_Key_Down)
  If temp4=0:y+1:EndIf; si pas de mur
EndIf
Until KeyboardPushed(#PB_Key_Escape)

DataSection ; section data pour le tableau

labyby:
Data.w 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.w 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.w 1,0,1,1,1,1,0,0,1,1,1,0,1,1,1,1
Data.w 1,0,1,0,0,1,0,0,1,0,0,0,0,0,0,1
Data.w 1,0,1,0,0,1,0,0,1,0,0,0,0,0,0,1
Data.w 1,0,1,0,0,1,0,1,1,1,0,0,0,0,0,1
Data.w 1,0,0,0,0,0,0,1,0,1,0,0,1,1,1,1
Data.w 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
Data.w 1,0,1,1,1,1,0,0,0,0,0,1,0,0,0,1
Data.w 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.w 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
Data.w 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

EndDataSection

le même code avec une baballe qui se déplace

ps: j'ai utilisé les listes chainées mais on peu également utiliser des tableaux à 20 dimensions mais le code est un peu moins concis je trouve. Et puis les listes chainées etant dynamiques, on peut s'amuser avec et ça donne des trucs assez sympa

Kwai chang caine

Cool

Mais dis donc polux, elle est drolement rapide la babale, hein dur dur ...........

Allez attrape la babale

beauregard · Message par **beauregard** » lun. 06/août/2007 14:53

je te remercie Polux, mais je ne sais pas ce qui s'est passé lorsque j'ai testé Peur Basique pour la première fois sur ma vieille machine, mais là je viens d'apporter de légère modifications où j'affiche le labyrinthe en sprite classique, et c'est fluide ! Je ne comprend pas ce qui s'était passé la dernière fois... la fatigue ? l'anti virus qui vérifié des trucs ? mystère. Une trop grande précipitation ? sans aucun doute.

Quoi qu'il en soit, les sprites3D sont à utiliser que si nécessaire, et je vais enfin pouvoir passer à autre chose.

merci pour votre patience.

cederavic · Message par **cederavic** » lun. 06/août/2007 15:26

C'est marrant, dans Space Trip je n'utilise que des sprite 3D, a part le fond étoilé. Environ 45 000 à 55 000 sprites affichés par seconde et un FPS au max pour une résolution de 1024*768. Ca tourne niquel chez moi, c'est fluide et meme quand j'active le mode afterburn (20 sprite3D de la taille de l'ecran affichés en fondu pour donner un effet de "blur"). J'utilise les sprite3D car je n'ai jamais eu de soucis de rapidité avec et puis ça permet de faire un effet de fondu sur les bord en utilisant le format PNG.
Apres pour les collision c'est vrai que c'est pas top, mais pour ça j'utilise des mask (sprite2D en noir et blanc).
Il tourne aussi bien sur mon fix (amd atlhon 64 3200+, eax 850 xt, 2Go corsaire XMS) que sur mon portable (amd Turion 64 X2 1.6GHz, nvidia geforce Go 6150, 1Go corsaire).
Polux tu as essayer Space Trip non? Il est fluide? Si oui c'est que ça vient tout simplement de la façon de coder comme le disait Dobro, et dans ce cas j'vais breveter mon code et devenir riche

Crystal Noir · Message par **Crystal Noir** » lun. 06/août/2007 16:00

beauregard a écrit :je te remercie Polux, mais je ne sais pas ce qui s'est passé lorsque j'ai testé Peur Basique pour la première fois sur ma vieille machine, mais là je viens d'apporter de légère modifications où j'affiche le labyrinthe en sprite classique, et c'est fluide ! Je ne comprend pas ce qui s'était passé la dernière fois... la fatigue ? l'anti virus qui vérifié des trucs ? mystère. Une trop grande précipitation ? sans aucun doute.

Quoi qu'il en soit, les sprites3D sont à utiliser que si nécessaire, et je vais enfin pouvoir passer à autre chose.

merci pour votre patience.

Le principale c'est que ca marche.

Polux · Message par **Polux** » lun. 06/août/2007 16:42

Kwai chang caine a écrit :Cool
Mais dis donc polux, elle est drolement rapide la babale, hein dur dur ...........

Allez attrape la babale

voui j'ai pas mis de tempo... débrouillez vous avec

moi je retourne à la gamelle....

Polux · Message par **Polux** » lun. 06/août/2007 16:45

cederavic a écrit :C'est marrant, dans Space Trip je n'utilise que des sprite 3D, a part le fond étoilé. Environ 45 000 à 55 000 sprites affichés par seconde et un FPS au max pour une résolution de 1024*768. Ca tourne niquel chez moi, c'est fluide et meme quand j'active le mode afterburn (20 sprite3D de la taille de l'ecran affichés en fondu pour donner un effet de "blur"). J'utilise les sprite3D car je n'ai jamais eu de soucis de rapidité avec et puis ça permet de faire un effet de fondu sur les bord en utilisant le format PNG.
Apres pour les collision c'est vrai que c'est pas top, mais pour ça j'utilise des mask (sprite2D en noir et blanc).
Il tourne aussi bien sur mon fix (amd atlhon 64 3200+, eax 850 xt, 2Go corsaire XMS) que sur mon portable (amd Turion 64 X2 1.6GHz, nvidia geforce Go 6150, 1Go corsaire).
Polux tu as essayer Space Trip non? Il est fluide? Si oui c'est que ça vient tout simplement de la façon de coder comme le disait Dobro, et dans ce cas j'vais breveter mon code et devenir riche

ça tient beaucoup au matos aussi ( dans ton cas, deux bonnes machines ) et au type de sprites3D ( différents ou pas, gros ou pas, ect... ) et comme je l'ai dit aux drivers... enfin plein de choses. Donc effectivement ça tient à la façon de coder, mais si on n'en a pas besoin, il vaut mieux utiliser les sprites 2D ( le blit sera toujours plus rapide ).
Je ne peux pas juger pour spacetrip, c'est fluide oui, mais sur un Core2duo 6600,3go de ram et 2xGeforce7950GT... ça parait logique

cederavic · Message par **cederavic** » lun. 06/août/2007 18:01

Je me demande si le blitter est vraiment plus rapide que l'acceleration 3d sur les carte graphique recente... Enfin c'est vrai que dans space trip il y a pas enormement de graphismes, et ma config est pas banale (assez overclockée en plus

)
Le problème d'alterner Sprite2D et Sprite3D c'est que ça mutlipli les appels Start3D()
Je dis pas que l'un est mieu que l'autre ou quoi que ce soit, chacun code comme il veut tant que le resultat est là

beauregard · Message par **beauregard** » lun. 06/août/2007 18:57

cederavic a écrit :chacun code comme il veut tant que le resultat est là

et bien justement voilà une autre façon de faire

:

Code : Tout sélectionner

;
; labyrinthe 2D par Polux en purebasic, puis modifié par beauregard afin d'avoir un autre regard.

If InitMouse ()=0 Or InitSprite ()=0 Or InitKeyboard ()=0 Or InitSprite3D ()=0 
  MessageRequester ( "Error" , "Can't open DirectX 7 or later" , 0)
  End
EndIf

Enumeration ; ici, on donne un petit nom à nos sprites( non, chuis pas un numéro !):
  #fondA 
EndEnumeration

; Si votre PC ne peut pas afficher une haute résoution résolution en 32bit, Alors arrêt du programme.
If OpenScreen (1024, 768, 32, "labyrinthe 2D" )=0 
  MessageRequester ( "Error" , "Can't open a 1024*768 - 32 bit screen !" , 0)
  End
EndIf


CreateSprite(0,64,64) ; creation d'un sprite bidon pour le mur
StartDrawing(SpriteOutput(0))
Box(0,0,64,64,RGB(255,255,255))
Box(2,2,60,60,RGB(225,225,225))
StopDrawing() 

CreateSprite(1,64,64) ; creation de la bille
StartDrawing(SpriteOutput(1))
BackColor ( RGB (0,0,0))
Circle(32,32,30,RGB(255,255,255))
Box (20+4,0, 4*4, 4, RGB (158,5,5))
Box (12+4,4, 4*8, 4, RGB (162,15,15))
Box (20+4,8, 4*4, 4, RGB (164,21,21)):Box (8+4,8, 4, 4, RGB (164,21,21)):Box (44+4,8, 4, 4, RGB (164,21,21))
Box (24+4,12, 4*2, 4, RGB (168,32,32)):Box (4+4,12, 4, 4, RGB (168,32,32)):Box (48+4,12, 4, 4, RGB (168,32,32)) 
Box (24+4,16, 4*2, 4, RGB (172,42,42)):Box (4+4,16, 4, 4, RGB (172,42,42)):Box (48+4,16, 4, 4, RGB (172,42,42)) 
Box (20+4,20, 4*4, 4, RGB (176,53,53)):Box (4+4,20, 4*2, 4, RGB (176,53,53)):Box (44+4,20, 4*2, 4, RGB (176,53,53))  
Box (0,24, 64, 4, RGB (179,61,61)) 
Box (0,28, 64, 4, RGB (185,77,77)) 
Box (0,32, 64, 4, RGB (190,89,89)) 
Box (0,36, 64, 4, RGB (195,102,102)) 
Box (0,40, 64, 4, RGB (200,115,115)) 
Box (0,44, 64, 4, RGB (204,127,127))
Box (0,48, 64, 4, RGB (204,127,127))
Box (0,52, 64, 4, RGB (204,127,127))
Box (0,48+8, 4*4, 4, RGB (209,140,140)):Box (24,48+8, 4*4, 4, RGB (209,140,140)):Box (48,48+8, 4*4, 4, RGB (209,140,140))  
Box (8/2,52+8, 4*2, 4, RGB (214,152,152)):Box (28,52+8, 4*2, 4, RGB (214,152,152)):Box (52,52+8, 4*2, 4, RGB (214,152,152)) 
StopDrawing ()

Global temp1.w,temp2.w,temp3.w,temp4.w

Structure objet
  id.l 
  x.w
  Y.w
  sensx.l
  sensy.l
  sr.w
  attract.w
EndStructure
Global NewList bfond.objet(); bloc fond 
Declare Fclonebfond()
Global colonne,dcolonne,dligne

x=8*64:Y=6*64
Global zutA,zutB.w,zutC.w ; utile pour le codeur pour tester le code.

Repeat ; ************ Boucle principale ***************************************************************************************************************************

  ClearScreen ( RGB (0,0,155))   
  ExamineKeyboard()  
  
  ; fabrication du fond ( sous forme de bloc): 
  If nbrefond<1:nbrefond+1:Fclonebfond():EndIf 
  
  ;- Affichage clone fondbloc si existe:
  ForEach bfond()
  zutB+1  
  DisplayTransparentSprite( bfond()\id , bfond()\x, bfond()\Y) 
  
  
If  x+64>bfond()\x-1 And x+64<bfond()\x+16; collision à droite.
  If  (Y+8>bfond()\Y+4 And Y+8<bfond()\Y+60) Or (Y+32>bfond()\Y+4 And Y+32<bfond()\Y+60) Or (Y+56>bfond()\Y+4 And Y+56<bfond()\Y+60)
    temp1=1:x=bfond()\x-65
  EndIf
EndIf    
If  x>bfond()\x+48 And x<bfond()\x+65; collision à gauche.
  If  (Y+8>bfond()\Y+4 And Y+8<bfond()\Y+60) Or (Y+32>bfond()\Y+4 And Y+32<bfond()\Y+60) Or (Y+56>bfond()\Y+4 And Y+56<bfond()\Y+60)
    temp2=1:x=bfond()\x+65
  EndIf
EndIf    
If  (x+8>bfond()\x+4 And x+8<bfond()\x+60) Or (x+32>bfond()\x+4 And x+32<bfond()\x+60) Or (x+56>bfond()\x+4 And x+56<bfond()\x+60)
  If  Y>bfond()\Y+48 And Y<bfond()\Y+65; collision à haut.
    temp3=1:Y=bfond()\Y+65
  EndIf
EndIf 
If  (x+8>bfond()\x+4 And x+8<bfond()\x+60) Or (x+32>bfond()\x+4 And x+32<bfond()\x+60) Or (x+56>bfond()\x+4 And x+56<bfond()\x+60)
  If  Y+64>bfond()\Y-1 And Y+64<bfond()\Y+16; collision en bas
    temp4=1:Y=bfond()\Y-65
  EndIf
EndIf 
    
  Next   
  
;- objet dirigé par le joueur:  

  DisplayTransparentSprite(1,x,Y)
  
  If KeyboardPushed(#PB_Key_Right) And temp1=0:x+4:EndIf
  If KeyboardPushed(#PB_Key_Left) And temp2=0:x-4:EndIf
  If KeyboardPushed(#PB_Key_Up) And temp3=0:Y-4:EndIf
  If KeyboardPushed(#PB_Key_Down) And temp4=0:Y+4:EndIf

  ; ligne de test afin de connaître la valeur des variables:    
  StartDrawing ( ScreenOutput ())
  DrawingMode (1)
  FrontColor ( RGB (255,0,0))    
  zutA$= Str (zutA)  
  zutB$= Str (zutB)    
  zutC$= Str (zutC)  
  nbrefond$= Str (nbrefond) 
  temp1$= Str (temp1)    
  temp2$= Str (temp2) 
  temp3$= Str (temp3) 
  temp4$= Str (temp4)   
  DrawText (0,1+100, "temp1: " +temp1$)
  DrawText (0,1+120, "temp2: " +temp2$)
  DrawText (0,1+140, "temp3: " +temp3$)
  DrawText (0,1+160, "temp4: " +temp4$)  
  ;DrawText (50,1+220, "nbrefond: " +nbrefond$)    
  ;DrawText (0,1+200, "zutA: " +zutA$);:zutA=0   
  ;DrawText (0,1+220, "zutB: " +zutB$):zutB=0 
  ;DrawText (0,1+240, "zutC: " +zutC$);:zutC=0
;  DrawText (350,20, "appuyez sur la touche R pour remise à 0 du code")
  StopDrawing () 
 
  temp1=0:temp2=0:temp3=0:temp4=0 ; remise à 0 indispensable des variables utilisées pour le déplacement.

  FlipBuffers()

Until KeyboardPushed(#PB_Key_Escape)

Procedure Fclonebfond()
  ; placement clone fond sous forme de simple bloc:
  ; 16 colonne de tiles ( 16*64=1024) pour 12 ligne de tiles ( 12*64=768).
  For t=0 To 15+(16*11)
    If t=16 Or t=32 Or t=48 Or t=64 Or t=80 Or t=96 Or t=112 Or t=128 Or t=144 Or t=160 Or t=176 Or t=192
      dligne+64:dcolonne=0
    EndIf 
    Read colonne
     If colonne=1
       LastElement(bfond()) 
       AddElement(bfond())
       bfond()\id=#fondA         
       bfond()\x=dcolonne
       bfond()\Y=dligne
     EndIf
    dcolonne+64
  Next   
EndProcedure 

DataSection ; section data pour le tableau
Data.l 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data.l 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.l 1,0,1,1,1,1,0,0,1,1,1,0,1,1,1,1
Data.l 1,0,1,0,0,1,0,0,1,0,0,0,0,0,0,1
Data.l 1,0,1,0,0,1,0,0,1,0,0,0,0,0,0,1
Data.l 1,0,1,0,0,1,0,1,1,1,0,0,0,0,0,1
Data.l 1,0,0,0,0,0,0,1,0,1,0,0,1,1,1,1
Data.l 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
Data.l 1,0,1,1,1,1,0,0,0,0,0,1,0,0,0,1
Data.l 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1
Data.l 1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
Data.l 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
EndDataSection

Polux · Message par **Polux** » lun. 06/août/2007 19:03

cederavic a écrit :Je me demande si le blitter est vraiment plus rapide que l'acceleration 3d sur les carte graphique recente... Enfin c'est vrai que dans space trip il y a pas enormement de graphismes, et ma config est pas banale (assez overclockée en plus )
Le problème d'alterner Sprite2D et Sprite3D c'est que ça mutlipli les appels Start3D()
Je dis pas que l'un est mieu que l'autre ou quoi que ce soit, chacun code comme il veut tant que le resultat est là

surtout pas!!!!
un start3d() au début de la boucle principale, et un stop3d() à la fin, et tu gagne pas mal de temps comme ça

beauregard · Message par **beauregard** » lun. 06/août/2007 21:46

cederavic a écrit :Je me demande si le blitter est vraiment plus rapide que l'acceleration 3d sur les carte graphique recente... Enfin c'est vrai que dans space trip il y a pas enormement de graphismes, et ma config est pas banale (assez overclockée en plus )
Le problème d'alterner Sprite2D et Sprite3D c'est que ça mutlipli les appels Start3D()

un bon questionnement, j'ai laissé un code pour tester le nombre de sprites 3D affichable, j'ai mis les résultats perso, tu peux mettre les tiens, en précisant la quantité de mémoire vidéo de ta carte, heu, vidéo.

beauregard · Message par **beauregard** » mar. 07/août/2007 23:06

Coolman a écrit :@beauregard (marrant le pseudo)

Bon, je ne suis pas tres jeux mais voila ce que ca donne avec une carte AGP Nvidia Geforce 6600 256ko ram :

J'ai un peu modifié ton code pour coller a la resolution de l'ecran...

270 sprites 256*256 en 1024*768 32bit, donc entre la 6ème et 7ème génération de geforce milieu de gamme, nous avons une différence de 128 sprites, comme quoi la vram seule n'est pas le seul critère technique pour l'affichage de sprite3D.
Mais pour le test tu a omis de mettre en transparence les sprites3D ( dans mon cas je passe de 398 à 200 en 32bit, mais en 16bit il n'y a pas de différence donc 398 avec transparence).

Ton cpu me parait balèze par rapport à ton gpu, ce qui en fait une machine quelque peu désiquilibré, mais je peux me tromper, faudrait qu'un spécialiste intervienne s'il nous lis...
Quand à la résolution, je pense que 1024*768 est désormais un minimum, lorsque je vois des jeux en flash en 640*480 comme ici:
http://flashkof.free.fr/street/site/htm/game.htm#

Coolman · Message par **Coolman** » mer. 08/août/2007 10:47

*** Ton cpu me parait balèze par rapport à ton gpu, ce qui en fait une machine quelque peu désiquilibré, mais je peux me tromper, faudrait qu'un spécialiste intervienne s'il nous lis...

Oui tu as raison, mon ancienne carte mere avec un P4 3ghz classique a cramé, j'avais donc le choix entre :

- Acheter un nouvel ordinateur : seulement, ca m'aurait couté env 1000 a 1500 euros. j'ai failli en acheter un sauf que le vendeur m'a gonflé, il voulait me fourguer vista version basique (en plus la version la plus merdique), impossible d'avoir la machine sans systeme d'exploitation, j'avais deja xp pro, je ne voyais aucune raison de changer...
- Racheter une autre carte mere...
- Acheter une carte mere plus un proc P4 dualcore tout en recuperant mes anciens composants, j'ai trouvé sur le net la perle rare, une carte mere asrock qui acceptent l'agp et les barettes de memoires classique ddr...

J'ai choisi la troisieme solution, et je ne le regrettes pas, de toute facon, je ne suis pas vraiment un joueur, cela dit, cette config fait marcher a plein pot tous les demos de jeux que j'ai testé. bizarrement, avec l'ancien proc P4 3ghz, ces memes demos ramaient avec la meme carte graphique, donc le proc a un role important dans l'affaire. en plus l'economie que j'ai fait a ete investi dans un nouvel ecran 22 pouces hp...

Voila...

cederavic · Message par **cederavic** » mer. 08/août/2007 13:05

Voila les resultats de ton tete :
16bit:
--> 1005 sprites3D sans la transparence
--> 980 sprites3D avec la transparence activée
32bit:
--> 760 sprites3D sans la transparence
--> 610 sprites3D avec la transparence activée

J'ai une Asus eax 850 XT, 256 Mo DDR 2, 525MHz

beauregard · Message par **beauregard** » dim. 12/août/2007 19:26

cederavic a écrit : 32bit:
--> 610 sprites3D avec la transparence activée
J'ai une Asus eax 850 XT, 256 Mo DDR 2, 525MHz

c'est impressionnant ! T'as du overclocker ta carte vidéo et le moins que l'on puisse dire, c'est que cela ouvre des perspectives, et que, heu, c'est no limit. De quoi en mettre plein la vue quoi.

ma réponse est un peu tardive, car j'ai encore une fois formaté mon vieux PC, pour tout réinstaller, avec toute la joie qui me caractérise dans ces moments là...

PureBasic

Dragon's fury(fallait pas l'énerver!):MAJ6 chgt de planches

aujourd'hui, je formate.