Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on May 04, 2021, 12:06:12 pm

Title: Write with line light
Post by: bplus on May 04, 2021, 12:06:12 pm
Code: QB64: [Select]
  1. _Title "Write with light line" 'b+ 2021-05-04
  2. ' from "Random light line" 'b+ 2020-01-28
  3.  
  4. Const xmax = 1200, ymax = 700
  5. Screen _NewImage(xmax, ymax, 32)
  8.  
  9. wandsi 0, 0, 0, 0, 1, 0
  10. While _KeyDown(27) = 0
  11.     If InKey$ = " " Then Cls
  13.     mx = _MouseX: my = _MouseY: mb = _MouseButton(1)
  14.     If mb Then
  15.         a = a + _Pi(1 / 45)
  16.         wandsi mx, my, a, 20, 0, i
  17.     End If
  18.     lastmx = mx: lastmy = my
  19.     i = i + 1
  20.     _Display
  21.     _Limit 3000
  23.  
  24. 'draw a colorful line from point x, y, at radianAngle for a distance and use new <> 0 to reset colors
  25. Sub wandsi (x1 As Single, y1 As Single, radianAngle As Single, distance As Single, new As Integer, startIdx As Integer)
  26.     Static r As Single, g As Single, b As Single 'hold present color settings until
  27.     If new <> 0 Then r = Rnd * Rnd * .5: g = Rnd * Rnd * .5: b = Rnd * Rnd * .5 'new is true
  28.     Dim dx As Single, dy As Single, i As Integer, x As Single, y As Single
  29.     dx = Cos(radianAngle): dy = Sin(radianAngle)
  30.     For i = 0 To distance
  31.         x = x1 + i * dx: y = y1 + i * dy
  32.         Line (x, y)-Step(0, 0), _RGB32(127 + 127 * Sin(r * (i + startIdx)), 127 + 127 * Sin(g * (i + startIdx)), 127 + 127 * Sin(b * (i + startIdx)), 50), BF
  33.     Next
  35.  
  36.  
  37.  

Title: Re: Write with line light
Post by: SierraKen on May 04, 2021, 05:37:24 pm
Pretty cool B+. :)
Title: Re: Write with line light
Post by: Ashish on May 05, 2021, 02:45:48 am
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Write with line light
Post by: _vince on May 05, 2021, 02:52:01 am
Nice, but Ashishh wins:  https://www.qb64.org/forum/index.php?topic=3266.0 (https://www.qb64.org/forum/index.php?topic=3266.0)
Title: Re: Write with line light
Post by: bplus on May 05, 2021, 02:27:47 pm
Quote from: _vince on May 05, 2021, 02:52:01 am
Nice, but Ashishh wins:  https://www.qb64.org/forum/index.php?topic=3266.0 (https://www.qb64.org/forum/index.php?topic=3266.0)

Ha! I'll try harder next time, actually I was just going for a new way to note the day!

Thanks Ken and Ashish.
Title: Re: Write with line light
Post by: Dav on May 06, 2021, 11:53:28 am
Neat one, @bplus!  I sure like playing around with unique drawing tools.  Thanks for sharing.

- Dav

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Write with line light
Post by: bplus on May 06, 2021, 12:01:10 pm
Hey Dav's back! :)

Text Only | Text with Attachments