Computer Science Canada

Worm hole
Author:  TokenHerbz [ Wed Oct 12, 2005 1:49 am ]
Post subject:  Worm hole
post your ost feective random space warpage worm holes Smile

add the random bends and twists, etc::
Author:  codemage [ Wed Oct 12, 2005 8:56 am ]
Post subject: 
Confused Not quite sure what you're looking for.

code:

loop
   ost_warpage := Rand.Int(1, 99999)
   feective := feective + 1
   bends := bends * 100
end loop
Author:  TokenHerbz [ Wed Oct 12, 2005 11:37 am ]
Post subject: 
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...
Author:  Drakain Zeil [ Wed Oct 12, 2005 3:03 pm ]
Post subject: 
You can't go down a black hole anyway.
Author:  [Gandalf] [ Wed Oct 12, 2005 3:05 pm ]
Post subject: 
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
Author:  TokenHerbz [ Thu Oct 13, 2005 1:10 am ]
Post subject: 
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.
Author:  codemage [ Thu Oct 13, 2005 12:18 pm ]
Post subject: 
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.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy