Fractal Fern

[Ashish]

That's very impressive vince!

 

[johnno56]

Cool... Excellent job, Vince!

[bplus]

+1 @_vince  nice coloring of classic Mandelbrot Explorer.

[SierraKen]

Awesome Vince! I like how you can zoom in.

[SierraKen]

Here is a larger version of the original fractal fern. This time I put it on a 800 x 600 screen and changed a couple numbers just by experimenting. The pixels end at 400000 and then it goes to an INKEY$ loop. I didn't want anymore pixels because I think it shows a better texture without it filled up.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. WINDOW (-5, 0)-(5, 10)
3. RANDOMIZE TIMER
4. COLOR _RGB32(127, 255, 127)
5. FOR t = 1 TO 400000
6.     SELECT CASE RND
7.         CASE IS < .01
8.             nextX = 0
9.             nextY = .16 * y
10.         CASE .01 TO .08
11.             nextX = .1 * x - .5 * y
12.             nextY = .23 * x + .22 * y + 1.6
13.         CASE .08 TO .15
14.             nextX = -.15 * x + .5 * y
15.             nextY = .26 * x + .24 * y + .44
16.         CASE ELSE
17.             nextX = .85 * x + .04 * y
18.             nextY = -.04 * x + .85 * y + 1.6
19.     END SELECT
20.     x = nextX
21.     y = nextY
22.     PSET (x, y)
23. NEXT t
24. _LIMIT 100
25. _TITLE "Press Esc to quit."
26. DO: LOOP UNTIL INKEY$ = CHR$(27)
27.  

[_vince]

I had some fun playing with your code in trying to understand the fractal plotting @SierraKen , nice work and good thread

[SierraKen]

Thanks Vince, I just wish I could understand it. lol