-----------------------------------

Drakain Zeil

Sun Apr 03, 2005 3:37 pm


Weirdest thing I've ever made...

-----------------------------------

And I don't know how it works...

View.Set ("offscreenonly")
View.Set ("graphics:max;max,nobuttonbar")

var strech := 300
var lines := 96

/*
This is some weird effect that I don't know how it works.

-> Strech changes the size of the strech

-> Lines is the number of lines rendered per red/white object, they 
evenly go into 6 for a "full figure"

-> I centered the intersection of the two for 100 lines (near this 
number anyway).
*/

var midx := round (maxx / 2) - 225
var midy := round (maxy / 2) - 225

Draw.Fill (1, 1, black, black)
colourback (black)
var y := 0

var x1, y1 := 0
var x2, y2 := 0

loop
    for n : 0 .. strech
        View.Update
        cls
        for x : 1 .. lines
            y1 := y2 + 100
            y2 := n * round (cos (x)) + 100
            x1 := x2 + 100
            x2 := x + 100
            Draw.Line (x1 + 50 + midx, y1 + 100 + midy, x2 + 50 + midx, y2 + 100 + midy, white)
            Draw.Line (y1 + 100 + midx, x1 + 50 + midy, y2 + 100 + midx, x2 + 50 + midy, red)
        end for

    end for

    for decreasing n : strech .. 0
        View.Update
        cls
        for x : 1 .. lines
            y1 := y2 + 100
            y2 := n * round (cos (x)) + 100
            x1 := x2 + 100
            x2 := x + 100
            Draw.Line (x1 + 50 + midx, y1 + 100 + midy, x2 + 50 + midx, y2 + 100 + midy, white)
            Draw.Line (y1 + 100 + midx, x1 + 50 + midy, y2 + 100 + midx, x2 + 50 + midy, red)
        end for
    end for
    %delay (50)
end loop


Can some one tell me what I did here to get this?


-----------------------------------

Linux Addict

Tue May 17, 2005 3:19 pm


Awesome Program!!!

-----------------------------------

It seems like you do know what you did there. If you don't then that is pretty scary.tIt is awesome! Good work!  :3d:


-----------------------------------

Dylan-182

Tue May 17, 2005 3:54 pm



-----------------------------------

haha yea if u dont know what you did to make that work its kinda  :shock: freaky :shock: .
but yea good prg its super cool lol


-----------------------------------

StarGateSG-1

Wed May 18, 2005 7:29 am



-----------------------------------

If you made this than you know what it is, but I am doubting that you know what this is. I strong sugges you remove the code form the site!


-----------------------------------

Notoroge

Wed May 18, 2005 7:38 am



-----------------------------------

Or we can all just straight up say we don't believe you coded it. This is why I don't think you did,

That's some very intricate code,
Being intricate code, and you coding it, you'd already have the logic in your brain required to make it. There's no way you can forget what a certain section does. Especially not with code that small,
The code is pretty specific as to what it's doing. There's no-way you made that by accident.
In my opinion, you need a final project for Gr.10 programming class, you found a cool screen-saver on the internet, and you want us to tell you what every part of the code means so that when the teacher asks you how you did it out of their own curiousity when they see how "complicated" it is, you'll know what to say.

Lots of accusation, but, I'm paranoid like that.


-----------------------------------

Lazarus

Wed May 18, 2005 1:21 pm



-----------------------------------

Even if you are right Notoroge, it still looks prety kool. 8)


-----------------------------------

Bacchus

Wed May 18, 2005 8:41 pm



-----------------------------------

i could swear ive seen this under source code...


-----------------------------------

StarGateSG-1

Thu May 19, 2005 7:23 am



-----------------------------------

Has anyone but me run it to see why I said take it off the site. And yes he did copy It. It was made by peopel not involved with this site.


-----------------------------------

Bacchus

Thu May 19, 2005 10:25 pm



-----------------------------------

wats so bad about it? i ran it and saw nothing bad..


-----------------------------------

Notoroge

Fri May 20, 2005 7:25 am



-----------------------------------

wats so bad about it? i ran it and saw nothing bad..The program itself is not bad, the fact that he's asking us to help him with his plagiarization scheme is. Again, I'm just paranoid. I might be right, I might not. I'm just telling you what I think.