Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on March 14, 2022, 12:18:44 pm

Title: Happy _PI Day!
Post by: SierraKen on March 14, 2022, 12:18:44 pm
Happy 3.14 _PI Day!

Here are some orbits I made today.

Code: QB64: [Select]
  1. Screen _NewImage(800, 600, 32)
  2. tilt = 60
  4.     _Limit 300
  5.     Circle (400, 200), 30, _RGB32(127, 255, 255)
  6.  
  7.     seconds = seconds + .1
  8.     If seconds > 59 Then seconds = 0
  9.     s = (60 - seconds) * 6 + 180
  10.     x = Int(Sin(s / 180 * _Pi) * 125) + 400
  11.     y = Int(Cos(s / 180 * _Pi) * 125 / tilt) + 200
  12.     Circle (x, y), 5, _RGB32(255, 0, 0)
  13.     seconds2 = seconds2 + .1
  14.     If seconds2 > 59 Then seconds2 = 0
  15.     s2 = (60 - seconds2) * 6 + 180
  16.     x2 = Int(Sin(s2 / 180 * _Pi) * 125) + 400
  17.     y2 = Int(Cos(s2 / 180 * _Pi) * 125 + tilt) + 200
  18.     Circle (x2, y2), 5, _RGB32(255, 0, 0)
  19.     seconds3 = seconds3 - .1
  20.     If seconds3 > 59 Then seconds3 = 0
  21.     s3 = (60 - seconds3) * 6 + 180
  22.     x3 = Int(Sin(s3 / 180 * _Pi) * 125) + 400
  23.     y3 = Int(Cos(s3 / 180 * _Pi) * 125 - tilt) + 200
  24.     Circle (x3, y3), 5, _RGB32(255, 0, 0)
  25.  
  26.     _Delay .002
  27.     _Display
  28.     Cls
  30.  
Title: Re: Happy _PI Day!
Post by: bplus on March 14, 2022, 12:56:00 pm
Oh that's today! :)
Title: Re: Happy _PI Day!
Post by: SMcNeill on March 14, 2022, 01:08:53 pm
Quote from: bplus on March 14, 2022, 12:56:00 pm
Oh that's today! :)

It's not quite here yet for me on EST!  I'm waiting until 3:09:26.54 PM to celebrate!
Title: Re: Happy _PI Day!
Post by: bplus on March 14, 2022, 01:13:16 pm
A pie moment, with apple pie?
Title: Re: Happy _PI Day!
Post by: johnno56 on March 14, 2022, 02:29:06 pm
Fun fact: The 14th of March (in your case - Pi-day) was once referred to as "The Ides of March". Ides simply referred to the first new moon of a given month, which usually fell between the 13th and 15th. In fact, the Ides of March once signified the new year, which meant celebrations and rejoicing.
Title: Re: Happy _PI Day!
Post by: SMcNeill on March 14, 2022, 03:56:33 pm
Quote from: bplus on March 14, 2022, 01:13:16 pm
A pie moment, with apple pie?
March -- 3
14th -- .14

at

3 PM -- 15
09 --     9
and 26.54 milliseconds,

I had Boston Cream Pie in honor of Pi Day!

(Or mighty dern close to that time!  The spirit was there, even if the physics was a slag behind!)
Title: Re: Happy _PI Day!
Post by: Dav on March 14, 2022, 07:51:28 pm
PI day, huh?  Now I know why the pizza place around here had pizza pie specials today.  Here’s something real freaky - my wrist watch stopped working today. It’s battery died I’m guessing.  Stopped at 3:14pm EST. Not sure if that’s a good or bad sign...

- Dav
Title: Re: Happy _PI Day!
Post by: SierraKen on March 15, 2022, 04:49:12 pm
Here is version 2. I finally figured out how to make the 3D orbiting Moon disappear when it flies behind the planet. The trick is seeing where X is and also the fact that Y changes also in that location. The funny thing is I spent hours trying all kinds of ways but it finally came to me within minutes today. Version 2 also lets you slow down and speed up the orbits using your Mouse Wheel. Plus if you click the Left Mouse Button, it randomly positions the Moons and puts them in slightly different orbits. The vertical orbiting Moons change a lot more than the horizontal 3D Moon. I also filled up each circle with solid colors. Tell me what you think, thanks.

Code: QB64: [Select]
  1. _Title "Orbits by SierraKen - Use Mouse Wheel and Left Button - version 2"
  2. Screen _NewImage(800, 600, 32)
  3. tilt = 10
  4. delay = .004
  5. seconds2 = 30
  7.     _Limit 400
  8.     a$ = InKey$
  9.     If a$ = Chr$(27) Then End
  10.     If a$ = " " Or mouseLeftButton = -1 Then
  11.         seconds = (Rnd * 58) + 1
  12.         seconds2 = (Rnd * 58) + 1
  13.         seconds3 = (Rnd * 58) + 1
  14.         tilt = (Rnd * 49) + 10
  15.     End If
  16.  
  17.     mouseWheel = 0
  19.         mouseLeftButton = _MouseButton(1)
  20.         mouseRightButton = _MouseButton(2)
  21.         mouseMiddleButton = _MouseButton(3)
  22.         mouseWheel = mouseWheel + _MouseWheel
  23.     Loop
  24.     If mouseWheel = -1 Then delay = delay + .0001
  25.     If mouseWheel = 1 Then delay = delay - .0001
  26.     If delay > .02 Then delay = .02
  27.     If delay < .002 Then delay = .002
  28.     'Planet
  29.     For siz = .1 To 30 Step .1
  30.         Circle (400, 200), siz, _RGB32(127, 255, 255)
  31.     Next siz
  32.     '3D Orbit Moon
  33.     seconds = seconds + .1
  34.     If seconds > 59 Then seconds = 0
  35.     s = (60 - seconds) * 6 + 180
  36.     x = Int(Sin(s / 180 * _Pi) * 125) + 400
  37.     y = Int(Cos(s / 180 * _Pi) * 125 / tilt) + 200
  38.     If x > 367 And x < 430 And y <= 198 Then GoTo skip:
  39.     For siz = .1 To 5 Step .1
  40.         Circle (x, y), siz, _RGB32(255, 255, 255)
  41.     Next siz
  42.     skip:
  43.     'Moon 2
  44.     seconds2 = seconds2 + .1
  45.     If seconds2 > 59 Then seconds2 = 0
  46.     s2 = (60 - seconds2) * 6 + 180
  47.     x2 = Int(Sin(s2 / 180 * _Pi) * 125) + 400
  48.     y2 = Int(Cos(s2 / 180 * _Pi) * 125 + tilt) + 200
  49.     For siz = .1 To 5 Step .1
  50.         Circle (x2, y2), siz, _RGB32(127, 55, 255)
  51.     Next siz
  52.     'Moon 3
  53.     seconds3 = seconds3 - .1
  54.     If seconds3 > 59 Then seconds3 = 0
  55.     s3 = (60 - seconds3) * 6 + 180
  56.     x3 = Int(Sin(s3 / 180 * _Pi) * 125) + 400
  57.     y3 = Int(Cos(s3 / 180 * _Pi) * 125 - tilt) + 200
  58.     For siz = .1 To 5 Step .1
  59.         Circle (x3, y3), siz, _RGB32(116, 255, 128)
  60.     Next siz
  61.     _Delay delay
  62.     _Display
  63.     Cls
  65.  
  66.  
Text Only | Text with Attachments