Rotating a TileMap

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|28\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Rotating a TileMap
Sun, 08 Apr 2018, 15:47
spinal	Did I once ask here about rendering a rotated tile map? -=-=- Check out my excellent homepage!
Sun, 08 Apr 2018, 15:47
Jayenkai	Do you mean just rotated, or Mode7 rotated?
Sun, 08 Apr 2018, 17:47
Jayenkai	BlitzMax code Graphics 512,512,0 SetClsColor 0,0,0 Global mapsize=128 Global blockImg:TImage[5] Global pixmap:TPixmap[5] Global tileMap[mapsizemapsize] 'Make some squares for tiles For n=0 To 4 pixmap[n]=CreatePixmap(16,16,PF_RGBA8888) col=$FF000000 If n=1 Then col=$FFFFFFFF If n=2 Then col=$FFFFFF00 If n=3 Then col=$FFFF8800 If n=4 Then col=$FF0088FF For x=0 To 15 For y=0 To 15 WritePixel(pixmap[n],x,y,col) Next Next blockImg[n]=LoadImage(pixmap[n]) Next 'Make a random tilemaps For x=0 To mapsize For y=0 To mapsize tileMap[y32+x]=Rand(0,4) Next Next SetColor(255,255,255) midtilex=mapsize/2 midtiley=mapsize/2 scrollx#=256 scrolly#=256 MoveMouse 256,256 Repeat Cls ' SPIIIIIIN!! ang#=ang+0.25 ' This rotates our sprites.. You probably don't have that luxury. 'SetRotation(ang) ' The magic happens in this function.. SpinTilemap(midtilex,midtiley,scrollx,scrolly,ang) ' Controls scrollx=MouseX() scrolly=MouseY() If KeyDown(KEY_LEFT) Then midtilex=midtilex-1 If KeyDown(KEY_RIGHT) Then midtilex=midtilex+1 If KeyDown(KEY_UP) Then midtiley=midtiley-1 If KeyDown(KEY_DOWN) Then midtiley=midtiley+1 If midtilex<0 Then midtilex=0 If midtilex>mapsize-1 Then midtilex=mapsize-1 If midtiley<0 Then midtiley=0 If midtiley>mapsize-1 Then midtiley=mapsize-1 Flip Until KeyDown(KEY_ESCAPE) Function SpinTilemap(CenterTileX,CenterTileY,CenterPixelX,CenterPixelY,Rotation#,Gap#=17.0) Local dx#,dy# Local OffsetXX#,OffsetXY# Local OffsetYX#,OffsetYY# ' First, find the tile offsets using slow sin/cos. We only need to do this once. ' OffsetXX and XY. The offset of a tile which is normally along the X row, when rotated at the requested rotation. OffsetXX=Sin(Rotation)gap OffsetXY=-Cos(Rotation)gap ' OffsetYX and YY. The offset of a tile which is normally along the Y column, when rotated at the requested rotation. OffsetYX=Sin(Rotation+90)gap OffsetYY=-Cos(Rotation+90)gap ' We then simply multiply these up and down, each tile, rather than having to redo the sin/cos every single time. For x=0 To mapsize For y=0 To mapsize dx=(((x-CenterTileX)OffsetXX)+((y-CenterTileY)OffsetYX))+CenterPixelX dy=(((x-CenterTileX)OffsetXY)+((y-CenterTileY)OffsetYY))+CenterPixelY DrawImage(blockImg[tileMap[y32+x]],dx,dy,0) Next Next End Function --v Additionally.. > Reveal 🔎 Graphics 512,512,0 SetClsColor 0,0,0 Global mapsize=128 Global blockImg:TImage[5] Global pixmap:TPixmap[5] Global tileMap[mapsizemapsize] 'Make some squares for tiles For n=0 To 4 pixmap[n]=CreatePixmap(16,16,PF_RGBA8888) col=$FF000000 If n=1 Then col=$FFFFFFFF If n=2 Then col=$FFFFFF00 If n=3 Then col=$FFFF8800 If n=4 Then col=$FF0088FF For x=0 To 15 For y=0 To 15 WritePixel(pixmap[n],x,y,col) If y>(160.3) Then WritePixel(pixmap[n],x,y,$00000000) Next Next blockImg[n]=LoadImage(pixmap[n]) Next 'Make a random tilemaps For x=0 To mapsize For y=0 To mapsize tileMap[y32+x]=Rand(0,4) Next Next SetColor(255,255,255) midtilex=mapsize/2 midtiley=mapsize/2 scrollx#=256 scrolly#=256 MoveMouse 256,256 Repeat Cls ' SPIIIIIIN!! ang#=ang+0.25 ' This rotates our sprites.. You probably don't have that luxury. 'SetRotation(ang) ' The magic happens in this function.. SpinTilemap(midtilex,midtiley,scrollx,scrolly,ang) ' Controls scrollx=MouseX() scrolly=MouseY() If KeyDown(KEY_LEFT) Then midtilex=midtilex-1 If KeyDown(KEY_RIGHT) Then midtilex=midtilex+1 If KeyDown(KEY_UP) Then midtiley=midtiley-1 If KeyDown(KEY_DOWN) Then midtiley=midtiley+1 If midtilex<0 Then midtilex=0 If midtilex>mapsize-1 Then midtilex=mapsize-1 If midtiley<0 Then midtiley=0 If midtiley>mapsize-1 Then midtiley=mapsize-1 Delay 5 Flip Until KeyDown(KEY_ESCAPE) Function SpinTilemap(CenterTileX,CenterTileY,CenterPixelX,CenterPixelY,Rotation#,Gap#=17.0) Local dx#,dy# Local OffsetXX#,OffsetXY# Local OffsetYX#,OffsetYY# ' First, find the tile offsets ' OffsetXX and XY. The offset of a tile which is normally along the X row, when rotated at the requested rotation. OffsetXX=Sin(Rotation)gap OffsetXY=-Cos(Rotation)gap ' OffsetYX and YY. The offset of a tile which is normally along the Y column, when rotated at the requested rotation. OffsetYX=Sin(Rotation+90)gap OffsetYY=-Cos(Rotation+90)gap OffsetYY=OffsetYY0.3 OffsetXY=OffsetXY0.3 ' We then simply multiply these up and down, each tile, rather than having to redo the sin/cos every single time. For x=0 To mapsize For y=0 To mapsize dx=(((x-CenterTileX)OffsetXX)+((y-CenterTileY)OffsetYX))+CenterPixelX dy=(((x-CenterTileX)OffsetXY)+((y-CenterTileY)OffsetYY))+CenterPixelY DrawImage(blockImg[tileMap[y*32+x]],dx,dy,0) Next Next End Function --v -=-=- ''Load, Next List!''
Tue, 10 Apr 2018, 08:09
spinal	That should do it... now to merge the idea with my rotated image, which not I think, is exactly the same so needn't have put your brain through that effort... -=-=- Check out my excellent homepage!