Computer Science Canada :: View topic - Recursive Landscape Project

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

Author:	TripleBla [ Wed Jun 04, 2008 9:49 am ]
Post subject:	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!!

Author:	apomb [ Wed Jun 04, 2008 9:59 am ]
Post subject:	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++

Author:	petree08 [ Wed Jun 04, 2008 10:00 am ]
Post subject:	RE:Recursive Landscape Project
what happened to santa?

Author:	TripleBla [ Wed Jun 04, 2008 10:01 am ]
Post subject:	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 lol.

Author:	apomb [ Wed Jun 04, 2008 10:02 am ]
Post subject:	RE:Recursive Landscape Project
Ha ha nice then. +3 more bits to round it off to an even 20.

Author:	petree08 [ Wed Jun 04, 2008 10:11 am ]
Post subject:	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

Author:	TripleBla [ Wed Jun 04, 2008 10:14 am ]
Post subject:	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.

Author:	petree08 [ Fri Jun 06, 2008 8:08 am ]
Post subject:	Re: Recursive Landscape Project
i got mine finished inludes - winter/summer - grass -rain/snow -day/night -grass - shrubs - 2 different trees - moon is recursive

Author:	Insectoid [ Fri Jun 06, 2008 8:16 am ]
Post subject:	RE:Recursive Landscape Project
Sweet! love the trees triplebla! insane! And this was drawn entirely in turing?

Author:	DarkFrogFTW [ Fri Jun 06, 2008 8:28 pm ]
Post subject:	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.

Author:	gitoxa [ Fri Jun 06, 2008 9:08 pm ]
Post subject:	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.

Author:	[Gandalf] [ Fri Jun 06, 2008 10:57 pm ]
Post subject:	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: DarkFrogFTW's: +20 bits for both of you.

Author:	Aziz [ Thu Jun 12, 2008 8:41 am ]
Post subject:	RE:Recursive Landscape Project
Nice work guys

Author:	SNIPERDUDE [ Thu Jun 12, 2008 1:52 pm ]
Post subject:	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.

Author:	andrew. [ Fri Jul 18, 2008 3:15 pm ]
Post subject:	RE:Recursive Landscape Project
It blows my mind how you can do this recursively with TURING! Great job guys!

Author:	Insectoid [ Fri Jul 18, 2008 7:56 pm ]
Post subject:	RE:Recursive Landscape Project
Just wondering, how do you implement RGB in turing?

Author:	SNIPERDUDE [ Fri Jul 18, 2008 8:22 pm ]
Post subject:	RE:Recursive Landscape Project
Check the tutorial. There's most definitely one on this site.