Computer Science Canada fractal-a leaf |
Author: | congcong [ Sat May 15, 2004 1:33 pm ] |
Post subject: | fractal-a leaf |
var x := 0.0 var y := 0.0 var count := 0 var p : int var test := 0.85 var chars : array char of boolean var ox, oy : real loop count := count + 1 Input.KeyDown (chars) if chars (KEY_ESC) then exit end if ox := x oy := y randint (p, 1, 100) if p = 1 then x := 0 y := y * 0.16 drawdot (round (y * 50) + 60, round (x * 50) + 160, green) elsif p >= 2 and p <= 8 then var temp_x : real temp_x := x x := 0.2 * x - 0.26 * y y := 0.23 * temp_x + 0.12 * y + 1.6 drawdot (round (y * 50) + 60, round (x * 50) + 160, green) elsif p >= 9 and p <= 15 then var temp_x : real temp_x := x x := x * (-0.15) + 0.28 * y y := 0.26 * temp_x + 0.14 * y + 0.44 drawdot (round (y * 50) + 60, round (x * 50) + 160, green) elsif p >= 16 and p <= 100 then var temp_x : real temp_x := x x := x * 0.85 + y * 0.04 y := (-0.04) * temp_x + 0.85 * y + 1.6 drawdot (round (y * 50) + 60, round (x * 50) + 160,green) end if end loop |
Author: | xmdxtreme [ Sat May 15, 2004 1:39 pm ] |
Post subject: | |
holy shit thats awesome! |
Author: | Dan [ Sat May 15, 2004 1:50 pm ] |
Post subject: | |
This is not a question about turing.... MOVED. |
Author: | the_short1 [ Sun May 16, 2004 12:09 pm ] | ||
Post subject: | |||
holy fuc king hell.... that is so fuc king good... i cant believe all that outa 42 liens of codes... fractals are SO DAM SWEET!!! how da hell did u learn dat ??? like DAM!!!! here... i kinda moded urs a bit,,,., it lookz like a black hole... ** i dont know what i was doing i just kinda changed some values and see what they did .. then changed them to what i wanted....
notice the [ code] and [ /code] tags... they make it much better for copy and pasting... also can i please add this wicked visual to my .zip file of cool visuals (from multiple authors) i will put ur name in it (what is ur name or do u want me to add ur nick) in which i host on my site for download... |
Author: | Kuntzy [ Mon May 17, 2004 8:49 pm ] |
Post subject: | |
That Leaf is insane ... good job man! |
Author: | AsianSensation [ Tue May 18, 2004 5:06 pm ] |
Post subject: | |
that certainly is very cool. +20 bits |
Author: | Canadian Rob [ Wed May 19, 2004 5:05 pm ] | ||
Post subject: | |||
OH YEA! I CAN DO THIS !!!!
|
Author: | Dan [ Wed May 19, 2004 6:25 pm ] | ||
Post subject: | |||
Canadian Rob wrote: OH YEA! I CAN DO THIS !!!!
wow thats good for you, now why did i need to know that u can uses the drawdot comand? |
Author: | the_short1 [ Wed May 19, 2004 8:09 pm ] |
Post subject: | |
i think he was trying to signify the fact that those are really hard to make and are wicked cool!!!! or at least i hope he was... or that was some serious SPAM... when do u learn fractals??? are they hard??? is their a template??? what... cuz those look extremely complex..... |
Author: | Canadian Rob [ Wed May 19, 2004 8:17 pm ] |
Post subject: | |
the_short1 wrote: i think he was trying to signify the fact that those are really hard to make and are wicked cool!!!!
or at least i hope he was... or that was some serious SPAM... when do u learn fractals??? are they hard??? is their a template??? what... cuz those look extremely complex..... lol.. nope u got it right on the ball haha why do we need to know that u can use the draw dot command U CRACK me up! Lollll |