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

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

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

code:
drawdot (325,200,brightblue)

Author:  Dan [ Wed May 19, 2004 6:25 pm ]
Post subject: 

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?

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



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



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 Wink haha why do we need to know that u can use the draw dot command U CRACK me up! Lollll


: