QB64.org Forum

Active Forums => Programs => Topic started by: bplus on November 02, 2021, 11:29:20 am

Title: Play Offs Chart - Recursion Example
Post by: bplus on November 02, 2021, 11:29:20 am

Get ready for Play Offs:

Code: QB64: [Select]

1. _Title "Play Offs Chart - Recursion example" 'b+ 2021-10-27
2. '2021-11-02 A few mods and ready for the playoffs
3.  
4. 'Recursion is a sub or function that calls itself until it's job is done
5. 'Here is a grahics
6. Const pi = _Pi
7. Screen _NewImage(700, 700, 32)
8.  
9. recThis 700, 350, 350 / 2, 0
10. Sleep
11.  
12. Sub recThis (x, y, arm, level As Integer)
13.     'first thing to ask in recursive subroutine is are we done!!!
14.     If arm < 2 Then Exit Sub ' recursion is finished
15.     ' no not done
16.     If level Mod 2 Then
17.         x1 = x + 1.4 * arm * Cos(pi / 2): y1 = y + 1.4 * arm * Sin(pi / 2)
18.         x2 = x + 1.4 * arm * Cos(1.5 * pi): y2 = y + 1.4 * arm * Sin(1.5 * pi)
19.         Line (x1, y1)-(x2, y2)
20.         recThis x1, y1, .7 * arm, level + 1
21.         recThis x2, y2, .7 * arm, level + 1
22.     Else
23.         x1 = x: y1 = y
24.         x2 = x + 100 * Cos(pi): y2 = y + 100 * Sin(pi)
25.         Line (x1, y1)-(x2, y2)
26.         recThis x2, y2, .7 * arm, level + 1
27.     End If
28. End Sub
29.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Text Only | Text with Attachments