Starfield Clock

[SierraKen]

Here is my first Starfield analog clock. I used my recent Starfield to make a backdrop of an analog clock. In order for everything to keep moving, I couldn't use the same chime sound as my older clocks, so instead I used the PLAY command with the "MB" in the string to play in the background. The sound isn't as good but at least it's something. :) The hardest thing on this was figuring out how to stop the PLAY command, so I had to make a done variable to make it stop chiming every hour. Believe me, I tried everything else I knew. lol
Anyways, enjoy the clock :). Also, you can still speed up and slow down with the stars but the clock stays the same speed. You can also still use the FullScreen move by pressing the Space Bar. I had to change the green circle that flies around the clock to look more like a circle in FullScreen mode, but that is only with the shape of my monitor, so it would look a bit different with other monitors, hopefully not too different.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1000, 800, 32)
2. DIM starx(1000), stary(1000)
3. DIM dx(1000), dy(1000)
4. DIM sz(1000)
5. DIM speed(1000)
6. DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
7. DIM col AS LONG
8. DIM circ AS SINGLE
9. DIM circx AS SINGLE
10. DIM circy AS SINGLE
11. RANDOMIZE TIMER
12. _TITLE "Starfield Clock - by SierraKen - Up and down arrow keys (or W and S keys) for speed. Space Bar switches back and forth to Full Screen. Esc to quit."
13. circ = 360
14. DO
15.     _LIMIT 100
16.     a$ = INKEY$
17.     IF a$ = CHR$(27) THEN END
18.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
19.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
20.     IF a$ = " " THEN f = f + 1
21.     IF f = 1 THEN _FULLSCREEN: fullscreen = 1
22.     IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
23.  
24.     'Clock
25.     clock
26.     circ = circ - .1
27.     IF circ < 0 THEN circ = 360
28.     IF fullscreen = 1 THEN fs = .75: fs2 = 25
29.     IF fullscreen = 0 THEN fs = 1: fs2 = 0
30.     circx = (SIN(circ) * (240 - fs2)) + 500
31.     circy = (COS(circ) * (240 - fs2)) / fs + 400
32.     col = _RGB32(0, 255, 0)
33.     cx = circx: cy = circy: c = col
34.  
35.     'Chimes
36.     ho$ = LEFT$(TIME$, 2)
37.     hou = VAL(ho$)
38.     min$ = MID$(TIME$, 4, 2)
39.     minu = VAL(min$)
40.     seco$ = RIGHT$(TIME$, 2)
41.     secon = VAL(seco$)
42.     IF hou > 12 THEN hou = hou - 12
43.     IF hou = 0 THEN hou = 12
44.     IF minu = 0 AND secon = 0 AND done = 0 THEN
45.         FOR chime = 1 TO hou
46.             PLAY "MB L6 P1 O1 G"
47.         NEXT chime
48.         done = 1
49.     END IF
50.     IF secon > 0 THEN done = 0
51.  
52.     'Starfield
53.     fillCircle cx, cy, 5, c
54.     IF sp < .0005 THEN sp = .0005
55.     IF sp > .1 THEN sp = .1
56.     warp = (sp * 100) + 1
57.     IF warp > 10 THEN warp = 10
58.     warp = INT(warp)
59.     warp$ = STR$(warp)
60.     stars = INT(RND * 100) + 1
61.     IF stars > 25 THEN
62.         s = s + 1
63.         IF s > 950 THEN s = 1
64.         'Set starting position.
65.         startx = RND * 490
66.         starty = RND * 390
67.         st = INT(RND * 360)
68.         x = (SIN(st) * startx) + 500
69.         y = (COS(st) * starty) + 400
70.         starx(s) = x
71.         stary(s) = y
72.         'Set direction to move.
73.         dx(s) = ((x - 500) / 30)
74.         dy(s) = ((y - 400) / 30)
75.         'Set size.
76.         sz(s) = RND
77.         'Set speed
78.         speed(s) = .1
79.     END IF
80.     IF yy > 640 THEN yy = 0
81.     FOR t = 1 TO 950
82.         speed(t) = speed(t) * (1.05 + sp)
83.         stary(t) = stary(t) + dy(t) * speed(t)
84.         starx(t) = starx(t) + dx(t) * speed(t)
85.         cx = starx(t): cy = stary(t)
86.         r = sz(t) + .5
87.         c = _RGB32(255, 255, 255)
88.         fillCircle cx, cy, r, c
89.         'skip:
90.     NEXT t
91.     _DISPLAY
92.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
93. LOOP
94.  
95. SUB clock
96.     hours = TIMER \ 3600
97.     minutes = TIMER \ 60 - hours * 60
98.     seconds = (TIMER - hours * 3600 - minutes * 60)
99.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
100.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
101.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
102.     'oldminu = minu
103.     'Seconds
104.     s = (60 - seconds) * 6 + 180
105.     x = INT(SIN(s / 180 * 3.141592) * 125) + 500
106.     y = INT(COS(s / 180 * 3.141592) * 125) + 400
107.     FOR b = -5 TO 5 STEP .1
108.         LINE (500 + b, 400)-(x, y), _RGB32(127, 255, 255)
109.         LINE (500, 400 + b)-(x, y), _RGB32(127, 255, 255)
110.     NEXT b
111.     'Minutes
112.     m = 180 - minutes * 6
113.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 500
114.     yy = INT(COS(m / 180 * 3.141592) * 120) + 400
115.     FOR b = -5 TO 5 STEP .1
116.         LINE (500 + b, 400)-(xx, yy), _RGB32(0, 255, 255)
117.         LINE (500, 400 + b)-(xx, yy), _RGB32(0, 255, 255)
118.     NEXT b
119.     'Hours
120.     h = 360 - hours * 30 + 180
121.     xxx = INT(SIN(h / 180 * 3.141592) * 90) + 500
122.     yyy = INT(COS(h / 180 * 3.141592) * 90) + 400
123.     FOR b = -5 TO 5 STEP .1
124.         LINE (500 + b, 400)-(xxx, yyy), _RGB32(0, 255, 0)
125.         LINE (500, 400 + b)-(xxx, yyy), _RGB32(0, 255, 0)
126.     NEXT b
127. END SUB
128.  
129.  
130. 'from Steve Gold standard
131. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
132.     DIM Radius AS INTEGER, RadiusError AS INTEGER
133.     DIM X AS INTEGER, Y AS INTEGER
134.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
135.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
136.     LINE (CX - X, CY)-(CX + X, CY), C, BF
137.     WHILE X > Y
138.         RadiusError = RadiusError + Y * 2 + 1
139.         IF RadiusError >= 0 THEN
140.             IF X <> Y + 1 THEN
141.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
142.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
143.             END IF
144.             X = X - 1
145.             RadiusError = RadiusError - X * 2
146.         END IF
147.         Y = Y + 1
148.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
149.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
150.     WEND
151. END SUB
152.  

[STxAxTIC]

Lovely work. I started playing with it, and it was pretty easy to make it into a parametric clock. These hands connect head-to-tail rather than all at the center:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1000, 800, 32)
2. DIM starx(1000), stary(1000)
3. DIM dx(1000), dy(1000)
4. DIM sz(1000)
5. DIM speed(1000)
6. DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
7. DIM col AS LONG
8. DIM circ AS SINGLE
9. DIM circx AS SINGLE
10. DIM circy AS SINGLE
11. RANDOMIZE TIMER
12. _TITLE "Starfield Clock - by SierraKen - Up and down arrow keys (or W and S keys) for speed. Space Bar switches back and forth to Full Screen. Esc to quit."
13. circ = 360
14. DO
15.     _LIMIT 100
16.     a$ = INKEY$
17.     IF a$ = CHR$(27) THEN END
18.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
19.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
20.     IF a$ = " " THEN f = f + 1
21.     IF f = 1 THEN _FULLSCREEN: fullscreen = 1
22.     IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
23.  
24.     'Clock
25.     clock
26.     circ = circ - .1
27.     IF circ < 0 THEN circ = 360
28.     IF fullscreen = 1 THEN fs = .75: fs2 = 25
29.     IF fullscreen = 0 THEN fs = 1: fs2 = 0
30.     circx = (SIN(circ) * (240 - fs2)) + 500
31.     circy = (COS(circ) * (240 - fs2)) / fs + 400
32.     col = _RGB32(0, 255, 0)
33.     cx = circx: cy = circy: c = col
34.  
35.     'Chimes
36.     ho$ = LEFT$(TIME$, 2)
37.     hou = VAL(ho$)
38.     min$ = MID$(TIME$, 4, 2)
39.     minu = VAL(min$)
40.     seco$ = RIGHT$(TIME$, 2)
41.     secon = VAL(seco$)
42.     IF hou > 12 THEN hou = hou - 12
43.     IF hou = 0 THEN hou = 12
44.     IF minu = 0 AND secon = 0 AND done = 0 THEN
45.         FOR chime = 1 TO hou
46.             PLAY "MB L6 P1 O1 G"
47.         NEXT chime
48.         done = 1
49.     END IF
50.     IF secon > 0 THEN done = 0
51.  
52.     'Starfield
53.     fillCircle cx, cy, 5, c
54.     IF sp < .0005 THEN sp = .0005
55.     IF sp > .1 THEN sp = .1
56.     warp = (sp * 100) + 1
57.     IF warp > 10 THEN warp = 10
58.     warp = INT(warp)
59.     warp$ = STR$(warp)
60.     stars = INT(RND * 100) + 1
61.     IF stars > 25 THEN
62.         s = s + 1
63.         IF s > 950 THEN s = 1
64.         'Set starting position.
65.         startx = RND * 490
66.         starty = RND * 390
67.         st = INT(RND * 360)
68.         x = (SIN(st) * startx) + 500
69.         y = (COS(st) * starty) + 400
70.         starx(s) = x
71.         stary(s) = y
72.         'Set direction to move.
73.         dx(s) = ((x - 500) / 30)
74.         dy(s) = ((y - 400) / 30)
75.         'Set size.
76.         sz(s) = RND
77.         'Set speed
78.         speed(s) = .1
79.     END IF
80.     IF yy > 640 THEN yy = 0
81.     FOR t = 1 TO 950
82.         speed(t) = speed(t) * (1.05 + sp)
83.         stary(t) = stary(t) + dy(t) * speed(t)
84.         starx(t) = starx(t) + dx(t) * speed(t)
85.         cx = starx(t): cy = stary(t)
86.         r = sz(t) + .5
87.         c = _RGB32(255, 255, 255)
88.         fillCircle cx, cy, r, c
89.         'skip:
90.     NEXT t
91.     _DISPLAY
92.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
93. LOOP
94.  
95. SUB clock
96.     hours = TIMER \ 3600
97.     minutes = TIMER \ 60 - hours * 60
98.     seconds = (TIMER - hours * 3600 - minutes * 60)
99.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
100.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
101.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
102.     'oldminu = minu
103.     'Hours Minutes Seconds
104.     h = 360 - hours * 30 + 180
105.     m = 180 - minutes * 6
106.     s = (60 - seconds) * 6 + 180
107.     x = _WIDTH / 2 + INT(SIN(h / 180 * 3.141592) * 90)
108.     y = _HEIGHT / 2 + INT(COS(h / 180 * 3.141592) * 90)
109.     xx = x + INT(SIN(m / 180 * 3.141592) * 120)
110.     yy = y + INT(COS(m / 180 * 3.141592) * 120)
111.     xxx = xx + INT(SIN(s / 180 * 3.141592) * 125)
112.     yyy = yy + INT(COS(s / 180 * 3.141592) * 125)
113.     LINE (_WIDTH / 2, _HEIGHT / 2)-(x, y), _RGB32(0, 255, 0)
114.     LINE (x, y)-(xx, yy), _RGB32(0, 255, 255)
115.     LINE (xx, yy)-(xxx, yyy), _RGB32(127, 255, 255)
116. END SUB
117.  
118.  
119. 'from Steve Gold standard
120. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
121.     DIM Radius AS INTEGER, RadiusError AS INTEGER
122.     DIM X AS INTEGER, Y AS INTEGER
123.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
124.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
125.     LINE (CX - X, CY)-(CX + X, CY), C, BF
126.     WHILE X > Y
127.         RadiusError = RadiusError + Y * 2 + 1
128.         IF RadiusError >= 0 THEN
129.             IF X <> Y + 1 THEN
130.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
131.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
132.             END IF
133.             X = X - 1
134.             RadiusError = RadiusError - X * 2
135.         END IF
136.         Y = Y + 1
137.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
138.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
139.     WEND
140. END SUB
141.  
142.  

[SierraKen]

LOL I kinda see how you did that Static, way cool!

[bplus]

@SierraKen

Great idea to combine Starfield with clock and I like the circles going round.

[SierraKen]

Thanks B+ :)

[johnno56]

Ken,

I was going to suggest having a "Stardate" clock combined with your star-field.... Until I saw the math involved in converting from real time... Yikes!

I like what you have done! Will it eventually have an 'alarm' and, more importantly, a 'snooze' button?

J

[SierraKen]

LOL Johnno, the funny thing about Stardates is that the original series mostly did it at random I heard, and the rest of the Star Trek shows did it some other weird way. I tested some websites about it a long time ago and they were all different from each other's outcomes. lol
Hmm I would make an alarm but I don't think I would ever use it. I use a timer program on my computer that beeps after a certain amount of time and I have my alarm in my bedroom and that's all I need. Thanks for the idea though.

[SMcNeill]

LOL Johnno, the funny thing about Stardates is that the original series mostly did it at random I heard, and the rest of the Star Trek shows did it some other weird way. I tested some websites about it a long time ago and they were all different from each other's outcomes. lol
Hmm I would make an alarm but I don't think I would ever use it. I use a timer program on my computer that beeps after a certain amount of time and I have my alarm in my bedroom and that's all I need. Thanks for the idea though.

Stardates were roughly based on seasons of a series...

https://www.mentalfloss.com/article/68741/how-do-star-trek-stardates-work

A stardate is a five-digit number followed by a decimal point and one more digit. Example: "41254.7." The first two digits of the stardate are always "41." The 4 stands for 24th century, the 1 indicates first season. The additional three leading digits will progress unevenly during the course of the season from 000 to 999. The digit following the decimal point is generally regarded as a day counter.


*****

A Stardate is a five-digit number followed by a decimal point and one more digit. Example: "46254.7". The first two digits of the Stardate are "46." The 4 stands for the 24th Century, the 6 indicates sixth season. The following three digits will progress consecutively during the course of the season from 000 to 999. The digit following the decimal point counts tenths of a day. Stardate 45254.4, therefore, represents the noon hour on the 254th "day" of the fifth season. Because Stardates in the 24th Century are based on a complex mathematical formula, a precise correlation to Earth-based dating systems is not possible.


Converting to the latest stardate format of the last films seems simple enough:

The stardate format from the latest film series is credited to screenwriters Roberto Orci and Alex Kurtzman. According to Orci, they "used the system where, for example, 2233.45 or whatever means 23rd century, 33rd year of that century, and the .45 indicates the day of the year out of 365 days." During a Q&A session, Orci restated that a stardate is "the year, as in 2233, with the month and day expressed as a decimal point from .1 to .365 (as in the 365 days of the year)." He posted a similar reply on Twitter: "star date=standard year, with decimal representing day of year from 1-365."

[SierraKen]

Thanks Steve. Yeah I agree it's not possible for precise calculation, unless you make up your own way, like they did with the movies. I mean, what about leap year? lol

[Dav]

Hi @SierraKen.  Your Starfield clock is good enough without this, but Just for the heck of it I tried to do what you asked about in the Holiday thread here.  This one uses one of the sound files in the SPLAY program I posted, so you will need that or change the filename.

  I marked the changes I made in the code with a #Dav tag for easy finding.  Just for fun, I added _ICON _DISPLAY here, instead of just _DISPLAY, so the clock movement shows in the task bar icon, but sometimes the app crashes doing that so I changed it back.  I guess _ICON just isn't meant to be called so frequently.

Anyway, your clock code is great.

- Dav

Edit: I used _SNDPLAYFILE here, but probably _SNDPLAY would be better and not cause that barely visual delay when the sound starts playing. 

Edit #2: Added DIM starx(1000), stary(1000) I left out...

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1000, 800, 32)
2. DIM starx(1000), stary(1000)
3. DIM dx(1000), dy(1000)
4. DIM sz(1000)
5. DIM speed(1000)
6. DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
7. DIM col AS LONG
8. DIM circ AS SINGLE
9. DIM circx AS SINGLE
10. DIM circy AS SINGLE
11. RANDOMIZE TIMER
12. _TITLE "Starfield Clock - by SierraKen - Up and down arrow keys (or W and S keys) for speed. Space Bar switches back and forth to Full Screen. Esc to quit."
13. circ = 360
14. DO
15.     _LIMIT 100
16.     a$ = INKEY$
17.     IF a$ = CHR$(27) THEN END
18.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
19.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
20.     IF a$ = " " THEN f = f + 1
21.     IF f = 1 THEN _FULLSCREEN: fullscreen = 1
22.     IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
23.  
24.     'Clock
25.     clock
26.     circ = circ - .1
27.     IF circ < 0 THEN circ = 360
28.     IF fullscreen = 1 THEN fs = .75: fs2 = 25
29.     IF fullscreen = 0 THEN fs = 1: fs2 = 0
30.     circx = (SIN(circ) * (240 - fs2)) + 500
31.     circy = (COS(circ) * (240 - fs2)) / fs + 400
32.     col = _RGB32(0, 255, 0)
33.     cx = circx: cy = circy: c = col
34.  
35.     'Chimes
36.     ho$ = LEFT$(TIME$, 2)
37.     hou = VAL(ho$)
38.     min$ = MID$(TIME$, 4, 2)
39.     minu = VAL(min$)
40.     seco$ = RIGHT$(TIME$, 2)
41.     secon = VAL(seco$)
42.     IF hou > 12 THEN hou = hou - 12
43.     IF hou = 0 THEN hou = 12
44.     IF minu = 0 AND secon = 0 AND done = 0 THEN
45.         'FOR chime = 1 TO hou
46.         ''PLAY "MB L6 P1 O1 G"
47.         'NEXT chime
48.         done = 1
49.         '====================================== #Dav
50.         chimeflag = 1 '<<< time to chime flag
51.         chimetimer = TIMER '<<< start a TIMER
52.         '===========================================
53.     END IF
54.     IF secon > 0 THEN done = 0
55.  
56.     '========================================== #Dav
57.     'plays soundfile chime, if chime flag on
58.     IF chimeflag = 1 THEN
59.         'Check chimetimer & TIMER values.
60.         'Play sound every 1 second, and
61.         'keep count how many times played.
62.         IF TIMER - chimetimer > 1 THEN
63.             'play a chime
64.             _SNDPLAYFILE "splay/ogg/g1.ogg"
65.             'add to the count
66.             chime = chime + 1
67.             'set a new timer spot
68.             chimetimer = TIMER
69.             'If chime count reached, reset chimeflag & count
70.             IF chime = hou THEN
71.                 chime = 0
72.                 chimeflag = 0
73.             END IF
74.         END IF
75.     END IF
76.     '================================================
77.  
78.     'Starfield
79.     fillCircle cx, cy, 5, c
80.     IF sp < .0005 THEN sp = .0005
81.     IF sp > .1 THEN sp = .1
82.     warp = (sp * 100) + 1
83.     IF warp > 10 THEN warp = 10
84.     warp = INT(warp)
85.     warp$ = STR$(warp)
86.     stars = INT(RND * 100) + 1
87.     IF stars > 25 THEN
88.         s = s + 1
89.         IF s > 950 THEN s = 1
90.         'Set starting position.
91.         startx = RND * 490
92.         starty = RND * 390
93.         st = INT(RND * 360)
94.         x = (SIN(st) * startx) + 500
95.         y = (COS(st) * starty) + 400
96.         starx(s) = x
97.         stary(s) = y
98.         'Set direction to move.
99.         dx(s) = ((x - 500) / 30)
100.         dy(s) = ((y - 400) / 30)
101.         'Set size.
102.         sz(s) = RND
103.         'Set speed
104.         speed(s) = .1
105.     END IF
106.     IF yy > 640 THEN yy = 0
107.     FOR t = 1 TO 950
108.         speed(t) = speed(t) * (1.05 + sp)
109.         stary(t) = stary(t) + dy(t) * speed(t)
110.         starx(t) = starx(t) + dx(t) * speed(t)
111.         cx = starx(t): cy = stary(t)
112.         r = sz(t) + .5
113.         c = _RGB32(255, 255, 255)
114.         fillCircle cx, cy, r, c
115.         'skip:
116.     NEXT t
117.     _DISPLAY
118.     '_ICON _DISPLAY '#Dav
119.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
120. LOOP
121.  
122. SUB clock
123.     hours = TIMER \ 3600
124.     minutes = TIMER \ 60 - hours * 60
125.     seconds = (TIMER - hours * 3600 - minutes * 60)
126.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
127.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
128.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
129.     'oldminu = minu
130.     'Seconds
131.     s = (60 - seconds) * 6 + 180
132.     x = INT(SIN(s / 180 * 3.141592) * 125) + 500
133.     y = INT(COS(s / 180 * 3.141592) * 125) + 400
134.     FOR b = -5 TO 5 STEP .1
135.         LINE (500 + b, 400)-(x, y), _RGB32(127, 255, 255)
136.         LINE (500, 400 + b)-(x, y), _RGB32(127, 255, 255)
137.     NEXT b
138.     'Minutes
139.     m = 180 - minutes * 6
140.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 500
141.     yy = INT(COS(m / 180 * 3.141592) * 120) + 400
142.     FOR b = -5 TO 5 STEP .1
143.         LINE (500 + b, 400)-(xx, yy), _RGB32(0, 255, 255)
144.         LINE (500, 400 + b)-(xx, yy), _RGB32(0, 255, 255)
145.     NEXT b
146.     'Hours
147.     h = 360 - hours * 30 + 180
148.     xxx = INT(SIN(h / 180 * 3.141592) * 90) + 500
149.     yyy = INT(COS(h / 180 * 3.141592) * 90) + 400
150.     FOR b = -5 TO 5 STEP .1
151.         LINE (500 + b, 400)-(xxx, yyy), _RGB32(0, 255, 0)
152.         LINE (500, 400 + b)-(xxx, yyy), _RGB32(0, 255, 0)
153.     NEXT b
154. END SUB
155.  
156.  
157. 'from Steve Gold standard
158. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
159.     DIM Radius AS INTEGER, RadiusError AS INTEGER
160.     DIM X AS INTEGER, Y AS INTEGER
161.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
162.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
163.     LINE (CX - X, CY)-(CX + X, CY), C, BF
164.     WHILE X > Y
165.         RadiusError = RadiusError + Y * 2 + 1
166.         IF RadiusError >= 0 THEN
167.             IF X <> Y + 1 THEN
168.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
169.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
170.             END IF
171.             X = X - 1
172.             RadiusError = RadiusError - X * 2
173.         END IF
174.         Y = Y + 1
175.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
176.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
177.     WEND
178. END SUB
179.  

 

[bplus]

Dang just missed 12 noon chime!

Someone forgot to get starx, stary dimensioned.

Oh this wont work either

Code: QB64: [Select]

1.  hou = 12: minu = 0: secon = 0

Missing sound files. :P

[SierraKen]

Dang Dav that's genius! I was close, but not close enough. :) One thing though, for some reason you left out 2 DIM statements which errors the program on running it. It's these on top: DIM starx(1000), stary(1000) , so I put them back in.

B+, and anyone else, if you want to test the chimes at any time, first calculate how far back in minutes it was until the last hour, for example, if it is 9:51 AM, use the number 52. Then add this on LINE 49: minu = minu - 52. Then it will chime when the clock strikes the next minute. Or it might be better to use the number 53 (2 numbers higher than the current minute), so the clock thinks it's 2 minutes before the hour it already is. Then you run it and wait less than 2 minutes and then it will chime.

Here is the zipped up file with the g1.ogg and the program. Put both files in the same directory. I renamed it to Starfield Clock 2. Thanks again Dav!

[bplus]

 Dang! the ogg must be in same folder as source, Explorer dies!

[SierraKen]

Sorry B+, I thought people would know to put all files in the same directory. But yeah, I changed his code to mine because not all people will get his Christmas song. 
Edit: I just added that to the post above for people to put both files in the same directory.

[bplus]

Normally (without oggs) that should be fine, teaches me to be more careful in future.

Time to build a File Explorer of my own anyway!