2D Balls

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

Jayenkai	Created : 12 October 2016 Edited : 12 October 2016 System : Cross Platform Language : Blitz Max 2D Balls Generates Spritesheets from textures to make 2D Balls
Fairly complicated and messy, but this is how to take a standard 2D texture... ..And turn it into a nice little rolling ball sprite. .. Using only 2D techniques. Downloadable here It is a bit "Jay Code" though, so tread carefully! Code is in BlitzMax, but should be reasonably easy enough to convert to other languages. Graphics 800,600,0 AutoMidHandle True Global BallSize=64 ' The size of our balls Global BallsN=16 ' How many sprites are across and down the spritesheet. ' eg 16 = a 1616 grid of balls MyBall=MakeBall("Ball Texture.jpg") SheenSprite=MakeSheen() ' Ball Variables BX#=400 ' X/Y BY#=300 BMX#=0 ' Momentum BMY#=0 RollX#=0 ' Amount of Roll RollY#=0 Rotate#=0 ' Rotation Spin#=0 SetClsColor(0,120,0) Repeat Cls ' Controls If KeyDown(KEY_A) Then Spin=Spin-0.5 If KeyDown(KEY_D) Then Spin=Spin+0.5 If KeyDown(KEY_A)=0 And KeyDown(KEY_D)=0 If Spin>0 Then Spin=Spin-0.1;If Spin<0.1 Then Spin=0 If Spin<0 Then Spin=Spin+0.1;If Spin>-0.1 Then Spin=0 EndIf Rotate=(Rotate+Spin) Mod 360 If KeyDown(KEY_UP) Then BMY=BMY-0.25 If KeyDown(KEY_DOWN) Then BMY=BMY+0.25 If KeyDown(KEY_LEFT) Then BMX=BMX-0.25 If KeyDown(KEY_RIGHT) Then BMX=BMX+0.25 If BMX>0 Then BMX=BMX-0.05;If BMX<0.05 Then BMX=0 If BMX<0 Then BMX=BMX+0.05;If BMX>-0.05 Then BMX=0 If BMY>0 Then BMY=BMY-0.05;If BMY<0.05 Then BMY=0 If BMY<0 Then BMY=BMY+0.05;If BMY>-0.05 Then BMY=0 ' Motion BX=BX+BMX BY=BY+BMY If BX<0 Then BX=BX+800 If BY<0 Then BY=BY+600 If BX>800 Then BX=BX-800 If BY>600 Then BY=BY-600 ' Sprite Rolling Local ang#=ATan2(-BMX,BMY) Local dist#=(Sqr((BMXBMX)+(BMYBMY))0.8)0.5 ' Reduce distance so the ball doesn't spin wildly ang=(ang-Rotate)+180.0 RollX=(RollX+Sin(ang)dist) RollY=(RollY-Cos(ang)dist) ' Loop around Number of Sprites RollX=RollX Mod BallsN RollY=RollY Mod BallsN If RollX<0 Then RollX=BallsN+RollX If RollY<0 Then RollY=BallsN+RollY ' Sprite Info SpriteFrame=((Floor(RollY)BallsN)+Floor(RollX)) Mod (BallsNBallsN) If SpriteFrame<0 Then SpriteFrame=SpriteFrame+(BallsNBallsN) ' Draw Sprite SetBlend ALPHABLEND SetRotation(Rotate) SetAlpha(1.0) DrawImage(MyBall,BX,BY,SpriteFrame) ' Add Sheen SetBlend LIGHTBLEND SetRotation(0) SetAlpha(0.5) DrawImage(SheenSprite,BX,BY) Flip Until KeyDown(KEY_ESCAPE) Or KeyDown(KEY_F4) Function MakeSheen:TImage() ' This is the highlight that will be overlayed onto the ball ' You only need one Sheen. It can be overlayed onto all the balls. Local Sheen_Pixmap:TPixmap=CreatePixmap(BallSize,BallSize,PF_RGBA8888) BallRadius=(BallSize/2)-1 For px=0 To BallSize-1 For py=0 To BallSize-1 ' The highlight will be from the upper left (0.3,0.3) distX=(BallSize0.3)-px distY=(BallSize0.3)-py lit#=Float((distXdistX)+(distYdistY))/Float(BallSize(BallSize/3.0)) ' Yeay! Maths!! lit=1.025-(lit0.5) ' Invert the lit, but also add a teensy bit so the white is slightly whiter than white! If lit<0 Then lit=0 If lit>1 Then lit=1 argb=$FF000000+(Int(lit255.0) Shl 16)+(Int(lit255.0) Shl 8)+Int(lit255.0) ' Where > Radius, make transparent distX=(BallSize/2)-px distY=(BallSize/2)-py If ((distXdistX)+(distYdistY))>BallRadiusBallRadius Then argb=$00000000 WritePixel(Sheen_Pixmap,px,py,argb) Next Next SheenSprite:TImage=LoadImage(Sheen_Pixmap) Sheen_Pixmap=Null Return SheenSprite End Function Function MakeBall:TImage(img$) ' This takes a texture and converts it to an animated spritesheet. ' If you have more than one ball design, you'll need to make spritesheets for all of them. Local BallSprite_Pixmap:TPixmap=CreatePixmap(BallSizeBallsN,BallSizeBallsN,PF_RGBA8888) ' Take the texture Local BallSprite_Texture:TPixmap=LoadPixmapJPeg(img$) ' Shrink the texture so that it fits the BallSize Local BallSprite_Small_Texture:TPixmap=ResizePixmap(BallSprite_Texture,BallSize,BallSize) RollSize#=Float(BallSize)/Float(BallsN) For BallX=0 To BallsN-1 For BallY=0 To BallsN-1 ' For each ball on the spritesheet. ' 1 : Render the shifted ball texture For px=0 To BallSize-1 For py=0 To BallSize-1 ' First copy texture, offset for each ball, mod'd around the size of the texture ox=(px-(RollSizeFloat(BallX))) Mod BallSize oy=(py-(RollSizeFloat(BallY))) Mod BallSize If ox<0 Then ox=BallSize+ox If oy<0 Then oy=BallSize+oy ' Grab pixel from texure. argb=ReadPixel(BallSprite_Small_Texture,ox,oy) ' Plot pixel onto our spritesheet. WritePixel(BallSprite_Pixmap,(BallXBallSize)+px,(BallYBallSize)+py,argb) Next Next ' 2 : Add Depth, eg make darker as it moves towards the edge For px=0 To BallSize-1 For py=0 To BallSize-1 argb=ReadPixel(BallSprite_Pixmap,(BallXBallSize)+px,(BallYBallSize)+py) ' Get R,G,B red=(argb & $00FF0000) Shr 16 green=(argb & $0000FF00) Shr 8 blue=(argb & $000000FF) ' Find Darkness for this pixel, where center = full bright and corner = dark. distX=(BallSize/2)-px distY=(BallSize/2)-py darken#=Float((distXdistX)+(distYdistY))/Float(BallSize(BallSize/3.0)) ' Yeay! Maths!! darken=1.025-darken ' Invert the darkness, but also add a teensy bit so the white is slightly whiter than white! If darken<0 Then darken=0 If darken>1 Then darken=1 red=reddarken green=greendarken blue=bluedarken ' Ensure between 0-255 If red<0 Then red=0 If red>255 Then red=255 If green<0 Then green=0 If green>255 Then green=255 If blue<0 Then blue=0 If blue>255 Then blue=255 ' Pop back into argb argb=$FF000000+(red Shl 16)+(green Shl 8)+(blue) WritePixel(BallSprite_Pixmap,(BallXBallSize)+px,(BallYBallSize)+py,argb) Next Next ' 3 : Cut circle to make it a ball BallRadius=(BallSize/2)-1 ' Leave a 1pixel gap around the sprites, for neatness. For px=0 To BallSize-1 For py=0 To BallSize-1 distX=(BallSize/2)-px distY=(BallSize/2)-py ' Where > Radius, make transparent If ((distXdistX)+(distYdistY))>BallRadiusBallRadius Then WritePixel(BallSprite_Pixmap,(BallXBallSize)+px,(BallYBallSize)+py,$00000000) Next Next Next Next ' Load our pixmap into an image variable SpriteSheet so we can actually use the bloomin thing. BallSprite:TImage=LoadAnimImage(BallSprite_Pixmap,BallSize,BallSize,0,BallsNBallsN) ' Flush the temporary images BallSprite_Pixmap=Null BallSprite_Texture=Null BallSprite_Small_Texture=Null GCCollect() ' Return the Spritesheet Return BallSprite End Function --v

Comments

Comments