Attempting iTunes style coverflow...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|619\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Attempting iTunes style coverflow...
Tue, 27 Oct 2009, 08:47
spinal	Here is what I have so far, does anyone feel like helping? It doesn't look right. AppTitle "Coverflow" Graphics 256,480,0,2 cover = LoadImage("cover.bmp") scaleCover = CreateImage(128,128) Dim iconX#(20) ; icon x location Dim iconW#(20) ; icon target width item_number = 0 ; which item is selected Dim layout(9) ; where the 7 on screen covers should rest For t=0 To 8 Read layout(t) Next ; resting positions Data -64, 20, 42, 66, 128, 190, 214, 236, 320 Dim wide#(9) ; how wide the covers should be For t=0 To 8 Read wide(t) Next ; resting width Data 86, 86, 86, 86, 128, 86, 86, 86, 86 For t=0 To 20 iconX(t) = t*128 Next SetBuffer BackBuffer() While Not KeyHit(1) Cls If KeyHit(205) item_number=item_number+1 If KeyHit(203) item_number=item_number-1 If item_number < 0 Then item_number = 0 If item_number > 20 Then item_number = 20 middle = item_number + 3 too = item_number + 7 If too > 20 Then too = 20 If middlw > 20 Then middle = 20 For t = item_number To too iconX(t) = tween(iconX(t),layout((t-item_number)+1)) iconW(t) = tween(iconW(t),(wide((t-item_number)+1))/128) Next For t = too To middle Step -1 scalePicture = CopyImage(cover) ScaleImage scalePicture, iconW(t), iconW(t) DrawBlock scalePicture, iconX(t) - ImageWidth(scalePicture)/2, 200 - ImageHeight(scalePicture)/2 Text iconX(t), 200 + ImageHeight(scalePicture)/2 , t ; Text iconX(t), 240 , iconW(t) Next For t = item_number To middle scalePicture = CopyImage(cover) ScaleImage scalePicture, iconW(t), iconW(t) DrawBlock scalePicture, iconX(t) - ImageWidth(scalePicture)/2, 200 - ImageHeight(scalePicture)/2 Text iconX(t), 200 + ImageHeight(scalePicture)/2 , t ; Text iconX(t), 240 , iconW(t) Next Flip VWait() Wend End Function tween#(from#, too#) x# = from + ((too-from)/16) Return x End Function --v -=-=- Check out my excellent homepage!
Fri, 30 Oct 2009, 17:31
CodersRule	Is it _supposed_ to lag like that?
Tue, 03 Nov 2009, 04:36
Jayenkai	It's meant to be for the DS. For various reasons it becomes more awkward for Spinal if he enables 3D mode. Working on DSision means he has to be extremely cautious of the memory he uses. (I think...from past chats!) -=-=- ''Load, Next List!''
Tue, 03 Nov 2009, 10:37
spinal	I have it working on the DS now, I'm using 3D, but because 3D doesn't work properly in the palib version I have (I only have access to 3d 'sprites' which are made up of 4 polys I think) and the rotation functions dont seem to work right. Either way, it now works the way I want it, after a bunch of cheating. At a reasonable speed also, which is nice. -=-=- Check out my excellent homepage!