fractal-a leaf

[congcong]

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

[xmdxtreme]

holy shit thats awesome!

[Dan]

This is not a question about turing....

MOVED.

[the_short1]

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....

code:

% I DID NOT MAKE THIS CODE!!!!! congcong is the author % me the_short1 just changed some of his values to make a cool effect.. View.Set ("graphics: 788;540,nobuttonbar") 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.66 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.14 * x - 0.29 * y y := 0.31 * 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.19) + 0.28 * y y := 0.22 * temp_x + 0.14 * y + 0.54 drawdot (round (y * 50) + 60, round (x * 50) + 160, green) elsif p >= 17 and p <= 100 then var temp_x : real temp_x := x x := x * 0.91 + y * 0.04 y := (-0.52) * temp_x + 0.98 * y + 1.9 drawdot (round (y * 50) + 60, round (x * 50) + 160,green) end if end loop

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...

[Kuntzy]

That Leaf is insane ... good job man!

[AsianSensation]

that certainly is very cool.

+20 bits

[Canadian Rob]

OH YEA! I CAN DO THIS !!!!

code:

drawdot (325,200,brightblue)

[Dan]

Canadian Rob wrote:

OH YEA! I CAN DO THIS !!!!

code:

drawdot (325,200,brightblue)

wow thats good for you, now why did i need to know that u can uses the drawdot comand?

[the_short1]

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.....

[Canadian Rob]

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