ball physics? - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|539\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> ball physics?
Tue, 19 Dec 2023, 03:28
spinal	ball physics? Been trying to get chatgpt to convert this https://codepen.io/ztyler/pen/LergVR to blitz3d... Graphics3D 800, 600, 32, 2 Const W = GraphicsWidth() Const H = GraphicsHeight() Global numBalls = 30 Global gravX = 0 Global gravY = -0.1 Type Ball Field x Field y Field dx Field dy Field r Field Color End Type Local totalBalls = 10 Local balls.Ball[totalBalls] For i = 1 To totalBalls balls[i] = New Ball Next i Method Ball:Create(x, y, dx, dy, r) Local newBall.Ball = New Ball newBall\x = x newBall\y = y newBall\dx = dx newBall\dy = dy newBall\r = r newBall\Color = Rnd(0, 360) Return newBall End Method Method Ball:Draw() SetColor HSV(self\Color, 90, 50) DrawOval self\x, self\y, self\r, self\r End Method Method Ball:Update() self\x = self\x + self\dx self\y = self\y + self\dy self\dx = self\dx + gravX self\dy = self\dy - gravY If self\x > W - self\r Then self\x = W - self\r self\dx = self\dx * -1 ElseIf self\x < self\r Then self\x = self\r self\dx = self\dx * -1 EndIf If self\y > H - self\r Then self\y = H - self\r self\dy = self\dy * -0.7 ElseIf self\y < self\r Then self\y = self\r + 1 self\dy = self\dy * -0.7 EndIf self:Draw() End Method Function Reset() balls = New Ball[numBalls] For Local i = 1 To numBalls Local x = Rnd(0, W) Local y = Rnd(0, H) Local r = Rnd(10, 30) balls[i] = Ball:Create(x, y, Rnd(-5, 5), Rnd(-5, 5), r) Next End Function Reset() While Not KeyHit(1) Cls() If MouseDown() Then Local r = Rnd(10, 30) Local newBall.Ball = Ball:Create(MouseX(), MouseY(), Rnd(-5, 5), Rnd(-5, 5), r) AddElement balls, newBall EndIf For Local i = 1 To numBalls balls[i]:Update() For Local j = 1 To numBalls If i <> j Then Local collision, depth collision, depth = CheckCollision(balls[i], balls[j]) If collision Then AdjustPositions(balls[i], balls[j], depth) ResolveCollision(balls[i], balls[j]) EndIf EndIf Next Next Sync() Wend Function CheckCollision(ballA.Ball, ballB.Ball) Local rSum = ballA\r + ballB\r Local dx = ballB\x - ballA\x Local dy = ballB\y - ballA\y Return rSum * rSum > dx * dx + dy * dy, rSum - Sqr(dx * dx + dy * dy) End Function Function ResolveCollision(ballA.Ball, ballB.Ball) Local relVelX = ballB\dx - ballA\dx Local relVelY = ballB\dy - ballA\dy Local normX = ballB\x - ballA\x Local normY = ballB\y - ballA\y Local mag = Sqr(normX * normX + normY * normY) normX = normX / mag normY = normY / mag Local velAlongNorm = relVelX * normX + relVelY * normY If velAlongNorm > 0 Then Return Local bounce = 0.01 Local j = -(1 + bounce) * velAlongNorm j = j / (1 / ballA\r + 1 / ballB\r) Local impulseX = j * normX Local impulseY = j * normY ballA\dx = ballA\dx - 1 / ballA\r * impulseX ballA\dy = ballA\dy - 1 / ballA\r * impulseY ballBHere's the JavaScript program converted into Blitz3D: ```blitzbasic Graphics3D 800, 600, 32, 2 Const W = GraphicsWidth() Const H = GraphicsHeight() Global numBalls = 30 Global gravX = 0 Global gravY = -0.1 Type Ball Field x Field y Field dx Field dy Field r Field Color End Type Method Ball:Create(x, y, dx, dy, r) Local newBall.Ball = New Ball newBall\x = x newBall\y = y newBall\dx = dx newBall\dy = dy newBall\r = r newBall\Color = Rnd(0, 360) Return newBall End Method Method Ball:Draw() SetColor HSV(self\Color, 90, 50) DrawOval self\x, self\y, self\r, self\r End Method Method Ball:Update() self\x = self\x + self\dx self\y = self\y + self\dy self\dx = self\dx + gravX self\dy = self\dy - gravY If self\x > W - self\r Then self\x = W - self\r self\dx = self\dx * -1 ElseIf self\x < self\r Then self\x = self\r self\dx = self\dx * -1 EndIf If self\y > H - self\r Then self\y = H - self\r self\dy = self\dy * -0.7 ElseIf self\y < self\r Then self\y = self\r + 1 self\dy = self\dy * -0.7 EndIf self:Draw() End Method Global balls.Ball[] Function Reset() balls = New Ball[numBalls] For Local i = 1 To numBalls Local x = Rnd(0, W) Local y = Rnd(0, H) Local r = Rnd(10, 30) balls[i] = Ball:Create(x, y, Rnd(-5, 5), Rnd(-5, 5), r) Next End Function Reset() While Not KeyHit(1) Cls() If MouseDown() Then Local r = Rnd(10, 30) Local newBall.Ball = Ball:Create(MouseX(), MouseY(), Rnd(-5, 5), Rnd(-5, 5), r) AddElement balls, newBall EndIf For Local i = 1 To numBalls balls[i]:Update() For Local j = 1 To numBalls If i <> j Then Local collision, depth collision, depth = CheckCollision(balls[i], balls[j]) If collision Then AdjustPositions(balls[i], balls[j], depth) ResolveCollision(balls[i], balls[j]) EndIf EndIf Next Next Sync() Wend Function CheckCollision(ballA.Ball, ballB.Ball) Local rSum = ballA\r + ballB\r Local dx = ballB\x - ballA\x Local dy = ballB\y - ballA\y Return rSum * rSum > dx * dx + dy * dy, rSum - Sqr(dx * dx + dy * dy) End Function Function ResolveCollision(ballA.Ball, ballB.Ball) Local relVelX = ballB\dx - ballA\dx Local relVelY = ballB\dy - ballA\dy Local normX = ballB\x - ballA\x Local normY = ballB\y - ballA\y Local mag = Sqr(normX * normX + normY * normY) normX = normX / mag normY = normY / mag Local velAlongNorm = relVelX * normX + relVelY * normY If velAlongNorm > 0 Then Return Local bounce = 0.01 Local j = -(1 + bounce) * velAlongNorm j = j / (1 / ballA\r + 1 / ballB\r) Local impulseX = j * normX Local impulseY = j * normY ballA\dx = ballA\dx - 1 / ballA\r * impulseX ballA\dy = ballA\dy - 1 / ballA\r * impulseY ballB\dx = ballB\dx + 1 / ballB\r * impulseX ballB\dy = ballB\dy + 1 / ballB\r * impulseY End Function --v it looks like valid code, but im getting an expected end function... -=-=- Check out my excellent homepage!
Tue, 19 Dec 2023, 04:14
Jayenkai	Just checking first off. You know there's two lots of code, there, right? -=-=- ''Load, Next List!''
Tue, 19 Dec 2023, 04:48
Jayenkai	Gosh.. That code's not going to work at all. It's very bad. I don't think Blitz3D even does Methods, does it?! (It's been a long while since I used B3D properly!) I presume that whichever chatbot you asked simply doesn't know B3D very well. Tried to get Bing to do it, and Bing refused due to potential copyright issues (!!!) Bard gave it a go, but very clearly doesn't know B3D very well either, using "Sub" instead of functions, and Sync() instead of Flip, and so on. Just going to have to go through and DIY the thing, I'm afraid!!! Either that, or go function by function, and get the chatbot to double-check everything as it goes. Spitball ideas with it, and let it know it can't do methods and such, as you work your way through the code. -=-=- ''Load, Next List!''
Tue, 19 Dec 2023, 06:19
Pakz	I have some b3d snooker balls code stored somewhere. This came from the blitz forums back then. Everything from there was archived afaik on several forums and on github. I can look for my version and post it here?