Rotating Flower

[SierraKen]

Many of you have probably seen this before and have made it before. But without looking at any of your code, except for the Wiki pages, I decided to try it myself. This flower has 3 layers and the pedals keep going around and around because there is no way to stop it and look right that I can figure out. It's because the last pedal is placed on top of both the left and the right (the first) pedal and won't go underneath the first pedal. There might be a way around this using advanced math or maybe even using the POINT command, but since I'm using the ROTOZOOM Sub that I found in the Wiki pages, this is as good as I can get. Check it out. :) Oh by the way, something tells me that there was a RotoZoom command, without having to use the Sub, but I couldn't find it in the Wiki. I'll place a photo of this flower below.

Code: QB64: [Select]

1. _Title "Ken's Rotating Flower"
2. Dim image As Long
3. Screen _NewImage(800, 600, 32)
4.  
5. For tt = 0 To _Pi Step .2
6.     For t = 1 To 20 Step .1
7.         Circle (400 + t, 150 + tt), 100, _RGB32(255, 0, 0), _Pi, ((3 * _Pi) / 2)
8.         Circle (298 + t, 250 + tt), 100, _RGB32(255, 0, 0), (2 * _Pi), (_Pi / 2)
9.     Next t
10. Next tt
11. Paint (350, 200), _RGB32(255, 255, 128), _RGB32(255, 0, 0)
12.  
13. image& = _CopyImage(0)
14. Cls
15. 'sky
16. Paint (1, 1), _RGB32(128, 255, 255)
17. zoom = 1.5
18. zoom2 = .5
19. zoom3 = .2
20. Do
21.     _Limit 20
22.     RotoZoom 400, 300, image&, zoom, angle
23.     RotoZoom 400, 300, image&, zoom2, angle
24.     RotoZoom 400, 300, image&, zoom3, angle
25.     _Display
26.     angle = angle + 20
27.     If angle >= 360 Then Paint (400, 300), _RGB32(255, 255, 128), _RGB32(255, 0, 0): angle = 0
28.     _Delay .1
29. Loop Until InKey$ = Chr$(27)
30.  
31.  
32. Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
33.     Dim px(3) As Single: Dim py(3) As Single
34.     W& = _Width(image&): H& = _Height(image&)
35.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
36.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
37.     sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
38.     For i& = 0 To 3
39.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
40.         px(i&) = x2&: py(i&) = y2&
41.     Next
42.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
43.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
44. End Sub
45.  

[bplus]

A little mod

Code: QB64: [Select]

1. _Title "Ken's Rotating Flower"
2. Dim image As Long
3. Screen _NewImage(800, 600, 32)
4.  
5. For tt = 0 To _Pi Step .2
6.     For t = 1 To 20 Step .1
7.         Circle (400 + t, 150 + tt), 100, _RGB32(255, 0, 0), _Pi, ((3 * _Pi) / 2)
8.         Circle (298 + t, 250 + tt), 100, _RGB32(255, 0, 0), (2 * _Pi), (_Pi / 2)
9.     Next t
10. Next tt
11. Paint (350, 200), _RGB32(255, 255, 128), _RGB32(255, 0, 0)
12.  
13. image& = _CopyImage(0)
14. Cls
15. 'sky
16. Paint (1, 1), _RGB32(128, 255, 255)
17. zoom = 1.5
18. zoom2 = .5
19. zoom3 = .2
20. m = .99
21. Do
22.     _Limit 20
23.     RotoZoom 400, 300, image&, zoom, angle + bump
24.     RotoZoom 400, 300, image&, zoom2, angle + bump
25.     RotoZoom 400, 300, image&, zoom3, angle + bump
26.     zoom = zoom * m
27.     zoom2 = zoom2 * m
28.     zoom3 = zoom3 * m
29.     If zoom < .1 Then m = 1.02: bump = Rnd * .1
30.     If zoom > 1.7 Then m = .98: bump = Rnd * .1
31.     _Display
32.     angle = angle + 20
33.     If angle >= 360 Then Paint (400, 300), _RGB32(255, 255, 128), _RGB32(255, 0, 0): angle = 0
34.     _Delay .1
35. Loop Until InKey$ = Chr$(27)
36.  
37.  
38. Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
39.     Dim px(3) As Single: Dim py(3) As Single
40.     W& = _Width(image&): H& = _Height(image&)
41.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
42.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
43.     sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
44.     For i& = 0 To 3
45.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
46.         px(i&) = x2&: py(i&) = y2&
47.     Next
48.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
49.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
50. End Sub
51.  
52.  
53.  

[SierraKen]

Thanks B+ :). I took your idea and modded it a tiny bit by making the app finish when it gets super small so nobody can see the overlap problem. Thanks! People know when it's finished when the title bar says "Press Esc to quit."

Code: QB64: [Select]

1. 'Thanks to B+ for the mod idea and the rest of the QB64 forum gang for this idea in the past.
2. 'Made on March 21, 2022 by SierraKen with a small mod by B+.
3.  
4. _Title "Rotating Flower"
5. Dim image As Long
6. Screen _NewImage(800, 600, 32)
7.  
8. For tt = 0 To _Pi Step .2
9.     For t = 1 To 20 Step .1
10.         Circle (400 + t, 150 + tt), 100, _RGB32(255, 0, 0), _Pi, ((3 * _Pi) / 2)
11.         Circle (298 + t, 250 + tt), 100, _RGB32(255, 0, 0), (2 * _Pi), (_Pi / 2)
12.     Next t
13. Next tt
14. Paint (350, 200), _RGB32(255, 255, 128), _RGB32(255, 0, 0)
15.  
16. image& = _CopyImage(0)
17. Cls
18. 'sky
19. Paint (1, 1), _RGB32(128, 255, 255)
20. zoom = 1.5
21. zoom2 = .5
22. zoom3 = .2
23. m = .99
24. Do
25.     _Limit 20
26.     RotoZoom 400, 300, image&, zoom, angle + bump
27.     RotoZoom 400, 300, image&, zoom2, angle + bump
28.     RotoZoom 400, 300, image&, zoom3, angle + bump
29.     zoom = zoom * m
30.     zoom2 = zoom2 * m
31.     zoom3 = zoom3 * m
32.     'If zoom < .1 Then m = 1.02: bump = Rnd * .1
33.     If zoom < .05 Then
34.         _Title "Press Esc to quit."
35.         Do: Loop Until InKey$ = Chr$(27)
36.         _Title "Rotating Flower"
37.         End
38.     End If
39.     If zoom > 1.7 Then m = .98: bump = Rnd * .1
40.     _Display
41.     angle = angle + 20
42.     If angle >= 360 Then Paint (400, 300), _RGB32(255, 255, 128), _RGB32(255, 0, 0): angle = 0
43.     _Delay .1
44. Loop Until InKey$ = Chr$(27)
45.  
46.  
47. Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
48.     Dim px(3) As Single: Dim py(3) As Single
49.     W& = _Width(image&): H& = _Height(image&)
50.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
51.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
52.     sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
53.     For i& = 0 To 3
54.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
55.         px(i&) = x2&: py(i&) = y2&
56.     Next
57.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
58.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
59. End Sub
60.  

[bplus]

Need to offset those pedals some way.

Code: QB64: [Select]

1. _Title "b+ Makeover of Ken's Rotating Flower"
2. Dim image As Long
3. Screen _NewImage(700, 700, 32)
4. _ScreenMove 250, 20
5. For r = 50 To 60 Step .25
6.     Circle (350, 350), r, _RGB32(100, 0, 0), , , .5  'ovals half width for height
7. Next
8. Paint (350, 350), _RGB32(200, 0, 40), _RGB32(100, 0, 0)
9. image = _CopyImage(0)
10. Print " Here is one petal, press any to continue..."
11. Sleep
12.  
13. Color , _RGB32(128, 255, 255) ' Ken's sky color, nice
14. Cls
15. For r = 20 To 0 Step -.25 ' draw a yellow center
16.     Circle (350, 350), r, &HFFFFFF00
17. Next
18. r = 250: zoom = 1
19. Do ' each loop draws a ring of petals around the center starting on outside
20.     For a = start To _Pi(2) - .00001 Step _Pi(2 / 30) ' a goes around a circle from 0 to 2*pi = 360 degrees
21.         x = 350 + r * Cos(a): y = 350 + r * Sin(a) ' here is x, y coordinate for petal center
22.         angle = _Atan2(350 - y, 350 - x) ' here is the angle of the petal to the center of screen
23.         RotoZoom x, y, image, zoom, _R2D(angle) ' draw petal centered at x, y, scaled at zoom level, convert angle radians to degrees for rotozoom
24.         _Display
25.         _Delay .1
26.     Next
27.     zoom = zoom * .75 ' decrease petal scale by 75%
28.     r = r * .75 '  'next ring of petals decrease radius by 75%
29.     If r < 20 Then Exit Do ' r is too small we are done!
30.     toggle = 1 - toggle ' this alters petals so they are offset each time around
31.     If toggle Then start = -_Pi(1 / 30) Else start = 0 ' offset by half the angle "a" step size
32. Loop Until InKey$ = Chr$(27)
33.  
34.  
35. Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
36.     Dim px(3) As Single: Dim py(3) As Single
37.     W& = _Width(image&): H& = _Height(image&)
38.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
39.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
40.     sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
41.     For i& = 0 To 3
42.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
43.         px(i&) = x2&: py(i&) = y2&
44.     Next
45.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
46.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
47. End Sub
48.  
49.  

 

[SierraKen]

Here is one I just threw together to make it look better. B+ yours is incredible. I wouldn't have known to make it like that.

Code: QB64: [Select]

1. 'Thanks to B+ for the mod idea and the rest of the QB64 forum gang for this idea in the past.
2. 'Made on March 21, 2022 by SierraKen with a small mod by B+.
3.  
4. _Title "Rotating Flower"
5. Dim image As Long
6. Screen _NewImage(800, 600, 32)
7. co = 150
8. co2 = 255
9. For tt = 0 To _Pi Step .2
10.     For t = -30 To 30 Step .1
11.         co = co + .25
12.         co2 = co2 - .25
13.         If co2 < 150 Then co2 = 255
14.         If co > 255 Then co = 150
15.         Circle (400 + t, 150 + tt), 100, _RGB32(co, 0, 0), _Pi, ((3 * _Pi) / 2)
16.         Circle (298 + t, 250 + tt), 100, _RGB32(co2, 0, 0), (2 * _Pi), (_Pi / 2)
17.     Next t
18. Next tt
19.  
20. image& = _CopyImage(0)
21. Cls
22. 'sky
23. For yy = 0 To 600
24.     cl = cl + .5
25.     Line (0, yy)-(800, yy), _RGB32(128, cl, cl)
26. Next yy
27. zoom = 1.5
28. zoom2 = .5
29. zoom3 = .2
30. m = .99
31. Do
32.     _Limit 20
33.     RotoZoom 400, 300, image&, zoom, angle + bump
34.     RotoZoom 400, 300, image&, zoom2, angle + bump
35.     RotoZoom 400, 300, image&, zoom3, angle + bump
36.     zoom = zoom * m
37.     zoom2 = zoom2 * m
38.     zoom3 = zoom3 * m
39.     'If zoom < .1 Then m = 1.02: bump = Rnd * .1
40.     If zoom < .5 Then
41.         For sz = .1 To 5 Step .1
42.             Circle (400, 300), sz, _RGB32(255, 255, 127)
43.         Next sz
44.         _Display
45.         Sleep
46.         End
47.     End If
48.     _Title "Press Esc to quit."
49.     If zoom > 1.7 Then m = .98: bump = Rnd * .1
50.     _Display
51.     angle = angle + 20
52.     If angle >= 360 Then angle = 0
53.     _Delay .1
54. Loop
55.  

[bplus]

Code: QB64: [Select]

1. _Title "b+ Makeover #2 of Ken's Rotating Flower"
2. Dim image As Long
3. Screen _NewImage(700, 700, 32)
4. _ScreenMove 250, 20
5. For r = 0 To 60 Step .25
6.     Circle (350, 350), r, _RGB32(255 - r * 4, 0, 0), , , .5 'ovals half width for height
7. Next
8. image = _CopyImage(0)
9. Print " Here is one petal, press any to continue..."
10. Sleep
11. For i = 0 To 700
12.     Line (0, i)-(700, i), _RGB32(0, 160, 255 - i / 700 * 255)
13. Next
14. For r = 20 To 0 Step -.25 ' draw a yellow center
15.     Circle (350, 350), r, &HFFFFFF00
16. Next
17. r = 250: zoom = 1
18. Do ' each loop draws a ring of petals around the center starting on outside
19.     For a = start To _Pi(2) - .00001 Step _Pi(2 / 30) ' a goes around a circle from 0 to 2*pi = 360 degrees
20.         x = 350 + r * Cos(a): y = 350 + r * Sin(a) ' here is x, y coordinate for petal center
21.         angle = _Atan2(350 - y, 350 - x) ' here is the angle of the petal to the center of screen
22.         RotoZoom x, y, image, zoom, _R2D(angle) ' draw petal centered at x, y, scaled at zoom level, convert angle radians to degrees for rotozoom
23.         _Display
24.         _Delay .1
25.     Next
26.     zoom = zoom * .75 ' decrease petal scale by 75%
27.     r = r * .75 '  'next ring of petals decrease radius by 75%
28.     If r < 20 Then Exit Do ' r is too small we are done!
29.     toggle = 1 - toggle ' this alters petals so they are offset each time around
30.     If toggle Then start = -_Pi(1 / 30) Else start = 0 ' offset by half the angle "a" step size
31. Loop Until InKey$ = Chr$(27)
32. Sleep
33.  
34. Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
35.     Dim px(3) As Single: Dim py(3) As Single
36.     W& = _Width(image&): H& = _Height(image&)
37.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
38.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
39.     sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
40.     For i& = 0 To 3
41.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
42.         px(i&) = x2&: py(i&) = y2&
43.     Next
44.     _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
45.     _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
46. End Sub
47.  

 

[SierraKen]

Awesome piece of artwork B+.