Posts: 2,404
Threads: 153
Joined: Jan 2005
To Mitth: Right, but its still amazing!! :wink:
To Shift: He he, a longitutal wave!!! sweet!!!
To Mitth(Rels comment): He means to compile it..
exegenate..
To Kylemc: Thats cool!!!
To xteraco: Hay, come on, this is for fun, might learn something.. :wink:
Kevin (
x.t.r.GRAPHICS)
Posts: 442
Threads: 107
Joined: Feb 2005
i exeignated it for ya :wink:
http://68.102.38.232:8080/sin.exe
just let me know when you got it so i can delete it off my server
url=http://www.random-seed.net]
[/url]
Posts: 3,288
Threads: 167
Joined: Nov 2001
Posts: 2,404
Threads: 153
Joined: Jan 2005
Actully Shift's latest is what an actual sound wave would look like as a diagram,. they are normaly grafted as a sin curve as my challenge aplied, (but shift's still meets the definition of sound wave, and it still counts :wink: ),..
An even more real sound wave expands it a 3d sphere and disapates to the inverse square law of the distance from the source.. :wink:
Kevin (
x.t.r.GRAPHICS)
Posts: 503
Threads: 31
Joined: Feb 2005
Rattra:
When I said that's great, that wasn't sarcasim....I really ment I loved it!!!
Lynax's was good too.
i]"But...it was so beautifully done"[/i]
Posts: 2,404
Threads: 153
Joined: Jan 2005
Eh? I was commenting on your post about your 3D wave... oh well... :lol:
Kevin (
x.t.r.GRAPHICS)
Posts: 503
Threads: 31
Joined: Feb 2005
:o Oh, ya....ummm....ya.
Ok. opps :oops:
i]"But...it was so beautifully done"[/i]
Posts: 46
Threads: 2
Joined: May 2004
Ok, what the hell. I whipped one up real quick.
Code:
'Coded in Qbasic V7.1
'I left some different things to try ;)
1 AMP = ABS(SIN(i& * 3.14159 / 180) * COS(i& * 3.1415 / 150) * 100)
'AMP = (i& MOD 100) XOR (TIMER MOD 100)
'AMP = ABS(SIN(i& * 3.14159 / 90)) * 90 + 10
'AMP = i& MOD 100
'AMP = ABS(TAN(i& * 3.14159 / 180) * 100) MOD 100
'AMP = i& MOD 20
'AMP = INT(RND * 100)
'AMP = LOG(i& MOD 100 + 1) * 30
'AMP = ASC(MID$("I can't think of any more algorithms for AMP!", i& MOD 45 + 1, 1))
'AMP = ASC(MID$("Cool. It sounds like crickets chirping!#!@$*!", i& MOD 45 + 1, 1))
'AMP = ASC(MID$("I really need to go to fucking sleep!!!!!!!!!", i& MOD 45 + 1, 1))
2 i& = i& + 1 AND &HFFF
3 SCREEN 7, 0, i& AND 1, (i& AND 1) XOR 1
4 LINE (0, 0)-(319, 199), 0, BF
5 FOR x = 0 TO 319
6 PSET (x, SIN((x + i& * 5) * 3.14159 / 180) * AMP + 100), 2
7 NEXT
8 SOUND AMP * 100 + 100, .1
9 IF INKEY$ = "" THEN GOTO 1
Here is an old progam I wrote.
.... must ...sleep... nowww.......
hat were we arguing about again?
Posts: 2,404
Threads: 153
Joined: Jan 2005
He he, you added sound.. :wink: .. but it changes in frequincy (SOUND statment) not amps, amps is the volume of sound and not its pitch.. but since there is no adjustment for amps for the sound statment,. I think its rather alsome...
That water ripple was cool to, :wink:
Kevin (
x.t.r.GRAPHICS)