Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB   Username:   Password: Wiki   Blog   Search   Turing   Chat Room  Members
fractal-a leaf
Author Message
congcong

Posted: 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

xmdxtreme

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

holy shit thats awesome!
Dan

Posted: 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

Posted: 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

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

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

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

that certainly is very cool.

+20 bits

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

OH YEA! I CAN DO THIS !!!!

 code: drawdot (325,200,brightblue)
Dan

Posted: Wed May 19, 2004 6:25 pm   Post subject: (No subject)

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!

the_short1

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

when do u learn fractals??? are they hard??? is their a template??? what... cuz those look extremely complex.....

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

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
 Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

Page 1 of 1  [ 10 Posts ]
 Jump to:  Select a forum  CompSci.ca ------------ - Network News - General Discussion     General Forums   -----------------   - Hello World   - Featured Poll   - Contests     Contest Forums   -----------------   - DWITE   - [FP] Contest 2006/2008   - [FP] 2005/2006 Archive   - [FP] 2004/2005 Archive   - Off Topic     Lounges   ---------   - User Lounge   - VIP Lounge     Programming -------------- - General Programming     General Programming Forums   --------------------------------   - Functional Programming   - Logical Programming   - C     C   --   - C Help   - C Tutorials   - C Submissions   - C++     C++   ----   - C++ Help   - C++ Tutorials   - C++ Submissions   - Java     Java   -----   - Java Help   - Java Tutorials   - Java Submissions   - Ruby     Ruby   -----   - Ruby Help   - Ruby Tutorials   - Ruby Submissions   - Turing     Turing   --------   - Turing Help   - Turing Tutorials   - Turing Submissions   - PHP     PHP   ----   - PHP Help   - PHP Tutorials   - PHP Submissions   - Python     Python   --------   - Python Help   - Python Tutorials   - Python Submissions   - Visual Basic and Other Basics     VB   ---   - Visual Basic Help   - Visual Basic Tutorials   - Visual Basic Submissions     Education ----------- - Student Life   Graphics and Design ----------------------- - Web Design     Web Design Forums   ---------------------   - (X)HTML Help   - (X)HTML Tutorials   - Flash MX Help   - Flash MX Tutorials   - Graphics     Graphics Forums   ------------------   - Photoshop Tutorials   - The Showroom   - 2D Graphics   - 3D Graphics     Teams ------ - dTeam Public

 Style: Appalachia blueSilver eMJay subAppalachia subBlue subCanvas subEmjay subGrey subSilver subVereor Search: