Welcome to Fractal Forums

Community => Meet & Greet => Topic started by: Yesiamjames on October 01, 2011, 10:27:50 PM




Title: Greatings
Post by: Yesiamjames on October 01, 2011, 10:27:50 PM
Hi everybody, I'm James.

I only got started with fractal art last week but I'm finding it really adictive and the mathematics behind it absolutely facinating! I've done a little 3d work but after a L4 menger sponge nearly killed my computer I think I'll stick to 2d till I have a faster one.

http://youtu.be/ie3lsiOyJpI

I've also made my first mandelbrot renderer in qbasic, I'm going to make a version with a lot more features but I was trying to see just how small it was possible to make the program. It renders pretty fast on version 4 or higher.

CLS : SCREEN 12
5 FOR y = 1 TO 640
10 FOR x = 1 TO 480
ty = -2 + (y / 160): tx = -2 + (x / 120)
Rz = 0: Iz = 0
FOR a = 1 TO 50
Tz = Rz * Rz - Iz * Iz + ty
Iz = 2 * Rz * Iz + tx
Rz = Tz
Z = Rz * Rz + Iz * Iz
IF Z > 2 THEN GOTO 30
NEXT a
GOTO 40
30 IF a > 15 THEN a = a - 16: IF a > 15 THEN GOTO 30
COLOR a: PSET (y, x)
40 NEXT x
NEXT y

I'm really looking forward to learning from you guys and hopefully I'll be able to start teaching when I've learned a little more.

Ciao for now!
James