Author Topic: Starfield Clock (Read 5555 times)

SierraKen · « **on:** December 11, 2020, 09:33:56 pm »

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]

SCREEN _NEWIMAGE(1000, 800, 32)
DIM starx(1000), stary(1000)
DIM dx(1000), dy(1000)
DIM sz(1000)
DIM speed(1000)
DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
DIM col AS LONG
DIM circ AS SINGLE
DIM circx AS SINGLE
DIM circy AS SINGLE
RANDOMIZE TIMER
_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."
circ = 360
DO
    _LIMIT 100
    a$ = INKEY$
    IF a$ = CHR$(27) THEN END
    IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
    IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
    IF a$ = " " THEN f = f + 1
    IF f = 1 THEN _FULLSCREEN: fullscreen = 1
    IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
 
    'Clock
    clock
    circ = circ - .1
    IF circ < 0 THEN circ = 360
    IF fullscreen = 1 THEN fs = .75: fs2 = 25
    IF fullscreen = 0 THEN fs = 1: fs2 = 0
    circx = (SIN(circ) * (240 - fs2)) + 500
    circy = (COS(circ) * (240 - fs2)) / fs + 400
    col = _RGB32(0, 255, 0)
    cx = circx: cy = circy: c = col
 
    'Chimes
    ho$ = LEFT$(TIME$, 2)
    hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2)
    minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2)
    secon = VAL(seco$)
    IF hou > 12 THEN hou = hou - 12
    IF hou = 0 THEN hou = 12
    IF minu = 0 AND secon = 0 AND done = 0 THEN
        FOR chime = 1 TO hou
            PLAY "MB L6 P1 O1 G"
        NEXT chime
        done = 1
    END IF
    IF secon > 0 THEN done = 0
 
    'Starfield
    fillCircle cx, cy, 5, c
    IF sp < .0005 THEN sp = .0005
    IF sp > .1 THEN sp = .1
    warp = (sp * 100) + 1
    IF warp > 10 THEN warp = 10
    warp = INT(warp)
    warp$ = STR$(warp)
    stars = INT(RND * 100) + 1
    IF stars > 25 THEN
        s = s + 1
        IF s > 950 THEN s = 1
        'Set starting position.
        startx = RND * 490
        starty = RND * 390
        st = INT(RND * 360)
        x = (SIN(st) * startx) + 500
        y = (COS(st) * starty) + 400
        starx(s) = x
        stary(s) = y
        'Set direction to move.
        dx(s) = ((x - 500) / 30)
        dy(s) = ((y - 400) / 30)
        'Set size.
        sz(s) = RND
        'Set speed
        speed(s) = .1
    END IF
    IF yy > 640 THEN yy = 0
    FOR t = 1 TO 950
        speed(t) = speed(t) * (1.05 + sp)
        stary(t) = stary(t) + dy(t) * speed(t)
        starx(t) = starx(t) + dx(t) * speed(t)
        cx = starx(t): cy = stary(t)
        r = sz(t) + .5
        c = _RGB32(255, 255, 255)
        fillCircle cx, cy, r, c
        'skip:
    NEXT t
    _DISPLAY
    LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
LOOP
 
SUB clock
    hours = TIMER \ 3600
    minutes = TIMER \ 60 - hours * 60
    seconds = (TIMER - hours * 3600 - minutes * 60)
    ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
    'oldminu = minu
    'Seconds
    s = (60 - seconds) * 6 + 180
    x = INT(SIN(s / 180 * 3.141592) * 125) + 500
    y = INT(COS(s / 180 * 3.141592) * 125) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(x, y), _RGB32(127, 255, 255)
        LINE (500, 400 + b)-(x, y), _RGB32(127, 255, 255)
    NEXT b
    'Minutes
    m = 180 - minutes * 6
    xx = INT(SIN(m / 180 * 3.141592) * 120) + 500
    yy = INT(COS(m / 180 * 3.141592) * 120) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(xx, yy), _RGB32(0, 255, 255)
        LINE (500, 400 + b)-(xx, yy), _RGB32(0, 255, 255)
    NEXT b
    'Hours
    h = 360 - hours * 30 + 180
    xxx = INT(SIN(h / 180 * 3.141592) * 90) + 500
    yyy = INT(COS(h / 180 * 3.141592) * 90) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(xxx, yyy), _RGB32(0, 255, 0)
        LINE (500, 400 + b)-(xxx, yyy), _RGB32(0, 255, 0)
    NEXT b
END SUB
 
 
'from Steve Gold standard
SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
    DIM Radius AS INTEGER, RadiusError AS INTEGER
    DIM X AS INTEGER, Y AS INTEGER
    Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
    LINE (CX - X, CY)-(CX + X, CY), C, BF
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    WEND
END SUB
 

STxAxTIC · « **Reply #1 on:** December 11, 2020, 09:58:07 pm »

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]

SCREEN _NEWIMAGE(1000, 800, 32)
DIM starx(1000), stary(1000)
DIM dx(1000), dy(1000)
DIM sz(1000)
DIM speed(1000)
DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
DIM col AS LONG
DIM circ AS SINGLE
DIM circx AS SINGLE
DIM circy AS SINGLE
RANDOMIZE TIMER
_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."
circ = 360
DO
    _LIMIT 100
    a$ = INKEY$
    IF a$ = CHR$(27) THEN END
    IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
    IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
    IF a$ = " " THEN f = f + 1
    IF f = 1 THEN _FULLSCREEN: fullscreen = 1
    IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
 
    'Clock
    clock
    circ = circ - .1
    IF circ < 0 THEN circ = 360
    IF fullscreen = 1 THEN fs = .75: fs2 = 25
    IF fullscreen = 0 THEN fs = 1: fs2 = 0
    circx = (SIN(circ) * (240 - fs2)) + 500
    circy = (COS(circ) * (240 - fs2)) / fs + 400
    col = _RGB32(0, 255, 0)
    cx = circx: cy = circy: c = col
 
    'Chimes
    ho$ = LEFT$(TIME$, 2)
    hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2)
    minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2)
    secon = VAL(seco$)
    IF hou > 12 THEN hou = hou - 12
    IF hou = 0 THEN hou = 12
    IF minu = 0 AND secon = 0 AND done = 0 THEN
        FOR chime = 1 TO hou
            PLAY "MB L6 P1 O1 G"
        NEXT chime
        done = 1
    END IF
    IF secon > 0 THEN done = 0
 
    'Starfield
    fillCircle cx, cy, 5, c
    IF sp < .0005 THEN sp = .0005
    IF sp > .1 THEN sp = .1
    warp = (sp * 100) + 1
    IF warp > 10 THEN warp = 10
    warp = INT(warp)
    warp$ = STR$(warp)
    stars = INT(RND * 100) + 1
    IF stars > 25 THEN
        s = s + 1
        IF s > 950 THEN s = 1
        'Set starting position.
        startx = RND * 490
        starty = RND * 390
        st = INT(RND * 360)
        x = (SIN(st) * startx) + 500
        y = (COS(st) * starty) + 400
        starx(s) = x
        stary(s) = y
        'Set direction to move.
        dx(s) = ((x - 500) / 30)
        dy(s) = ((y - 400) / 30)
        'Set size.
        sz(s) = RND
        'Set speed
        speed(s) = .1
    END IF
    IF yy > 640 THEN yy = 0
    FOR t = 1 TO 950
        speed(t) = speed(t) * (1.05 + sp)
        stary(t) = stary(t) + dy(t) * speed(t)
        starx(t) = starx(t) + dx(t) * speed(t)
        cx = starx(t): cy = stary(t)
        r = sz(t) + .5
        c = _RGB32(255, 255, 255)
        fillCircle cx, cy, r, c
        'skip:
    NEXT t
    _DISPLAY
    LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
LOOP
 
SUB clock
    hours = TIMER \ 3600
    minutes = TIMER \ 60 - hours * 60
    seconds = (TIMER - hours * 3600 - minutes * 60)
    ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
    'oldminu = minu
    'Hours Minutes Seconds
    h = 360 - hours * 30 + 180
    m = 180 - minutes * 6
    s = (60 - seconds) * 6 + 180
    x = _WIDTH / 2 + INT(SIN(h / 180 * 3.141592) * 90)
    y = _HEIGHT / 2 + INT(COS(h / 180 * 3.141592) * 90)
    xx = x + INT(SIN(m / 180 * 3.141592) * 120)
    yy = y + INT(COS(m / 180 * 3.141592) * 120)
    xxx = xx + INT(SIN(s / 180 * 3.141592) * 125)
    yyy = yy + INT(COS(s / 180 * 3.141592) * 125)
    LINE (_WIDTH / 2, _HEIGHT / 2)-(x, y), _RGB32(0, 255, 0)
    LINE (x, y)-(xx, yy), _RGB32(0, 255, 255)
    LINE (xx, yy)-(xxx, yyy), _RGB32(127, 255, 255)
END SUB
 
 
'from Steve Gold standard
SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
    DIM Radius AS INTEGER, RadiusError AS INTEGER
    DIM X AS INTEGER, Y AS INTEGER
    Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
    LINE (CX - X, CY)-(CX + X, CY), C, BF
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    WEND
END SUB
 
 

SierraKen · « **Reply #2 on:** December 11, 2020, 10:04:07 pm »

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

bplus · « **Reply #3 on:** December 12, 2020, 12:38:41 pm »

@SierraKen

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

SierraKen · « **Reply #4 on:** December 12, 2020, 01:09:38 pm »

Thanks B+ :)

johnno56 · « **Reply #5 on:** December 13, 2020, 01:50:15 pm »

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 · « **Reply #6 on:** December 13, 2020, 02:24:33 pm »

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 · « **Reply #7 on:** December 13, 2020, 02:36:19 pm »

Quote from: SierraKen on December 13, 2020, 02:24:33 pm

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 · « **Reply #8 on:** December 13, 2020, 05:26:33 pm »

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 · « **Reply #9 on:** December 16, 2020, 09:36:50 am »

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]

SCREEN _NEWIMAGE(1000, 800, 32) 
DIM starx(1000), stary(1000) 
DIM dx(1000), dy(1000)
DIM sz(1000)
DIM speed(1000)
DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
DIM col AS LONG
DIM circ AS SINGLE
DIM circx AS SINGLE
DIM circy AS SINGLE
RANDOMIZE TIMER
_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."
circ = 360
DO
    _LIMIT 100
    a$ = INKEY$
    IF a$ = CHR$(27) THEN END
    IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
    IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
    IF a$ = " " THEN f = f + 1
    IF f = 1 THEN _FULLSCREEN: fullscreen = 1
    IF f = 2 THEN _FULLSCREEN OFF: f = 0: fullscreen = 0
 
    'Clock
    clock
    circ = circ - .1
    IF circ < 0 THEN circ = 360
    IF fullscreen = 1 THEN fs = .75: fs2 = 25
    IF fullscreen = 0 THEN fs = 1: fs2 = 0
    circx = (SIN(circ) * (240 - fs2)) + 500
    circy = (COS(circ) * (240 - fs2)) / fs + 400
    col = _RGB32(0, 255, 0)
    cx = circx: cy = circy: c = col
 
    'Chimes
    ho$ = LEFT$(TIME$, 2)
    hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2)
    minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2)
    secon = VAL(seco$)
    IF hou > 12 THEN hou = hou - 12
    IF hou = 0 THEN hou = 12
    IF minu = 0 AND secon = 0 AND done = 0 THEN
        'FOR chime = 1 TO hou
        ''PLAY "MB L6 P1 O1 G"
        'NEXT chime
        done = 1
        '====================================== #Dav
        chimeflag = 1 '<<< time to chime flag
        chimetimer = TIMER '<<< start a TIMER
        '===========================================
    END IF
    IF secon > 0 THEN done = 0
 
    '========================================== #Dav
    'plays soundfile chime, if chime flag on
    IF chimeflag = 1 THEN
        'Check chimetimer & TIMER values.
        'Play sound every 1 second, and
        'keep count how many times played.
        IF TIMER - chimetimer > 1 THEN
            'play a chime
            _SNDPLAYFILE "splay/ogg/g1.ogg"
            'add to the count
            chime = chime + 1
            'set a new timer spot
            chimetimer = TIMER
            'If chime count reached, reset chimeflag & count
            IF chime = hou THEN
                chime = 0
                chimeflag = 0
            END IF
        END IF
    END IF
    '================================================
 
    'Starfield
    fillCircle cx, cy, 5, c
    IF sp < .0005 THEN sp = .0005
    IF sp > .1 THEN sp = .1
    warp = (sp * 100) + 1
    IF warp > 10 THEN warp = 10
    warp = INT(warp)
    warp$ = STR$(warp)
    stars = INT(RND * 100) + 1
    IF stars > 25 THEN
        s = s + 1
        IF s > 950 THEN s = 1
        'Set starting position.
        startx = RND * 490
        starty = RND * 390
        st = INT(RND * 360)
        x = (SIN(st) * startx) + 500
        y = (COS(st) * starty) + 400
        starx(s) = x
        stary(s) = y
        'Set direction to move.
        dx(s) = ((x - 500) / 30)
        dy(s) = ((y - 400) / 30)
        'Set size.
        sz(s) = RND
        'Set speed
        speed(s) = .1
    END IF
    IF yy > 640 THEN yy = 0
    FOR t = 1 TO 950
        speed(t) = speed(t) * (1.05 + sp)
        stary(t) = stary(t) + dy(t) * speed(t)
        starx(t) = starx(t) + dx(t) * speed(t)
        cx = starx(t): cy = stary(t)
        r = sz(t) + .5
        c = _RGB32(255, 255, 255)
        fillCircle cx, cy, r, c
        'skip:
    NEXT t
    _DISPLAY
    '_ICON _DISPLAY '#Dav
    LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
LOOP
 
SUB clock
    hours = TIMER \ 3600
    minutes = TIMER \ 60 - hours * 60
    seconds = (TIMER - hours * 3600 - minutes * 60)
    ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
    min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
    seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
    'oldminu = minu
    'Seconds
    s = (60 - seconds) * 6 + 180
    x = INT(SIN(s / 180 * 3.141592) * 125) + 500
    y = INT(COS(s / 180 * 3.141592) * 125) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(x, y), _RGB32(127, 255, 255)
        LINE (500, 400 + b)-(x, y), _RGB32(127, 255, 255)
    NEXT b
    'Minutes
    m = 180 - minutes * 6
    xx = INT(SIN(m / 180 * 3.141592) * 120) + 500
    yy = INT(COS(m / 180 * 3.141592) * 120) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(xx, yy), _RGB32(0, 255, 255)
        LINE (500, 400 + b)-(xx, yy), _RGB32(0, 255, 255)
    NEXT b
    'Hours
    h = 360 - hours * 30 + 180
    xxx = INT(SIN(h / 180 * 3.141592) * 90) + 500
    yyy = INT(COS(h / 180 * 3.141592) * 90) + 400
    FOR b = -5 TO 5 STEP .1
        LINE (500 + b, 400)-(xxx, yyy), _RGB32(0, 255, 0)
        LINE (500, 400 + b)-(xxx, yyy), _RGB32(0, 255, 0)
    NEXT b
END SUB
 
 
'from Steve Gold standard
SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
    DIM Radius AS INTEGER, RadiusError AS INTEGER
    DIM X AS INTEGER, Y AS INTEGER
    Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
    LINE (CX - X, CY)-(CX + X, CY), C, BF
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
    WEND
END SUB
 

bplus · « **Reply #10 on:** December 16, 2020, 12:05:15 pm »

Dang just missed 12 noon chime!

Someone forgot to get starx, stary dimensioned.

Oh this wont work either

Code: QB64: [Select]

 hou = 12: minu = 0: secon = 0 

Missing sound files. :P

SierraKen · « **Reply #11 on:** December 16, 2020, 01:11:03 pm »

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 · « **Reply #12 on:** December 16, 2020, 03:23:45 pm »

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

SierraKen · « **Reply #13 on:** December 16, 2020, 03:43:30 pm »

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 · « **Reply #14 on:** December 16, 2020, 03:45:56 pm »

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!

News:

Author Topic: Starfield Clock (Read 5555 times)

SierraKen

Starfield Clock

STxAxTIC

Re: Starfield Clock

SierraKen

Re: Starfield Clock

bplus

Re: Starfield Clock

SierraKen

Re: Starfield Clock

johnno56

Re: Starfield Clock

SierraKen

Re: Starfield Clock

SMcNeill

Re: Starfield Clock

SierraKen

Re: Starfield Clock

Dav

Re: Starfield Clock

bplus

Re: Starfield Clock

SierraKen

Re: Starfield Clock

bplus

Re: Starfield Clock

SierraKen

Re: Starfield Clock

bplus

Re: Starfield Clock