Posted: Sun Apr 25, 2004 7:28 pm Post subject: Cool Trippy Effect

code:

setscreen ("graphics:512;512")
var col, bbb, ccc, ttt, font, zzz, xxx : int
var cc, tt : int
col := 0
ttt := 1
ccc := 256
bbb := 1
zzz := 0
xxx := 0
tt := 0
cc := 0

loop
delay (10)

loop
delay (10)
bbb := bbb + 1
if zzz = 255 then
xxx := 1
elsif zzz = 1 then
xxx := 0
end if

col := col + 1

if xxx = 0 then
zzz := zzz + 1
ccc := ccc + 1
ttt := ttt - 1
elsif xxx = 1 then
cc := ccc div 2
tt := ttt div 2
zzz := zzz - 1
ttt := ttt + 2
ccc := ccc - 2
end if

cc := ccc div 2
tt := ttt div 2

if col = 1023 then
drawfilloval (256, 256, 256, 256, 55)
end if

drawoval (256, 256, ttt, ttt, 255)
drawfilloval (256, 256, ccc, ttt, zzz)
drawfilloval (256, 256, ttt, ccc, zzz)
exit when col = 1280 or hasch

end loop
col := 0
ttt := 1
ccc := 256
bbb := 1
zzz := 0
xxx := 0
tt := 0
cc := 0
exit when hasch
end loop

Sponsor Sponsor

gamer

Posted: Sun Apr 25, 2004 9:08 pm Post subject: (No subject)

true pretty cool, yet simple codes

s_climax

Posted: Mon Apr 26, 2004 5:32 pm Post subject: (No subject)

What's most impressive with this program is that it was one of the first things I made with turing.

s_climax

Posted: Sun May 02, 2004 8:43 pm Post subject: (No subject)

Here are three I made while experimenting with sin/cos. I think the 1st is my best.

code:

setscreen ("graphics:200,200")
var timer, x1, y1, x2, y2, r : int
var pi : real
r := maxx div 2
timer := 0
pi := 3.1415926535897932384626433832795
%drawfilloval (maxx div 2, maxy div 2, maxx div 2, maxy div 2, 7)
for i : 25 .. 25500 by 1
timer += 1
x1 := round (r * (sin (timer)))
y1 := round (r * (cos (timer)))
x2 := round (r * (sin (timer * pi)))
y2 := round (r * (cos (timer * pi)))
drawline ((x1 + r), y1 + r, (x2 + r), y2 + r, i div 100)
drawline ((y1 + r), x1 + r, (y2 + r), x2 + r, i div 100)
delay (1)
exit when hasch
end for

code:

setscreen ("graphics:400,400")
var i, x1, x2, y1, y2, r : int
var pi : real
pi := 3.1415926535897932384626433832795
r := -1 * (maxcol * 21)
i := -1 * (maxcol * 21)
loop
i += 1
r += 1
x1 := abs (round (r * sin (i * pi)))
y1 := abs (round (r * cos (i * pi)))
x2 := abs (round (r * sin (i * pi + 1)))
y2 := abs (round (r * cos (i * pi + 1)))
drawline (x1, y1, x2, y2, abs (i div 21))
drawline (maxx - x1, maxy - y1, maxx - x2, maxy - y2, abs (i div 21))
drawline (maxx - x1, y1, maxx - x2, y2, abs (i div 21))
drawline (x1, maxy - y1, x2, maxy - y2, abs (i div 21))
delay (1)
exit when i > (maxcol * 10)
end loop

code:

setscreen ("graphics:400,400")
var i, x1, x2, y1, y2, r : int
var pi : real
pi := 3.1415926535897932384626433832795
r := -1 * (maxcol * 21)
i := -1 * (maxcol * 21)
loop
i += 1
r += 1
x1 := abs (round (r * sin (i / pi)))
y1 := abs (round (r * cos (i / pi)))
x2 := abs (round (r * sin (i / (pi + 1))))
y2 := abs (round (r * cos (i / (pi + 1))))
drawline (x1, y1, x2, y2, abs (i div 21))
drawline (maxx - x1, maxy - y1, maxx - x2, maxy - y2, abs (i div 21))
drawline (maxx - x1, y1, maxx - x2, y2, abs (i div 21))
drawline (x1, maxy - y1, x2, maxy - y2, abs (i div 21))
delay (1)
exit when i > (maxcol * 10)
end loop

the_short1

Posted: Tue May 04, 2004 6:04 pm Post subject: (No subject)

setscreen ("graphics:500,500")

LOOKZ WAY BETTER for the first one using sine..

OMFG!!! ththat is SOOOO fucking GOOD!!!!! lookz SO DAM GOOD!!!

here is 10 BITS !!!!!!!!!!

all three look nice...
first one is AMAZING....

crazy ass shit....

im definately impressed... keep up the good work and keep on posting on compsci

btw.... can i add those 3 into my compilation of cool turing visuals (its a huge zip file with tons of them from tons of ppl???) ** i have this on my site and my DL manager...

s_climax

Posted: Tue May 04, 2004 6:09 pm Post subject: (No subject)

Use them all you want. They were easy to make. I didn't even have to understand sin/cos to make them.

By the way, if you are going to make the screen bigger, it looks better to change it to this.

code:

setscreen ("graphics:500,500")
var timer, x1, y1, x2, y2, r : int
var pi : real
r := maxx div 2
timer := 0
pi := 3.1415926535897932384626433832795
drawfilloval (maxx div 2, maxy div 2, maxx div 2, maxy div 2, 7)
for i : 25 .. 25500 by 1
timer += 1
x1 := round (r * (sin (timer)))
y1 := round (r * (cos (timer)))
x2 := round (r * (sin (timer * pi)))
y2 := round (r * (cos (timer * pi)))
Draw.ThickLine ((x1 + r), y1 + r, (x2 + r), y2 + r, 5, i div 100)
Draw.ThickLine ((y1 + r), x1 + r, (y2 + r), x2 + r, 5, i div 100)
delay (1)
exit when hasch
end for

Paul

Posted: Tue May 04, 2004 7:01 pm Post subject: (No subject)

that induces siezures, but while ur at it, make it more accurate by using this line of code

Omni, you don't still use variable names that way do you?

s_climax

Posted: Wed May 05, 2004 8:56 pm Post subject: (No subject)

Who's Omni?

If you are directing the question to me, the answer is no.

Mazer

Posted: Wed May 05, 2004 9:07 pm Post subject: (No subject)

Holy crap! This is why I never talk...

yeah, I was referring to you. Sorry if I offended anyone or something.

Flashkicks

Posted: Thu May 06, 2004 7:20 pm Post subject: (No subject)

Mazer--Delta has a lor more than that ..LMBO!!... Hes SUCH A DRUNK!!..lol... Anyhoo.. Yeah..Good luck with the whole thingy and getting success and COOL TRIPPY EFFECTS!.

the_short1

Posted: Thu May 06, 2004 9:56 pm Post subject: (No subject)

yea tripple letters are kinda redunddant... <<think i spelled that rite... not sure tho...

anyways.....
due to ur 3 kick ass progies... i think i mite reupdate my visuals.zip tomorow... now that i have like 15 nes ones for it..