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

TripleBla

Wed Jun 04, 2008 9:49 am


Recursive Landscape Project

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

Yeah, this is a recursive landscape I had to do for a project in my compsci 12 class.

I can't get randint out of my mind!!


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

apomb

Wed Jun 04, 2008 9:59 am


RE:Recursive Landscape Project

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

Very Crisp.
A little more colour would be nice.
you used randint? NOOO lol Rand.Int() is the way to go... i think

gj though, bits++


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

petree08

Wed Jun 04, 2008 10:00 am


RE:Recursive Landscape Project

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

what happened to santa?


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

TripleBla

Wed Jun 04, 2008 10:01 am


Re: Recursive Landscape Project

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

lol, sorry .. yeah, Rand.Int (*,*) .. is the way to go .. and the way I did go.

In terms of the colour thing, we were given choices for sceneries .. I chose a slightly poetical, wintry, landscape  :roll:  lol.


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

apomb

Wed Jun 04, 2008 10:02 am


RE:Recursive Landscape Project

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

Ha ha nice then. +3 more bits to round it off to an even 20.


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

petree08

Wed Jun 04, 2008 10:11 am


Re: Recursive Landscape Project

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

here is the start of mine, i'm going to do a daytime one and add rain later

i think James has the best one... poor kelvin

i'll get james to post his 

ne way

nighttime recursive landscape, the trees and hills are funny but it's a start


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

TripleBla

Wed Jun 04, 2008 10:14 am


RE:Recursive Landscape Project

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

just wait till James' posts his landscape..

Shading on shrubbery based on position according to randomized sun placement..

.. it's something you have to see to believe.


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

petree08

Wed Jun 04, 2008 10:17 am


RE:Recursive Landscape Project

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

i want to see kelvin's




put "tree"
put "hill"
put "sky"
if 
if
if
if
if
if
if
if
if
end if
end if
end if 
end if
end if 




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

petree08

Fri Jun 06, 2008 8:08 am


Re: Recursive Landscape Project

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

i got mine finished 

inludes

- winter/summer
- grass
-rain/snow
-day/night

-grass 
- shrubs
- 2 different trees
- moon is recursive


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

Insectoid

Fri Jun 06, 2008 8:16 am


RE:Recursive Landscape Project

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

Sweet! love the trees triplebla! insane! And this was drawn entirely in turing?


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

DarkFrogFTW

Fri Jun 06, 2008 8:28 pm


Re: Recursive Landscape Project

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

Alright, here goes. This would be my landscape project.

What this has:

Clouds.
Trees, with leaf shading based on draw angle and sun position.
Randomly positioned sun, horizon, and sky hues.
A back, a middle, and a front, each with different sizes of trees.

what this does not have, but might have soon:

Proper branch shading (I'm still doing it based on position, which only works if its upright or angled away)
Proper cloud shading (see the rays the sun gives? the cloud will reflect the colour that hits the center of the circle along the edge, hopefully giving that effect where the clouds at sunset horizon are reddish looking at the edges.)
Rain (I did do it, but it's woefully inefficient, and as of yet I don't have a big,  dark rain cloud in the foreground.)
Another type of tree
A gradiant sun
A flower to make my foreground prettier

And any other feasible ideas you people can throw at me.
Press a key after the landscape is done drawing to make it give another, or press esc to exit.


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

gitoxa

Fri Jun 06, 2008 9:08 pm


RE:Recursive Landscape Project

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

Wow, that's amazing James.
Peter, yours is pretty good too, but it seems rather slow at updating the screen.  Might be just my computer, but whatever.


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

[Gandalf]

Fri Jun 06, 2008 10:57 pm


Re: Recursive Landscape Project

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

Wow, these are pretty amazing, I've never seen such artistic recursion trees, though then again I haven't looked too much.  Here are some screenshots:

TripleBlah's:
http://img78.imageshack.us/img78/7056/land1tq2.png

DarkFrogFTW's:
http://img78.imageshack.us/img78/5640/land3xp7.png

+20 bits for both of you.


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

TripleBla

Thu Jun 12, 2008 8:17 am


RE:Recursive Landscape Project

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

Here's the code for a coniferous tree I wrote.


proc branch2 (x, y, len, nsegs, angle, achange : int)


    var x2, y2 : int
    var BRandom1, BRandom2 : int
    const PINENEEDLELENGTH := 35 + Rand.Int (0, 5)

    x2 := x + round (cosd (angle) * len)
    y2 := y + round (sind (angle) * len)

    if nsegs < 7 then
        Draw.ThickLine (x, y, x2, y2, 2, 160)
    end if

    if nsegs < 8 then
        if nsegs = 7 or nsegs = 6 then
            for i : -25 .. 25
                if Rand.Int (0, 3) not= 1 then
                    drawline (x, y + 30, round (x + sin (180 - i) * (PINENEEDLELENGTH - Rand.Int (5, 15))), y + round (cosd (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), Rand.Int (115, 122))
                else
                    drawline (x, y + 30, round (x + sin (180 - i) * (PINENEEDLELENGTH - Rand.Int (5, 15))), y + round (cosd (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), Rand.Int (29, 31))
                end if
            end for
        end if
        for i : -45 .. 45
            if Rand.Int (0, 3) not= 1 then
                drawline (x, y, round (x + sin (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), y + round (cosd (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), Rand.Int (115, 122))
            else
                drawline (x, y, round (x + sin (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), y + round (cosd (180 - i) * (PINENEEDLELENGTH - Rand.Int (1, 3))), Rand.Int (29, 31))
            end if
        end for
    end if

    View.Update
    if nsegs > 1 then
        branch2 (x2, y2, len, nsegs - 1, angle + (achange), achange)
        branch2 (x2, y2, len, nsegs - 1, angle - (achange), achange)
    end if

    if Rand.Int (0, 5) = 1 then
        if nsegs = 8 then
            Draw.FillStar (x - 13, y - 7, x + 15, y + 15, 44)
        end if
    end if

end branch2


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

Aziz

Thu Jun 12, 2008 8:41 am


RE:Recursive Landscape Project

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

Nice work guys :)


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

SNIPERDUDE

Thu Jun 12, 2008 1:52 pm


RE:Recursive Landscape Project

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

TripleBla:
Amazing detail on the trees.

Peetree:
Liked your first port - the moon rendering was pretty awesome.

DarkFrogFTW:
Awesome highlighting.  Really good job with that, and the clouds too.  It would be really awesome if you did more of a gradient thing with the sky (try RGB), and maybe the grass.


Really awesome job guys.  Keep up the good work.


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

andrew.

Fri Jul 18, 2008 3:15 pm


RE:Recursive Landscape Project

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

It blows my mind how you can do this recursively with TURING! Great job guys!


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

Insectoid

Fri Jul 18, 2008 7:56 pm


RE:Recursive Landscape Project

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

Just wondering, how do you implement RGB in turing?


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

SNIPERDUDE

Fri Jul 18, 2008 8:22 pm


RE:Recursive Landscape Project

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

Check the tutorial.

There's most definitely one on this site.