Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on June 19, 2021, 07:54:36 pm

Title: Spinner
Post by: bplus on June 19, 2021, 07:54:36 pm
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
  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
  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


Text Only | Text with Attachments