help with moving rectangles...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|678\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> help with moving rectangles...
Mon, 14 Jul 2008, 07:12
spinal	First of all, i'm not mentioning the actual name of what i'm trying to imitate, mostly because i dont want google comming in and giving the code to everyone and his dog. Jay has kindly put together some nice code for scrolling some rectangles from the left of the screen to the right, warping them along the way to give some perspective. what im trying to do, is get the rectangles to do the same after half way as before it, exept the opposite way around, you'll see. anyway, heres the code (slightly tweaked from what jay did, to get better perspective in the first half of the screen at least)... Graphics 256,192,32,2 SetBuffer BackBuffer() Repeat Cls For n=-4 To 4 ; x#=((Float(MouseX())3)-128)+n32 x#=(Float(MouseX())-128)+n32 DrawAt(x) Next Flip Until KeyDown(1) End Function DrawAt(x#) ; Simple rectangle x1#=x-(x/12) x4#=x-(x/12) x2#=x+(x/12) x3#=x+(x/12) ; Make X = < -- 0 -- > ; rather than < -- 128 -- > x=x-128 ; pop in the "far" side a wee bit.. y1#=100 y2#=100-(x/8) y3#=164+(x/8) y4#=164 d#=1.2 ; How much we multiply when in boundary If Abs(x)<32 ; Do the boundary adding.. add#=((32d)-Abs(x*d)) x1=x1-add x2=x2+add x3=x3+add x4=x4-add y1=y1-add/2 y2=y2-add/2 y3=y3+add/2 y4=y4+add/2 EndIf ; Draw.. Line x1,y1,x2,y2 Line x2,y2,x3,y3 Line x3,y3,x4,y4 Line x4,y4,x1,y1 Line x1,y1,x3,y3 Line x2,y2,x4,y4 End Function --v So if anyone can have a stab at mirroring the first half of the screen, please do, i cant think right now, too lazy/bored/tired. and try not to mention the name of the thing its immitating -=-=- Check out my excellent homepage!
Mon, 14 Jul 2008, 09:06
Jayenkai	Graphics 256,192,32,2 SetBuffer BackBuffer() Repeat Cls For n=-4 To 4 x#=((Float(MouseX())2)-128)+n32 DrawAt(x) Next Flip Until KeyDown(1) Function DrawAt(x#) ; Simple rectangle x1#=x x4#=x x2#=x+16 x3#=x+16 ; Make X = < -- 0 -- > ; rather than < -- 128 -- > x=x-128 ; ^ After this line, X is centered.. ; If you use none-abs(x), you get -X to 0 to X ; If you use abs(x), you get X to 0 to X ; pop in the "far" side a wee bit.. y1#=100 y2#=100-(x/24) y3#=164+(x/24) y4#=164 x1#=x1+Abs(x/18) x2#=x2-Abs(x/18) x3#=x3-Abs(x/18) x4#=x4+Abs(x/18) ; The reason this wasn't working earlier was because... ; You do -x, then +x, so the left goes less to the left, and the right goes more to the left... ; That meant it'd flip leftward quicker.. (or something!) ; But when you hit the right, the SAME was happening. ; The left carries on moving slower than the right, so the flip-flop wasn't happening. ; By switching to Abs(x) instead, we get one thing happening one way.. ; And the other happening the other way... d#=1.5 ; How much we multiply when in boundary If Abs(x)<32 ; Do the boundary adding.. add#=((32d)-Abs(xd)) x1=x1-add x2=x2+add x3=x3+add x4=x4-add y1=y1-add/2 y2=y2-add/2 y3=y3+add/2 y4=y4+add/2 EndIf ; Draw.. Color 255,255,255 Line x1,y1,x2,y2 Line x2,y2,x3,y3 Line x3,y3,x4,y4 Line x4,y4,x1,y1 Line x1,y1,x3,y3 ; Draw with top below bottom for the reflection.. Color 128,128,128 Line x1,y4+(y4-y1),x2,y3+(y3-y2) Line x2,y3+(y3-y2),x3,y3 ; Line x3,y3,x4,y4 ; Don't need this bit.. Line x4,y4,x1,y4+(y4-y1) Line x1,y4+(y4-y1),x3,y3 ; Oh, and for the record, I drew the single line, not the X, so's you could tell which side's the front.. ; If you draw the full X, you can't tell if you've fucked it up and made the front the back accidentally! End Function --v -=-=- ''Load, Next List!''
Tue, 15 Jul 2008, 02:54
spinal	my best solution, im going to cheat also, and just record the corners into a lookup. Graphics 256,192,32,3 SetBuffer BackBuffer() Global picture = LoadImage("icon.bmp") ; SetBuffer BackBuffer() Global MX Repeat Cls x1#=(Float(MX)-32)+32 DrawAt(x1) mx=mx+1 If mx>255 Then mx=0 ;WaitKey() ;End End If Flip Until KeyDown(1) End Function DrawAt(x#) second=0 If x>128 Then second=1 x=256-x End If ; Simple rectangle x1#=x-(x/12) x4#=x-(x/12) x2#=x+(x/12) x3#=x+(x/12) ; Make X = < -- 0 -- > ; rather than < -- 128 -- > ; If second=0 Then x=x-128 ; Else ; x=(128-x) ; End If ; pop in the "far" side a wee bit.. y1#=100 y2#=100-(x/8) y3#=145+(x/8) y4#=145 d#=0.45 ; How much we multiply when in boundary If Abs(x)<48 ; Do the boundary adding.. add#=((48d)-Abs(xd)) x1=x1-add x2=x2+add x3=x3+add x4=x4-add d#=0.4 ; How much we multiply when in boundary add#=((48d)-Abs(xd)) y1=y1-add/2 y2=y2-add/2 y3=y3+add/2 y4=y4+add/2 EndIf ; If x2-x1<64 Then x2=x2+1 x3=x3+1 ; Draw.. ; Line x1,y1,x2,y2 ; Line x2,y2,x3,y3 ; Line x3,y3,x4,y4 ; Line x4,y4,x1,y1 ; Line x1,y1,x3,y3 ; Line x2,y2,x4,y4 Text 10,10,mx If second=0 Then DrawImageWarped picture, x1,y1, x2,y2 , x3,y3, x4,y4 Else DrawImageWarped picture, 256-x2,y2, 256-x1,y1 , 256-x4,y4, 256-x3,y3 End If End Function Function DrawImageWarped(img,x1#,y1#,x2#,y2#,x3#,y3#,x4#,y4#) fx#=x1 fy#=y1 x4=x4-fx y4=y4-fy x3=x3-fx y3=y3-fy x2=x2-fx y2=y2-fy x1=x1-fx y1=y1-fy nx#=0 ny#=0 LockBuffer ImageBuffer(img) LockBuffer BackBuffer() For x#=0 To ImageWidth(img)-1 For y#=0 To ImageHeight(img)-1 argb=ReadPixelFast(x,y,ImageBuffer(img)) nx=((x2-x1)/ImageWidth(img))x nx=nx+(((x4-x1)/ImageHeight(img))y) nx=nx+(((((x3-x4)-(x2-x1))/ImageHeight(img))y)/ImageWidth(img))x ny=((y2-y1)/ImageWidth(img))x ny=ny+(((y4-y1)/ImageHeight(img))y) ny=ny+(((((y3-y4)-(y2-y1))/ImageHeight(img))y)/ImageWidth(img))x WritePixelFast nx+fx,ny+fy,argb,BackBuffer() Next Next UnlockBuffer ImageBuffer(img) UnlockBuffer BackBuffer() End Function --v -=-=- Check out my excellent homepage!
Tue, 15 Jul 2008, 03:05
Jayenkai	Hehe.. I tried that, yesterday, but gave up when it got to doing the whole Z-Buffer stuff! Graphics 256,192,32,2 SetBuffer BackBuffer() Global scrw=256 Global scrh=192 x#=0:y#=0 Global picture = CreateImage(128,115) SetBuffer ImageBuffer(picture) For x=0 To 128 For y=0 To 115 Color Rand(8,12)15,Rand(8,16)15,Rand(12,16)15 Plot x,y Next Next Color 255,0,0 Text 0,0,"This is an image" Color 0,255,0 Text 0,50,"This is an image" Color 0,0,255 Text 0,100,"This is an image" SetBuffer BackBuffer() Repeat Cls For n=-2 To 2 x#=((Float(MouseX())2)-128)+n32 DrawAt(x,picture) Next Flip Until KeyDown(1) Function DrawAt(x#,picture) ; Simple rectangle x1#=x x4#=x x2#=x+16 x3#=x+16 ; Make X = < -- 0 -- > ; rather than < -- 128 -- > x=x-128 ; ^ After this line, X is centered.. ; If you use none-abs(x), you get -X to 0 to X ; If you use abs(x), you get X to 0 to X ; pop in the "far" side a wee bit.. y1#=100 y2#=100-(x/24) y3#=164+(x/24) y4#=164 x1#=x1+Abs(x/18) x2#=x2-Abs(x/18) x3#=x3-Abs(x/18) x4#=x4+Abs(x/18) ; The reason this wasn't working earlier was because... ; You do -x, then +x, so the left goes less to the left, and the right goes more to the left... ; That meant it'd flip leftward quicker.. (or something!) ; But when you hit the right, the SAME was happening. ; The left carries on moving slower than the right, so the flip-flop wasn't happening. ; By switching to Abs(x) instead, we get one thing happening one way.. ; And the other happening the other way... d#=1.5 ; How much we multiply when in boundary dd#=0.5 If Abs(x)<32 ; Do the boundary adding.. dd#=(Abs(x))/92 add#=((32d)-Abs(xd)) x1=x1-add x2=x2+add x3=x3+add x4=x4-add y1=y1-add/2 y2=y2-add/2 y3=y3+add/2 y4=y4+add/2 EndIf ; Draw.. Color 255,255,255 Line x1,y1,x2,y2 Line x2,y2,x3,y3 Line x3,y3,x4,y4 Line x4,y4,x1,y1 Line x1,y1,x3,y3 ; Draw with top below bottom for the reflection.. Color 128,128,128 Line x1,y4+(y4-y1),x2,y3+(y3-y2) Line x2,y3+(y3-y2),x3,y3 ; Line x3,y3,x4,y4 ; Don't need this bit.. Line x4,y4,x1,y4+(y4-y1) Line x1,y4+(y4-y1),x3,y3 ; Oh, and for the record, I drew the single line, not the X, so's you could tell which side's the front.. ; If you draw the full X, you can't tell if you've fucked it up and made the front the back accidentally! DrawImageWarped (picture,x1,y4+(y4-y1),x2,y3+(y3-y2),x3,y3,x4,y4,0.75-dd) DrawImageWarped (picture,x1,y1,x2,y2,x3,y3,x4,y4,1-dd) End Function Function DrawImageWarped(img,x1#,y1#,x2#,y2#,x3#,y3#,x4#,y4#,drk#=1) fx#=x1 fy#=y1 x4=x4-fx y4=y4-fy x3=x3-fx y3=y3-fy x2=x2-fx y2=y2-fy x1=x1-fx y1=y1-fy nx#=0 ny#=0 LockBuffer ImageBuffer(img) LockBuffer BackBuffer() For x#=0 To ImageWidth(img)-1 For y#=0 To ImageHeight(img)-1 argb=ReadPixelFast(x,y,ImageBuffer(img)) If drk#<>1 Then argb=(255 Shl 24)+(Int(((argb And $FF0000)Shr 16)drk) Shl 16) + (Int(((argb And $FF00)Shr 8)drk) Shl 8) + (Int(((argb And $0000FF))drk)) nx=((x2-x1)/ImageWidth(img))x nx=nx+(((x4-x1)/ImageHeight(img))y) nx=nx+(((((x3-x4)-(x2-x1))/ImageHeight(img))y)/ImageWidth(img))x ny=((y2-y1)/ImageWidth(img))x ny=ny+(((y4-y1)/ImageHeight(img))y) ny=ny+(((((y3-y4)-(y2-y1))/ImageHeight(img))y)/ImageWidth(img))x If Int(nx+fx)=>0 And Int(nx+fx)<=scrw-1 And Int(ny+fy)=>0 And Int(ny+fy)<=scrh-1 WritePixelFast Int(nx+fx),Int(ny+fy),argb,BackBuffer() EndIf Next Next UnlockBuffer ImageBuffer(img) UnlockBuffer BackBuffer() End Function --v -=-=- ''Load, Next List!''
Tue, 15 Jul 2008, 16:52
spinal	i've gone with the following, just need to drap the array into a text file and sort out the c-side of things. Graphics 256,192,32,2 SetBuffer BackBuffer() Global scrw=256 Global scrh=192 x#=0:y#=0 Global picture = CreateImage(128,115) SetBuffer ImageBuffer(picture) For x=0 To 128 For y=0 To 115 Color Rand(8,12)15,Rand(8,16)15,Rand(12,16)15 Plot x,y Next Next Color 255,0,0 Text 0,0,"This is an image" Color 0,255,0 Text 0,50,"This is an image" Color 0,0,255 Text 0,100,"This is an image" SetBuffer BackBuffer() Repeat Cls For n=-2 To 2 x#=((Float(MouseX())2)-128)+n32 DrawAt(x,picture) Next Flip Until KeyDown(1) Function DrawAt(x#,picture) ; Simple rectangle x1#=x x4#=x x2#=x+16 x3#=x+16 ; Make X = < -- 0 -- > ; rather than < -- 128 -- > x=x-128 ; ^ After this line, X is centered.. ; If you use none-abs(x), you get -X to 0 to X ; If you use abs(x), you get X to 0 to X ; pop in the "far" side a wee bit.. y1#=100 y2#=100-(x/24) y3#=164+(x/24) y4#=164 x1#=x1+Abs(x/18) x2#=x2-Abs(x/18) x3#=x3-Abs(x/18) x4#=x4+Abs(x/18) ; The reason this wasn't working earlier was because... ; You do -x, then +x, so the left goes less to the left, and the right goes more to the left... ; That meant it'd flip leftward quicker.. (or something!) ; But when you hit the right, the SAME was happening. ; The left carries on moving slower than the right, so the flip-flop wasn't happening. ; By switching to Abs(x) instead, we get one thing happening one way.. ; And the other happening the other way... d#=1.5 ; How much we multiply when in boundary dd#=0.5 If Abs(x)<32 ; Do the boundary adding.. dd#=(Abs(x))/92 add#=((32d)-Abs(xd)) x1=x1-add x2=x2+add x3=x3+add x4=x4-add y1=y1-add/2 y2=y2-add/2 y3=y3+add/2 y4=y4+add/2 EndIf ; Draw.. Color 255,255,255 Line x1,y1,x2,y2 Line x2,y2,x3,y3 Line x3,y3,x4,y4 Line x4,y4,x1,y1 Line x1,y1,x3,y3 ; Draw with top below bottom for the reflection.. Color 128,128,128 Line x1,y4+(y4-y1),x2,y3+(y3-y2) Line x2,y3+(y3-y2),x3,y3 ; Line x3,y3,x4,y4 ; Don't need this bit.. Line x4,y4,x1,y4+(y4-y1) Line x1,y4+(y4-y1),x3,y3 ; Oh, and for the record, I drew the single line, not the X, so's you could tell which side's the front.. ; If you draw the full X, you can't tell if you've fucked it up and made the front the back accidentally! DrawImageWarped (picture,x1,y4+(y4-y1),x2,y3+(y3-y2),x3,y3,x4,y4,0.75-dd) DrawImageWarped (picture,x1,y1,x2,y2,x3,y3,x4,y4,1-dd) End Function Function DrawImageWarped(img,x1#,y1#,x2#,y2#,x3#,y3#,x4#,y4#,drk#=1) fx#=x1 fy#=y1 x4=x4-fx y4=y4-fy x3=x3-fx y3=y3-fy x2=x2-fx y2=y2-fy x1=x1-fx y1=y1-fy nx#=0 ny#=0 LockBuffer ImageBuffer(img) LockBuffer BackBuffer() For x#=0 To ImageWidth(img)-1 For y#=0 To ImageHeight(img)-1 argb=ReadPixelFast(x,y,ImageBuffer(img)) If drk#<>1 Then argb=(255 Shl 24)+(Int(((argb And $FF0000)Shr 16)drk) Shl 16) + (Int(((argb And $FF00)Shr 8)drk) Shl 8) + (Int(((argb And $0000FF))drk)) nx=((x2-x1)/ImageWidth(img))x nx=nx+(((x4-x1)/ImageHeight(img))y) nx=nx+(((((x3-x4)-(x2-x1))/ImageHeight(img))y)/ImageWidth(img))x ny=((y2-y1)/ImageWidth(img))x ny=ny+(((y4-y1)/ImageHeight(img))y) ny=ny+(((((y3-y4)-(y2-y1))/ImageHeight(img))y)/ImageWidth(img))x If Int(nx+fx)=>0 And Int(nx+fx)<=scrw-1 And Int(ny+fy)=>0 And Int(ny+fy)<=scrh-1 WritePixelFast Int(nx+fx),Int(ny+fy),argb,BackBuffer() EndIf Next Next UnlockBuffer ImageBuffer(img) UnlockBuffer BackBuffer() End Function --v -=-=- Check out my excellent homepage!
Fri, 18 Jul 2008, 17:47
dna	That is pretty good spinal. Jay, you've done it again. Very Good. These things slow way down -=-=- DNA
Sun, 30 Nov 2008, 05:17
spinal	I've came back to this after quite a while and I'm afraid I need a little help (;_ I came up with the following, it cheats a bit, but that doesn't matter. You'll notice it turns all the way across the screen, the problem is, when I do it on the DS, with multiple icons, they overlap a but, plus it doesn't quite look the same as the thing I'm imitating. What I want, is for the box to wait a while before rotating, so that the rotation only takes up about half what it does now (still across the middle of the screen). Also, I NEED z to stay in tact, it MUST represent the distance across the screen and be from 0 to 255. Graphics 256,192,0,2 z=0:dx=1 Repeat Cls t=(z/2)1.4 x1= 128 + 48 Sin(t) y1= 48 + 8 * Cos(t) x2= 128 + 48 * Sin(t+180) y2= 48 + 8 * Cos(t+180) x1=x1+z-128 x2=x2+z-128 Line x1, y1, x1, 48-y1+144 Line x2, y2, x2, 48-y2+144 Line x1, y1, x2, y2 Line x1, 48-y1+144, x2, 48-y2+144 z=z+dx If z=0 Or z=256 Then dx=-dx VWait() Until KeyHit(1) Print z WaitKey() End --v -=-=- Check out my excellent homepage!
Sun, 30 Nov 2008, 07:07
Jayenkai	shrugs I'm too tired to do that, right now -=-=- ''Load, Next List!''