sine cosine junk giving me a headache

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|431\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> sine cosine junk giving me a headache
Tue, 10 Apr 2007, 10:00
Blitz3Dman	gah I couldn't program something using these commands to do anything. I was trying to learn a bit about the so I could try adding rotating stuff to my program The Running Man but no... why aren't the points being distributed around the circle correctly instead of all being in one place? Const gw=640,gh=480 Graphics gw,gh,0,2 ClsColor 210,210,210 SetBuffer BackBuffer() Global dia#=160,less=True,ang#=0 Dim pointx(8),pointy(8) For t=1 To 8 pointx(t)=((dia+4)/2)Cos(t45) pointy(t)=((dia+4)/2)Sin(t45) Next Repeat Cls ang=ang+0.5 If ang>360 Then ang=0 Color 255,255,255 Oval MouseX()-dia/2-4,MouseY()-dia/2-4,dia+8,dia+8,1 Color 70,70,70 Oval MouseX()-dia/2,MouseY()-dia/2,dia,dia,0 Oval MouseX()-5,MouseY()-5,10,10,0 If less=True Then dia=dia-0.8 If dia<100 Then less=False Else If less=False dia=dia+0.5 If dia>160 Then less=True EndIf Text 10,10,pointx(1)+","+pointy(1) For pts=1 To 8 pointx(pts)=((dia+14)/2)Cos(ang) pointy(pts)=((dia+14)/2)Sin(ang) Next LockBuffer Color dia/2,dia/2,dia/2 Line pointx(1)+MouseX(),pointy(1)+MouseY(),pointx(3)+MouseX(),pointy(3)+MouseY() Line pointx(3)+MouseX(),pointy(3)+MouseY(),pointx(5)+MouseX(),pointy(5)+MouseY() Line pointx(5)+MouseX(),pointy(5)+MouseY(),pointx(7)+MouseX(),pointy(7)+MouseY() Line pointx(7)+MouseX(),pointy(7)+MouseY(),pointx(1)+MouseX(),pointy(1)+MouseY() Line pointx(2)+MouseX(),pointy(2)+MouseY(),pointx(4)+MouseX(),pointy(4)+MouseY() Line pointx(4)+MouseX(),pointy(4)+MouseY(),pointx(6)+MouseX(),pointy(6)+MouseY() Line pointx(6)+MouseX(),pointy(6)+MouseY(),pointx(8)+MouseX(),pointy(8)+MouseY() Line pointx(8)+MouseX(),pointy(8)+MouseY(),pointx(2)+MouseX(),pointy(2)+MouseY() UnlockBuffer Flip Forever --v -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 10 Apr 2007, 10:34
Jayenkai	You're not adding the pts variable to the angle, so when it calculates the angles, they all use ang, which stays the same throughout the for loop. For pts=1 To 8 ;<---- This 8 goes here ----v pointx(pts)=((dia+14)/2)Sin(ang+ (pts(360/8) ) ) pointy(pts)=((dia+14)/2)Cos(ang+ (pts(360/8) ) ) Next --v -=-=- ''Load, Next List!''
Tue, 10 Apr 2007, 12:11
Blitz3Dman	ahh.... thank you.
Tue, 10 Apr 2007, 17:44
magicman	YEY Trig!!!
Wed, 11 Apr 2007, 15:14
Blitz3Dman	yea, what I stink at the most and what I am most desperate to learn. (besides sound and 3d ) -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Thu, 12 Apr 2007, 18:00
magicman	sound? if your talking about sound in a game then that shouldnt be much of a problem, its pretty easy. -=-=- Stuff... Yeah...
Thu, 12 Apr 2007, 18:02
Blitz3Dman	No, it's because I have no taste for music so I can't tell what music goes well with what game. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Thu, 12 Apr 2007, 18:10
magicman	oh, ok that makes alot more sense, just go with what feels right, or ask someone elses opinion. -=-=- Stuff... Yeah...