Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 01, 2019, 09:12:41 pm

Title: My Best Clock
Post by: SierraKen on December 01, 2019, 09:12:41 pm
For the first time I decided to use a .bmp picture as a background to a program I make. So I made this clock face using an old CAD program I have called Breeze Designer. Then I used the code from a clock I put on this forum a few months ago, which is also on my website. Here is the .zip file of the .bas and .bmp files needed and a picture of it I will add to the forum. It gongs on the top of every hour like my other one does (without using any extra sound files).  Hope you guys like it.

-Ken
Title: Re: My Best Clock
Post by: SierraKen on December 02, 2019, 01:34:06 pm
And (of course) I made it even better! lol Just now I figured out how to make the clock hands look more real instead of just 1 LINE command.
Here is the updated version. Check out the picture too. I'm sure you all can make something like this already, but I like it. Please tell me what you think.


Title: Re: My Best Clock
Post by: bplus on December 02, 2019, 02:04:04 pm
Looks nice.
Title: Re: My Best Clock
Post by: SierraKen on December 02, 2019, 04:29:24 pm
Thanks bplus! I like small projects like this that are easy to figure out.
Title: Re: My Best Clock
Post by: bplus on December 02, 2019, 07:43:58 pm
Ken, We can make that clock face with QB64, interested?
Title: Re: My Best Clock
Post by: SierraKen on December 02, 2019, 07:47:43 pm
Sure!!! I guess we could with PAINT and a bunch of math that I have no idea of.  lol But if you want to help with that, go at it!
Title: Re: My Best Clock
Post by: bplus on December 02, 2019, 08:25:26 pm
This is faster and more accurate than PAINT for filling a triangle with a color:
Code: QB64: [Select]
  1. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  2.     STATIC a&
  3.     D = _DEST
  4.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  5.      _DEST a&
  6.     PSET (0, 0), K
  7.     _DEST D
  8.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)

Feed it 3 points locations (x, y) and a _RGB32() color and a filled triangle magically appears!

So you can use that for your clock hands for practice.

OK so far?

Here comes a simple lesson about angles:

If the minute hand is pointing at angle a degrees, then it's opposite is a - 180 degrees or a + 180 degrees same difference.

Say we want nice iso triangle for the hands, the angle of one point is a - 120 degrees and the angle of the other point is a + 120 degrees.
 
If we want the 2 points at base of iso triagnle r distance away from the clock center, then the points are

xPlus120 = xCenter + r * COS(_D2R(a + 120))
yPlus120 = yCenter + r * SIN(_D2R(a + 120))

xMinus120 = xCenter + r * COS(_D2R(a - 120))
yMinus120 = yCenter + r * SIN(_D2R(a - 120))

xMinuteHand = xCenter + MinuteHandLength * COS(_D2R(a))
yMinuteHand = yCenter + MinuteHandLength * SIN(_D2R(a))

and there is your 3 points for a triangle to fill.

a is the angle of the minute hand in degrees.
r is the distance from center of clock you want to put the base of the iso Triangle, the ends of the clock hands.
_D2R is a function that converts an angle in Degrees to an angle in Radians so that SIN and COS work correctly.

BTW you are converting degrees to radians using these things:
(degreeAngle / 180 * 3.141592) = same as _D2R function, maybe better because they are all constants, so feel free to change the _D2R(degreeAngle) to (degreeAngle / 180 * 3.141592).

See if you get clock hands improved? I don't know if you know what you are doing for minute hand angles though??? If you do get that, all the above is piece of cake. :)

With this practice of clock hands, the clock face will be easier to follow.

Title: Re: My Best Clock
Post by: SierraKen on December 02, 2019, 08:42:41 pm
Oh wow bplus, so all of that was just for the hands? That's a lot more bits than my 2 loops. To be honest, I really don't remember from school what COS and SIN do. I was never good in Trig.  I appreciate the lesson but with my head injury and memory problems, I doubt I could jump into it that fast. This is another reason why I have been very slow in gaining much higher in my programming than what I know how to do now. I might look into this sometime soon, but I have a lot on my plate for the next couple of days. So I'll look more into this in a couple days or so and see what I can come up with. I'll put it all on a Notepad.
Title: Re: My Best Clock
Post by: bplus on December 02, 2019, 08:53:42 pm
Don't let SIN and COS throw you. All they do here is help locate points around a center, like the clock given the angle use the formula for X and Y and up comes your locations is all.

The tricky thing about the clock is that you want your 0 angle due North instead of due East, so you subtract 90 degrees from every angle, for hour, minute and second. Did you know you were doing that? :)
Title: Re: My Best Clock
Post by: bplus on December 03, 2019, 10:23:18 pm
Hi Ken,

Here is clock face as promised so you no longer need to zip with image file, a few other changes also...
Code: QB64: [Select]
  1. _TITLE "Clock by Ken G. and b+" 'b+ mod 2019-12-03
  2. CONST xmax = 360, ymax = 368, xCenter = xmax / 2, yCenter = ymax / 2, p = 3.14159265, p2 = p * 2, pd2 = p / 2
  3. DIM SHARED clockFace&
  4. 'i = _LOADIMAGE("kclock.bmp", 32)
  5. SCREEN _NEWIMAGE(360, 368, 32)
  6. clockFace& = _NEWIMAGE(xmax, ymax, 32)
  7. _DEST clockFace&
  8. drawClockFace
  11.     CLS
  12.     _PUTIMAGE , clockFace&, 0
  13.  
  14.     hours = TIMER \ 3600
  15.     minutes = TIMER \ 60 - hours * 60
  16.     seconds = (TIMER - hours * 3600 - minutes * 60)
  17.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
  18.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
  19.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
  20.  
  21.     'Hours
  22.     h = 360 - hours * 30 + 180
  23.     xxx = INT(SIN(h / 180 * 3.141592) * 100) + 180
  24.     yyy = INT(COS(h / 180 * 3.141592) * 100) + 184
  25.     FOR b = -8 TO 8 STEP .1
  26.         LINE (180 + b, 184)-(xxx, yyy), _RGB32(155, 0, 0)
  27.         LINE (180, 184 + b)-(xxx, yyy), _RGB32(155, 0, 0)
  28.     NEXT b
  29.  
  30.     'Minutes
  31.     m = 180 - minutes * 6
  32.     xx = INT(SIN(m / 180 * 3.141592) * 150) + 180
  33.     yy = INT(COS(m / 180 * 3.141592) * 150) + 184
  34.     FOR b = -5 TO 5 STEP .1
  35.         LINE (180 + b, 184)-(xx, yy), _RGB32(155, 80, 40)
  36.         LINE (180, 184 + b)-(xx, yy), _RGB32(155, 80, 40)
  37.     NEXT b
  38.  
  39.     'Seconds
  40.     s = (60 - seconds) * 6 + 180
  41.     x = INT(SIN(s / 180 * 3.141592) * 165) + 180
  42.     y = INT(COS(s / 180 * 3.141592) * 165) + 184
  43.     'FOR b = -5 TO 5 STEP .1
  44.     ' LINE (180 + b, 184)-(x, y), _RGB32(255, 164, 100)
  45.     LINE (180, 184)-(x, y), _RGB32(255, 164, 84)
  46.     'NEXT b
  47.  
  48.     'fix clock arms with knob
  49.     FOR rrr = 6 TO 0 STEP -.25
  50.         CIRCLE (180, 184), rrr, _RGB32(1.5 * (255 - 25 * rrr), 1.5 * (128 - 17 * rrr), 1.5 * (64 - 8 * rrr))
  51.     NEXT
  52.  
  53.     'Chimes
  54.     IF minu = 0 AND secon = 0 THEN
  55.         hour2 = hou
  56.         IF hour2 > 12 THEN hour2 = hour2 - 12
  57.         IF hour2 = 0 THEN hour2 = 12
  58.         FOR chimes = 1 TO hour2
  59.             ttt = 0
  60.             DO
  61.                 'queue some sound
  62.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  63.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  64.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  65.                     _SNDRAW sample
  66.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  67.                 LOOP
  68.                 'do other stuff, but it may interrupt sound
  69.             LOOP WHILE ttt < 2 'play for 2 seconds
  70.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  71.             LOOP
  72.         NEXT chimes
  73.     END IF
  74.     _DELAY 1
  75.  
  76.     two:
  77.     _DISPLAY
  79.  
  80. SUB drawClockFace
  81.     DIM angle, r, n AS INTEGER, c AS _UNSIGNED LONG, x1, y1, x2, y2
  82.     DIM level AS INTEGER, shade AS INTEGER, rr, gg, bb
  83.     rr = 20: gg = 10: bb = 5
  84.     CLS
  85.     angle = p2 / 12: r = yCenter * .95
  86.     FOR level = 0 TO 2
  87.         x1 = xCenter + COS(0 - pd2) * r: y1 = yCenter + SIN(0 - pd2) * r
  88.         FOR n = 1 TO 12
  89.             x2 = xCenter + COS(n * angle - pd2) * r: y2 = yCenter + SIN(n * angle - pd2) * r
  90.             IF n > 6 THEN shade = n - 6 ELSE shade = 6 - n
  91.             IF n = 12 THEN shade = 6
  92.             IF level = 1 THEN shade = 6 - shade
  93.             c = _RGB32((level * 60) + rr + shade * 50, (level * 30) + gg + shade * 30, (level * 15) + bb + shade * 15)
  94.             fillTriangle xCenter, yCenter, x1, y1, x2, y2, c
  95.             x1 = x2: y1 = y2
  96.         NEXT
  97.         IF level = 0 THEN r = r - 15 ELSE r = r - 50
  98.     NEXT
  100.  
  101. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  102.     DIM d AS LONG
  103.     STATIC a&
  104.     d = _DEST
  105.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  106.     _DEST a&
  107.     PSET (0, 0), K
  108.     _DEST d
  109.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  111.  
  112.  


Title: Re: My Best Clock
Post by: bplus on December 04, 2019, 10:26:41 am
PS I was a little bit off with the arm ends near center of the clock, this code:
Code: QB64: [Select]
  1. xPlus120 = xCenter + r * COS(_D2R(a + 120))
  2. yPlus120 = yCenter + r * SIN(_D2R(a + 120))
  3.  
  4. xMinus120 = xCenter + r * COS(_D2R(a - 120))
  5. yMinus120 = yCenter + r * SIN(_D2R(a - 120))
  6.  
Draws the base of the iso Triangle on the same side of clock center as the pointed end. I intended to put the points of the base iso triangle on the other side of the clock center than the arm point, to do that, r had to be negative (equivalent to subtracting PI, I think):
Code: QB64: [Select]
  1. xPlus120 = xCenter - r * COS(_D2R(a + 120))
  2. yPlus120 = yCenter - r * SIN(_D2R(a + 120))
  3.  
  4. xMinus120 = xCenter - r * COS(_D2R(a - 120))
  5. yMinus120 = yCenter - r * SIN(_D2R(a - 120))
  6.  
Also I did the angles in radians, = in terms of PI, since this is mostly gobblely-gook to Ken :)
Oh wait, the arms code is all Ken's except my mod of seconds hand back to a line, still Ken's numbers... I redrew my own alarm clock with this clockface and my own arms code, testing what I said above. Still need to install the lovely chimes Ken has going here!. :)
Title: Re: My Best Clock
Post by: Pete on December 04, 2019, 12:25:59 pm
Did you guys change the contrast between the inner and outer clock housing? The image originally posted appeared to have a brighter inner housing, which frankly made me think it was an umbrella clock. It's raining here today, so I was afraid to run it, in fear of getting wet when I checked the time... but when I ran the updated version, it had more of a concave appearance than the photo posted, which makes it look more the the type of clock I'm used to seeing with that similar design. Am I right, or are my eyes just playing tricks on me? I'm no artist, but I believe there is something about having the object appear with a darker contrast towards the center will make the object appear recessed or concave. In any event, nice project guys.

Pete
Title: Re: My Best Clock
Post by: bplus on December 04, 2019, 12:52:48 pm
Hi Pete,

If you are asking if I changed the fake 3D face coloring then yes, yes I did:
 


Reversing the middle layer shading.
Title: Re: My Best Clock
Post by: Pete on December 04, 2019, 12:57:27 pm
Yep, that's what I was inquiring about. Thanks. Now I can call the pharmacy and cancel my anti-hallucinogenic prescription. Darn, just when they started making them in gummies, too.

Pete
Title: Re: My Best Clock
Post by: SMcNeill on December 04, 2019, 01:02:25 pm
Pete thought it looked like an umbrella before; now I think it looks like my doggy’s water bowl.  LOL!
Title: Re: My Best Clock
Post by: bplus on December 04, 2019, 03:32:47 pm
Quote
Pete thought it looked like an umbrella before; now I think it looks like my doggy’s water bowl.  LOL!

Let me know how it does with water. :-))
Title: Re: My Best Clock
Post by: Pete on December 04, 2019, 03:50:03 pm
Quote from: bplus on December 04, 2019, 03:32:47 pm
Let me know how it does with water. :-))

You want what? A watered down version? Sorry. You need FreeBASIC for that!
Title: Re: My Best Clock
Post by: SierraKen on December 04, 2019, 04:00:29 pm
Dang that's genius bplus! Amazing job you did there. I'll put this one on my website instead. It's apps like this that make me wish I could put the .exe online without Windows having a fit saying I am an unknown programmer with their security stuff. There's a way around that but it sure scares people downloading. So for now the code will go as a .txt file on my website and that will be good enough. I think Microsoft charges programmers a lot of money to be "known". Although I'm not sure if the $19 fee for Windows Store apps would apply to that or not. Anyways, thanks again B+.  Oh and if I ever do put the .exe online, I won't charge a penny for it so no worries.
Title: Re: My Best Clock
Post by: SierraKen on December 04, 2019, 04:34:15 pm
LOL I was confused over this code B+, until you say at the bottom that it's part of your own project you are working on. lol

Quote from: bplus on December 04, 2019, 10:26:41 am
PS I was a little bit off with the arm ends near center of the clock, this code:
Code: QB64: [Select]
  1. xPlus120 = xCenter + r * COS(_D2R(a + 120))
  2. yPlus120 = yCenter + r * SIN(_D2R(a + 120))
  3.  
  4. xMinus120 = xCenter + r * COS(_D2R(a - 120))
  5. yMinus120 = yCenter + r * SIN(_D2R(a - 120))
  6.  
Draws the base of the iso Triangle on the same side of clock center as the pointed end. I intended to put the points of the base iso triangle on the other side of the clock center than the arm point, to do that, r had to be negative (equivalent to subtracting PI, I think):
Code: QB64: [Select]
  1. xPlus120 = xCenter - r * COS(_D2R(a + 120))
  2. yPlus120 = yCenter - r * SIN(_D2R(a + 120))
  3.  
  4. xMinus120 = xCenter - r * COS(_D2R(a - 120))
  5. yMinus120 = yCenter - r * SIN(_D2R(a - 120))
  6.  
Also I did the angles in radians, = in terms of PI, since this is mostly gobblely-gook to Ken :)
Oh wait, the arms code is all Ken's except my mod of seconds hand back to a line, still Ken's numbers... I redrew my own alarm clock with this clockface and my own arms code, testing what I said above. Still need to install the lovely chimes Ken has going here!. :)
Title: Re: My Best Clock
Post by: bplus on December 04, 2019, 07:29:46 pm
Re: About the iso triangle base for the arms

Man! I had it right the first time with the +r, dang it!
Code: QB64: [Select]
  1. xPlus120 = xCenter + r * COS(_D2R(a + 120))
  2. yPlus120 = yCenter + r * SIN(_D2R(a + 120))
  3.  
  4. xMinus120 = xCenter + r * COS(_D2R(a - 120))
  5. yMinus120 = yCenter + r * SIN(_D2R(a - 120))
Is correct as written.

I was rereading Ken's last post and redid the geometry, -r doesn't make sense!

It was pure luck that it worked (in my other program the -r) because I was working in radians NOT degrees and I needed to convert the 120 degrees to 2*Pi/3 Radians which I hadn't, although strangely -r does work with 120 degrees unconverted to radians??? another life miracle :)

@Ken
About that 19$ for something from MS, doesn't sound like you know what you are getting, I sure don't.
As for strangers running your exe's, I would advise posting source code and links to downloading QB64 so your audience can do these exe's for themselves AND with QB64 working on different platforms, you potentially have a wider base with source bas code than with exe's. I know Linux people are much more Do-It-Yourselfers than MS users, generally speaking. 


 
Title: Re: My Best Clock
Post by: SierraKen on December 04, 2019, 07:40:33 pm
Thanks bplus. Well I only partly know about the $19 in that it lets programmers put stuff in the Windows Store. The things I don't know about is what kind of things they accept and what containers to use, and of course if it requires even more money to verify me as a known programmer. So, I'm not going to do it anytime soon. And I can't just put a .zip of an .exe on my website because of the warnings Windows gives. Windows even gives a warning for a .bas file that's zipped up and from the Internet. But that isn't as bad. That is why I try to put almost all my programs as .txt files for people to copy/paste to their QB64 language. The reason I brought all of this up is because I have a lot of friends and family that I would love to share my creations with. But since they don't know anything about programming and don't want to, all I can do is make photos and videos of them. But that's OK, it's just my hobby and I'm fine with that. Plus I got this forum. :). 
Oh and one more thing about websites, it costs a lot of money to be a verified website with its files as well. Some websites cost in the $100's every few years just to keep it secure and known by Microsoft. So I can't do that on mine. How I miss the 90's... :) But on the other hand, I understand their reasoning with so many hackers out there these days.
Title: Re: My Best Clock
Post by: Petr on December 05, 2019, 05:04:20 pm
Solution for smooth movement seconds:

Code: QB64: [Select]
  1.  
  2.  
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. CX = 400
  5. CY = 300
  6. R = 150
  7.  
  9.     GETTIME Hours, minutes, seconds, miliseconds
  10.     IF Hours > 12 THEN Hours = Hours - 12
  11.     IF seconds = 0 THEN seconds = 60
  12.     Hx = CX + COS(-_PI / 2 + _PI(2) / 12 * Hours) * R * .85
  13.     Hy = CY + SIN(-_PI / 2 + _PI(2) / 12 * Hours) * R * .85
  14.     Mx = CX + COS(-_PI / 2 + _PI(2) / 60 * minutes) * R * .8
  15.     My = CY + SIN(-_PI / 2 + _PI(2) / 60 * minutes) * R * .8
  16.     Sx = CX + COS(-_PI / 2 + _PI(2) / 60 * (miliseconds / 100 + seconds)) * R * .8
  17.     Sy = CY + SIN(-_PI / 2 + _PI(2) / 60 * (miliseconds / 100 + seconds)) * R * .8
  18.  
  19.     CLS
  20.     CIRCLE (CX, CY), R
  21.     stp = 0
  22.     FOR D = 0 TO _PI(2) STEP _PI(2) / 60
  23.         IF stp MOD 5 = 0 THEN dd = 10 ELSE dd = 5
  24.         Dx = CX + COS(-_PI / 2 + D) * R
  25.         Dy = CY + SIN(-_PI / 2 + D) * R
  26.         Dx2 = CX + COS(-_PI / 2 + D) * (R - dd)
  27.         Dy2 = CY + SIN(-_PI / 2 + D) * (R - dd)
  28.         LINE (Dx, Dy)-(Dx2, Dy2)
  29.         stp = stp + 1
  30.     NEXT
  31.  
  32.  
  33.     LINE (CX, CY)-(Hx, Hy)
  34.     LINE (CX, CY)-(Mx, My), &HFFFFFF00
  35.     LINE (CX, CY)-(Sx, Sy), &HFFFF0000
  36.  
  37.     _DISPLAY
  38.     _LIMIT 30
  40.  
  41. SUB GETTIME (Hodina, Minuta, Sekunda, Setina)
  42.     hodnota = TIMER
  43.     IF hodnota < 60 THEN hodin = 0: minut = 0: sekund = hodnota: GOTO a1
  44.     IF hodnota > 60 AND hodnota < 3600 THEN hodin = 0: minut = hodnota / 60: GOTO a2
  45.     Hodina = hodnota / 3600
  46.     hodin$ = STR$(Hodina)
  47.     tecka = INSTR(0, hodin$, ".")
  48.     Minuta = (VAL("0." + RIGHT$(hodin$, LEN(hodin$) - tecka)) * 0.6) * 100
  49.     a2:
  50.     minut$ = STR$(Minuta)
  51.     tecka = INSTR(0, STR$(Minuta), ".")
  52.     sekund = (VAL("0." + RIGHT$(minut$, LEN(minut$) - tecka)) * 0.6) * 100
  53.     a1:
  54.     sekund$ = STR$(sekund)
  55.     tecka = INSTR(0, sekund$, ".")
  56.     Setina = (VAL("0." + RIGHT$(sekund$, LEN(sekund$) - tecka)) * 1) * 100
  57.  
  58.     Minuta = INT(Minuta)
  59.     Sekunda = INT(sekund)
  60.     IF Sekunda = 60 THEN Sekunda = 0
  62.  
Title: Re: My Best Clock
Post by: SierraKen on December 05, 2019, 06:40:08 pm
Thanks Petr! All I needed from your code there was _LIMIT 30. But how did you figure out how to use 30? I also removed the _DELAY command so now the second hand is smooth and doesn't move every second, instead it always moves.
I hope you guys like this.. B+ what do you think? I'll put it on my website soon after a couple more tests. So far I've only tested it for 2 minutes.

Code: QB64: [Select]
  1. 'Clock by Ken G and b+. Also thank you to Petr from the QB64.org forum for smooth second hand movement.
  2.  
  3. _TITLE "Clock by Ken G., b+, and Petr" 'b+ mod 2019-12-03
  4. CONST xmax = 360, ymax = 368, xCenter = xmax / 2, yCenter = ymax / 2, p = 3.14159265, p2 = p * 2, pd2 = p / 2
  5. DIM SHARED clockFace&
  6. SCREEN _NEWIMAGE(360, 368, 32)
  7. clockFace& = _NEWIMAGE(xmax, ymax, 32)
  8. _DEST clockFace&
  9. drawClockFace
  12.     _LIMIT 30
  13.     CLS
  14.     _PUTIMAGE , clockFace&, 0
  15.  
  16.     hours = TIMER \ 3600
  17.     minutes = TIMER \ 60 - hours * 60
  18.     seconds = (TIMER - hours * 3600 - minutes * 60)
  19.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
  20.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
  21.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
  22.  
  23.     'Hours
  24.     h = 360 - hours * 30 + 180
  25.     xxx = INT(SIN(h / 180 * 3.141592) * 100) + 180
  26.     yyy = INT(COS(h / 180 * 3.141592) * 100) + 184
  27.     FOR b = -8 TO 8 STEP .1
  28.         LINE (180 + b, 184)-(xxx, yyy), _RGB32(155, 0, 0)
  29.         LINE (180, 184 + b)-(xxx, yyy), _RGB32(155, 0, 0)
  30.     NEXT b
  31.  
  32.     'Minutes
  33.     m = 180 - minutes * 6
  34.     xx = INT(SIN(m / 180 * 3.141592) * 150) + 180
  35.     yy = INT(COS(m / 180 * 3.141592) * 150) + 184
  36.     FOR b = -5 TO 5 STEP .1
  37.         LINE (180 + b, 184)-(xx, yy), _RGB32(155, 80, 40)
  38.         LINE (180, 184 + b)-(xx, yy), _RGB32(155, 80, 40)
  39.     NEXT b
  40.  
  41.     'Seconds
  42.     s = (60 - seconds) * 6 + 180
  43.     x = INT(SIN(s / 180 * 3.141592) * 165) + 180
  44.     y = INT(COS(s / 180 * 3.141592) * 165) + 184
  45.     'FOR b = -5 TO 5 STEP .1
  46.     ' LINE (180 + b, 184)-(x, y), _RGB32(255, 164, 100)
  47.     LINE (180, 184)-(x, y), _RGB32(255, 164, 84)
  48.     'NEXT b
  49.  
  50.     'fix clock arms with knob
  51.     FOR rrr = 6 TO 0 STEP -.25
  52.         CIRCLE (180, 184), rrr, _RGB32(1.5 * (255 - 25 * rrr), 1.5 * (128 - 17 * rrr), 1.5 * (64 - 8 * rrr))
  53.     NEXT
  54.  
  55.     'Chimes
  56.     IF minu = 0 AND secon = 0 THEN
  57.         hour2 = hou
  58.         IF hour2 > 12 THEN hour2 = hour2 - 12
  59.         IF hour2 = 0 THEN hour2 = 12
  60.         FOR chimes = 1 TO hour2
  61.             ttt = 0
  62.             DO
  63.                 'queue some sound
  64.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  65.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  66.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  67.                     _SNDRAW sample
  68.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  69.                 LOOP
  70.                 'do other stuff, but it may interrupt sound
  71.             LOOP WHILE ttt < 2 'play for 2 seconds
  72.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  73.             LOOP
  74.         NEXT chimes
  75.     END IF
  76.  
  77.     two:
  78.     _DISPLAY
  80.  
  81. SUB drawClockFace
  82.     DIM angle, r, n AS INTEGER, c AS _UNSIGNED LONG, x1, y1, x2, y2
  83.     DIM level AS INTEGER, shade AS INTEGER, rr, gg, bb
  84.     rr = 20: gg = 10: bb = 5
  85.     CLS
  86.     angle = p2 / 12: r = yCenter * .95
  87.     FOR level = 0 TO 2
  88.         x1 = xCenter + COS(0 - pd2) * r: y1 = yCenter + SIN(0 - pd2) * r
  89.         FOR n = 1 TO 12
  90.             x2 = xCenter + COS(n * angle - pd2) * r: y2 = yCenter + SIN(n * angle - pd2) * r
  91.             IF n > 6 THEN shade = n - 6 ELSE shade = 6 - n
  92.             IF n = 12 THEN shade = 6
  93.             IF level = 1 THEN shade = 6 - shade
  94.             c = _RGB32((level * 60) + rr + shade * 50, (level * 30) + gg + shade * 30, (level * 15) + bb + shade * 15)
  95.             fillTriangle xCenter, yCenter, x1, y1, x2, y2, c
  96.             x1 = x2: y1 = y2
  97.         NEXT
  98.         IF level = 0 THEN r = r - 15 ELSE r = r - 50
  99.     NEXT
  101.  
  102. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  103.     DIM d AS LONG
  104.     STATIC a&
  105.     d = _DEST
  106.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  107.     _DEST a&
  108.     PSET (0, 0), K
  109.     _DEST d
  110.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  112.  
Title: Re: My Best Clock
Post by: Pete on December 05, 2019, 07:53:53 pm
Now all it needs is a nightlight effect to tell if it's AM or PM... and dog repellent, in case Steve downloads it.

Hey, I gave it a try and saved it to my file archives. It has a lot of great components in a nice compact coding format. Hooray! A horse a committee put together, instead of a three-humped camel.

Pete ^^^:D
Title: Re: My Best Clock
Post by: SierraKen on December 05, 2019, 10:15:22 pm
LOL Pete. I like how this clock runs in the background and gongs at me when the hour is up. So I don't even have to look at a clock if I don't want to.
Title: Re: My Best Clock
Post by: bplus on December 05, 2019, 11:18:08 pm
Quote
B+ what do you think?

Hi Ken, Fine if you like it, great. :)

Me, I am never satisfied, I'm up to this now for alarm clock that chimes the hour thanks to your clock!
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'B+ 2019-11-03   Alarm clock with Hour Chimes
  2. 'variation on alarm clock 2019-06-22
  3. 'designed for xmax = ymax = 320 but anything bigger should be OK
  4. '2019-12-05 changed face again, changed arms by adding a trangle opposite point end
  5. 'improved Alarm input screen and installed Ken's chimes to indicate the hour
  6.  
  7. CONST xmax = 500, ymax = 500, xCenter = xmax / 2, yCenter = ymax / 2, p = 3.14159265, p2 = p * 2, pd2 = p / 2
  8. TYPE armType
  9.     a AS SINGLE 'radian angle
  10.     l AS SINGLE ' length
  11.     iso AS SINGLE 'iso tri base, now for radius arm width perpedicular to point direction
  12.     c AS _UNSIGNED LONG 'color
  14. DIM SHARED clockFace&, alarm$
  15.  
  16. SCREEN _NEWIMAGE(xmax, ymax, 32)
  17. _SCREENMOVE (_DESKTOPWIDTH - xmax) / 2, (_DESKTOPHEIGHT - ymax) / 2
  18.  
  19. DIM t$, h, m, s, chimes, sample, ttt
  20.  
  21. COLOR &HFF00DDDD
  22. clockFace& = _NEWIMAGE(xmax, ymax, 32)
  23. _DEST clockFace&
  24. drawClockFace
  26.  
  28.     outputClock
  29.     'Chimes
  30.     t$ = TIME$
  31.     h = VAL(MID$(t$, 1, 2))
  32.     m = VAL(MID$(t$, 4, 2))
  33.     s = VAL(MID$(t$, 7, 2))
  34.     IF m = 0 AND s < 1 THEN
  35.         IF h > 12 THEN h = h - 12
  36.         IF h = 0 THEN h = 12
  37.         FOR chimes = 1 TO h
  38.             ttt = 0
  39.             DO
  40.                 'queue some sound
  41.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  42.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  43.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  44.                     _SNDRAW sample
  45.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  46.                 LOOP
  47.                 'do other stuff, but it may interrupt sound
  48.             LOOP WHILE ttt < 2 'play for 2 seconds
  49.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  50.             LOOP
  51.         NEXT chimes
  52.     END IF
  53.     IF UCASE$(INKEY$) = "A" THEN setAlarm
  54.     _DISPLAY
  55.     _LIMIT 60
  57.  
  58. SUB outputClock
  59.     IF alarm$ = "" THEN _TITLE "<a> to Set Alarm Clock" ELSE _TITLE "Alarm Clock is Set"
  60.     _PUTIMAGE , clockFace&, 0
  61.     drawArms
  62.     _PRINTSTRING (6, ymax - 21), TIME$
  63.     IF alarm$ <> "" THEN
  64.         _PRINTSTRING (xmax - 53, ymax - 21), "@" + alarm$
  65.         IF MID$(TIME$, 1, 5) = alarm$ THEN
  66.             _TITLE "Press any to stop beeping..."
  67.             BEEP
  68.         END IF
  69.         IF LEN(INKEY$) THEN alarm$ = ""
  70.     END IF
  72.  
  73. SUB drawClockFace
  74.     DIM angle, r, n AS INTEGER, c AS _UNSIGNED LONG, x1, y1, x2, y2
  75.     DIM level AS INTEGER, shade AS INTEGER, rr, gg, bb
  76.     rr = 10: gg = 5: bb = 2
  77.     CLS
  78.     angle = p2 / 60: r = yCenter * .95
  79.     FOR level = 0 TO 10
  80.         x1 = xCenter + COS(0 - pd2) * r: y1 = yCenter + SIN(0 - pd2) * r
  81.         FOR n = 1 TO 60
  82.             x2 = xCenter + COS(n * angle - pd2) * r: y2 = yCenter + SIN(n * angle - pd2) * r
  83.             IF n > 30 THEN shade = n - 30 ELSE shade = 30 - n
  84.             IF n = 60 THEN shade = 30
  85.             IF level = 1 THEN shade = 30 - shade
  86.             c = _RGB32(((level * 1.5) + rr + shade * 10), ((level * .75) + gg + shade * 5), ((level * .4) + bb + shade * 2.5))
  87.             fillTriangle xCenter, yCenter, x1, y1, x2, y2, c
  88.             x1 = x2: y1 = y2
  89.         NEXT
  90.         IF level = 0 THEN r = r - .1 * yCenter ELSE r = r - .02 * yCenter
  91.     NEXT
  93.  
  94. SUB drawArms
  95.     DIM xPlus90, yPlus90, xMinus90, yMinus90, xop, yop, xPoint, yPoint, t AS DOUBLE, i AS INTEGER, rr, c AS _UNSIGNED LONG
  96.     DIM arms(1 TO 3) AS armType
  97.     arms(1).c = &HFF222211: arms(2).c = &HFF331111: arms(3).c = &HFF663322
  98.     arms(1).l = yCenter * .6: arms(2).l = yCenter * .8: arms(3).l = yCenter * .84
  99.     arms(1).iso = yCenter * .065: arms(2).iso = yCenter * .05: arms(3).iso = yCenter * .04 ' don't use in arm 3
  100.     t = TIMER
  101.     'the follwing angles are in radians with pd2 = Pi/2 subtracted
  102.     arms(1).a = (t / 3600) / 12 * p2 - pd2
  103.     arms(2).a = (t / 60 - 60 * INT(arms(1).a)) / 60 * p2 - pd2
  104.     arms(3).a = (t - INT(arms(1).a) * 3600 - INT(arms(2).a) * 60) / 60 * p2 - pd2
  105.     FOR i = 1 TO 3
  106.         xPlus90 = xCenter + arms(i).iso * COS(arms(i).a + pd2)
  107.         yPlus90 = yCenter + arms(i).iso * SIN(arms(i).a + pd2)
  108.  
  109.         xMinus90 = xCenter + arms(i).iso * COS(arms(i).a - pd2)
  110.         yMinus90 = yCenter + arms(i).iso * SIN(arms(i).a - pd2)
  111.  
  112.         xPoint = xCenter + arms(i).l * COS(arms(i).a)
  113.         yPoint = yCenter + arms(i).l * SIN(arms(i).a)
  114.  
  115.         xop = xCenter + 3 * arms(i).iso * COS(arms(i).a - p)
  116.         yop = yCenter + 3 * arms(i).iso * SIN(arms(i).a - p)
  117.  
  118.         IF i < 3 THEN
  119.             fillTriangle xPlus90, yPlus90, xMinus90, yMinus90, xPoint, yPoint, arms(i).c
  120.             fillTriangle xPlus90, yPlus90, xMinus90, yMinus90, xop, yop, arms(i).c
  121.         ELSEIF i = 3 THEN 'line works better here
  122.             LINE (xop, yop)-(xPoint, yPoint), arms(i).c
  123.         END IF
  124.     NEXT
  125.     FOR rr = 5 TO 1 STEP -1
  126.         IF rr MOD 2 THEN c = &HFF663322 ELSE c = &HFF000000
  127.         CIRCLE (xCenter, yCenter), rr, c
  128.     NEXT
  130.  
  131. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  132.     DIM d AS LONG
  133.     STATIC a&
  134.     d = _DEST
  135.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  136.     _DEST a&
  137.     PSET (0, 0), K
  138.     _DEST d
  139.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  141.  
  142. SUB setAlarm
  143.     DIM s$
  144.     s$ = "For time: hh = 00-23 : mm = 00-59"
  145.     CLS
  146.     _PRINTSTRING ((_WIDTH - 8 * LEN(s$)) / 2, _HEIGHT / 2 - 10), s$
  147.     _DISPLAY
  148.     s$ = "Enter hh:mm "
  149.     inputG 8 * (_WIDTH / 8 - LEN(s$) - 8) / 2, _HEIGHT / 2 + 10, s$, alarm$, 8
  151.  
  152. 'INPUT for Graphics screen
  153. SUB inputG (x, y, prmpt$, var$, expectedLenVar%) 'input for a graphics screen x, y is where the prompt will start , returns through var$
  154.     DIM tmp$, k$, saveAD
  155.     saveAD = _AUTODISPLAY
  156.     _KEYCLEAR
  157.     _PRINTSTRING (x, y), prmpt$ + " {}"
  158.     IF saveAD <> -1 THEN _DISPLAY
  159.     DO
  160.         k$ = INKEY$
  161.         IF LEN(k$) = 1 THEN
  162.             SELECT CASE ASC(k$)
  163.                 CASE 13: var$ = tmp$: EXIT SUB
  164.                 CASE 27: var$ = "": EXIT SUB
  165.                 CASE 8 'backspace
  166.                     IF LEN(tmp$) THEN
  167.                         IF LEN(tmp$) = 1 THEN tmp$ = "" ELSE tmp$ = LEFT$(tmp$, LEN(tmp$) - 1)
  168.                     END IF
  169.                 CASE ELSE: IF ASC(k$) > 31 THEN tmp$ = tmp$ + k$
  170.             END SELECT
  171.             _PRINTSTRING (x, y), prmpt$ + " {" + tmp$ + "}" + SPACE$(expectedLenVar% - LEN(tmp$)) 'spaces needed at end to clear backspace chars
  172.             IF saveAD <> -1 THEN _DISPLAY
  173.         END IF
  174.     LOOP
  176.  
  177.  
Title: Re: My Best Clock
Post by: SierraKen on December 06, 2019, 12:42:12 am
That's one of the most amazing clocks I've ever seen on any computer B+. That's better than the stuff on Microsoft's Windows Store, seriously. LOL now I want to experiment more with the clock face. :) I might make a few clocks.
Title: Re: My Best Clock
Post by: SierraKen on December 06, 2019, 01:25:27 am
Here's a template for anyone to use of just clock hands with no clock face background. I'm thinking of making one where the user can press the space bar to change to a few different kinds of backgrounds within the same app. But here is the template I will use. I adjusted the center-point to be in the exact center and added a tiny blue pin in the middle. Feel free to change the colors and sizes of course. I also shrank the hour hand to half the size and am using a non-stop second hand. This also includes the gong sounds on top of every hour.

Code: QB64: [Select]
  1. 'Use this template however you see fit. This was made by Ken G. with help from the QB64.org forum.
  2. _TITLE "Clock Hands"
  3. SCREEN _NEWIMAGE(350, 350, 32)
  4. i = _NEWIMAGE(350, 350, 32)
  5. ' ----------------------------------------
  6. ' Draw clock here and use  _DEST i and _DEST 0
  7. '_DEST i
  8.  
  9.  
  10.  
  11. '_DEST 0
  12. '-----------------------------------------
  13.  
  15.     _LIMIT 30
  16.     hours = TIMER \ 3600
  17.     minutes = TIMER \ 60 - hours * 60
  18.     seconds = (TIMER - hours * 3600 - minutes * 60)
  19.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
  20.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
  21.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
  22.     'Seconds
  23.     s = (60 - seconds) * 6 + 180
  24.     x = INT(SIN(s / 180 * 3.141592) * 125) + 175
  25.     y = INT(COS(s / 180 * 3.141592) * 125) + 175
  26.     FOR b = -5 TO 5 STEP .1
  27.         LINE (175 + b, 175)-(x, y), _RGB32(155, 83, 155)
  28.         LINE (175, 175 + b)-(x, y), _RGB32(155, 83, 155)
  29.     NEXT b
  30.     'Minutes
  31.     m = 180 - minutes * 6
  32.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 175
  33.     yy = INT(COS(m / 180 * 3.141592) * 120) + 175
  34.     FOR b = -5 TO 5 STEP .1
  35.         LINE (175 + b, 175)-(xx, yy), _RGB32(0, 255, 255)
  36.         LINE (175, 175 + b)-(xx, yy), _RGB32(0, 255, 255)
  37.     NEXT b
  38.     'Hours
  39.     h = 360 - hours * 30 + 180
  40.     xxx = INT(SIN(h / 180 * 3.141592) * 50) + 175
  41.     yyy = INT(COS(h / 180 * 3.141592) * 50) + 175
  42.     FOR b = -5 TO 5 STEP .1
  43.         LINE (175 + b, 175)-(xxx, yyy), _RGB32(0, 255, 0)
  44.         LINE (175, 175 + b)-(xxx, yyy), _RGB32(0, 255, 0)
  45.     NEXT b
  46.     FOR sz = .25 TO 5 STEP .25
  47.         CIRCLE (175, 175), sz, _RGB32(0, 105, 255)
  48.     NEXT sz
  49.  
  50.     'Chimes
  51.     IF minu = 0 AND secon = 0 THEN
  52.         hour2 = hou
  53.         IF hour2 > 12 THEN hour2 = hour2 - 12
  54.         IF hour2 = 0 THEN hour2 = 12
  55.         FOR chimes = 1 TO hour2
  56.             ttt = 0
  57.             DO
  58.                 'queue some sound
  59.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  60.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  61.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  62.                     _SNDRAW sample
  63.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  64.                 LOOP
  65.                 'do other stuff, but it may interrupt sound
  66.             LOOP WHILE ttt < 2 'play for 2 seconds
  67.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  68.             LOOP
  69.         NEXT chimes
  70.     END IF
  71.     two:
  72.     _DISPLAY
  73.     CLS
  74.     _PUTIMAGE (0, 0), i
  76.  
Title: Re: My Best Clock
Post by: SierraKen on December 06, 2019, 05:54:52 pm
I decided to make 10 clocks in 1 if I can. Every minute it will change to a different clock face. I got 4 done so far. :) Might take a few days but when I'm done I'll post it here. It's coming out really cool, can't wait until I show it.
Title: Re: My Best Clock
Post by: bplus on December 06, 2019, 07:08:43 pm
Hey nice idea!
Title: Re: My Best Clock
Post by: SierraKen on December 06, 2019, 08:11:21 pm
Thanks b+ :).

Well I am finished now. Surprisingly I was able to find some cool patterns and designs experimenting with my old Fun With Math program and other programs. It changes to a different clock every minute change. After 10 clocks, it goes back to the beginning. It also still has the gong sound on top of the hour. This was really fun to make. I hope it's fun for you all to use and check out. 
Below this code I will also add the original clock that b+ and Petr helped me on. That way I can make this post the best one and have both since both are equally as good. I didn't add the original clock to the changing clocks one because I wanted to make something from only myself this time. It feels good to learn something and be able to do it yourself sometimes.

Edit: I just added an animated GIF as an attachment, hopefully you guys can see the 10 clock pictures with this animation. The GIF changes every second. I also added a picture of b+'s version as an attachment.


Code: QB64: [Select]
  1. 'Clocks by Ken G.
  2. 'A clock face changes every minute. There are 10 clock faces.
  3. 'Thank you to QB64.org Forum for the help!
  4.  
  5. _TITLE "Clocks by Ken G."
  6. SCREEN _NEWIMAGE(350, 350, 32)
  7. i = _NEWIMAGE(350, 350, 32)
  9.     _LIMIT 30
  10.     hours = TIMER \ 3600
  11.     minutes = TIMER \ 60 - hours * 60
  12.     seconds = (TIMER - hours * 3600 - minutes * 60)
  13.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
  14.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
  15.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
  16.     IF oldminu <> minu THEN
  17.         mi = mi + 1
  18.         IF mi = 1 THEN GOSUB clock1:
  19.         IF mi = 2 THEN GOSUB clock2:
  20.         IF mi = 3 THEN GOSUB clock3:
  21.         IF mi = 4 THEN GOSUB clock4:
  22.         IF mi = 5 THEN GOSUB clock5:
  23.         IF mi = 6 THEN GOSUB clock6:
  24.         IF mi = 7 THEN GOSUB clock7:
  25.         IF mi = 8 THEN GOSUB clock8:
  26.         IF mi = 9 THEN GOSUB clock9:
  27.         IF mi = 10 THEN GOSUB clock10:
  28.         IF mi > 10 THEN mi = 1: GOSUB clock1:
  29.     END IF
  30.     oldminu = minu
  31.     'Seconds
  32.     s = (60 - seconds) * 6 + 180
  33.     x = INT(SIN(s / 180 * 3.141592) * 125) + 175
  34.     y = INT(COS(s / 180 * 3.141592) * 125) + 175
  35.     FOR b = -5 TO 5 STEP .1
  36.         LINE (175 + b, 175)-(x, y), _RGB32(155, 83, 155)
  37.         LINE (175, 175 + b)-(x, y), _RGB32(155, 83, 155)
  38.     NEXT b
  39.     'Minutes
  40.     m = 180 - minutes * 6
  41.     xx = INT(SIN(m / 180 * 3.141592) * 120) + 175
  42.     yy = INT(COS(m / 180 * 3.141592) * 120) + 175
  43.     FOR b = -5 TO 5 STEP .1
  44.         LINE (175 + b, 175)-(xx, yy), _RGB32(0, 255, 255)
  45.         LINE (175, 175 + b)-(xx, yy), _RGB32(0, 255, 255)
  46.     NEXT b
  47.     'Hours
  48.     h = 360 - hours * 30 + 180
  49.     xxx = INT(SIN(h / 180 * 3.141592) * 50) + 175
  50.     yyy = INT(COS(h / 180 * 3.141592) * 50) + 175
  51.     FOR b = -5 TO 5 STEP .1
  52.         LINE (175 + b, 175)-(xxx, yyy), _RGB32(0, 255, 0)
  53.         LINE (175, 175 + b)-(xxx, yyy), _RGB32(0, 255, 0)
  54.     NEXT b
  55.     FOR sz = .25 TO 5 STEP .25
  56.         CIRCLE (175, 175), sz, _RGB32(0, 105, 255)
  57.     NEXT sz
  58.  
  59.     'Chimes
  60.     IF minu = 0 AND secon = 0 THEN
  61.         hour2 = hou
  62.         IF hour2 > 12 THEN hour2 = hour2 - 12
  63.         IF hour2 = 0 THEN hour2 = 12
  64.         FOR chimes = 1 TO hour2
  65.             ttt = 0
  66.             DO
  67.                 'queue some sound
  68.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  69.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  70.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  71.                     _SNDRAW sample
  72.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  73.                 LOOP
  74.                 'do other stuff, but it may interrupt sound
  75.             LOOP WHILE ttt < 2 'play for 2 seconds
  76.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  77.             LOOP
  78.         NEXT chimes
  79.     END IF
  80.     two:
  81.     _DISPLAY
  82.     CLS
  83.     _PUTIMAGE (0, 0)-(350, 350), i
  85.  
  86. clock1:
  88. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  89. FOR tt = 1 TO 1000
  90.     s = 0
  91.     a = a + .5
  92.     IF a > 175 THEN a = 1
  94.     b = INT(RND * 2) + 1
  95.     IF b > 1 THEN c = 255
  96.     IF b = 1 THEN c = 0
  97.     FOR d = 0 TO a STEP .125
  98.         c = c + 1
  99.         IF c > 255 THEN c = 0
  100.         s = s + 1
  101.         x = COS(s * 3.141592 / 180) * d
  102.         y = SIN(s * 3.151492 / 180) * d
  103.         CIRCLE (x + 175, y + 175), 2, _RGB32(c, 0, 0)
  104.     NEXT d
  105. NEXT tt
  107. a = 0
  108. s = 0
  110.  
  111. clock2:
  112. c = 0
  114. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  115. FOR tt = 1 TO 1000
  116.     s = 0
  117.     a = a + .5
  118.     IF a > 175 THEN a = 1
  120.     b = INT(RND * 2) + 1
  121.     IF b > 1 THEN c = 255
  122.     IF b = 1 THEN c = 0
  123.     FOR d = a TO 0 STEP -.125
  124.         c = c + 1
  125.         IF c > 255 THEN c = 0
  126.         s = s + 1
  127.         x = COS(s * 3.141592 / 180) * d
  128.         y = SIN(s * 3.151492 / 180) * d
  129.         CIRCLE (x + 175, y + 175), 2, _RGB32(0, c, 0)
  130.     NEXT d
  131. NEXT tt
  133. c = 0
  134. s = 0
  135. a = 0
  137.  
  138. clock3:
  140. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  141. FOR r = 1 TO 120 STEP 5
  142.     one2:
  143.     seco = seco + 1
  144.     s = (60 - seco) * 6 + 180
  145.     x = INT(SIN(s / 180 * 3.141592) * 175) + 175
  146.     y = INT(COS(s / 180 * 3.141592) * 175) + 175
  147.     CIRCLE (x, y), r, _RGB32(0, 0, r * 5)
  148.     IF seco > 60 THEN
  149.         seco = 0
  150.         GOTO two2:
  151.     END IF
  152.     GOTO one2:
  153.     two2:
  156. s = 0
  157. seco = 0
  159.  
  160. clock4:
  162. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  163. FOR rr = 0 TO 140 STEP 20
  165.     c1 = INT(RND * 255)
  166.     c2 = INT(RND * 255)
  167.     c3 = INT(RND * 255)
  168.     one3:
  169.     seco = seco + 1
  170.     s = (60 - seco) * 6 + (160 - rr)
  171.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
  172.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
  173.     CIRCLE (x, y), 2, _RGB32(c1, c2, c3)
  174.     IF seco > 60 THEN
  175.         seco = 0
  176.         GOTO two3:
  177.     END IF
  178.     GOTO one3:
  179.     two3:
  180. NEXT rr
  182. seco = 0
  184.  
  185. clock5:
  187. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  188. c1 = 0: c2 = 100: c3 = 100
  189. FOR rr = 0 TO 140 STEP .1
  190.     c2 = c2 + 1
  191.     c3 = c3 + 1
  192.     one4:
  193.     seco = seco + 1
  194.     s = (60 - seco) * 6 + (160 - rr)
  195.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
  196.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
  197.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
  198.     IF seco > 60 THEN
  199.         seco = 0
  200.         GOTO two4:
  201.     END IF
  202.     GOTO one4:
  203.     two4:
  204. NEXT rr
  206. seco = 0
  208.  
  209. clock6:
  211. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  212. c1 = 100: c2 = 100: c3 = 0
  213. FOR rr = 0 TO 140 STEP .1
  214.     c2 = c2 + 1
  215.     c3 = c3 + 1
  216.     one5:
  217.     seco = seco + 1
  218.     s = (60 - seco) * 6 + 160
  219.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
  220.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
  221.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
  222.     IF seco > 60 THEN
  223.         seco = 0
  224.         GOTO two5:
  225.     END IF
  226.     GOTO one5:
  227.     two5:
  228. NEXT rr
  230. seco = 0
  232.  
  233. clock7:
  235. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  236. c1 = 100: c2 = 100: c3 = 100
  237. FOR rr = 0 TO 140 STEP .1
  238.     c1 = c1 + 1
  239.     c2 = c2 + 1
  240.     c3 = c3 + 1
  241.     one6:
  242.     seco = seco + 1
  243.     s = (60 - seco) * 6 + 160 + rr
  244.     x = INT(SIN(s / 180 * 3.141592) * (160 + rr)) + 175
  245.     y = INT(COS(s / 180 * 3.141592) * (160 + rr)) + 175
  246.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
  247.     IF seco > 60 THEN
  248.         seco = 0
  249.         GOTO two6:
  250.     END IF
  251.     GOTO one6:
  252.     two6:
  253. NEXT rr
  255. seco = 0
  257.  
  258. clock8:
  260. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  261. c1 = 100: c2 = 0: c3 = 0
  262. FOR rr = -50 TO 50 STEP .25
  263.     c1 = c1 + 1
  264.     c2 = c2 + 1
  265.     one7:
  266.     seco = seco + .25
  267.     s = (60 - seco) * 6 + 160
  268.     x = INT(SIN(s / 90 * 3.141592) * 160) + 175
  269.     y = INT(COS(s / 180 * 3.141592) * 160) + 175
  270.     CIRCLE (x + rr, y), 2, _RGB32(c1, c2, c3)
  271.     IF seco > 60 THEN
  272.         seco = 0
  273.         GOTO two7:
  274.     END IF
  275.     GOTO one7:
  276.     two7:
  277. NEXT rr
  279. seco = 0
  281.  
  282. clock9:
  284. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  285. c1 = 0: c2 = 50: c3 = 50
  286. FOR rr = 0 TO 160 STEP .05
  287.     c2 = c2 + .05
  288.     c3 = c3 + .05
  289.     one8:
  290.     seco = seco + .05
  291.     s = (60 - seco) * 6 + 160 - rr
  292.     x = INT(SIN(s / 180 * 3.141592) * (160 - rr)) + 175
  293.     y = INT(COS(s / 180 * 3.141592) * (160 - rr)) + 175
  294.     CIRCLE (x, y), .25, _RGB32(c1, c2, c3)
  295.     IF seco > 60 THEN
  296.         seco = 0
  297.         GOTO two8:
  298.     END IF
  299.     GOTO one8:
  300.     two8:
  301. NEXT rr
  303. seco = 0
  305.  
  306. clock10:
  308. LINE (0, 0)-(350, 350), _RGB32(0, 0, 0), BF
  309. one9:
  310. seco = seco + .01
  311. s = (60 - seco) * 6 + 180
  312. x = INT(SIN(s / 360 * 3.141592) * 180) + 175
  313. y = INT(COS(s / 1.57 * 3.141592) * 180) + 175
  314. CIRCLE (x, y), 2, _RGB32(0, 255, 0)
  315. IF seco > 60 THEN
  316.     seco = 0
  317.     GOTO two9:
  319. GOTO one9:
  320. two9:
  322. seco = 0
  324.  

Here is the original clock with amazing graphics for the clock face that b+ made:

Code: QB64: [Select]
  1. 'Clock by Ken G and b+. Also thank you to Petr from the QB64.org forum for smooth second hand movement.
  2.  
  3. _TITLE "Clock by Ken G., b+, and Petr" 'b+ mod 2019-12-03
  4. CONST xmax = 360, ymax = 368, xCenter = xmax / 2, yCenter = ymax / 2, p = 3.14159265, p2 = p * 2, pd2 = p / 2
  5. DIM SHARED clockFace&
  6. 'i = _LOADIMAGE("kclock.bmp", 32)
  7. SCREEN _NEWIMAGE(360, 368, 32)
  8. clockFace& = _NEWIMAGE(xmax, ymax, 32)
  9. _DEST clockFace&
  10. drawClockFace
  13.     _LIMIT 30
  14.     CLS
  15.     _PUTIMAGE , clockFace&, 0
  16.  
  17.     hours = TIMER \ 3600
  18.     minutes = TIMER \ 60 - hours * 60
  19.     seconds = (TIMER - hours * 3600 - minutes * 60)
  20.     ho$ = LEFT$(TIME$, 2): hou = VAL(ho$)
  21.     min$ = MID$(TIME$, 4, 2): minu = VAL(min$)
  22.     seco$ = RIGHT$(TIME$, 2): secon = VAL(seco$)
  23.  
  24.     'Hours
  25.     h = 360 - hours * 30 + 180
  26.     xxx = INT(SIN(h / 180 * 3.141592) * 100) + 180
  27.     yyy = INT(COS(h / 180 * 3.141592) * 100) + 184
  28.     FOR b = -8 TO 8 STEP .1
  29.         LINE (180 + b, 184)-(xxx, yyy), _RGB32(155, 0, 0)
  30.         LINE (180, 184 + b)-(xxx, yyy), _RGB32(155, 0, 0)
  31.     NEXT b
  32.  
  33.     'Minutes
  34.     m = 180 - minutes * 6
  35.     xx = INT(SIN(m / 180 * 3.141592) * 150) + 180
  36.     yy = INT(COS(m / 180 * 3.141592) * 150) + 184
  37.     FOR b = -5 TO 5 STEP .1
  38.         LINE (180 + b, 184)-(xx, yy), _RGB32(155, 80, 40)
  39.         LINE (180, 184 + b)-(xx, yy), _RGB32(155, 80, 40)
  40.     NEXT b
  41.  
  42.     'Seconds
  43.     s = (60 - seconds) * 6 + 180
  44.     x = INT(SIN(s / 180 * 3.141592) * 165) + 180
  45.     y = INT(COS(s / 180 * 3.141592) * 165) + 184
  46.     'FOR b = -5 TO 5 STEP .1
  47.     ' LINE (180 + b, 184)-(x, y), _RGB32(255, 164, 100)
  48.     LINE (180, 184)-(x, y), _RGB32(255, 164, 84)
  49.     'NEXT b
  50.  
  51.     'fix clock arms with knob
  52.     FOR rrr = 6 TO 0 STEP -.25
  53.         CIRCLE (180, 184), rrr, _RGB32(1.5 * (255 - 25 * rrr), 1.5 * (128 - 17 * rrr), 1.5 * (64 - 8 * rrr))
  54.     NEXT
  55.  
  56.     'Chimes
  57.     IF minu = 0 AND secon = 0 THEN
  58.         hour2 = hou
  59.         IF hour2 > 12 THEN hour2 = hour2 - 12
  60.         IF hour2 = 0 THEN hour2 = 12
  61.         FOR chimes = 1 TO hour2
  62.             ttt = 0
  63.             DO
  64.                 'queue some sound
  65.                 DO WHILE _SNDRAWLEN < 0.1 'you may wish to adjust this
  66.                     sample = SIN(ttt * 340 * ATN(1) * 8) '340Hz sine wave (ttt * 440 * 2p)
  67.                     sample = sample * EXP(-ttt * 3) 'fade out eliminates clicks after sound
  68.                     _SNDRAW sample
  69.                     ttt = ttt + 1 / _SNDRATE 'sound card sample frequency determines time
  70.                 LOOP
  71.                 'do other stuff, but it may interrupt sound
  72.             LOOP WHILE ttt < 2 'play for 2 seconds
  73.             DO WHILE _SNDRAWLEN > 0 'Finish any left over queued sound!
  74.             LOOP
  75.         NEXT chimes
  76.     END IF
  77.  
  78.     two:
  79.     _DISPLAY
  81.  
  82. SUB drawClockFace
  83.     DIM angle, r, n AS INTEGER, c AS _UNSIGNED LONG, x1, y1, x2, y2
  84.     DIM level AS INTEGER, shade AS INTEGER, rr, gg, bb
  85.     rr = 20: gg = 10: bb = 5
  86.     CLS
  87.     angle = p2 / 12: r = yCenter * .95
  88.     FOR level = 0 TO 2
  89.         x1 = xCenter + COS(0 - pd2) * r: y1 = yCenter + SIN(0 - pd2) * r
  90.         FOR n = 1 TO 12
  91.             x2 = xCenter + COS(n * angle - pd2) * r: y2 = yCenter + SIN(n * angle - pd2) * r
  92.             IF n > 6 THEN shade = n - 6 ELSE shade = 6 - n
  93.             IF n = 12 THEN shade = 6
  94.             IF level = 1 THEN shade = 6 - shade
  95.             c = _RGB32((level * 60) + rr + shade * 50, (level * 30) + gg + shade * 30, (level * 15) + bb + shade * 15)
  96.             fillTriangle xCenter, yCenter, x1, y1, x2, y2, c
  97.             x1 = x2: y1 = y2
  98.         NEXT
  99.         IF level = 0 THEN r = r - 15 ELSE r = r - 50
  100.     NEXT
  102.  
  103. SUB fillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  104.     DIM d AS LONG
  105.     STATIC a&
  106.     d = _DEST
  107.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  108.     _DEST a&
  109.     PSET (0, 0), K
  110.     _DEST d
  111.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  113.  
Title: Re: My Best Clock
Post by: Pete on December 06, 2019, 08:43:22 pm
If your clock could talk, it might tell you, "It's not a fan." Well of course it's not, it's a clock! Of course if you speed up that second had 10- fold, well...

Kidding aside, I actually do like the other static designs better. Especially for telling time. I found myself checking my compute clock, to figure out if I was looking a 4:20 or 5:20. I did, however, like the red swirl pattern. That was also the easiest one to view and figure out the time. I could see that on an iWatch. Of course variety is the spice of life and having a setting menu, so the user could decide, classic face, favorite geometric face, AM / PM faces, or cycle through faces. Well, you can't lose there.

Pete
Text Only | Text with Attachments