Morphing - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|706\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Morphing
Tue, 13 Dec 2016, 14:41
spinal	I want to morph between two small b/w images, anyone got any software to do that? looking for a similar effect to how dpaint did it. -=-=- Check out my excellent homepage!
Tue, 13 Dec 2016, 14:41
Jayenkai	Morph tools used to be a dime a dozen, but much like Perspective Warping, and image Wrapping, they're no longer part of modern tools.. God knows why. Dig out DPaint! -=-=- ''Load, Next List!''
Wed, 14 Dec 2016, 00:03
spinal	I've started a blitz 'pixel mover' as I'm using small monochrome images, it's going to be just a case of setting where each pixel from the first image needs to be in the second, then move them there in x steps. Just have to move x,y to x1,y1... you'd think I'd remember how to do that. Anyway, couple of long days at work, so that might take me a few days. -=-=- Check out my excellent homepage!
Wed, 14 Dec 2016, 00:11
Jayenkai	A=A-((A-B)/C) Or in this case X=X-((X-X1)/8.0) and again for Y -=-=- ''Load, Next List!''
Wed, 14 Dec 2016, 14:08
spinal	8.0?
Wed, 14 Dec 2016, 14:22
Jayenkai	Or any other value... Approximate number of steps that it takes to get from A to B Note that it'll start off fast, then slow down as it gets closer. Works best with Floats.. Also, you might want a.. if Abs(a-b)<0.5 then a=b in there, too. -=-=- ''Load, Next List!''
Thu, 15 Dec 2016, 00:59
spinal	I was thinking more about even steps, shouldn'y this work.... numFrames = 16 For s = 1 To numFrames For t = 0 To numPoints-1 distance = PointsX(0,t)-pointsX(1,t) steps = distance / numFrames x = pointsX(0,t)+(steps*s) y = 0 ; temp value, only testing with one point Color 255,255,255 Plot x,y+300 Next Next --v -=-=- Check out my excellent homepage!
Thu, 15 Dec 2016, 02:32
Jayenkai	Switch For a to "= numframes to 1 step -1" , and use that as the divider instead of numframes. Should be ok. -=-=- ''Load, Next List!''
Thu, 15 Dec 2016, 14:39
spinal	this works well enough! Graphics 800,600,0,2 AppTitle "Spinals Simple morph thingy" Dim imageArray(16,16) Global numPoints = 0 Dim pointsX(2,100) Dim pointsY(2,100) ; Get black and white pixels in case the screen bit depth is different Color 0,0,0 Plot 0,0 Global colBlack = ReadPixel(0,0) Color 255,255,255 Plot 0,0 Global colWhite = ReadPixel(0,0) pic1 = LoadImage("frame1.png") pic2 = LoadImage("frame2.png") While Not KeyHit(1) Delay(1) SetBuffer BackBuffer() Cls DrawBlock pic1,0,0 DrawBlock pic2,16,0 For y = 0 To 15 For x = 0 To 15 col = ReadPixel(x,y) If col = colWhite Then imageArray(x,y) = 2 Else imageArray(x,y) = 1 End If Color imageArray(x,y)127,imageArray(x,y)127,imageArray(x,y)127 Rect x10,32+y10,8,8,1 Next Next For y = 0 To 15 For x = 0 To 15 col = ReadPixel(x+16,y) If col = colWhite Then imageArray(x,y) = 2 Else imageArray(x,y) = 1 End If Color imageArray(x,y)127,imageArray(x,y)127,imageArray(x,y)127 Rect 200+x10,32+y10,8,8,1 Next Next If numPoints > 0 Then For t = 0 To numPoints-1 Color 255,0,0 Rect pointsX(0,t)10,(pointsY(0,t)10)+32,8,8,1 Color 0,0,255 Rect 200+pointsX(1,t)10,(pointsY(1,t)10)+32,8,8,1 Next End If Color 0,0,0 Rect 64,0,799,14,1 Color 255,255,255 Text 64,0,"X "+mx+" Y "+my + " points:"+numPoints mx = MouseX() my = MouseY() If MouseHit(1) Then tasked = 0 If mx<160 Then If my>32 And my < 192 Then pointsX(0,numPoints) = mx/10 pointsY(0,numPoints) = (my-32)/10 pointsX(1,numPoints) = mx/10 pointsY(1,numPoints) = (my-32)/10 numPoints = numPoints + 1 tasked = 1 End If End If If (mx-200)<160 And tasked = 0 Then If my>32 And my < 192 Then pointsX(1,numPoints-1) = (mx-200)/10 pointsY(1,numPoints-1) = (my-32)/10 tasked = 1 End If End If End If numFrames = 10 For s = 0 To numFrames For t = 0 To numPoints-1 distanceX = PointsX(1,t)-pointsX(0,t) distanceY = PointsY(1,t)-pointsY(0,t) stepsX = (distanceX * s)/ numFrames stepsY = (distanceY * s)/ numFrames x = pointsX(0,t) + stepsX + (s*16) y = pointsY(0,t) + stepsY Color 255,255,255 Plot x,y+300 Next Next Flip(1) Wend End --v -=-=- Check out my excellent homepage!