Sine of Ints - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|26\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Sine of Ints
Page : 1 Prev 2 Next
Fri, 18 Oct 2019, 10:22
Jayenkai	I think that might just be a Blitz thing. You're drawing a lot of lines, and doing a lot of trig. .. for Blitz3d.. Soon adds up!! -=-=- ''Load, Next List!''
Fri, 18 Oct 2019, 11:17
Jayenkai	tests Yeah, it's blitz's slow line drawing that's doing it. Comment out the line command to see the framerate shoot up. Blitz3D has always been a bit rubbish at drawing 2D stuff. If you're using.. .. anything else.. worry less about it! -=-=- ''Load, Next List!''
Sat, 19 Oct 2019, 11:10
spinal	Yeah, changed it to just plot the first pixel and getting 60fps. -=-=- Check out my excellent homepage!
Sun, 20 Oct 2019, 11:19
spinal	hmmmm, this seems a little less accurate on higher angles than I expected. Have I done something wrong do you think? Graphics 440,352,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Global fps Global groundMidPoint = 0.0 Global GRAVITY# = 0.25 Global groundAngle# Type Player Field x#,y# Field v# Field angle# Field dx#,dy# End Type Global Player.Player = New Player createHillTops() player\x = 10 While Not KeyHit(1) renderLevel() If KeyDown(205) Then player\x = player\x + 1 If KeyDown(203) Then player\x = player\x - 1 offsetX = player\x - 80 If(offsetX <0) Then offsetX=0 ;update physics ax# = -0.5 ay# = GRAVITY ; ground collision ; If player\y +5 > groundMidPoint Then 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 textY = 176 Text 5,textY,"fps: "+fps textY = textY + 12 Text 5,textY, "Hill Height: "+groundMidPoint textY = textY + 12 Text 5,textY, "Hill Angle: "+groundAngle textY = textY + 12 ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 3; If (o2>numHills) Then o2=numHills; Color 255,0,0 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(daj); segHeight = ((176-pt1Y)/4)+2; ;Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) Plot -offsetX+pt0X, pt1Y pt0X = pt1X; pt0Y = pt1Y; ; other platform doesn't have the ram to store the ; whole level Data, so we grab the hill height during render If Int(pt0X) = Int(player\x) Then groundMidPoint = Int(pt0Y) ; groundAngle = (daj)-90 ; not correct End If ; to find the angle of the ground, we grab he height 5px away and simply measure it. If Int(pt0X) = Int(player\x)-15 Then groundBackPoint = Int(pt0Y) End If If Int(pt0X) = Int(player\x)+15 Then groundFrontPoint = Int(pt0Y) groundAngle = ATan2((groundFrontPoint-groundBackPoint),30) End If Next ox=x; oy=hillTops(t); Next ; draw player Circle(-offsetX+player\x, groundMidPoint, 5) dx# = (player\x-15) + 30 * Cos(groundAngle); dy# = groundMidPoint + 30 * Sin(groundAngle); Color 255,255,255 Line -offsetX + player\x-15, groundBackPoint, -offsetX + dx, dy Color 255,0,0 Flip 1 End Function Function Circle(xpos,ypos,radius) Y = radius X = 0 A = radius/2 Plot xpos+x,ypos+y ; Draw the starting pixels Plot xpos-x,ypos-y Plot xpos+x,ypos-y Plot xpos-x,ypos+y Plot xpos+y,ypos+x Plot xpos-y,ypos-x Plot xpos+y,ypos-x Plot xpos-y,ypos+x While X < Y X = X + 1 A = A - X If A<0 Then A=A+Y Y=Y-1 EndIf Plot xpos+x,ypos+y ; Draw 1/8 at a time Plot xpos+y,ypos+x Plot xpos-x,ypos-y Plot xpos-y,ypos-x Plot xpos-x,ypos+y Plot xpos-y,ypos+x Plot xpos+x,ypos-y Plot xpos+y,ypos-x Wend End Function --v \|edit\| Got it, groundAngle = ATan2((groundFrontPoint-groundBackPoint),30) /2 --v -=-=- Check out my excellent homepage!
Sun, 20 Oct 2019, 14:38
spinal	hmmm, not right.... Graphics 440,352,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Global fps Global groundMidPoint = 0.0 Global GRAVITY# = 5.0 Global groundAngle# Type Player Field x#,y# Field speed# Field angle# Field dx#,dy# End Type Global Player.Player = New Player createHillTops() player\x = 10 While Not KeyHit(1) renderLevel() If KeyDown(205) Then player\x = player\x + 5 If KeyDown(203) Then player\x = player\x - 5 offsetX = player\x - 80 If(offsetX <0) Then offsetX=0 player\dx = 100 Cos(player\angle); player\dy = 100 * Sin(player\angle); player\dy = player\dy + GRAVITY ; ground collision If player\y + 5 + player\dy >= groundMidPoint Then player\angle = groundAngle player\y = groundMidPoint - 5 player\dy = 0 End If ; update position player\x = player\x + (player\dx /10) player\y = player\y + (player\dy /10) 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 textY = 176 Text 5,textY,"fps: "+fps textY = textY + 12 Text 5,textY, "Hill Height: "+groundMidPoint textY = textY + 12 Text 5,textY, "Hill Angle: "+groundAngle textY = textY + 12 Text 5,textY, "Player Angle: "+player\angle textY = textY + 12 ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 3; If (o2>numHills) Then o2=numHills; Color 255,0,0 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(daj); segHeight = ((176-pt1Y)/4)+2; ;Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) Plot -offsetX+pt0X, pt1Y pt0X = pt1X; pt0Y = pt1Y; ; other platform doesn't have the ram to store the ; whole level Data, so we grab the hill height during render If Int(pt0X) = Int(player\x) Then groundMidPoint = Int(pt0Y) ; groundAngle = (daj)-90 ; not correct End If ; to find the angle of the ground, we grab he height 5px away and simply measure it. If Int(pt0X) = Int(player\x)-15 Then groundBackPoint = Int(pt0Y) End If If Int(pt0X) = Int(player\x)+15 Then groundFrontPoint = Int(pt0Y) groundAngle = ATan2((groundFrontPoint-groundBackPoint),30) /2 End If Next ox=x; oy=hillTops(t); Next ; draw player Circle(-offsetX+player\x, player\y, 5) dx# = (player\x-15) + 30 * Cos(player\angle); dy# = player\y + 30 * Sin(player\angle); Color 255,255,255 Line -offsetX + player\x , player\y, -offsetX + dx, dy dx# = (player\x-15) + 30 * Cos(groundAngle); dy# = groundMidPoint + 30 * Sin(groundAngle); Color 255,255,255 Line -offsetX + player\x-15, groundBackPoint, -offsetX + dx, dy Color 255,0,0 Flip 1 End Function Function Circle(xpos,ypos,radius) Y = radius X = 0 A = radius/2 Plot xpos+x,ypos+y ; Draw the starting pixels Plot xpos-x,ypos-y Plot xpos+x,ypos-y Plot xpos-x,ypos+y Plot xpos+y,ypos+x Plot xpos-y,ypos-x Plot xpos+y,ypos-x Plot xpos-y,ypos+x While X < Y X = X + 1 A = A - X If A<0 Then A=A+Y Y=Y-1 EndIf Plot xpos+x,ypos+y ; Draw 1/8 at a time Plot xpos+y,ypos+x Plot xpos-x,ypos-y Plot xpos-y,ypos-x Plot xpos-x,ypos+y Plot xpos-y,ypos+x Plot xpos+x,ypos-y Plot xpos+y,ypos-x Wend End Function --v -=-=- Check out my excellent homepage!
Sun, 20 Oct 2019, 15:24
Jayenkai	You've forgotten to add gravity to the player's trajectory whilst in the air. Where ; ground collision If player\y + 5 + player\dy >= groundMidPoint Then player\angle = groundAngle player\y = groundMidPoint - 5 player\dy = 0 EndIf --v Make ; ground collision If player\y + 5 + player\dy >= groundMidPoint Then player\angle = groundAngle player\y = groundMidPoint - 5 player\dy = 0 Else player\angle=player\angle+0.1 EndIf --v .. or thereabouts! -=-=- ''Load, Next List!''
Mon, 21 Oct 2019, 04:39
spinal	Still doesn't 'jump' off the hills, just falls This is one of those things where I think I know how to do it, but I just don't know how to do it o Increase player speed by gravity o Apply gravity to player o If player hits ground, change player angle to ground angle, keep moving forward at same speed o If in air, drop angle so that player falls back to ground in forward direction Why isn't it that simple? Graphics 440,352,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Global fps Global groundMidPoint = 0.0 Global groundFrontPoint = 0.0 Global groundBackPoint = 0.0 Global groundAngle# Global gravity# = 0.5 Type Player Field x#,y# Field speed# Field angle# Field dx#,dy# End Type Global Player.Player = New Player createHillTops() player\x = 100 While Not KeyHit(1) renderLevel() ; If KeyDown(205) Then player\x = player\x + 5 ; If KeyDown(203) Then player\x = player\x - 5 offsetX = player\x - 80 If(offsetX <0) Then offsetX=0 If KeyDown(205) Then gravity = 1.5 Else gravity = 0.25 End If player\speed = player\speed + gravity player\speed = player\speed 0.975 If player\speed > 15 Then player\speed = 15 ; player\dy = player\dy + gravity If player\y + player\dy + 10 >= groundMidPoint Then player\angle = groundAngle player\y = groundMidPoint - 10 End If player\angle = player\angle + gravity player\dx = player\speed * Cos(player\angle) player\dy = player\speed * Sin(player\angle) ; update position player\x = player\x + player\dx player\y = player\y + player\dy 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 textY = 176 Text 5,textY,"fps: "+fps textY = textY + 12 Text 5,textY, "Hill Height: "+groundMidPoint textY = textY + 12 Text 5,textY, "Hill Angle: "+groundAngle textY = textY + 12 Text 5,textY, "Player Angle: "+player\angle textY = textY + 12 Text 5,textY, "Ground Difference: "+ (groundFrontPoint-groundBackPoint) textY = textY + 12 Text 5,textY, "Speed: "+ player\speed textY = textY + 12 ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 3; If (o2>numHills) Then o2=numHills; Color 255,0,0 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(daj); segHeight = ((176-pt1Y)/4)+2; ;Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) Plot -offsetX+pt0X, pt1Y pt0X = pt1X; pt0Y = pt1Y; ; other platform doesn't have the ram to store the ; whole level Data, so we grab the hill height during render If Int(pt0X) = Int(player\x) Then groundMidPoint = Int(pt0Y) ; groundAngle = (daj)-90 ; not correct End If ; to find the angle of the ground, we grab he height 5px away and simply measure it. If Int(pt0X) = Int(player\x)-15 Then groundBackPoint = Int(pt0Y) End If If Int(pt0X) = Int(player\x)+15 Then groundFrontPoint = Int(pt0Y) groundAngle = ATan2((groundFrontPoint-groundBackPoint),30) /2 End If Next ox=x; oy=hillTops(t); Next ; draw player Circle(-offsetX+player\x, player\y, 5) dx# = (player\x-15) + 30 * Cos(player\angle); dy# = player\y + 30 * Sin(player\angle); Color 255,255,255 Line -offsetX + player\x , player\y, -offsetX + dx, dy dx# = (player\x-15) + 30 * Cos(groundAngle); dy# = groundMidPoint + 30 * Sin(groundAngle); Color 255,255,255 Line -offsetX + player\x-15, groundBackPoint, -offsetX + dx, dy Color 255,0,0 Flip 1 End Function Function Circle(xpos,ypos,radius) Y = radius X = 0 A = radius/2 Plot xpos+x,ypos+y ; Draw the starting pixels Plot xpos-x,ypos-y Plot xpos+x,ypos-y Plot xpos-x,ypos+y Plot xpos+y,ypos+x Plot xpos-y,ypos-x Plot xpos+y,ypos-x Plot xpos-y,ypos+x While X < Y X = X + 1 A = A - X If A<0 Then A=A+Y Y=Y-1 EndIf Plot xpos+x,ypos+y ; Draw 1/8 at a time Plot xpos+y,ypos+x Plot xpos-x,ypos-y Plot xpos-y,ypos-x Plot xpos-x,ypos+y Plot xpos-y,ypos+x Plot xpos+x,ypos-y Plot xpos+y,ypos-x Wend End Function --v -=-=- Check out my excellent homepage!
Tue, 22 Oct 2019, 04:00
spinal	Dear google, 'import huge physics engine' does not help me in the slightest in achieving my aim. -=-=- Check out my excellent homepage!
Tue, 22 Oct 2019, 04:11
Jayenkai	shrugs Sure looks good enough to me!! (The above engine thus far, not the "Add all these includes that bloat your engine to insanity" stuff) -=-=- ''Load, Next List!''
Tue, 22 Oct 2019, 05:18
spinal	Closer, player seems to fall through the ground more, but does fly a bit... Graphics 440,352,0,2 Cls Global numHills = 200 Global hillMin = 40 Global hillMax = 176-40 Dim hillTops(numHills) Global offsetX = 0; Global hillWidth = 484; Global fps Global gravity# = 0.5 Type Player Field x#,y# Field speed# Field angle# Field dx#,dy# End Type Global Player.Player = New Player Type Ground Field y#, by#, fy# Field angle# End Type Global Ground.Ground = New Ground createHillTops() player\x = 100 While Not KeyHit(1) renderLevel() ; If KeyDown(205) Then player\x = player\x + 5 ; If KeyDown(203) Then player\x = player\x - 5 offsetX = player\x - 80 If(offsetX <0) Then offsetX=0 ; If KeyDown(205) Then gravity = 5 Else gravity = 2.5 If KeyDown(205) Then player\angle = player\angle + .5 If player\angle > 45 Then player\angle = 45 player\dy = player\dy + gravity + ATan2(player\dy, player\dx) player\dx = player\dx + ATan2(player\dy, player\dx) If player\y + player\dy + 10 > ground\y Then player\y = ground\y - 10 player\dy = 0 player\angle = (player\angle + ground\angle) ; player\speed = ATan2(player\dy, player\dx) End If player\angle = player\angle + .125 player\speed = player\speed + (Cos(player\angle)/90) If(player\speed < .5) Then player\speed = .5 player\dx = player\speed Cos(player\angle) player\dy = player\speed * Sin(player\angle) player\x = player\x + player\dx player\y = player\y + player\dy If (MilliSecs() - fpsTimer > 1000) fpsTimer = MilliSecs() fps = fpsTicks fpsTicks = 0 Else fpsTicks = fpsTicks + 1 EndIf Wend End Function createHillTops() SeedRnd(MilliSecs()) hillTops(0) = hillMin hillTops(1) = hillMax For t = 2 To numHills hillTops(t)=Rnd(hillMin, hillMax) Next End Function Function renderLevel() SetBuffer BackBuffer() Cls textY = 176 Text 5,textY,"fps: "+fps textY = textY + 12 Text 5,textY, "Gravity: "+gravity textY = textY + 12 Text 5,textY, "Ground Angle: "+ground\angle textY = textY + 12 Text 5,textY, "Player Angle: "+player\angle textY = textY + 12 Text 5,textY, "Speed: "+ player\speed textY = textY + 12 Text 5,textY, "Atan2: "+ ATan2(player\dy, player\dx) textY = textY + 12 ox = 0; oy = hillTops(0); o1 = (offsetX/hillWidth)+1; o2 = o1 + 3; If (o2>numHills) Then o2=numHills; Color 255,0,0 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(daj); segHeight = ((176-pt1Y)/4)+2; ;Line(-offsetX+pt0X, pt1Y, -offsetX+pt0X, pt1Y+segHeight) Plot -offsetX+pt0X, pt1Y pt0X = pt1X; pt0Y = pt1Y; ; other platform doesn't have the ram to store the ; whole level Data, so we grab the hill height during render If Int(pt0X) = Int(player\x) Then ground\y = Int(pt0Y) ; groundAngle = (daj)-90 ; not correct End If ; to find the angle of the ground, we grab he height 5px away and simply measure it. If Int(pt0X) = Int(player\x)-15 Then ground\by = Int(pt0Y) End If If Int(pt0X) = Int(player\x)+15 Then ground\fy = Int(pt0Y) ; now that we have the rear and front height, find the angle between the two ground\angle = ATan2((ground\fy-ground\by),30) /2 End If Next ox=x; oy=hillTops(t); Next ; draw player Circle(-offsetX+player\x, player\y, 5) dx# = player\x + 15 * Cos(player\angle); dy# = player\y + 15 * Sin(player\angle); Color 255,255,255 Line -offsetX + player\x , player\y, -offsetX + dx, dy dx# = (player\x-15) + 30 * Cos(ground\angle); dy# = ground\y + 30 * Sin(ground\angle); Color 255,255,255 Line -offsetX + player\x-15, ground\by, -offsetX + dx, dy Color 255,0,0 Flip 1 End Function Function Circle(xpos,ypos,radius) Y = radius X = 0 A = radius/2 Plot xpos+x,ypos+y ; Draw the starting pixels Plot xpos-x,ypos-y Plot xpos+x,ypos-y Plot xpos-x,ypos+y Plot xpos+y,ypos+x Plot xpos-y,ypos-x Plot xpos+y,ypos-x Plot xpos-y,ypos+x While X < Y X = X + 1 A = A - X If A<0 Then A=A+Y Y=Y-1 EndIf Plot xpos+x,ypos+y ; Draw 1/8 at a time Plot xpos+y,ypos+x Plot xpos-x,ypos-y Plot xpos-y,ypos-x Plot xpos-x,ypos+y Plot xpos-y,ypos+x Plot xpos+x,ypos-y Plot xpos+y,ypos-x Wend End Function --v -=-=- Check out my excellent homepage!
Tue, 22 Oct 2019, 08:42
Jayenkai	Tweaked the "grip" a little If player\y + 10.5 > ground\y Then ; Add a little amount of "grip" to the path player\y = (ground\y) - 10 player\dy = 0 player\angle = (player\angle + ground\angle) player\angle=ground\angle*1.5 ; Change For More/Less Bounciness ; player\speed = ATan2(player\dy, player\dx) End If --v -=-=- ''Load, Next List!''
Tue, 22 Oct 2019, 13:28
spinal	better. It still aint this though .... View on YouTube -=-=- Check out my excellent homepage!
Tue, 22 Oct 2019, 16:06
Jayenkai	Boooo. Hissss. Evil game. Nasty. Booooooooooooooo!!!! I believe you meant to say that "it still ain't" the classic "made in a week" game, Wavespark, by AGameAWeek'er NMcCoy. -=-=- ''Load, Next List!''
Wed, 23 Oct 2019, 00:44
spinal	Interesting looking screenshot for that game, I can't play it though, it appears that modern java just wont allow it, nor will it allow the security settings to be lowered. [Edit] it seems there was a #2, I'll try that later... http://nmccoy.net/2011/01/25/game-45-wavespark-ii/ -=-=- Check out my excellent homepage!
Page : 1 Prev 2 Next