Worm hole

TokenHerbz · **Posted:** Wed Oct 12, 2005 1:49 am

post your ost feective random space warpage worm holes Smile

add the random bends and twists, etc::

codemage · **Posted:** Wed Oct 12, 2005 8:56 am

Not quite sure what you're looking for.

code:

loop
ost_warpage := Rand.Int(1, 99999)
feective := feective + 1
bends := bends * 100
end loop

TokenHerbz · **Posted:** Wed Oct 12, 2005 11:37 am

Im looking for like a worm hole, which it appears your traveling down threw it, catching its random bends...

this is my 1st attempt at the code,

code:

setscreen("Graphics:800;800")

var bends_x: int
var bends_y: int
var value_x: int := 400
var value_y: int := 400

proc growing
for i: 1 .. 200
drawoval(bends_x,bends_y,5 + i, 5 + i, black)
drawoval(bends_x + 1,bends_y + 1, 5 + i, 5 + i, white)
end for
end growing

loop
bends_x := Rand.Int(value_x - 1,value_x + 1)
bends_y := Rand.Int(value_y - 1,value_y + 1)
value_x := bends_x
value_y := bends_y

growing
Input.Pause
end loop

I cant fiddle with it i have to work for 11 hours starting NOW!

lolz, it dosn't work, but its pretty sweet still, looks cool that is...

Drakain Zeil · **Posted:** Wed Oct 12, 2005 3:03 pm

You can't go down a black hole anyway.

[Gandalf] · **Posted:** Wed Oct 12, 2005 3:05 pm

Oh... so this is a thread about random 1337 colourful programs... We used to have a lot of those!

code:

setscreen ("graphics:max;max,nobuttonbar")

var bends_x : int
var bends_y : int
var value_x : int := 400
var value_y : int := 400

process background %The all time favourite...
loop
for i : 1 .. maxx
if i > 255 then
Draw.Oval (maxx div 2, maxy div 2, i, i, Rand.Int (1, 255))
else
Draw.Oval (maxx div 2, maxy div 2, i, i, i)
end if
Draw.Line (Rand.Int (1, maxx), Rand.Int (1, maxy), Rand.Int (1, maxx), Rand.Int (1, maxy), Rand.Int (1, 255))
end for
end loop
end background

proc growing
for i : 1 .. 255
drawoval (bends_x, bends_y, 5 + i, 5 + i, i)
drawoval (bends_x + 1, bends_y + 1, 5 + i, 5 + i, i)
end for
end growing

fork background
loop
bends_x := Rand.Int (value_x - 1, value_x + 1)
bends_y := Rand.Int (value_y - 1, value_y + 1)
value_x := bends_x
value_y := bends_y

growing
end loop

I think I might just have made it good enough! Wink

*edit* A black hole, eh? Hmm... sounds easy enough...

code:

colourback(black)
cls

TokenHerbz · **Posted:** Thu Oct 13, 2005 1:10 am

nononono

You no like worm holes???

Its like a big circle, black, and bends and shit, its like your going threw it, theres not flashy nothing...

Blah!, ill just make it, and show you, it seems to be easier then telliing you.

codemage · **Posted:** Thu Oct 13, 2005 12:18 pm

Nah - black holes are pretty boring, but worm holes need to have all the glitz and glamour of inter spacetime-continuum travel.

Sorry for the graphic fragments. The only painting application here is MS Paint, which apparently can't even produce flat colours without glitching up.

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