08-30-2005, 10:15 AM
ok, here's one i wrote meself:
[syntax="qbasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15
Next[/syntax]
and in fb
[syntax="freebasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else If Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15 Else Sleep
Next[/syntax]
[syntax="qbasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15
Next[/syntax]
and in fb
[syntax="freebasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else If Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15 Else Sleep
Next[/syntax]
ttp://m0n573r.afraid.org/
Quote:quote: "<+whtiger> you... you don't know which way the earth spins?" ... see... stupidity leads to reverence, reverence to shakiness, shakiness to... the dark side...phear