Rotation with Parent and Children

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|517\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz Max -> Rotation with Parent and Children
Mon, 03 Jan 2022, 23:59
therevillsgames	Rotation with Parent and Children I'm working on a Jigsaw game and want to rotate the connected pieces in a nice smooth animation by 90 degrees each time around the selected piece... My current idea is to change the image handles, is there a better way than what I am trying... as it's driving me crazy! O_O test.png is SuperStrict Const SCREEN_WIDTH:Int = 1400 Const SCREEN_HEIGHT:Int = 900 Const _ABOVE:Int = 0, _BELOW:Int = 1, _LEFT:Int = 2, _RIGHT:Int = 3 Graphics(SCREEN_WIDTH, SCREEN_HEIGHT) Global Index:Int = 0 Global testImage:TImage = LoadImage("test.png") MidHandleImage(testImage) ' create a bunch of connected pieces Local sx:Int = 500, sy:Int = 500 Local jMid:TEntity = TEntity.Create(testImage, sx, sy) Local jAbove:TEntity = TEntity.Create(testImage, sx, sy - testImage.height) Local jRight:TEntity = TEntity.Create(testImage, sx + testImage.width, sy) Local jBelow:TEntity = TEntity.Create(testImage, sx, sy + testImage.height) Local jLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy) jMid.connectedPieces[_ABOVE] = jAbove jAbove.connectedPieces[_BELOW] = jMid jMid.connectedPieces[_BELOW] = jBelow jBelow.connectedPieces[_ABOVE] = jMid jMid.connectedPieces[_LEFT] = jLeft jLeft.connectedPieces[_RIGHT] = jMid jMid.connectedPieces[_RIGHT] = jRight jRight.connectedPieces[_LEFT] = jMid Local jTopLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy - testImage.height) jAbove.connectedPieces[_LEFT] = jTopLeft jTopLeft.connectedPieces[_RIGHT] = jAbove Local jTopLeftLeft:TEntity = TEntity.Create(testImage, sx - testImage.width * 2, sy - testImage.height) jTopLeft.connectedPieces[_LEFT] = jTopLeftLeft jTopLeftLeft.connectedPieces[_RIGHT] = jTopLeft Local jBottomLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy + testImage.height) jBelow.connectedPieces[_LEFT] = jBottomLeft jBottomLeft.connectedPieces[_RIGHT] = jBelow Local jBottomLeftLeft:TEntity = TEntity.Create(testImage, sx - testImage.width * 2, sy + testImage.height) jBottomLeft.connectedPieces[_LEFT] = jBottomLeftLeft jBottomLeftLeft.connectedPieces[_RIGHT] = jBottomLeft Local jTopTop:TEntity = TEntity.Create(testImage, sx, sy - testImage.height * 2) jAbove.connectedPieces[_ABOVE] = jTopTop jTopTop.connectedPieces[_BELOW] = jAbove Local jRightRight:TEntity = TEntity.Create(testImage, sx + testImage.width * 2, sy) jRight.connectedPieces[_RIGHT] = jRightRight jRightRight.connectedPieces[_LEFT] = jRight SetClsColor(255, 0, 255) Global selected:TEntity Repeat Controls() TEntity.UpdateAll() Cls TEntity.DrawAll() Flip(1) Until AppTerminate() Function Controls() If MouseDown(1) If selected = Null selected = GetSelected() Else selected.x = MouseX() selected.y = MouseY() MoveConnected(selected, New TMap) EndIf Else selected = Null End If If MouseHit(2) If selected = Null selected = GetSelected() If selected And Not selected.startRotationTween selected.SetUpRotation() End If EndIf EndIf End Function Function MoveConnected(entity:TEntity, doneMap:TMap) For Local i:Int = 0 Until entity.connectedPieces.Length If entity.connectedPieces[i] Local connectedEntity:TEntity = entity.connectedPieces[i] If entity <> connectedEntity And Not doneMap.Contains(connectedEntity.id) Select i Case _ABOVE Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 90 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 180 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 270 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y End Select Case _BELOW Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 90 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 180 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 270 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y End Select Case _LEFT Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 90 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 180 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 270 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h End Select Case _RIGHT Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 90 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 180 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 270 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h End Select End Select connectedEntity.rotation = entity.rotation doneMap.Insert(entity.id, entity) MoveConnected(connectedEntity, doneMap) EndIf EndIf Next End Function Function GetSelected:TEntity() For Local e:TEntity = EachIn TEntity.List If RectsOverlap(MouseX(), MouseY(), 2, 2, e.x - e.image.width / 2, e.y - e.image.height / 2, e.image.width, e.image.height) Return e EndIf Next EndFunction Type TEntity Global List:TList = New TList Field id:String Field x:Float, y:Float, w:Int, h:Int Field tx:Float, ty:Float Field handleX:Float, handleY:Float Field originalHandleX:Float, originalHandleY:Float Field rotation:Float Field startRotationTween:Int = False, rotationTweenTimer:Float = 0, rotationTweenSpeedTimer:Float = 0.01, startRotation:Int, targetRotation:Int Field alpha:Float = 1 Field image:TImage Field connectedPieces:TEntity[4] Field r:Int, g:Int, b:Int Function Create:TEntity(img:TImage, x:Float, y:Float) Local e:TEntity = New TEntity e.id = Index e.x = x e.y = y e.image = img e.handleX = img.handle_x e.handleY = img.handle_y e.originalHandleX = img.handle_x e.originalHandleY = img.handle_y e.w = img.width e.h = img.height e.r = Rand(255) e.g = Rand(255) e.b = Rand(255) Index:+1 TEntity.List.AddLast(e) Return e End Function Function DrawAll() Local y:Int = 10, gap:Int = 20 For Local e:TEntity = EachIn TEntity.List e.Draw() DrawDebug(e, 10, y, gap) y:+gap Next End Function Function DrawDebug(e:TEntity, x:Int, y:Int, gap:Int) If e = selected SetColor(0, 0, 0) Else SetColor(255, 255, 255) End If DrawText(e.id + ": x,y = " + Int(e.x) + "," + Int(e.y) + " - hx,hy = " + e.handleX + "," + e.handleY + " - ihx,ihy = " + e.image.handle_x + "," + e.image.handle_y + " - r: " + e.rotation + " tr:" + e.targetRotation, 10, y) SetColor(255, 255, 255) End Function Method Draw() SetAlpha(alpha) SetRotation(rotation) SetColor(r, g, b) Self.image.handle_x = Self.handleX Self.image.handle_y = Self.handleY DrawImage(image, x, y) Self.image.handle_x = Self.originalHandleX Self.image.handle_y = Self.originalHandleY SetAlpha(1) SetRotation(0) SetColor(255, 255, 255) DrawEntityDebug() End Method Method DrawEntityDebug() DrawLine(x - w / 2, y - h / 2, x + w / 2, y - h / 2) DrawLine(x - w / 2, y - h / 2, x - w / 2, y + h / 2) DrawLine(x + w / 2, y - h / 2, x + w / 2, y + h / 2) DrawLine(x - w / 2, y + h / 2, x + w / 2, y + h / 2) DrawText(id, x - 2, y - 2) For Local i:Int = 0 Until Self.connectedPieces.Length Local e:TEntity = Self.connectedPieces[i] If e Select i Case _ABOVE DrawText("A:" + e.id, x, y - 20) Case _BELOW DrawText("B:" + e.id, x, y + 20) Case _LEFT DrawText("L:" + e.id, x - 40, y) Case _RIGHT DrawText("R:" + e.id, x + 20, y) End Select EndIf Next End Method Function UpdateAll() For Local e:TEntity = EachIn TEntity.List e.Update() Next End Function Method Update() If startRotationTween If rotationTweenTimer < 1 rotationTweenTimer:+rotationTweenSpeedTimer Self.rotation = TweenSmooth(Self.startRotation, Self.targetRotation, Self.rotationTweenTimer) Else rotationTweenTimer = 1 Self.rotation = Self.targetRotation startRotationTween = False If Self.rotation Mod 360 = 0 Then Self.rotation = 0 Self.targetRotation = 0 EndIf Self.x = Self.tx Self.y = Self.ty Self.handleX = originalHandleX Self.handleY = originalHandleY Local doneMap:TMap = New TMap MoveConnected(Self, doneMap) EndIf EndIf End Method Method SetUpRotation() Self.startRotation = Self.rotation Self.targetRotation = Self.startRotation + 90 Self.rotationTweenTimer = 0 Self.startRotationTween = True Self.tx = Self.x Self.ty = Self.y SetUpRotationConnected(Self, Self, New TMap) EndMethod Method SetUpRotationConnected(startPiece:TEntity, nextPiece:TEntity, doneMap:TMap) Print startPiece.id + " SetUpRotationConnected " + nextPiece.id doneMap.Insert(startPiece.id, startPiece) For Local i:Int = 0 Until nextPiece.connectedPieces.Length If nextPiece.connectedPieces[i] Local piece:TEntity = nextPiece.connectedPieces[i] If Not doneMap.Contains(piece.id) Print "In Loop - " + piece.id Local w2:Float = piece.w / 2 Local h2:Float = piece.h / 2 Local xDiff:Float = startPiece.x - piece.x Local yDiff:Float = startPiece.y - piece.y Print xDiff + " " + yDiff Print "oldhandle: " + piece.handleX + " , " + piece.handleY piece.handleX = xDiff + w2 piece.handleY = yDiff + h2 Print "newhandle: " + piece.handleX + " , " + piece.handleY Local dx:Float = xDiff * Sin(targetRotation) Local dy:Float = yDiff * -Cos(targetRotation) ' piece.tx = dx + piece.x ' piece.ty = dy + piece.y ' set the piece to the startpiece location to rotate around it using the handle offset piece.x = startPiece.x piece.y = startPiece.y piece.startRotation = piece.rotation piece.targetRotation = targetRotation piece.rotationTweenTimer = 0 piece.startRotationTween = True doneMap.Insert(nextPiece.id, nextPiece) SetUpRotationConnected(startPiece, piece, doneMap) EndIf EndIf Next End Method EndType Function TweenSmooth:Float(p1:Float, p2:Float, t:Float) Local v:Float = SmoothStep(t) Return p1 + v * (p2 - p1) End Function Function SmoothStep:Float(x:Float, interpSmooth:Int = 1) For Local i:Int = 0 Until interpSmooth x:x (3 - 2 * x) Next Return x End Function Function RectsOverlap:Int(x1:Float, y1:Float, w1:Float, h1:Float, x2:Float, y2:Float, w2:Float, h2:Float) If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False Return True EndFunction --v
Tue, 04 Jan 2022, 04:15
Jayenkai	Hmmm.. I would do the whole thing in a completely different manner. (sorry!!) In Space Invaders, you don't move each alien, and try to position it in the right place. You clump the aliens into an array, then move the array's offset. I think* that's roughly what I'd be doing here.. Start with two arrays (or lists, if you prefer!!) Piece : x,y,rotation, clusterID, clusterAngle, clusterDistance Cluster : x,y,rotation Assign each piece its own cluster, and an Angle/Distance of 0. If you connect two, Change Piece A's cluster ID to be the same as Piece B's cluster, and find it's Angle/Distance from the center of the middle of the cluster. (Which should be Piece B's position.) When drawing, find the cluster position for that piece, then offset (rotation of the cluster + angle of the piece)*distance of the piece When lifting a cluster, do some squiggly maths to find a handle for that cluster, and move/rotate the cluster based on where it is in relation to the handle. Then all your pieces should very easily fall into place, based on the cluster's new location/orientation. (I'd GotoJSE an example, but I still have my morning blog+pixelart to do!! Might do later!!) -=-=- ''Load, Next List!''
Tue, 04 Jan 2022, 06:29
Jayenkai	// Puzzle Pieces // by Jayenkai // Created 2022/1/4 Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; Graphics 512,512,1:Border 30,30,80 Dim Piece(7,10) Dim Cluster(7,10) For m=0 to 7 Piece(m,1)=Rnd(32,480) // Current X Piece(m,2)=Rnd(32,480) // Current Y Piece(m,3)=Rand(0,3)90 // Piece Rotation Piece(m,4)=m // Which Cluster Piece(m,5)=0 // Angle from Cluster Piece(m,6)=0 // Distance from Cluster // To start with, give each piece its own Cluster Cluster(m,1)=Piece(m,1) // Cluster x Cluster(m,2)=Piece(m,2) // Cluster y Cluster(m,5)=Rand(0,3) // Cluster Target Rotation (0-3 90) Cluster(m,3)=Cluster(m,5)90 // Cluster Current Rotation (in Degreesies) Next // As you play, link and unlink pieces to clusters. // For this example, we'll "Pre-Cluster" some of them, 'cos I can't be arsed writing all the linking code ;) Piece(2,4)=1:Piece(2,5)=0:Piece(2,6)=32 Piece(3,4)=1:Piece(3,5)=90:Piece(3,6)=32 Piece(4,4)=1:Piece(4,5)=180:Piece(4,6)=32 pushed=0 // Am I currently pushing ButtonA/B Held=-1 // Which cluster am I holding Repeat CLS:ResetDraw:SetFontSize 8 For c=0 to 7 if c==Held Cluster(c,1)=MouseX()+Sin(HoldAngle)HoldDistance:Cluster(c,2)=MouseY()-Cos(HoldAngle)HoldDistance If GamePad(ButtonA)>0.5 and pushed==0 then pushed=1:Cluster(c,5)=Cluster(c,5)+1 If GamePad(ButtonB)>0.5 and pushed==0 then pushed=1:Cluster(c,5)=Cluster(c,5)-1 If Cluster(c,5)<0 then Cluster(c,5)=Cluster(c,5)+4 If Cluster(c,5)>3 then Cluster(c,5)=Cluster(c,5)-4 // Figure out the rotation from the current to the target rotation=WrapTo(Cluster(c,3),Cluster(c,5)90,0,359) // Maximum speed you want it to spin If rotation<-16 then rotation=-16 If rotation>16 then rotation=16 // Turn it! Cluster(c,3)=Cluster(c,3)+rotation if Abs(Cluster(c,3)-(Cluster(c,5)90))<2 then Cluster(c,3)=Cluster(c,5)90 If Cluster(c,3)<0 then Cluster(c,3)=Cluster(c,3)+360 If Cluster(c,3)>359 then Cluster(c,3)=Cluster(c,3)-360 Text Cluster(c,1)+32,Cluster(c,2)+32,Cluster(c,3),1 endif Next If GamePad(ButtonA)<0.5 and GamePad(ButtonB)<0.5 then pushed=0 If MouseDown()==0 then Held=-1 For p=0 to 7 c=Piece(p,4) NewX=Cluster(c,1)+Sin(Piece(p,5)+Cluster(c,3))Piece(p,6) NewY=Cluster(c,2)-Cos(Piece(p,5)+Cluster(c,3))Piece(p,6) Piece(p,1)=Piece(p,1)-((Piece(p,1)-NewX)/2) // Smoothly move pieces to where they should be Piece(p,2)=Piece(p,2)-((Piece(p,2)-NewY)/2) SetRot Cluster(c,3)+Piece(p,3) DrawImg Piece(p,1),Piece(p,2),p if Held==-1 and Abs(MouseX()-Piece(p,1))<24 and Abs(MouseY()-Piece(p,2))<24 and MouseDown()>0 HoldAngle=ATan(Cluster(c,1)-MouseX(),MouseY()-Cluster(c,2)) HoldDistance=Pyth(Cluster(c,1)-MouseX(),MouseY()-Cluster(c,2)) Held=c endif Next Flip Forever --v This example started well enough, but got heavily convoluted along the way. "Why don't you open source any of your code, Jay?" they ask, repeatedly. This is why!! Hold a piece with the mouse, and hit Z or X to spin it right round baby, right round.. -=-=- ''Load, Next List!''
Tue, 04 Jan 2022, 15:07
therevillsgames	Thanks Jay, always good to see how another dev goes about solving a problem With your rotation it looks like it always rotates around the center one, I'm trying to rotate it around the one that is selected... I'll keep plugging away
Tue, 04 Jan 2022, 15:15
Jayenkai	You have the angle and distance between mouse and "the middle of the cluster." All you have to do is rotate the middle of the cluster around the mouse co-ords. My brain was fried by that point, but it should be easily do-able -=-=- ''Load, Next List!''
Tue, 04 Jan 2022, 15:34
therevillsgames	Yeah I'm pretty poor with the whole trig stuff And it doesnt help that Blitz works in degrees and has Y going down O_o
Tue, 04 Jan 2022, 15:38
therevillsgames	Actually what I think I need is the formula to calculate the final x and y after the rotation. So I know the target rotation and I know the difference between each piece... now where did I leave my school maths books
Tue, 04 Jan 2022, 15:46
Jayenkai	Degrees are easy. 1 isn't enough. 90 is a quarter of the cake. 180 is enough of the cake. 270 is a good amount of cake. 360 is my slice of cake. This .. "Works".. But the maths and sudden jumping, etc, leaves a lot to be desired. > Reveal 🔎 // Puzzle Pieces // by Jayenkai // Created 2022/1/4 Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; Graphics 512,512,1:Border 30,30,80 Dim Piece(7,10) Dim Cluster(7,10) For m=0 to 7 Piece(m,1)=Rnd(32,480) // Current X Piece(m,2)=Rnd(32,480) // Current Y Piece(m,3)=Rand(0,3)90 // Piece Rotation Piece(m,4)=m // Which Cluster Piece(m,5)=0 // Angle from Cluster Piece(m,6)=0 // Distance from Cluster // To start with, give each piece its own Cluster Cluster(m,1)=Piece(m,1) // Cluster x Cluster(m,2)=Piece(m,2) // Cluster y Cluster(m,5)=Rand(0,3) // Cluster Target Rotation (0-3 90) Cluster(m,3)=Cluster(m,5)90 // Cluster Current Rotation (in Degreesies) Next // As you play, link and unlink pieces to clusters. // For this example, we'll "Pre-Cluster" some of them, 'cos I can't be arsed writing all the linking code ;) Piece(2,4)=1:Piece(2,5)=0:Piece(2,6)=32 Piece(3,4)=1:Piece(3,5)=90:Piece(3,6)=32 Piece(4,4)=1:Piece(4,5)=180:Piece(4,6)=32 pushed=0 // Am I currently pushing ButtonA/B Held=-1 // Which cluster am I holding Repeat CLS:ResetDraw:SetFontSize 8 For c=0 to 7 if c==Held Cluster(c,1)=MouseX()+Sin(HoldAngle)HoldDistance:Cluster(c,2)=MouseY()-Cos(HoldAngle)HoldDistance If GamePad(ButtonA)>0.5 and pushed==0 Cluster(c,1)=Cluster(c,1)+Sin(90)HoldDistance Cluster(c,2)=Cluster(c,2)-Cos(90)HoldDistance HoldAngle=HoldAngle+90 pushed=1:Cluster(c,5)=Cluster(c,5)+1 endif If GamePad(ButtonB)>0.5 and pushed==0 Cluster(c,1)=Cluster(c,1)+Sin(0-90)HoldDistance Cluster(c,2)=Cluster(c,2)-Cos(0-90)HoldDistance HoldAngle=HoldAngle-90 pushed=1:Cluster(c,5)=Cluster(c,5)-1 endif If Cluster(c,5)<0 then Cluster(c,5)=Cluster(c,5)+4 If Cluster(c,5)>3 then Cluster(c,5)=Cluster(c,5)-4 // Figure out the rotation from the current to the target rotation=WrapTo(Cluster(c,3),Cluster(c,5)90,0,359) // Maximum speed you want it to spin If rotation<-16 then rotation=-16 If rotation>16 then rotation=16 // Turn it! Cluster(c,3)=Cluster(c,3)+rotation if Abs(Cluster(c,3)-(Cluster(c,5)90))<2 then Cluster(c,3)=Cluster(c,5)90 If Cluster(c,3)<0 then Cluster(c,3)=Cluster(c,3)+360 If Cluster(c,3)>359 then Cluster(c,3)=Cluster(c,3)-360 Text Cluster(c,1)+32,Cluster(c,2)+32,Cluster(c,3),1 endif Next If GamePad(ButtonA)<0.5 and GamePad(ButtonB)<0.5 then pushed=0 If MouseDown()==0 then Held=-1 For p=0 to 7 c=Piece(p,4) NewX=Cluster(c,1)+Sin(Piece(p,5)+Cluster(c,3))Piece(p,6) NewY=Cluster(c,2)-Cos(Piece(p,5)+Cluster(c,3))Piece(p,6) Piece(p,1)=Piece(p,1)-((Piece(p,1)-NewX)/2) // Smoothly move pieces to where they should be Piece(p,2)=Piece(p,2)-((Piece(p,2)-NewY)/2) SetRot Cluster(c,3)+Piece(p,3) DrawImg Piece(p,1),Piece(p,2),p if Held==-1 and Abs(MouseX()-Piece(p,1))<24 and Abs(MouseY()-Piece(p,2))<24 and MouseDown()>0 HoldAngle=ATan(Cluster(c,1)-MouseX(),MouseY()-Cluster(c,2)) HoldDistance=Pyth(Cluster(c,1)-MouseX(),MouseY()-Cluster(c,2)) Held=c endif Next Flip Forever --v [/spoiler] You can make it a "bit" better if you change the divisor, down at the bottom where it says "// Smoothly move pieces to where they should be" If you increase the divisor, it all becomes much smoother, but .. More disjointed, too! Hmm.. -=-=- ''Load, Next List!''
Tue, 04 Jan 2022, 17:19
shroom_monk	+1 for Jay's approach of treating each connected cluster of pieces as a single object and just operating on those clusters - that's how I'd approach this too. Personally however, rather than storing the angle and distance from the middle of the cluster for each piece (i.e. polar coordinates), I would instead store the (x,y) vector relative to some arbitrary handle point in the cluster (i.e. cartesian coordinates). The advantage of this is that it's then easier to reason about (IMO anyway), and easier to rotate the cluster around any arbitrary point that isn't the middle of it. I probably shouldn't be attempting to write formulae at quarter past midnight without expecting them to be full of errors, though I'd probably just be reformulating what Jay's already written anyway. Happy to give it a shot another day though, if desired. (FWIW, I went and wrote some maths tutorials about vectors, trig, etc many years ago on SoCoder. I have no idea if they actually make sense to anyone who's not me, but who knows, they might come in handy...) -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 04 Jan 2022, 18:56
therevillsgames	Thanks Guys... Shroom I'll have a look. Currently gone back to basics with trig and converted it over to JSE. So I have just two pieces, connected, and I want to rotate them relative to each over. So targetX = xDiff * Cos(-targetRotation) + yDiff * Sin(-targetRotation) targetY = xDiff * Sin(-targetRotation) + yDiff * Cos(-targetRotation) --v Seems nearly there... but if I update the connected piece to those coords the next time the trig doesnt work. Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; #Const $SCREEN_WIDTH=512 #Const $SCREEN_HEIGHT=512 Graphics $SCREEN_WIDTH,$SCREEN_HEIGHT, 1 // define the fields for the pieces #Const $X=0 #Const $Y=1 #Const $W=2 #Const $H=3 #Const $ROTATION=4 #Const $TARGET_ROTATION=5 #Const $TARGET_X=6 #Const $TARGET_Y=7 #Const $SYMBOL_IMAGE=8 #Const $CONNECTED_PIECE=9 #Const $ROTATING=10 #Const $R=11 #Const $G=12 #Const $B=13 #Const $PIECE_WIDTH=64 #Const $PIECE_HEIGHT=64 // create the pieces #Const $NUM_PIECES=2 Dim Piece($NUM_PIECES, 20) i = 0 Piece(i,$X) = 200 Piece(i,$Y) = 200 Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH // $WIDTH hmmm constant doesnt work?? Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 0 Piece(i,$CONNECTED_PIECE) = 1 Piece(i,$R) = 255 Piece(i,$G) = 0 Piece(i,$B) = 0 i = i + 1 Piece(i,$X) = 200 Piece(i,$Y) = 200 + Piece(i-1,$H) Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 1 Piece(i,$CONNECTED_PIECE) = 0 Piece(i,$R) = 0 Piece(i,$G) = 255 Piece(i,$B) = 0 selectedPiece = 1 Repeat Gosub Controls Gosub UpdatePieces Cls:ResetDraw:SetFontSize 8 Gosub DrawPieces Gosub DrawDebugInfo Flip Forever .DrawDebugInfo DrawText 10, 10, "Selected:" + selectedPiece if selectedPiece > -1 textY = 20 : gapy = 10 DrawText 10, textY, "Rotation:" + Piece(selectedPiece, $ROTATION):textY = textY + gapy DrawText 10, textY, "Target Rotation:" + Piece(selectedPiece, $TARGET_ROTATION):textY = textY + gapy DrawText 10, textY, "Currently Rotating:" + Piece(selectedPiece, $ROTATING):textY = textY + gapy DrawText 10, textY, " Connected To:" + Piece(selectedPiece, $CONNECTED_PIECE):textY = textY + gapy connectedId = Piece(selectedPiece, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) DrawText 10, textY, " Connected X:" + Piece(connectedId , $X):textY = textY + gapy DrawText 10, textY, " Connected Y:" + Piece(connectedId , $Y):textY = textY + gapy DrawText 10, textY, " Connected TX:" + tx:textY = textY + gapy DrawText 10, textY, " Connected TY:" + ty:textY = textY + gapy endif Return .Controls For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) If Abs(MouseX()-x) < w/2 and Abs(MouseY()-y) < h/2 and MouseDown()>0 selectedPiece = i sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) if Piece(selectedPiece, $ROTATING) == 0 then Piece(selectedPiece, $TARGET_ROTATION) = Piece(selectedPiece, $ROTATION) + 90 targetRotation = Piece(selectedPiece, $TARGET_ROTATION) Piece(selectedPiece, $ROTATING) = 1 connectedPiece = Piece(selectedPiece, $CONNECTED_PIECE) cx = Piece(connectedPiece, $X) cy = Piece(connectedPiece, $Y) xDiff = cx - sx yDiff = cy - sy targetX = xDiff * Cos(-targetRotation) + yDiff * Sin(-targetRotation) targetY = xDiff * Sin(-targetRotation) + yDiff * Cos(-targetRotation) Piece(connectedPiece, $TARGET_X) = targetX + sx Piece(connectedPiece, $TARGET_Y) = targetY + sy EndIf EndIf Next Return .UpdatePieces For i = 0 to $NUM_PIECES-1 r = Piece(i, $ROTATION) t = Piece(i, $TARGET_ROTATION) if Piece(i, $ROTATING) == 1 if r < t then r = r + 2 Piece(i, $ROTATION) = r else r = t Piece(i, $ROTATING) = 0 //connectedPiece = Piece(i, $CONNECTED_PIECE) //Piece(connectedPiece, $X) = Piece(connectedPiece, $TARGET_X) //Piece(connectedPiece, $Y) = Piece(connectedPiece, $TARGET_Y) endif endif Next Return .DrawPieces For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) DrawRect x - w / 2, y - h / 2, w, h SetRotation Piece(i, $ROTATION) //DrawImg x, y, Piece(i, $SYMBOL_IMAGE) DrawText x, y, i if selectedPiece == i connectedId = Piece(i, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) SetColor Piece(i, $R), Piece(i, $G), Piece(i, $B) DrawLine Piece(i, $X), Piece(i, $Y), tx, ty FillRect tx, ty, 16, 16, 1 SetColor 255,255,255 DrawText tx, ty, connectedId endif Next SetRotation 0 Return --v https://GotoJSE.com/hQfdSWJ5.BAS
Tue, 04 Jan 2022, 20:36
therevillsgames	Ah.... watch this video: https://www.youtube.com/watch?v=AmaC23gQCTw And I nearly had it... but I was using the final angle not the delta of the angle, so updated the code to: xDiff = cx - sx yDiff = cy - sy angleDiff = targetRotation - Piece(selectedPiece, $ROTATION) cosA = Cos(angleDiff) sinA = Sin(angleDiff) targetX = xDiff * cosA - yDiff * sinA targetY = yDiff * cosA + xDiff * sinA --v Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; #Const $SCREEN_WIDTH=512 #Const $SCREEN_HEIGHT=512 Graphics $SCREEN_WIDTH,$SCREEN_HEIGHT, 1 // define the fields for the pieces #Const $X=0 #Const $Y=1 #Const $W=2 #Const $H=3 #Const $ROTATION=4 #Const $TARGET_ROTATION=5 #Const $TARGET_X=6 #Const $TARGET_Y=7 #Const $SYMBOL_IMAGE=8 #Const $CONNECTED_PIECE=9 #Const $ROTATING=10 #Const $R=11 #Const $G=12 #Const $B=13 #Const $PIECE_WIDTH=64 #Const $PIECE_HEIGHT=64 // create the pieces #Const $NUM_PIECES=2 Dim Piece($NUM_PIECES, 20) i = 0 Piece(i,$X) = 200 Piece(i,$Y) = 200 Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH // $WIDTH hmmm constant doesnt work?? Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 0 Piece(i,$CONNECTED_PIECE) = 1 Piece(i,$R) = 255 Piece(i,$G) = 0 Piece(i,$B) = 0 i = i + 1 Piece(i,$X) = 200 Piece(i,$Y) = 200 + Piece(i-1,$H) Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 1 Piece(i,$CONNECTED_PIECE) = 0 Piece(i,$R) = 0 Piece(i,$G) = 255 Piece(i,$B) = 0 selectedPiece = 1 Repeat Gosub Controls Gosub UpdatePieces Cls:ResetDraw:SetFontSize 8 Gosub DrawPieces Gosub DrawDebugInfo Flip Forever .DrawDebugInfo DrawText 10, 10, "Selected:" + selectedPiece if selectedPiece > -1 textY = 20 : gapy = 10 DrawText 10, textY, "Rotation:" + Piece(selectedPiece, $ROTATION):textY = textY + gapy DrawText 10, textY, "Target Rotation:" + Piece(selectedPiece, $TARGET_ROTATION):textY = textY + gapy DrawText 10, textY, "Currently Rotating:" + Piece(selectedPiece, $ROTATING):textY = textY + gapy DrawText 10, textY, " Connected To:" + Piece(selectedPiece, $CONNECTED_PIECE):textY = textY + gapy connectedId = Piece(selectedPiece, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) DrawText 10, textY, " Connected X:" + Piece(connectedId , $X):textY = textY + gapy DrawText 10, textY, " Connected Y:" + Piece(connectedId , $Y):textY = textY + gapy DrawText 10, textY, " Connected TX:" + tx:textY = textY + gapy DrawText 10, textY, " Connected TY:" + ty:textY = textY + gapy sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) cx = Piece(connectedId , $X) cy = Piece(connectedId , $Y) xDiff = cx - sx yDiff = cy - sy DrawText 10, textY, " xDiff :" + xDiff :textY = textY + gapy DrawText 10, textY, " yDiff :" + yDiff :textY = textY + gapy endif Return .Controls For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) If Abs(MouseX()-x) < w/2 and Abs(MouseY()-y) < h/2 and MouseDown()>0 selectedPiece = i sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) if Piece(selectedPiece, $ROTATING) == 0 then Piece(selectedPiece, $TARGET_ROTATION) = Piece(selectedPiece, $ROTATION) + 90 targetRotation = Piece(selectedPiece, $TARGET_ROTATION) Piece(selectedPiece, $ROTATING) = 1 connectedPiece = Piece(selectedPiece, $CONNECTED_PIECE) cx = Piece(connectedPiece, $X) cy = Piece(connectedPiece, $Y) xDiff = cx - sx yDiff = cy - sy angleDiff = targetRotation - Piece(selectedPiece, $ROTATION) cosA = Cos(angleDiff) sinA = Sin(angleDiff) targetX = xDiff * cosA - yDiff * sinA targetY = yDiff * cosA + xDiff * sinA Piece(connectedPiece, $TARGET_X) = targetX + sx Piece(connectedPiece, $TARGET_Y) = targetY + sy Piece(connectedPiece, $TARGET_ROTATION) = targetRotation Piece(connectedPiece, $ROTATING) = 1 EndIf EndIf Next Return .UpdatePieces For i = 0 to $NUM_PIECES-1 r = Piece(i, $ROTATION) t = Piece(i, $TARGET_ROTATION) if Piece(i, $ROTATING) == 1 if r < t then r = r + 2 Piece(i, $ROTATION) = r else r = t Piece(i, $ROTATING) = 0 connectedPiece = Piece(i, $CONNECTED_PIECE) Piece(connectedPiece, $X) = Piece(connectedPiece, $TARGET_X) Piece(connectedPiece, $Y) = Piece(connectedPiece, $TARGET_Y) endif endif Next Return .DrawPieces For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) DrawRect x - w / 2, y - h / 2, w, h SetRotation Piece(i, $ROTATION) DrawImg x, y, Piece(i, $SYMBOL_IMAGE) DrawText x, y, i if selectedPiece == i SetAlpha 0.3 connectedId = Piece(i, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) SetColor Piece(i, $R), Piece(i, $G), Piece(i, $B) DrawLine Piece(i, $X), Piece(i, $Y), tx, ty FillRect tx, ty, 16, 16, 1 SetColor 255,255,255 DrawText tx, ty, connectedId SetAlpha 1 endif Next SetRotation 0 Return --v https://GotoJSE.com/5kDsQlXH.BAS
Tue, 04 Jan 2022, 20:39
therevillsgames	Now to get it moving in a nice arc...
Wed, 05 Jan 2022, 12:56
Jayenkai	.. That could totally be a game. Rotational walker of some sort, dragging its feet along a maze-like path.. -=-=- ''Load, Next List!''
Wed, 05 Jan 2022, 20:26
therevillsgames	Yeah the movement is pretty cool Here is the final BlitzMax code working: SuperStrict Const SCREEN_WIDTH:Int = 1400 Const SCREEN_HEIGHT:Int = 900 Const _ABOVE:Int = 0, _BELOW:Int = 1, _LEFT:Int = 2, _RIGHT:Int = 3 Graphics(SCREEN_WIDTH, SCREEN_HEIGHT) Global Index:Int = 0 Global testImage:TImage = LoadImage("test.png") MidHandleImage(testImage) ' create a bunch of connected pieces Local sx:Int = 900, sy:Int = 500 Local jMid:TEntity = TEntity.Create(testImage, sx, sy) Local jAbove:TEntity = TEntity.Create(testImage, sx, sy - testImage.height) Local jRight:TEntity = TEntity.Create(testImage, sx + testImage.width, sy) Local jBelow:TEntity = TEntity.Create(testImage, sx, sy + testImage.height) Local jLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy) jMid.connectedPieces[_ABOVE] = jAbove jAbove.connectedPieces[_BELOW] = jMid jMid.connectedPieces[_BELOW] = jBelow jBelow.connectedPieces[_ABOVE] = jMid jMid.connectedPieces[_LEFT] = jLeft jLeft.connectedPieces[_RIGHT] = jMid jMid.connectedPieces[_RIGHT] = jRight jRight.connectedPieces[_LEFT] = jMid Local jTopLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy - testImage.height) jAbove.connectedPieces[_LEFT] = jTopLeft jTopLeft.connectedPieces[_RIGHT] = jAbove Local jTopLeftLeft:TEntity = TEntity.Create(testImage, sx - testImage.width * 2, sy - testImage.height) jTopLeft.connectedPieces[_LEFT] = jTopLeftLeft jTopLeftLeft.connectedPieces[_RIGHT] = jTopLeft Local jBottomLeft:TEntity = TEntity.Create(testImage, sx - testImage.width, sy + testImage.height) jBelow.connectedPieces[_LEFT] = jBottomLeft jBottomLeft.connectedPieces[_RIGHT] = jBelow Local jBottomLeftLeft:TEntity = TEntity.Create(testImage, sx - testImage.width * 2, sy + testImage.height) jBottomLeft.connectedPieces[_LEFT] = jBottomLeftLeft jBottomLeftLeft.connectedPieces[_RIGHT] = jBottomLeft Local jTopTop:TEntity = TEntity.Create(testImage, sx, sy - testImage.height * 2) jAbove.connectedPieces[_ABOVE] = jTopTop jTopTop.connectedPieces[_BELOW] = jAbove Local jRightRight:TEntity = TEntity.Create(testImage, sx + testImage.width * 2, sy) jRight.connectedPieces[_RIGHT] = jRightRight jRightRight.connectedPieces[_LEFT] = jRight SetClsColor(255, 0, 255) Global selected:TEntity Repeat Controls() TEntity.UpdateAll() Cls TEntity.DrawAll() Flip(1) Until AppTerminate() Function Controls() If MouseDown(1) If selected = Null selected = GetSelected() Else selected.x = MouseX() selected.y = MouseY() MoveConnected(selected, New TMap) EndIf Else selected = Null End If If MouseHit(2) If selected = Null selected = GetSelected() If selected And Not selected.startRotationTween selected.SetUpRotation() End If EndIf EndIf End Function Function MoveConnected(entity:TEntity, doneMap:TMap) For Local i:Int = 0 Until entity.connectedPieces.Length If entity.connectedPieces[i] Local connectedEntity:TEntity = entity.connectedPieces[i] If entity <> connectedEntity And Not doneMap.Contains(connectedEntity.id) Select i Case _ABOVE Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 90 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 180 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 270 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y End Select Case _BELOW Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 90 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 180 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 270 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y End Select Case _LEFT Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 90 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h Case 180 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 270 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h End Select Case _RIGHT Select connectedEntity.rotation Case 0 connectedEntity.x = entity.x + connectedEntity.w connectedEntity.y = entity.y Case 90 connectedEntity.x = entity.x connectedEntity.y = entity.y + connectedEntity.h Case 180 connectedEntity.x = entity.x - connectedEntity.w connectedEntity.y = entity.y Case 270 connectedEntity.x = entity.x connectedEntity.y = entity.y - connectedEntity.h End Select End Select connectedEntity.rotation = entity.rotation doneMap.Insert(entity.id, entity) MoveConnected(connectedEntity, doneMap) EndIf EndIf Next End Function Function GetSelected:TEntity() For Local e:TEntity = EachIn TEntity.List If RectsOverlap(MouseX(), MouseY(), 2, 2, e.x - e.image.width / 2, e.y - e.image.height / 2, e.image.width, e.image.height) Return e EndIf Next EndFunction Type TEntity Global List:TList = New TList Field id:String Field x:Float, y:Float, w:Int, h:Int Field rotation:Float Field rotateAroundX:Float, rotateAroundY:Float Field startRotationTween:Int = False, rotationTweenTimer:Float = 0, rotationTweenSpeedTimer:Float = 0.02, startRotation:Float, targetRotation:Float Field alpha:Float = 1 Field image:TImage Field connectedPieces:TEntity[4] Field r:Int, g:Int, b:Int Field ox:Int, oy:Int Field startMoveTween:Int = False Field tx:Int, ty:Int Field moveTweenTimer:Float = 0 Field moveTweenSpeedTimer:Float = 0.01 Field targetX:Float, targetY:Float Field startEntity:TEntity Function Create:TEntity(img:TImage, x:Float, y:Float) Local e:TEntity = New TEntity e.id = Index e.x = x e.y = y e.image = img e.w = img.width e.h = img.height e.r = Rand(255) e.g = Rand(255) e.b = Rand(255) Index:+1 TEntity.List.AddLast(e) Return e End Function Function DrawAll() Local y:Int = 10, gap:Int = 20 For Local e:TEntity = EachIn TEntity.List e.Draw() y = DrawDebug(e, 10, y, gap) y:+gap Next End Function Function DrawDebug:Int(e:TEntity, x:Int, y:Int, gap:Int) If e = selected SetColor(0, 0, 0) Else SetColor(255, 255, 255) End If DrawText(e.id + ": x,y = " + e.x + "," + e.y + " - r: " + e.rotation + " tr:" + e.targetRotation, 10, y) y:+gap DrawText(e.rotateAroundX + " " + e.rotateAroundY, 10, y) SetColor(255, 255, 255) Return y End Function Method Draw() SetAlpha(alpha) SetRotation(rotation) SetColor(r, g, b) DrawImage(image, x, y) SetAlpha(1) SetRotation(0) SetColor(255, 255, 255) DrawEntityDebug() Local a:Int = -40 SetColor(r + a, g + a, b + a) DrawOval(TargetX - 5, TargetY - 5, 10, 10) SetColor(0, 0, 0) Plot(TargetX, TargetY) If startEntity DrawLine(startEntity.x, startEntity.y, TargetX, TargetY) End If SetColor(255, 255, 255) End Method Method DrawEntityDebug() SetAlpha 1 DrawLine(x - w / 2, y - h / 2, x + w / 2, y - h / 2) DrawLine(x - w / 2, y - h / 2, x - w / 2, y + h / 2) DrawLine(x + w / 2, y - h / 2, x + w / 2, y + h / 2) DrawLine(x - w / 2, y + h / 2, x + w / 2, y + h / 2) DrawLine(x - w / 2, y - h / 2, x + w / 2, y + h / 2) DrawLine(x + w / 2, y - h / 2, x - w / 2, y + h / 2) SetAlpha 1 DrawText(id, x - 2, y - 2) For Local i:Int = 0 Until Self.connectedPieces.Length Local e:TEntity = Self.connectedPieces[i] If e Select i Case _ABOVE DrawText("A:" + e.id, x, y - 20) Case _BELOW DrawText("B:" + e.id, x, y + 20) Case _LEFT DrawText("L:" + e.id, x - 40, y) Case _RIGHT DrawText("R:" + e.id, x + 20, y) End Select EndIf Next End Method Function UpdateAll() For Local e:TEntity = EachIn TEntity.List e.Update() Next End Function Method Update() MoveTween() RotateTween() EndMethod Method RotateAroundPoint(x1:Float, y1:Float, angle:Float) Local cosA:Float = Cos(angle) Local sinA:Float = Sin(angle) Local newX:Float = (x - x1) * cosA - (y - y1) * sinA + x1 Local newY:Float = (x - x1) * sinA + (y - y1) * cosA + y1 Self.x = newX Self.y = newY End Method Method RotateTween() If startRotationTween If rotationTweenTimer <= 1 rotationTweenTimer:+rotationTweenSpeedTimer Local beforeRot:Float = Self.rotation Self.rotation = TweenSmooth(Self.startRotation, Self.targetRotation, Self.rotationTweenTimer) Local afterRot:Float = Self.rotation RotateAroundPoint(Self.rotateAroundX, Self.rotateAroundY, afterRot - beforeRot) Else rotationTweenTimer = 1 Self.rotation = Self.targetRotation startRotationTween = False If Self.rotation Mod 360 = 0 Then Self.rotation = 0 Self.targetRotation = 0 EndIf Self.x = Self.TargetX Self.y = Self.TargetY EndIf EndIf End Method Method SetUpRotation() Self.startRotation = Self.rotation Self.targetRotation = Self.startRotation + 90 Self.rotationTweenTimer = 0 Self.startRotationTween = True Self.targetX = Self.x Self.targetY = Self.y Self.rotateAroundX = Self.x Self.rotateAroundY = Self.y SetUpRotationConnected(Self, Self, New TMap) EndMethod Method SetUpRotationConnected(startPiece:TEntity, nextPiece:TEntity, doneMap:TMap) Print startPiece.id + " SetUpRotationConnected " + nextPiece.id doneMap.Insert(startPiece.id, startPiece) For Local i:Int = 0 Until nextPiece.connectedPieces.Length If nextPiece.connectedPieces[i] Local piece:TEntity = nextPiece.connectedPieces[i] If Not doneMap.Contains(piece.id) Print "In Loop - " + piece.id + " targetRotation = " + targetRotation Local xDiff:Float = piece.x - startPiece.x Local yDiff:Float = piece.y - startPiece.y Local angleDiff:Float = targetRotation - startPiece.rotation Local cosA:Float = Cos(angleDiff) Local sinA:Float = Sin(angleDiff) Local targetX:Float = xDiff * cosA - yDiff * sinA Local targetY:Float = yDiff * cosA + xDiff * sinA piece.targetX = targetX + startPiece.x piece.targetY = targetY + startPiece.y piece.rotateAroundX = startPiece.x piece.rotateAroundY = startPiece.y piece.startEntity = startPiece piece.startRotation = piece.rotation piece.targetRotation = targetRotation piece.rotationTweenTimer = 0 piece.startRotationTween = True doneMap.Insert(nextPiece.id, nextPiece) SetUpRotationConnected(startPiece, piece, doneMap) EndIf EndIf Next End Method Method SetUpMove(xx:Float, yy:Float) Self.startMoveTween = True Self.ox = Self.x Self.oy = Self.y Self.tx = xx Self.ty = yy Self.moveTweenTimer = 0 End Method Method MoveTween() If startMoveTween If moveTweenTimer < 1 moveTweenTimer:+moveTweenSpeedTimer Self.x = TweenSmooth(Self.ox, Self.tx, Self.moveTweenTimer) Self.y = TweenSmooth(Self.oy, Self.ty, Self.moveTweenTimer) Else moveTweenTimer = 1 Self.x = Self.tx Self.y = Self.ty startMoveTween = False End If End If End Method EndType Function TweenSmooth:Float(p1:Float, p2:Float, t:Float) Local v:Float = SmoothStep(t) Return p1 + v * (p2 - p1) End Function Function SmoothStep:Float(x:Float, interpSmooth:Int = 1) For Local i:Int = 0 Until interpSmooth x:x (3 - 2 * x) Next Return x End Function Function RectsOverlap:Int(x1:Float, y1:Float, w1:Float, h1:Float, x2:Float, y2:Float, w2:Float, h2:Float) If x1 >= (x2 + w2) Or (x1 + w1) <= x2 Then Return False If y1 >= (y2 + h2) Or (y1 + h1) <= y2 Then Return False Return True EndFunction --v And the updated JSE: Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; DebugMode on #Const $SCREEN_WIDTH=512 #Const $SCREEN_HEIGHT=512 Graphics $SCREEN_WIDTH,$SCREEN_HEIGHT, 1 // define the fields for the pieces #Const $X=0 #Const $Y=1 #Const $W=2 #Const $H=3 #Const $ROTATION=4 #Const $TARGET_ROTATION=5 #Const $TARGET_X=6 #Const $TARGET_Y=7 #Const $SYMBOL_IMAGE=8 #Const $CONNECTED_PIECE=9 #Const $ROTATING=10 #Const $R=11 #Const $G=12 #Const $B=13 #Const $QROTATING_AROUND_X=14 #Const $QROTATING_AROUND_Y=15 #Const $PIECE_WIDTH=64 #Const $PIECE_HEIGHT=64 // create the pieces #Const $NUM_PIECES=2 Dim Piece($NUM_PIECES, 20) i = 0 Piece(i,$X) = 200 Piece(i,$Y) = 200 Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH // $WIDTH hmmm constant doesnt work?? Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 0 Piece(i,$CONNECTED_PIECE) = 1 Piece(i,$R) = 255 Piece(i,$G) = 0 Piece(i,$B) = 0 i = i + 1 Piece(i,$X) = 200 Piece(i,$Y) = 200 + Piece(i-1,$H) Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 1 Piece(i,$CONNECTED_PIECE) = 0 Piece(i,$R) = 0 Piece(i,$G) = 255 Piece(i,$B) = 0 selectedPiece = 1 Repeat Gosub Controls Gosub UpdatePieces Cls:ResetDraw:SetFontSize 8 Gosub DrawPieces Gosub DrawDebugInfo Flip Forever .DrawDebugInfo DrawText 10, 10, "Selected:" + selectedPiece if selectedPiece > -1 textY = 20 : gapy = 10 DrawText 10, textY, "X:" + Piece(selectedPiece, $X):textY = textY + gapy DrawText 10, textY, "Y:" + Piece(selectedPiece, $Y):textY = textY + gapy DrawText 10, textY, "Rotation:" + Piece(selectedPiece, $ROTATION):textY = textY + gapy DrawText 10, textY, "Target Rotation:" + Piece(selectedPiece, $TARGET_ROTATION):textY = textY + gapy DrawText 10, textY, "Currently Rotating:" + Piece(selectedPiece, $ROTATING):textY = textY + gapy DrawText 10, textY, "XRotating:" + Piece(selectedPiece, $QROTATING_AROUND_X):textY = textY + gapy DrawText 10, textY, "YRotating:" + Piece(selectedPiece, $QROTATING_AROUND_Y):textY = textY + gapy DrawText 10, textY, " Connected To:" + Piece(selectedPiece, $CONNECTED_PIECE):textY = textY + gapy connectedId = Piece(selectedPiece, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) DrawText 10, textY, " Connected X:" + Piece(connectedId , $X):textY = textY + gapy DrawText 10, textY, " Connected Y:" + Piece(connectedId , $Y):textY = textY + gapy DrawText 10, textY, " Connected TX:" + tx:textY = textY + gapy DrawText 10, textY, " Connected TY:" + ty:textY = textY + gapy DrawText 10, textY, " Connected RX:" + Piece(connectedId , $QROTATING_AROUND_X):textY = textY + gapy DrawText 10, textY, " Connected RY:" + Piece(connectedId , $QROTATING_AROUND_Y):textY = textY + gapy sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) cx = Piece(connectedId , $X) cy = Piece(connectedId , $Y) xDiff = cx - sx yDiff = cy - sy DrawText 10, textY, " xDiff :" + xDiff :textY = textY + gapy DrawText 10, textY, " yDiff :" + yDiff :textY = textY + gapy endif Return .Controls For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) If Abs(MouseX()-x) < w/2 and Abs(MouseY()-y) < h/2 and MouseDown()>0 selectedPiece = i sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) Piece(selectedPiece, $QROTATING_AROUND_X) = sx Piece(selectedPiece, $QROTATING_AROUND_Y) = sy if Piece(selectedPiece, $ROTATING) == 0 then Piece(selectedPiece, $TARGET_ROTATION) = Piece(selectedPiece, $ROTATION) + 90 targetRotation = Piece(selectedPiece, $TARGET_ROTATION) Piece(selectedPiece, $ROTATING) = 1 connectedPiece = Piece(selectedPiece, $CONNECTED_PIECE) cx = Piece(connectedPiece, $X) cy = Piece(connectedPiece, $Y) xDiff = cx - sx yDiff = cy - sy angleDiff = targetRotation - Piece(selectedPiece, $ROTATION) cosA = Cos(angleDiff) sinA = Sin(angleDiff) targetX = xDiff * cosA - yDiff * sinA targetY = yDiff * cosA + xDiff * sinA Piece(connectedPiece, $QROTATING_AROUND_X) = sx Piece(connectedPiece, $QROTATING_AROUND_Y) = sy Piece(connectedPiece, $TARGET_X) = targetX + sx Piece(connectedPiece, $TARGET_Y) = targetY + sy Piece(connectedPiece, $TARGET_ROTATION) = targetRotation Piece(connectedPiece, $ROTATING) = 1 EndIf EndIf Next Return .UpdatePieces For i = 0 to $NUM_PIECES-1 r = Piece(i, $ROTATION) t = Piece(i, $TARGET_ROTATION) if Piece(i, $ROTATING) == 1 if r < t then newAngle = 5 r = r + newAngle Piece(i, $ROTATION) = r cosA = Cos(newAngle) sinA = Sin(newAngle) x = Piece(i, $X) y = Piece(i, $Y) x1 = Piece(i, $QROTATING_AROUND_X) y1 = Piece(i, $QROTATING_AROUND_Y) newX = (x - x1) * cosA - (y - y1) * sinA + x1 newY = (x - x1) * sinA + (y - y1) * cosA + y1 DebugLog "r = "+r Piece(i, $X) = newX Piece(i, $Y) = newY else r = t Piece(i, $ROTATING) = 0 connectedPiece = Piece(i, $CONNECTED_PIECE) Piece(connectedPiece, $X) = Piece(connectedPiece, $TARGET_X) Piece(connectedPiece, $Y) = Piece(connectedPiece, $TARGET_Y) endif endif Next Return .DrawPieces For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) DrawRect x - w / 2, y - h / 2, w, h SetRotation Piece(i, $ROTATION) DrawImg x, y, Piece(i, $SYMBOL_IMAGE) DrawText x, y, i if selectedPiece == i SetAlpha 0.3 connectedId = Piece(i, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) SetColor Piece(i, $R), Piece(i, $G), Piece(i, $B) DrawLine Piece(i, $X), Piece(i, $Y), tx, ty FillRect tx, ty, 16, 16, 1 SetColor 255,255,255 DrawText tx, ty, connectedId SetAlpha 1 endif Next SetRotation 0 Return --v https://GotoJSE.com/5kDsQlXH.BAS
Thu, 06 Jan 2022, 01:44
Jayenkai	Congrats! Smooth like butter
Thu, 06 Jan 2022, 15:44
therevillsgames	Thanks! And barring the constant issue I enjoyed porting it to JSE
Fri, 21 Jan 2022, 09:35
Jayenkai	Guilt trip, much? I feel I have to post this, before everyone lynches me for pinching the idea of making a jigsaw puzzle. I was actually asked if I could do a jigsaw, using my Platdude pixelarts, mid December when I was knee deep in Advent stuff. I set it aside until new year, then this thread appeared and I felt that doing a jigsaw, RIGHT AFTER helping TheRevillsGames with his, would've looked like I'm just nabbing it. But.. maaan, I really wanna do it! So, I hope TheRevillsGames doesn't object to me doing a jigsaw puzzle. I didn't pinch it, honest!! -=-=- ''Load, Next List!''
Fri, 21 Jan 2022, 13:49
therevillsgames	LoL, of course not Jay! It just a jigsaw game, nothing mind blowing new etc and you didn't sign the NDA I sent