Sine of Ints - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|595\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Sine of Ints
Page : 1 2 Next Prev
Mon, 07 Oct 2019, 06:38
spinal	I don't suppose anyone here has every tried drawing a sine wave without floats (including PI)? -=-=- Check out my excellent homepage!
Mon, 07 Oct 2019, 06:38
Jayenkai	Probably best to use an array for that kind of thing, I think. -=-=- ''Load, Next List!''
Mon, 07 Oct 2019, 07:47
spinal	Yeah, I was thinking something like that
Mon, 07 Oct 2019, 11:30
spinal	My brain has turned to mush. Graphics 640,480,0,2 Cls Dim cosTable(180) ;output = WriteFile("cossine.txt") For t=0 To 180 y = 50+50Cos(180-t) Plot t, y cosTable(t) = y ; a$ = y + "," ; WriteLine output, a$ Next ;CloseFile(output) x1 = 0 y1 = 0 x2 = 60 y2 = 50 lx = x2-x1 ly = y2-y1 Color 255,0,0 For t = 0 To lx y = cosTable((t 180)/lx) Plot t , y Next While Not KeyHit(1) Wend End --v I'm probably backwards in the maths, but the above code doesn't seem to give me the 50% scale (red) that I'm looking for.... -=-=- Check out my excellent homepage!
Mon, 07 Oct 2019, 12:40
Jayenkai	What is it, exactly, that you're trying to do? 50% of the x or the y? (If you could hand-draw what you'd like it to look like, I'll give it a whirl) -=-=- ''Load, Next List!''
Mon, 07 Oct 2019, 12:54
Jayenkai	This .. might.. help. Depends on what exactly you need! Graphics 640,480,0,2 Cls Dim cosTable(180) ;output = WriteFile("cossine.txt") For t=0 To 180 y = 50+50Cos(180-t) Plot t, y cosTable(t) = y ; a$ = y + "," ; WriteLine output, a$ Next ;CloseFile(output) x1 = 0 y1 = 0 x2 = 50 y2 = 50 lx = (180(x2-x1))/100 ; Change lx to a percentage, not a straight value. ly = (100(y2-y1))/100 Color 255,0,0 For t = 0 To lx x=((t180)/lx) v=Floor(x) Mod 180: If v<0 Then v=180+v ; safeguard value to be within range of array. You don't want a crash because of an out of bound error! y = (cosTable(v)*ly)/100 Plot t , y Next While Not KeyHit(1) Wend End --v -=-=- ''Load, Next List!''
Mon, 07 Oct 2019, 14:23
spinal	Almost what I need! Graphics 800,600,0,2 Cls Dim cosTable(180) ;output = WriteFile("cossine.txt") For t=0 To 180 y = 50+50Cos(180-t) ; Plot t, y cosTable(t) = y ; a$ = y + "," ; WriteLine output, a$ Next ;CloseFile(output) x1 = 100 y1 = 100 x2 = 200 y2 = 100 While Not KeyHit(1) SetBuffer BackBuffer() Cls If MouseX() > 0 Then x2 = MouseX() If MouseY() > 0 Then y2 = MouseY() Color 255,255,255 For t=0 To 180 Plot t, cosTable(t) Next lx = (100Abs(x2-x1))/100 ; Change lx to a percentage, not a straight value. ly = (100Abs(y2-y1))/100 Color 255,0,0 oldx = x1 oldy = y1 For t = 0 To lx Step 10 x=((t180)/lx) v=Floor(x) Mod 180: If v<0 Then v=180+v ; safeguard value to be within range of array. You don't want a crash because of an out of bound error! y = (cosTable(v)*ly)/100 Line oldx, oldy, t + x1 , y+y1 oldx = t + x1 oldy = y + y1 Next Flip 1 Wend End --v Just needs to go backwards also -=-=- Check out my excellent homepage!
Mon, 07 Oct 2019, 14:43
Jayenkai	For backwards do x=(( lx-t)*180)/lx. (I think) The added safeguard should be more than enough to cope with negative values. -=-=- ''Load, Next List!''
Tue, 08 Oct 2019, 01:25
spinal	OK, that's part 1 done! Many thinks to Jay for that! Not sure if its the best way to produce a hilly terrain, but it looks OK Graphics 800,600,0,2 Cls Dim cosTable(180) ;output = WriteFile("cossine.txt") For t=0 To 180 y = 50+50Cos(180-t) ; Plot t, y cosTable(t) = y ; a$ = y + "," ; WriteLine output, a$ Next ;CloseFile(output) x1 = 100 y1 = 100 x2 = 200 y2 = 100 Dim hillY(20) For t = 0 To 20 hillY(t)=Rnd(10,100) Next While Not KeyHit(1) SetBuffer BackBuffer() Cls If MouseX() > 0 Then x2 = MouseX() If MouseY() > 0 Then y2 = MouseY() Color 255,255,255 ;For t=0 To 180 ; Plot t, cosTable(t) ;Next For t = 1 To 20 curveBetween((t-1)50,hillY(t-1), t50,hillY(t)) Next ;curveBetween(x1,y1,x2,y2) Flip 1 Wend End Function curveBetween(x1,y1,x2,y2) vFlip = 0 If y2<y1 Then vFlip = 1 lx = (100Abs(x2-x1))/100 ; Change lx to a percentage, not a straight value. ly = (100Abs(y2-y1))/100 Color 255,0,0 oldx = x1 oldy = y1 For t = 0 To lx Step 2 x=((t180)/lx) v=Floor(x) Mod 180: If v<0 Then v=180+v ; safeguard value to be within range of array. You don't want a crash because of an out of bound error! y = (cosTable(v)*ly)/100 If vFlip = 0 Then y = y1 + y Else y = y1 - y End If If t <> lx Then Line oldx, oldy, t + x1 , y Else Line oldx, oldy, t + x1 , y2 End If oldx = t + x1 oldy = y Next End Function --v -=-=- Check out my excellent homepage!
Tue, 08 Oct 2019, 05:12
Jayenkai	Well, I'd never have thought it'd be that!! I was expecting some kind of thumbstick recalibration, (to rescale values around a larger deadzone) or something!! -=-=- ''Load, Next List!''
Tue, 08 Oct 2019, 11:52
spinal	Looks like I'll have to change language, making the above a bit of a waste of time. The 'without floats' was because micro-python on the pokitto doesn't support floats. But I think the rest of the project will require plenty of angles and such, so a switch to C might be best. -=-=- Check out my excellent homepage!
Tue, 08 Oct 2019, 11:57
Jayenkai	It'd still be quicker using the lookup table. Depending on how much maths you're doing, and ... I assume the Pokitto is low on cpu?.. might be worth keeping it around. (And maybe increasing the array to a full 360, for multi-purpose reuse) -=-=- ''Load, Next List!''
Tue, 08 Oct 2019, 12:52
spinal	I was thinking something along the lines of linerider (pun not intended). I assume knowing your angle compared to the 'ground' and applying some sort of acceleration would need a bunch of trig. -=-=- Check out my excellent homepage!
Tue, 08 Oct 2019, 13:33
Jayenkai	Not necessarily.. you could guesstimate it reasonably well.. Take the next few values up ahead (say the next 8 or so pixels) and average them out, then either speed up or slow down depending on whether the average is above or below you.. -=-=- ''Load, Next List!''
Mon, 14 Oct 2019, 14:06
spinal	OK, started it up in java on pokitto. So far, I have plenty of hills and a small wheeled 'car' (that's a stretch, its a line with two wheels), currently I'm only using forward acceleration and gravity, like what I learned doing platformers and it looks OK. It's not 100% perfect, but its not bad. Thing is, it doesn't really 'jump' off the hills... Not sure how to achieve that. -=-=- Check out my excellent homepage!
Mon, 14 Oct 2019, 15:01
Jayenkai	Looking great!!! go for something like .. adding per frame the Y difference from the last few frames to the current one.. then if "not on the floor" make the last value the current "fall" speed (which should hopefully be upwards!) -=-=- ''Load, Next List!''
Mon, 14 Oct 2019, 22:12
rockford	That looks pretty good to me
Tue, 15 Oct 2019, 03:38
spinal	Tried a different approach. Rather than adding global gravity to the wheels, I tried rotating each wheel around the other and the acceleration moving in the direction of the angle between the wheels... Cute, but wrong -=-=- Check out my excellent homepage!
Tue, 15 Oct 2019, 04:04
Jayenkai	LOL! Jelly Rider!!!
Tue, 15 Oct 2019, 09:56
steve_ancell	Most certainly getting there, good luck with this.
Wed, 16 Oct 2019, 02:49
spinal	Broke it. Ok time to start over.... Tomorrow ðŸ˜† -=-=- Check out my excellent homepage!
Fri, 18 Oct 2019, 00:30
spinal	OK, attempted to pop the code into blitz for speed of testing etc. but for some reason this no work Graphics 800,600,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Type Player Field x,y Field speed End Type Global Plater.Player = New Player createHillTops() While Not KeyHit(1) renderLevel() If KeyDown(28) Then offsetX = offsetX + 1 Wend End Function createHillTops() For t = 0 To numHills hillTops(t)=Rnd(hillMin, hillMax) Next End Function Function renderLevel() SetBuffer BackBuffer() Cls ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 6; If (o2>numHills) Then o2=numHills; Color 255,255,255 For t=o1 To o2 x=(thillWidth); p0X# = x-hillWidth; p0Y# = hillTops(t-1); p1X# = x; p1Y# = hillTops(t); dx# = (p1X - p0X) / hillWidth; da# = Pi / hillWidth; ymid# = (p0Y + p1Y) / 2; ampl# = (p0Y - p1Y) / 2; pt0X# = p0X; pt0Y# = p0Y; pt1X# = p1X; pt1Y# = p1Y; For j = 1 To hillWidth + 1 pt1X = p0X + jdx; pt1Y = ymid + ampl Cos(da*j); segHeight = ((176-pt1Y)/4)+2; Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) pt0X = pt1X; pt0Y = pt1Y; Next ox=x; oy=hillTops(t); Next Flip 1 End Function --v That aint no smooth hillside -=-=- Check out my excellent homepage!
Fri, 18 Oct 2019, 05:10
Jayenkai	The line da#=pi / hillWidth Should be da#=180.0 / hillWidth (.. or at least, it works if you do that!! .. Might still be wrong!!) -=-=- ''Load, Next List!''
Fri, 18 Oct 2019, 08:32
spinal	I wish they would pass laws about sin/cos using degrees or radians ðŸ˜¤ -=-=- Check out my excellent homepage!
Fri, 18 Oct 2019, 09:01
Jayenkai	I typically make a sind() cosd() set of functions when I'm using rad-based languages. My head works in sets of 45, like the angles on a joystick!! -=-=- ''Load, Next List!''
Fri, 18 Oct 2019, 09:56
spinal	OK, it seems to work, but I can't imagine why it would be son incredibly slow... I'm getting an out of this world 3fps from this. Graphics 800,600,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Global fps Type Player Field x,y Field speed End Type Global Plater.Player = New Player createHillTops() While Not KeyHit(1) renderLevel() If KeyDown(28) Then offsetX = offsetX + 5 If (MilliSecs() - fpsTimer > 1000) fpsTimer = MilliSecs() fps = fpsTicks fpsTicks = 0 Else fpsTicks = fpsTicks + 1 EndIf Wend End Function createHillTops() For t = 0 To numHills hillTops(t)=Rnd(hillMin, hillMax) Next End Function Function renderLevel() SetBuffer BackBuffer() Cls Text 5,5,"fps: "+fps ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 2; If (o2>numHills) Then o2=numHills; Color 255,255,255 For t=o1 To o2 x=(thillWidth); p0X# = x-hillWidth; p0Y# = hillTops(t-1); p1X# = x; p1Y# = hillTops(t); dx# = (p1X - p0X) / hillWidth; da# = 180.0 / hillWidth; ymid# = (p0Y + p1Y) / 2; ampl# = (p0Y - p1Y) / 2; pt0X# = p0X; pt0Y# = p0Y; pt1X# = p1X; pt1Y# = p1Y; For j = 1 To hillWidth + 1 pt1X = p0X + jdx; pt1Y = ymid + ampl Cos(da*j); segHeight = ((176-pt1Y)/4)+2; Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) pt0X = pt1X; pt0Y = pt1Y; Next ox=x; oy=hillTops(t); Next Flip End Function --v -=-=- Check out my excellent homepage!
Page : 1 2 Next Prev