Maurer Rose Pattern

[Ashish]

Hi everyone!
After watching Shiffman's video on Maurer Rose, I decided to code one in QB64
Maurer Rose algorithm generate very beautiful & satisfying rose pattern!
Run the program & enjoy! Also, Happy Diwali

Code: QB64: [Select]

1. 'By Ashish
2. '29 Oct, 2019
3. 'https://en.wikipedia.org/wiki/Maurer_rose
4. _TITLE "Maurer Rose"
5. 'Ploting (sin(n*k),k) in polar coordinates to get beautiful Rose Pattern.
6. SCREEN _NEWIMAGE(600, 600, 32)
7. RANDOMIZE TIMER
8. 'Special values of n & d to get cool pattern :- n=2,d=39 or n=3,d=47 or n=4,d=31 or n=5,d=97 or n=7,d=19 or n=6,d=71
9. 0 CLS
10. n = (RND * 4) + 3
11. d = (RND * 50) + 20
12. xoff = _WIDTH / 2
13. yoff = _HEIGHT / 2
14.  
15. FOR i = 0 TO 360 STEP .25
16.     k1 = i * d
17.     k2 = (i + 1) * d
18.     r1 = SIN(_D2R(n * k1)) * 300
19.     r2 = SIN(_D2R(n * k2)) * 300
20.     x1 = r1 * COS(_D2R(k1)) + xoff
21.     y1 = r1 * SIN(_D2R(k1)) + yoff
22.     x2 = r2 * COS(_D2R(k2)) + xoff
23.     y2 = r2 * SIN(_D2R(k2)) + yoff
24.  
25.     LINE (x1, y1)-(x2, y2), _RGBA(255, 100, 100, 90)
26. NEXT
27. _DELAY 0.5
28. GOTO 0
29.  

[bplus]

Ah Rose Patterns, we explored this before: https://www.qb64.org/forum/index.php?topic=1288.msg104938#msg104938

But here, yours remind me of a crop circle program I did some time ago, yours is better :D
Just out of curiosity, why did you choose GOTO to loop around?

Happy Diwali, I will try to code something to celebrate color and light!

[Ashish]

...
But here, yours remind me of a crop circle program I did some time ago, yours is better :D
Just out of curiosity, why did you choose GOTO to loop around?
...

Thank You. Why did I choose GOTO? I don't know. It is just what I typed. I didn't thought about this. My hand just type type ......

...
Happy Diwali, I will try to code something to celebrate color and light!

:D I'm eager to see that!

[SierraKen]

Amazing program Ashish, great job!

[Ashish]

Thank You, SierraKen! :D

[johnno56]

This is brilliant and SO fast... The old clunker that I used to have, you could actually see 'each' line being drawn... it could take a minute or two just to draw 'one' image.... Well done!!!

[codeguy]

As usual, Ashish does a fine job. Thank you.

[euklides]

Nice !

[Ashish]

Thanks everyone!! :D