QB64.org Forum

Active Forums => Programs => Topic started by: AndyA on April 13, 2021, 10:30:01 pm

Title: Fractal Tree (Rosetta Code task)
Post by: AndyA on April 13, 2021, 10:30:01 pm

https://rosettacode.org/wiki/Fractal_tree (https://rosettacode.org/wiki/Fractal_tree)


The task is described as follows:
'=================================================
Generate and draw a fractal tree.

Draw the trunk
At the end of the trunk, split by some angle and draw two branches
Repeat at the end of each branch until a sufficient level of branching is reached
'=================================================

Code: QB64: [Select]

1. _Title "Fractal Tree"
2. Const sw% = 640
3. Const sh% = 480
4.  
5. Screen _NewImage(sw, sh, 8)
6. Color 2
7.  
8. Call tree(sw \ 2, sh - 10, _Pi * 1.5, _Pi / 180 * 29, 112, 15)
9.  
10. Sleep
11. System
12.  
13. Sub tree (x As Integer, y As Integer, initAngle As Double, theta As Double, length As Double, depth As Integer)
14.     Dim As Integer iL, newX, newY, iX, iY, iD
15.     iL = length: iX = x: iY = y: iD = depth
16.     newX = Cos(initAngle) * length + iX
17.     newY = Sin(initAngle) * length + iY
18.     Line (iX, iY)-(newX, newY)
19.     iL = length * .78
20.     iD = iD - 1
21.     If iD > 0 Then
22.         Call tree(newX, newY, initAngle - theta, theta, iL, iD)
23.         Call tree(newX, newY, initAngle + theta, theta, iL, iD)
24.     End If
25. End Sub
26.  

Text Only | Text with Attachments