Little Spinning Grid

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|661\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Jayenkai	Created : 11 May 2016 Edited : 11 May 2016 Little Spinning Grid Handy for Tetris!
I'm not 100% sure these will come in handy to anyone, but I just had to figure the bloomin' things out for the umpteenth time, and thought it might be a good idea to jot them down for a change! Assuming your tiles are in an array of 4x4 blocks, where n=(y4)+x, these are the grid placement values for the two main rotations. 0 (y4)+x 0,0 1,0 2,0 3,0 0 1 2 3 0,1 1,1 2,1 3,1 4 5 6 7 0,2 1,2 2,2 3,2 8 9 10 11 0,3 1,3 2,3 3,3 12 13 14 15 -1 (x4)+(3-y) 3,0 3,1 3,2 3,3 3 7 11 15 2,0 2,1 2,1 2,1 2 6 10 14 1,0 1,1 1,2 1,3 1 5 9 13 0,0 0,1 0,2 0,3 0 4 8 12 1 ((3-x)4)+y 0,3 0,2 0,1 0,0 12 8 4 0 1,3 1,2 1,1 1,0 13 9 5 1 2,3 2,2 2,1 2,0 14 10 6 2 3,3 3,2 3,1 3,0 15 11 7 3 --v Example usage (Blitz2D/3D/Plus) Graphics 800,600,32,2 Global grid[16] Global gridtemp[16] txt$="ABCDEFGHIJKLMNOP" n=0 For y=0 To 3 For x=0 To 3 grid[n]=Asc(Mid$(txt$,n+1,1)) n=n+1 Next Next font=LoadFont("Arial",64,1) SetFont font Repeat Cls If KeyHit(203) Then Spin(-1) If KeyHit(205) Then Spin(1) For x=0 To 3 For y=0 To 3 Text((x64)+32,(y64)+32,Chr$(grid[(y4)+x]),1,1) Next Next Flip Until KeyDown(1) Function Spin(direction) For x=0 To 3 For y=0 To 3 i=(y4)+x u=(x4)+(3-y) If direction=1 Then u=((3-x)4)+y gridtemp[i]=grid[u] Next Next For x=0 To 3 For y=0 To 3 i=(y*4)+x grid[i]=gridtemp[i] Next Next End Function --v

Comments
Wednesday, 11 May 2016, 13:45
Pakz	I do not understand what happens in those relevant lines but for what it does it is useful.

Little Spinning Grid

Comments