pointless cool-looking program

Insectoid · **Posted:** Wed Apr 16, 2008 4:18 pm

Well, I did this for fun, as an easy, cool-looking, useless thing to watch while I'm bored Very Happy

But I found some problems, and had to look up forking and processes and similar things. so, it helped me learn.
1 problem- music makes it lag. And you need a high refresh rate to see it well...

I also learned how to use music from this thing (from files and from cd's)

code:

var font : int := Font.New ("vivaldi:70")

% I'm leaving this out, as you won't have the right sound file...
%process music
% loop
% Music.PlayFile ("yoda.mp3")
% end loop
%end music
%fork music

process background

loop

for x : 16 .. 31
colorback (x)
cls
delay (100)
end for

for decreasing x : 31 .. 16
colorback (x)
cls
delay (100)
end for
end loop
end background
fork background

process words
loop
for decreasing c : 31 .. 16
Font.Draw ("Mellow...", 150, 200, font, c)
delay (100)
end for
for c : 16 .. 31
Font.Draw ("Mellow...", 150, 200, font, c)
delay (100)
end for
end loop
end words
fork words

Sean · **Posted:** Wed Apr 16, 2008 4:29 pm

Question, why are you forking the other processes, why not make them procedures?

The forking is most efficent on music only.

Insectoid · **Posted:** Wed Apr 16, 2008 4:32 pm

Um, I haven't looked up procedures...
I asked my teacher what to use to make things run simultaneously, and he said 'fork'. Being the sub-par teacher he is, he said nothing else about it, and I had to find out for myself.

The song is actually a weird al yankovich parody called 'yoda'. Quite witty.

Sean · **Posted:** Wed Apr 16, 2008 4:39 pm

There is a tutorial available on Compsci. It's the best way to learn ahead of the class. Our school never got around to procedures.

Insectoid · **Posted:** Wed Apr 16, 2008 4:57 pm

Oh, I know, That's how I found out about processes...and music.....

Also, I read the whole 'omfg cool trippy flashes' sticky, but I maintain that this was a LEARNING EXPERIENCE in case anyone bugs me about it...

Tony · **Posted:** Wed Apr 16, 2008 4:57 pm

insectoid @ Wed Apr 16, 2008 4:32 pm wrote:

he said 'fork'.

Do not use fork, it is not necessary, complicated, and often introduces bugs. Take a look through some of the tutorials available.

repsoccer16 · **Posted:** Thu Apr 17, 2008 7:42 am

this seems like a omfg cool trippy flashes but still a pretty good program.

Insectoid · **Posted:** Thu Apr 17, 2008 8:23 am

I said, it was a LEARNING EXPERIENCE!
Cut me some slack, man!

But then, it is fun to look at...

repsoccer16 · **Posted:** Thu Apr 17, 2008 8:27 am

settle down i wasn't trying to be mean or anything just making a heads up.

nastynika · **Posted:** Thu Apr 17, 2008 8:35 am

nice program good work

andrew. · **Posted:** Fri Apr 18, 2008 8:53 pm

I was bored so I redid your code to get rid of the forks. It's all in one main loop. This is what you should've done in the first place.

Turing:

setscreen ("graphics:nobuttonbar,offscreenonly")
var font : int := Font.New ("vivaldi:70")
var x, c, x_increase, c_increase : int := 1
x := 17
c := 30

% I'm leaving this out, as you won't have the right sound file...
%process music
% loop
% Music.PlayFile ("yoda.mp3")
% end loop
%end music
%fork music

loop
x += x_increase
c += c_increase
if x >= 30 then
x_increase := -1
elsif c <= 17 then
c_increase := 1
elsif x < 17 then
x_increase := 1
elsif c > 30 then
c_increase := -1
end if
cls
colorback (x)
Font.Draw ("Mellow...", 150, 200, font, c)
View.Update
delay (100)
end loop

syntax_error · **Posted:** Sat Apr 19, 2008 5:42 am

Sean @ Wed Apr 16, 2008 4:29 pm wrote:

Question, why are you forking the other processes, why not make them procedures?

The forking is most efficent on music only.

Correct me if I am wrong but, nowadays you do not even need forks for music there are pre-built functions for it already? no?

Sean · **Posted:** Sat Apr 19, 2008 6:38 am

You still need to fork the music if you want it to continue running. There are numerous sound inputs, his example of an .mp3 is an example of one that needs music.

Turing:

process DoMusic
loop
Music.PlayFile ("JumpOnIt.mp3")
end loop
end DoMusic

fork DoMusic

As far as I know, you need to fork it if you want it to continuously play throughout the program, without forking it, it will only play the music once, and then stop. He wants it to continue, thus resulting in the Fork being added.

Nick · **Posted:** Sat Apr 19, 2008 11:16 am

not according to Turing help,

code:

Music.PlayFileReturn ("branden3.wav")
var x, y, clr : int
loop
x := Rand.Int (0, maxx)
y := Rand.Int (0, maxy)
clr := Rand.Int (0, maxcolor)
Draw.FillOval (x, y, 30, 30, clr)
exit when hasch
end loop
Music.PlayFileStop

chrisbrown · **Posted:** Sat Apr 19, 2008 11:38 am

An even better way:

Turing:

setscreen ("graphics;nobuttonbar;offscreenonly")
var font : int := Font.New ("vivaldi:70")
var x, c : int := 1
x := maxcolor
c := maxcolor - 1

loop
for i : 0 .. 360
RGB.SetColor (x, (1 + sind (i)) / 2, (1 + sind (i)) / 2, (1 + sind (i)) / 2)
RGB.SetColor (c, (1 + cosd (i + 90)) / 2, (1 + cosd (i + 90)) / 2, (1 + cosd (i + 90)) / 2)
cls
colorback (x)
Font.Draw ("Mellow...", 150, 200, font, c)
View.Update
delay (5)
end for
end loop

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members