Multi-axe Scrolling VDP(24) VDP(27)

La Place des Développeurs Multi-axe Scrolling VDP(24) VDP(27) Scrolling avec de multiples axes.

Jipe

Maire-adjoint

Rang

Inscrit le : 02/10/2009 à 19h41

Messages: 10731

Le 22/04/2015 à 18h51

Reprise du message précédent

peux tu mettre les listings basic en ligne ?

j'ai vu sur MRC que la vidéo provient de BlueMSX

as tu les mêmes résultats avec un vrai MSX équipé de V9958 ?

Site web

igal

Conseiller Municipal

Rang

Groupe : compte ++

Inscrit le : 29/07/2010 à 17h19

Messages: 5492

Le 23/04/2015 à 18h46

Salut Jipe.

Les vidéos sont toutes faites sur BlueMSX. Ca fait plus d'un an que j'ai plus le temps de mettre la main sur le hardware

Si tu te dévoues à tester sur un vrai MSX ce serait cool

Effectivement, il faut un 9958 pour VDP(27)!

Code TEXT :

 
10      'save"scint07.asc",a
20 SCREEN10:VDP(10)=2:COLOR0,0,0:VDP(3)=VDP(3)XOR255:'VDP(14)=&H33:VDP(10)=VDP(10)OR4:VDP(9)=VDP(9)OR2
30 SETPAGE1,1:BLOAD"susbas.sca",S,0+27136+27136
40 SETPAGE0,0:BLOAD"sousbas.sca",S,0+27136+27136
50 SETPAGE1,1:BLOAD"dessus.sca",S
60 SETPAGE0,0:BLOAD"dessous.sca",S
70 A=A+255AND255:SETPAGE0:VDP(27)=VDP(27)+AAND255:SETPAGE1:VDP(27)=0
80 A=A+255AND255:SETPAGE0:VDP(27)=VDP(27)+AAND255:SETPAGE1:VDP(27)=0XORA
90 IFINKEY$=""THEN80
100 A=A+255AND255:SETPAGE0:VDP(24)=VDP(24)+AAND255:SETPAGE1:VDP(24)=0
110 A=A+255AND255:SETPAGE0:VDP(24)=VDP(24)+AAND255:SETPAGE1:VDP(24)=0XORA
120 IFINKEY$=""THEN110
125 VDP(10)=VDP(10)OR4:VDP(24)=VDP(24)AND0:VDP(24)=VDP(24)+44
130 A=A+1MOD255:SETPAGE1
140 VDP(27)=VDP(27)-AAND255:VDP(24)=VDP(27)MOD255
150 VDP(27)=VDP(27)=0AND255:VDP(24)=VDP(24)
160 IFINKEY$=""THEN130
170 GOTO70

Voici un ZIP contenant tous les éléments permettant de faire la vidéo ci dessous.
DESSUS DESSOUS.zip

Il s'agit de MARS et la TERRE avec leurs Satellites respectifs. (J'trouve ça joli