Spinner

[bplus]

A subject started at JB forum by tsh73, this is the version I came up with that won't work (way too slow) there but works great here in QB64:

Code: QB64: [Select]

1. _Title "Spinner" 'b+ 2021-06-18
2. Screen _NewImage(500, 500, 32)
3. Const rad = _Pi / 180
4. While 1
5.     Cls
6.     b = b + 5
7.     For r = 20 To 200 Step 20 ' tsh73 suggested fix for inner most
8.         a = b * r / 20
9.         For i = r - 15 To r
10.             arc 250, 250, i, a, 180
11.         Next
12.     Next
13.     _Display
14.     _Limit 15
15. Wend
16.  
17. Sub arc (xCenter, yCenter, arcRadius, dAStart, dAMeasure)
18.     'notes:
19.     'you may want to adjust size and color for line drawing
20.     'using angle measures in degrees to match Just Basic ways with pie and piefilled
21.     'this sub assumes drawing in a CW direction if dAMeasure positive
22.  
23.     'for Just Basic angle 0 degrees is due East and angle increases clockwise towards South
24.  
25.     'dAStart is degrees to start Angle, due East is 0 degrees
26.  
27.     'dAMeasure is degrees added (Clockwise) to dAstart for end of arc
28.  
29.     rAngleStart = rad * dAStart
30.     rAngleEnd = rad * dAMeasure + rAngleStart
31.     Stepper = rad / (.1 * arcRadius) 'fixed
32.     lastX = xCenter + arcRadius * Cos(rAngleStart)
33.     lastY = yCenter + arcRadius * Sin(rAngleStart)
34.     PSet (lastX, lastY)
35.     For rAngle = rAngleStart + Stepper To rAngleEnd Step Stepper
36.         nextX = xCenter + arcRadius * Cos(rAngle)
37.         nextY = yCenter + arcRadius * Sin(rAngle)
38.         Line -(nextX, nextY) 'int speeds things up
39.     Next
40. End Sub