|
|
Post by philip on Apr 21, 2011 14:47:41 GMT -5
Hello at all Scroll problem (Saccadic scrolling) with DrawTiles area scroll A: 1536*512 ;D  scroll A:  scroll B:  source code: www.mirari.fr/TYXCscroll A subroutine(convert asm subroutine?) declare sub rendera(x1 as integer, x2 as integer, y1 as integer, y2 as integer)
For Y=y1 to y2
For X=x1 to x2
if sca(X,Y)=0 then
drawtiles tile_mapa,672+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=1 then
drawtiles tile_mapa,575+sca(X,Y)+palette(1),X*4,Y*2,4,2 ' 576-1 = 575
endif
if sca(X,Y)=2 then
drawtiles tile_mapa,582+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=3 then
drawtiles tile_mapa,589+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=4 then
drawtiles tile_mapa,596+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=5 then
drawtiles tile_mapa,603+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=6 then
drawtiles tile_mapa,610+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=7 then
drawtiles tile_mapa,617+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=8 then
drawtiles tile_mapa,624+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=9 then
drawtiles tile_mapa,631+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=10 then
drawtiles tile_mapa,638+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=11 then
drawtiles tile_mapa,645+sca(X,Y)+palette(1),X*4,Y*2,4,2 ' 656-11 = 645
endif
if sca(X,Y)=12 then
drawtiles tile_mapa,652+sca(X,Y)+palette(1),X*4,Y*2,4,2 ' 664-12 = 652
endif
Next X
Next Y
exit sub
end sub' SCROLL A: 8 tiles (chacune d'une taille de 8*8)
tile_mapa:
data 0, 1, 2, 3
data 4, 5, 6, 7Thanks, philippe |
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 21, 2011 20:55:35 GMT -5
Nicely done. Scrolling is a bit choppy in some spots (at least for me), but over all a good scroll engine.
|
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 22, 2011 9:12:02 GMT -5
Maybe the "bit choppy" part is the "scroll problem" philip mentioned?
|
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 22, 2011 11:56:36 GMT -5
Oh, probably. I was really tired when I saw this thread lol
|
|
|
|
Post by philip on Apr 25, 2011 10:09:47 GMT -5
Hello, My little level editor (PC Windows seven) ;D www.mirari.fr/UT4tleveleditgen4832.exe tile64.png lisezmoi.txt Quit: Esc MENU Select Word and level with keyboard directional (up/down) push Enter for valid WORK keyboard: Backspace = return menu keyboard directional = area navigation numpad 1 or 2 or 3: speed area navigation 1 = select all Tiles (tile64.png) Space = Stop select all Tiles (tile64.png) mouse: clic left = valid Tiles your choice clic right = Tiles 0 D = Save (.dat) Thoughts ? |
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 26, 2011 13:48:08 GMT -5
The level editor crashes on my Windows 7 32 bit PC. I'll try it on XP soon. Is this a level editor for your saccadic scrolling engine?
|
|
|
|
Post by philip on Apr 26, 2011 17:43:07 GMT -5
The level editor crashes on my Windows 7 32 bit PC. I'll try it on XP soon. strange, you have tile64.png ? ps: I use PureBasic 4.41 (Windows - x86) The level editor crashes on my Windows 7 32 bit PC. I'll try it on XP soon. Is this a level editor for your saccadic scrolling engine? yes  |
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 26, 2011 19:33:37 GMT -5
 Not sure where to start .. there are quite a few things that you can improve ( a lot ). First of all, try to avoid using a heap of IF statements. Go with SELECT CASE instead, or even better .. don't use either when you can. For example .. if sca(X,Y)=1 then
drawtiles tile_mapa,575+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=2 then
drawtiles tile_mapa,582+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=3 then
drawtiles tile_mapa,589+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=4 then
drawtiles tile_mapa,596+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=5 then
drawtiles tile_mapa,603+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=6 then
drawtiles tile_mapa,610+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=7 then
drawtiles tile_mapa,617+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=8 then
drawtiles tile_mapa,624+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=9 then
drawtiles tile_mapa,631+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=10 then
drawtiles tile_mapa,638+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=11 then
drawtiles tile_mapa,645+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif
if sca(X,Y)=12 then
drawtiles tile_mapa,652+sca(X,Y)+palette(1),X*4,Y*2,4,2
endif.. can be rewritten as .. t = sca(x,y)*7+568+palette(1)
drawtiles tile_mapa,t,x*4,y*2,4,2Also, you don't need both rendera and renderb. Use the LblPtr& function to determine where you data is stored and use that as a argument in your function ( instead of relying on arrays ). There's a lot more to comment on, but I don't want to bombard you with too much at once  Good effort though, and creating a project-specific editor is a very good idea ~ |
|
|
|
Post by philip on Apr 27, 2011 17:32:37 GMT -5
Thanks for the compliments ;D new version (5jeu_scrolling1c.bex) www.mirari.fr/3cKJheap of IF statements = very greedy ! (4Ko) last 37,6 Ko --> and now 33,6 Ko
Use the LblPtr& function to determine where you data is stored and use that as a argument in your function ( instead of relying on arrays ).This is it ? drawtiles16 lblptr&(<TileMap>),<X Pos>,<Y Pos>,<Width>,<Height>,<Adder>
Declare Asm Sub DrawTiles16(d5.l, d0.w, d1.w, d2.w, d3.w, d4.w) ' d0=X, d1=Y, d2=Largo, d3=Alto, d4=Opcional
movea.l d5,a0
subq.b #1,d2
subq.b #1,d3
move.w #$2700,sr
and.l #63,d0
and.l #63,d1
and.l #511,d2
and.l #511,d3
lsl.w #6,d1
add.w d1,d0
move.w d2,d1
lsl.l #3,d0
lsr.w #2,d0
swap d0
add.l (GFX_PLANE),d0
move.w #$8F02,4(a4)
@1:
move.l d0,4(a4)
@2:
move.w (a0)+,d7
add.w d4,d7
move.w d7,(a4)
dbf d2,@2
add.l #$800000,d0
move.w d1,d2
dbf d3,@1
move.w #$2000,sr
End Sub5jeu_scrolling1d.bex www.mirari.fr/tWjqvram problem ? |
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Apr 28, 2011 6:20:29 GMT -5
The drawtiles16 sub uses that principle as well yes. Attached is a simple example how to use the data pointer written in Basic. Press A to draw Map A and press B to draw Map B. Attachments:
|
|
|
|
Post by philip on May 3, 2011 10:18:48 GMT -5
The drawtiles16 sub uses that principle as well yes. Attached is a simple example how to use the data pointer written in Basic. Press A to draw Map A and press B to draw Map B. thanks ! Well, i use Pointer now: www.mirari.fr/rW0wThoughts ? |
|
Deleted
Deleted Member
Posts: 0
|
Post by Deleted on May 11, 2011 13:33:20 GMT -5
I downloaded and compiled version .03 today. NICE WORK philip!!!!! Everything is very smooth but the tiles at the top of the screen are shearing when scrolling left or right. I have not tried your code on a real Genesis yet (just the Fusion emulator). Sadly, I'm just starting to learn BasiEgaXorz so I cannot help much. Please continue to post your work though! I'm sure some of the regulars will eventually peruse your work. |
|
