Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|714\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Mode 7 failure?
Fri, 03 Dec 2021, 05:15
spinal	Mode 7 failure? I know this code crashes, but I don't know why... Graphics 1250,768,0,2 Global texImage = LoadImage("F:\Pokitto\FemtoIDE\projects\BoxPusher\raw\floor.bmp") ; 64x64 tile SetBuffer FrontBuffer() x_ = 0.0 y_ = 0.0 scaleX = 32.0 scaleY = 32.0 For y = 0 To 600 y_ = y/z y_ = y_ * scaleY y_ = y_ Mod 32 For x = 0 To 800 x_ = x/z x_ = x_ * scaleX x_ = x_ Mod 32 SetBuffer ImageBuffer(texImage) GetColor(x_,y_) Color ColorRed(),ColorGreen(),ColorBlue() SetBuffer FrontBuffer() Plot x,y Next z=z+1 Next While Not KeyHit(1) Delay 1 Wend End --v I get nothing on the screen and then it closes, even though it should wait until 'Esc' -=-=- Check out my excellent homepage!
Fri, 03 Dec 2021, 05:32
Jayenkai	First guess. You've done a "/z" before you've set z, so z would be 0, so it's a division by zero. -=-=- ''Load, Next List!''
Fri, 03 Dec 2021, 05:54
cyangames	Ooohhhh, Mode 7 ehhhh? (looks excitedly about the place) -=-=- Web / Game Dev, occasionally finishes off coding games also!
Fri, 03 Dec 2021, 06:46
spinal	Divide by zero eh? Yup, that sounds like me alright -=-=- Check out my excellent homepage!
Fri, 03 Dec 2021, 09:11
spinal	Graphics 900,768,0,2 Global texImage = LoadImage("F:\Pokitto\FemtoIDE\projects\BoxPusher\raw\floor.bmp") ; 64x64 tile shiftAmount = 16 Dim myTile(6464,3) SetBuffer ImageBuffer(texImage) ; Grab all of the pixels from the tile image for speed later on For y = 0 To 63 For x = 0 To 63 GetColor(x,y) myTile(x+64y,0) = ColorRed() myTile(x+64y,1) = ColorGreen() myTile(x+64y,2) = ColorBlue() Plot 820 + x, 80+y Next Next SetBuffer BackBuffer() DrawBlock texImage,820,0 z=-300 x_ = 0 y_ = 0 scaleX = 64 scaleY = 64 For y = 0 To 600 y_ = (yscaleY Shl shiftAmount) / z y_ = (y_ Shr shiftAmount) And 63 y2 = y2 + yAdder xAdder = (scaleX Shl shiftAmount) / z x2 = -400 xAdder ; multiply is usually costly, so move this out here y2 = 64 * y_ ; try and keep this loop as fast as possible For x = -400 To 400 x_ = (x2 Shr shiftAmount) And 63 ; same as mod 64, might be faster x2 = x2 + xAdder pixel = x_ + y2 Color myTile(pixel,0),myTile(pixel,1),myTile(pixel,2) Plot x+400,y Next z=z+1 If z = 0 Then z = 1 Flip If KeyHit(1) End Next While Not KeyHit(1) Delay 1 Wend End --v A bit slow, but there seems to be something wrong with the y or z calculation, notice the tiles are the wrong way around and seem to mirror part way down the bottom half... -=-=- Check out my excellent homepage!
Fri, 03 Dec 2021, 12:24
Jayenkai	The quirk is happening on y-line 512, which, when you multiply it by 64 then shift left by 16, as you're doing, hits the 32 bit number limit of B3d. Repeat n=n+1 y=(n64) Shl 16 DebugLog n+":"+y Flip Until KeyDown(1) --v You'll need to find a way around that.. shrugs* Additional tweak. Might help, might not. myTile(x+64*y,2) = ColorRed() Shl 16 + ColorGreen() Shl 8 + ColorBlue() Color 0,0,myTile(pixel,2) --v This is one array lookup, instead of three. Not sure if it's quicker, though. Remote Desktop breaks any possible speed ups!! -=-=- ''Load, Next List!''

Mode 7 failure?