Happy _PI Day!

[SierraKen]

Happy 3.14 _PI Day!

Here are some orbits I made today.

Code: QB64: [Select]

1. Screen _NewImage(800, 600, 32)
2. tilt = 60
3. Do
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
29. Loop
30.  

[bplus]

Oh that's today! :)

[SMcNeill]

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!

[bplus]

A pie moment, with apple pie?

[johnno56]

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.

[SMcNeill]

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!)

[Dav]

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

[SierraKen]

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
6. Do
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
18.     Do While _MouseInput
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
64. Loop
65.  
66.