Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 fractal-a leaf
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
congcong




PostPosted: 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
Sponsor
Sponsor
Sponsor
sponsor
xmdxtreme




PostPosted: Sat May 15, 2004 1:39 pm   Post subject: (No subject)

holy shit thats awesome!
Dan




PostPosted: Sat May 15, 2004 1:50 pm   Post subject: (No subject)

This is not a question about turing....

MOVED.
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
the_short1




PostPosted: Sun May 16, 2004 12:09 pm   Post subject: (No 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...
Kuntzy




PostPosted: Mon May 17, 2004 8:49 pm   Post subject: (No subject)

That Leaf is insane ... good job man!
AsianSensation




PostPosted: Tue May 18, 2004 5:06 pm   Post subject: (No subject)

that certainly is very cool.

+20 bits
Canadian Rob




PostPosted: Wed May 19, 2004 5:05 pm   Post subject: (No subject)

OH YEA! I CAN DO THIS !!!!

code:
drawdot (325,200,brightblue)
Dan




PostPosted: Wed May 19, 2004 6:25 pm   Post subject: (No 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?
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
Sponsor
Sponsor
Sponsor
sponsor
the_short1




PostPosted: Wed May 19, 2004 8:09 pm   Post subject: (No 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.....
Canadian Rob




PostPosted: Wed May 19, 2004 8:17 pm   Post subject: (No 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
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 10 Posts ]
Jump to:   


Style:  
Search: