[2D] Sprite Scrolling

Zorro · Message par **Zorro** » lun. 25/juil./2016 10:16

Je me disais, que le clipSprite pour un effet de ce genre , c'etait pas evident a mettre en place :
(Attention Mal de Mer assuré )

Code : Tout sélectionner

macro M :macro:endmacro :M St:StartDrawing:Endmacro:
M TS:TransparentSpriteColor:Endmacro:M Sd:StopDrawing:EndMacro:
M DTS:DisplayTransparentSprite:Endmacro:M CS:CreateSprite:Endmacro:
M VS:val(StringField:Endmacro:M AA:amplitude:Endmacro
Enumeration:#Fenetre_principale:#sprite_fond;;;;;
#sprite_milieu:#sprite_devant:EndEnumeration;;;;;;;;;;;;;;;;;;;;;;;;;;
Declare.s F_(amplitude,x,y,angle):Declare CM(Adr$);;
Define.l EV;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global StyleFen.i=#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered;
If Not (InitSprite() And InitSound() And InitKeyboard()):End:EndIf;;;;
Adr.s="http://multor.free.fr/Modules/VERSENIE.XM";;;;;;;;;;;;;;;;;;;;;
mus=CM(Adr.s):PlayMusic(Mus);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
OpenWindow(#Fenetre_principale,0,0,800,600,"Rotatif scroll",StyleFen);
If OpenWindowedScreen(WindowID(#Fenetre_principale),0,0,800,600,1,0,0)
CS(#sprite_fond,900,900);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
St(SpriteOutput(#sprite_fond)):For x=1 to 900-1 Step 10;;;;;
box(x,1,10,900,RGB(random(80,10),random(80,10),random(80,10))):Next x;
SD():CS(#sprite_milieu,900,900,;;;;;;;;;;;;;;;;;;;;
#PB_Sprite_AlphaBlending):St(SpriteOutput(#sprite_milieu));;
For x=1 to 900-1 Step 100:box(x,1,50,900,rgb(0,random(255,50),0));;;;;
Next x:SD():CS(#sprite_devant,900,900,;;;;;;;;;;;;;
#PB_Sprite_AlphaBlending):St(SpriteOutput(#sprite_devant));;
For i=1 to 500:Circle(Random(900-40),Random(900-40),10,Rgb(random(255,
50),random(255,50),random(255,50))):Next i:SD():Repeat:Repeat
EVent=WaitWindowEvent(2):Select EVent:Case #PB_Event_CloseWindow:End;;
EndSelect:Until EVent=0:retour.s=F_(50,-50,-100,anglef);;;;;;;;;
xf=VS(retour.s,1,"|")):yf=VS(retour.s,2,;;;;
"|")):anglef=anglef+2:DTS(#sprite_fond,xf,yf);;;;
retour.s=F_(100,-50,-100,anglem):xm=VS(retour.s,1,;
"|")):ym=VS(retour.s,2,"|")):anglem=anglem-3;;;;;;;;;;;;;
TS(#sprite_milieu,$0);;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DTS(#sprite_milieu,xm,ym,200);;;;;;;;;;;;;;;;;;;;
retour.s=F_(30,-50,-100,angled):xd=VS(retour.s,1,;;
"|")):yd=VS(retour.s,2,"|")):angled=angled+4;;;;;;;;;;;;;
TS(#sprite_devant,$0);;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DTS(#sprite_devant,xd,yd,150):FlipBuffers();;;;;;
ClearScreen($0):ForEver:Else:Debug "plante !!":End:EndIf;;;;;;;;;;;;;;
Procedure.s F_(AA,x,y,angle):xf=x+;;;;;;;;;;;;;;;;;;;;;;;
Cos(Radian(Angle))*AA:yf=y+Sin(Radian(Angle))*AA;;;;;;;;
ProcedureReturn str(xf)+"|"+str(yf):EndProcedure;;;;;;;;;;;;;;;;;;;;;;
Procedure CM(Adr$):InitNetwork():Protected Music;;;;;;;;;;
*Buffer=ReceiveHTTPMemory(Adr$):If*Buffer:Music=CatchMusic(#PB_Any,;;;
*Buffer,MemorySize(*Buffer)):FreeMemory(*Buffer):ProcedureReturn Music
Else:ProcedureReturn #false:EndIf:EndProcedure;;;;;;;;;;;;;;;;;;;;;;;;

falsam · Message par **falsam** » lun. 25/juil./2016 10:16

Merci djes. Jouer avec les coordonnées UV me semble pas optimum pour faire du scrolling horizontal et/ou vertical d'un sprite en particulier pour scroller 5 layers en meme temps.

Ar-S · Message par **Ar-S** » lun. 25/juil./2016 11:15

Et mon second code ne te va pas ?

Zorro · Message par **Zorro** » lun. 25/juil./2016 11:19

@Ar-s : ce matin et hier, j'avais pas vraiment compris ton code
je pensai que tu clipais uniquement pour faire entrer ton scroll dans la fenetre

j'avais pas percuté que tu clippais, mais que tu reposais au debut (pos 0 )
donc j'avais commencé une reponse en disant que ton clip ne servait a rien

djes · Message par **djes** » lun. 25/juil./2016 11:25

falsam a écrit :Merci djes. Jouer avec les coordonnées UV me semble pas optimum pour faire du scrolling horizontal et/ou vertical d'un sprite en particulier pour scroller 5 layers en meme temps.

Pourquoi ?

falsam · Message par **falsam** » lun. 25/juil./2016 11:32

@Djes: La manipulation passe bien par transform Sprite ?

@Ar-s : Avant de te crier ma joie je m'assure que ton code répond à toutes mes attentes

- Scroll Vertical
- Scroll Horizontal
- Scroll Horizontal et Vertical.
- Zoom
- Rotation

djes · Message par **djes** » lun. 25/juil./2016 13:22

falsam a écrit :@Djes: La manipulation passe bien par transform Sprite ?

C'est plutôt en 3D. Avant on jouait directement avec les structures internes de PB pour les coordonnées UV des sprites, mais je ne sais pas si c'est toujours faisable. Sans doute les fonctions clipsprite() et transformsprite() utilisent-elles ce "stratagème", mais sans savoir comment en interne, c'est difficile de donner une méthode fiable !

Bernie · Message par **Bernie** » lun. 25/juil./2016 14:38

Merci pour vos codes j'en prend pas mal .

blendman · Message par **blendman** » mer. 27/juil./2016 9:32

Jouer avec les coordonnées UV me semble pas optimum pour faire du scrolling horizontal et/ou vertical d'un sprite en particulier pour scroller 5 layers en meme temps.

En fait, ça dépend surtout de la taille des images qu'on scroll.
J'ai testé sur certains de mes jeux un scrolling vertical de 3 ou 4 images en 1024*600 et ça peut vite faire ramer sur des petites configurations comme mon pc.
A ce niveau-là, étrangement, utiliser 2 fois la même image l'une après l'autre semble être moins gourmand (toujours sur mon pc en carton ^^).

Zorro · Message par **Zorro** » mer. 27/juil./2016 9:46

blendman a écrit :En fait, ça dépend surtout de la taille des images qu'on scroll.
J'ai testé sur certains de mes jeux un scrolling vertical de 3 ou 4 images en 1024*600 et ça peut vite faire ramer sur des petites configurations comme mon pc.
A ce niveau-là, étrangement, utiliser 2 fois la même image l'une après l'autre semble être moins gourmand (toujours sur mon pc en carton ^^).

un pc sans carte graph correcte, ok , mais de nos jours beaucoup ont une petite carte grah avec de la ram dessus
(bon pas le portable que j'utilise actuellement

)

ce qui prends du temps c'est pas le scrolling, mais le Stock/transfert des images .
l'image qu'on transfert aux coordonées hors ecran ...avant de la faire apparaître ...
pour le mouvement,je crois, qu'il vaux mieux avoir des images (ou sprites ) de taille compatible puissance 2
les processeurs travaillent mieux avec ...
plus la taille des images est grande, plus ça prends du temps ... (sur de petites config )

falsam · Message par **falsam** » mer. 27/juil./2016 10:12

Hello ici.

Encore merci pour tous ces exemples. Mais qui ne répondent pas à ma demande de pouvoir scroller dans un sprite horizontalement et/ou verticalement.

-Le scroll n'occupe pas forcément toute la largeur de l'ecran
-L'image à scroller avoir la même largeur que le sprite voir même plus petite.

Ne réussissant pas à le faire en 2D voila ce que je souhaite faire en 2D avec ce code

Code : Tout sélectionner

InitEngine3D() : InitKeyboard() : InitSprite()

window = OpenWindow(#PB_Any,0,0,800,600,"Scrolling Sprite")
OpenWindowedScreen(WindowID(window),0,0,800,600)
Add3DArchive(#PB_Compiler_Home + "Examples\3D\Data\Textures\", #PB_3DArchive_FileSystem)

Mesh = CreatePlane(#PB_Any, 1, 1, 1, 1, 1, 1)
Texture = LoadTexture(#PB_Any, "MRAMOR6X6.jpg")
Material1 = CreateMaterial(#PB_Any,TextureID(texture))
Material2 = CreateMaterial(#PB_Any,TextureID(texture))
Material3 = CreateMaterial(#PB_Any,TextureID(texture))

Sprite1 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material1), -2, 0, 0)
RotateEntity(Sprite1, 90, 0, 0, #PB_Relative)

Sprite2 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material2), 0, 0, 0)
RotateEntity(Sprite2, 90, 0, 0, #PB_Relative)

Sprite3 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material3), 2, 0, 0)
RotateEntity(Sprite3, 90, 0, 0, #PB_Relative)

CreateLight(#PB_Any,RGB(151, 251, 151), 0, 0, 50)
WorldShadows(#PB_Shadow_Additive)

Camera = CreateCamera(#PB_Any, 0, 0, 100, 100)
MoveCamera(Camera, 0, 0, 5)
CameraBackColor(Camera, RGB(128, 128, 128))
CameraLookAt(camera, 0, 0, 0)

While #True  
  Event = WindowEvent()
  
  ScrollMaterial(Material1, 0.2, 0, #PB_Material_Animated)
  ScrollMaterial(Material2, 0, 0.2, #PB_Material_Animated)
  ScrollMaterial(Material3, 0.2, 0.2, #PB_Material_Animated)
  
  ExamineKeyboard()  
  
  If Event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
    Break
  EndIf  
      
  RenderWorld()
  FlipBuffers()
Wend

PS ce code est est un exemple de ce que je souhaite faire en 2D

Ar-S · Message par **Ar-S** » mer. 27/juil./2016 10:49

Du coup pourquoi ne pas le faire en 3D en simulant de la 2D ?

falsam · Message par **falsam** » mer. 27/juil./2016 10:55

Ar-S a écrit :Du coup pourquoi ne pas le faire en 3D en simulant de la 2D ?

Parce que si j'utilise que l'axe x et y les superposition d'images peuvent poser des soucis d'affichage.

Exemple : Remplace la ligne

Code : Tout sélectionner

Sprite2 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material2), 0, 0, 0)

par

Code : Tout sélectionner

Sprite2 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material2), 2, 0, 0)

Tu devrais avoir un effet d'affichage marrant mais pas souhaité.

Ar-S · Message par **Ar-S** » mer. 27/juil./2016 10:59

Je code jamais en 3D alors je dis peut être une connerie mais en jouant sur le Z tu crées comme des "calques" en affichant ton scroll plus loin que ton sprite principale etc.. ? Sprite2 = CreateEntity(#PB_Any, MeshID(Mesh), MaterialID(Material2), 0, 0, 2) ou -2 pour eloigner

falsam · Message par **falsam** » mer. 27/juil./2016 11:11

@Ar-s: Oui je pourrais jouer avec l'axe z mais dans ce cas je ne peux plus tester les collisions de sprites.

PureBasic

[2D] Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling

Re: Sprite Scrolling