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

Mazer

Wed May 18, 2005 10:56 am


I've decided to be a little less of a jerk (credits)

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

I'm a big fan of the ice cream cakes.


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

jamonathin

Wed May 18, 2005 12:53 pm



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

Very, very nice.  I like the concept of making the dots darker, the further back they are.  I'm not sure how you made it so that two stars always flew together, I'm not sure if thats an error ot what, but it looks good.

Nice text fading.  Very well done. 

Oh, and I also like the widescreen view.  :)


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

Notoroge

Wed May 18, 2005 8:31 pm



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

WTF? I swear I could actually see depth in the scrolling stars background. :shock: Crazy.


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

Bacchus

Wed May 18, 2005 9:06 pm



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

ya i kno what you mean. pretty sure its just the different speeds of the starts moving so it looks like some are farther away


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

Mazer

Wed May 18, 2005 10:12 pm



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

WTF? I swear I could actually see depth in the scrolling stars background. :shock: Crazy.

That's one of the things I pointed out in the tutorial. Each star is given a random speed, and based on that speed, they are drawn with an appropriate colour.
A star that appears to be moving slowly (due to perspective) is further away from our viewpoint, and thus the light it emits should be less bright than a star that is closer to us.

I've been doing the same thing since my snowflake programs earlier that year (and before). So you like it?  :wink:


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

Bacchus

Thu May 19, 2005 6:13 am



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

very much so, which did you do to make it a bit darker? R, B, or G? im guessing that u used RGB commands cause it doesnt look like its enouph for a set color


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

Mazer

Thu May 19, 2005 6:44 am



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

Well, actually yeah I did use Turings colours. Usually, it's too much trouble to have to use the RGB colours in Turing. From what I remember, colours 16 to 31 will fade from black to white.


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

Bacchus

Thu May 19, 2005 10:28 pm



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

ah i see, i was thinking like the first 12 or something like that, and for some reason i was thinking you were using a yellow or some sort...


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

Notoroge

Fri May 20, 2005 1:06 pm



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

I decided to see if I could get the same effect. How does this look? :)

View.Set ("offscreenonly, title:stars, graphics:300;300, nobuttonbar")
colourback (black)
cls
Draw.FillBox (0, 0, maxx, 59, gray + 10)
Draw.FillBox (0, maxy - 59, maxx, maxy, gray + 10)

var stars : int := 600 %number of stars
var deleay : int := 25 %put whatever delay you want here
var x, y, speed, colours : array 1 .. stars of int
for i : 1 .. stars
    x (i) := Rand.Int (0, maxx)
    y (i) := Rand.Int (60, maxy - 60)
    speed (i) := Rand.Int (2, 4)
    for r : 2 .. 4
        if speed (i) = r then
            colours (i) := RGB.AddColour (r / 4, r / 4, r / 4)
        end if
    end for
    Draw.Dot (x (i), y (i), colours (i))
end for

loop
    for i : 1 .. stars
        if x (i) >= 0 then
            x (i) := x (i) - speed (i)
            Draw.Dot (x (i) + speed (i), y (i), black)
            Draw.Dot (x (i), y (i), colours (i))
        elsif x (i) < 0 then
            Draw.Dot (x (i), y (i), colours (i))
            x (i) := maxx + 2
            y (i) := Rand.Int (60, maxy - 60)
        end if
    end for
    delay (deleay)
    View.Update
end loop

Update: Whoah! I just moved the "View.Update" to somewhere else after realizing that it was somewhere that was using unecessary resources and now it flies (super speed). So fast, in fact, that I ended up having to add a delay to it. Otherwise everything just zooms accross the screen.  :lol:

Update2: :shock: I updated the code to show 200 stars at a time, and no slowdowns yet, whereas before it would slow down and bog the system at 40 stars. :D
The real power of View.Update is demostrated here. ;)

Update3: Oh snap, you want to see crazy? Run the code at 600 stars (the new default ;))


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

[Gandalf]

Fri May 20, 2005 2:06 pm



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

Very nice - did you make it the same way that Coutsos did?

Try it at 2000 stars :D.  Or better yet, 4000000 heh...  It slowed down a bit at that point.


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

Notoroge

Fri May 20, 2005 2:09 pm



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

I didn't copy his code. I looked at the binary and decided to see if I could make the same thing. I recall him saying he didn't use RGB colours so I purposefully did, just that will change the code a bit.

And I did run it at 100000, no slowdown. But it does look wierd. :eh:


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

Notoroge

Fri May 20, 2005 2:20 pm



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

Since I have no life, I decided to add one that exits when you hit any key (both compiled and source). Uh, sorry for the quasi thread-hijacking. :?


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

Bacchus

Fri May 20, 2005 3:27 pm



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

ya thats really nice and you get the same nice effect. who knows i may use a similar idea in a game of mine in the futur. wont copy ne code. ill do it from scratch later, but the color-distance thing is good to remmeber