Post by: SierraKen on November 16, 2020, 08:57:13 pm
It also chimes the hour on the hour using a chime example I got last year I believe in the Wiki example pages for another clock. Understanding how Subs work sure make things a lot easier. :)
Edit: The zip file and picture have been updated, please use these instead. Thank you.
Edit: Updated again with my own drawings of the clock hands and a new picture.
Edited Again: Changed the colors, added a graphical seconds hand and remade the hands and style.
Post by: bplus on November 16, 2020, 09:09:07 pm
Post by: SierraKen on November 16, 2020, 09:36:48 pm
Post by: johnno56 on November 16, 2020, 10:08:20 pm
Post by: SierraKen on November 16, 2020, 10:11:31 pm
Post by: OldMoses on November 17, 2020, 12:06:04 am
Post by: SierraKen on November 17, 2020, 12:10:40 am
Post by: SierraKen on November 17, 2020, 01:10:21 am
Post by: SierraKen on November 17, 2020, 02:29:29 am
Update: The zip file and picture were removed from this post. Please scroll to the next one. Thanks.
Post by: SierraKen on November 17, 2020, 02:59:21 pm
Updated: Deleted this version, please keep scrolling to the second page on this forum.
Post by: bplus on November 18, 2020, 02:23:25 pm
Hi Ken I am wondering how you got your clock hands saved on transparent background? I hate having to go through Paint3D and if I could do that with QB64 I don't remember how unless with Steve's saveImage?
BTW on the old clock hands or the new it might be cool if the holes centered on hour, minute or seconds tick marks?
I like the very smooth moving second hand.
Post by: SierraKen on November 18, 2020, 03:18:30 pm
To make the transparent .png files, I use the free paint program called Paint.Net (I'll put the link to it below). You just make the size of the graphic you want, then use the eraser (I suggest making the eraser size 50 or so) and erase all the white default background the picture has. When you erase it, it turns it into a chessboard type look which is a transparent background. From them on, any graphic you make using the paint brush, lines, shapes, whatever, will be on top of the nothing background. Then save it as .png. That's all you have to do and then you load it with _LOADIMAGE and put it on the screen like you do with any graphic file and QB64 takes care of the rest automatically. I've used Paint.Net for at least 10 years now and it's really good. It has no advertisements either.
For some reason Paint.Net's website isn't loading right now for me but I found it on CNet. Be careful though not to install or change anything you don't want on installation (CNet does that often).
https://download.cnet.com/Paint-NET/3000-2192_4-10338146.html (https://download.cnet.com/Paint-NET/3000-2192_4-10338146.html)
Post by: bplus on November 18, 2020, 03:59:11 pm
Post by: SierraKen on November 18, 2020, 05:20:16 pm
Post by: bplus on November 18, 2020, 05:41:22 pm
Post by: SierraKen on November 18, 2020, 08:12:14 pm
Post by: bplus on November 18, 2020, 09:10:31 pm
The hands are picking up a nice style to them and I really like the blue hour dots more in the middle!
Post by: SierraKen on November 18, 2020, 09:29:23 pm
Post by: _vince on November 19, 2020, 02:27:05 am
Code: [Select]
pi = 4*atn(1)
sw = 800
sh = 600
s$ = "33111121131112121222132114211123113231"
screen _newimage(sw, sh, 32)
screen ,,1,0
pset (sw/2, sh/2),_rgb(100,100,100)
for a=0 to 2*pi step 0.01
x = 100*cos(a) + 100*cos(14*a)
y = 100*sin(a) + 100*sin(14*a)
line -(sw/2 + x, sh/2 + y),_rgb(35,35,35)
next
circle (sw/2, sh/2), 8
circle (sw/2, sh/2), 12
circle (sw/2, sh/2), 210 - 5,_rgb(100,100,100)
circle (sw/2, sh/2), 280 + 5,_rgb(100,100,100)
circle (sw/2, sh/2), 280 + 10,_rgb(100,100,100)
a = -pi/2
do while i < len(s$)-1
i = i + 1
c$ = mid$(s$, i, 1)
b = a - 0.05*(val(c$))*0.5
for k=0 to val(c$) - 1
i = i + 1
select case mid$(s$, i, 1)
case "1"
line (sw/2 + 210*cos(b), sh/2 + 210*sin(b))-step(70*cos(b), 70*sin(b))
case "2"
if val(c$) > 1 then c = b + 0.05*0.5*((k = 0) - (k <> 0)) else c = b
line (sw/2 + 210*cos(c), sh/2 + 210*sin(c))-step(70*cos(c - 0.05*3), 70*sin(c - 0.05*3))
line (sw/2 + 210*cos(c), sh/2 + 210*sin(c))-step(70*cos(c + 0.05*3), 70*sin(c + 0.05*3))
case "3"
if val(c$) > 1 then c = b + 0.05*0.5*((k = 0) - (k <> 0)) else c = b
line (sw/2 + 210*cos(c - 0.05*0.8), sh/2 + 210*sin(c - 0.05*0.8))-(sw/2 + 280*cos(c + 0.05*0.8), sh/2 + 280*sin(c + 0.05*0.8))
line (sw/2 + 210*cos(c + 0.05*0.8), sh/2 + 210*sin(c + 0.05*0.8))-(sw/2 + 280*cos(c - 0.05*0.8), sh/2 + 280*sin(c - 0.05*0.8))
end select
b = b + 0.05
next
a = a + pi/6
loop
screen ,,0,0
do
t = 100*timer
pcopy 1,0
b = 2*pi*(t/36 mod 1200)/1200- pi/2
pset (sw/2, sh/2)
for a=0 to pi step 0.01
x = 140*(0.8*cos(a))^5*abs(3*cos(8*a)^2)*sin(a)*cos(b) - 180*sin(a)*sin(b)
y = 140*(0.8*cos(a))^5*abs(3*cos(8*a)^2)*sin(a)*sin(b) + 180*sin(a)*cos(b)
line -(sw/2 + x, sh/2 + y)
next
b = 2*pi*(t*100 mod 360000)/360000 - pi/2
pset (sw/2, sh/2)
for a=0 to pi step 0.01
x = 55*(cos(a))^5*abs(2*(cos(4*a))^2 - 0.5)*sin(a)*cos(b) - 280*sin(a)*sin(b)
y = 55*(cos(a))^5*abs(2*(cos(4*a))^2 - 0.5)*sin(a)*sin(b) + 280*sin(a)*cos(b)
line -(sw/2 + x, sh/2 + y)
next
_display
_limit 100
loop until _keyhit=27
sleep
system
Post by: bplus on November 19, 2020, 11:52:59 am
Post by: SierraKen on November 19, 2020, 01:35:53 pm
Post by: bplus on November 19, 2020, 01:43:44 pm
It's all drawing from bas code (the minutes hand is moving as if a seconds hand)
BTW @_vince this fixes line at 3 0'clock:
Code: QB64: [Select]
- 'PSET (sw / 2, sh / 2), _RGB(100, 100, 100)
Post by: SierraKen on November 19, 2020, 04:30:42 pm
Vince this is awesome! Very nice design. It just needs to be added the real time to it. I looked briefly at the code and can't really figure it out yet, but I'll look a bit more.
Post by: bplus on November 19, 2020, 07:55:09 pm
Code: QB64: [Select]
- pi = _PI
- sw = 800
- sh = 600
- s$ = "33111121131112121222132114211123113231"
- b = -pi / 2
- 'check
- 'CLS
- 'RotoZoom sw / 2, sh / 2, hhand&, 1, 0
- 'CIRCLE (sw / 2, sh / 2), 6, &HFFFFFF00
- b = -pi / 2
- 'check
- 'CLS
- 'RotoZoom sw / 2, sh / 2, mhand&, 1, 36
- 'RotoZoom sw / 2, sh / 2, hhand&, 1, 150
- 'CIRCLE (sw / 2, sh / 2), 6, &HFFFFFF00
- fcirc sw / 2, sh / 2, 280 + 10, &HFFFF0000
- fcirc sw / 2, sh / 2, 280 + 5, &HFFFFFFFF
- fcirc sw / 2, sh / 2, 205, &HFFDDDDFF
- fcirc sw / 2, sh / 2, 12, &HFFFFFF00
- fcirc sw / 2, sh / 2, 6, &HFF000000
- a = -pi / 2
- COLOR g
- i = i + 1
- i = i + 1
- CASE "1"
- CASE "2"
- CASE "3"
- b = b + 0.05
- a = a + pi / 6
- h = (h / 12 + m / 12) * 360
- RotoZoom sw / 2, sh / 2, hhand&, 1, h - 90
- RotoZoom sw / 2, sh / 2, mhand&, 1, m * 360 - 90
- _LIMIT 100
- px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
- px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
- x2& = (px(I&) * cosr! + sinr! * py(I&)) * Scale + X: y2& = (py(I&) * cosr! - px(I&) * sinr!) * Scale + Y
- px(I&) = x2&: py(I&) = y2&
- _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), hdl TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
- _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), hdl TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
- 'from Steve Gold standard
- WHILE X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1
[ This attachment cannot be displayed inline in 'Print Page' view ]
I also found out Ken modified a perfectly fine rotozoom feeling need to change parameter name ;)
(I had copied the version he had in his code. I changed it back to hdl.)
Post by: _vince on November 19, 2020, 09:03:24 pm
(https://image.shutterstock.com/image-vector/vintage-clock-dial-set-hands-600w-496516774.jpg)
I have no idea how you'd parametrize those spade like curves with all the loops and cusps. I am aware that there's an algorithm that can fit a sum of sinusoids expression to any arbitrary curve but it would not be as tight and elegant as the stuff here: https://mathworld.wolfram.com/HeartCurve.html (https://mathworld.wolfram.com/HeartCurve.html) - that math is beyond me. I'd be impressed if anyone can pull off a fancy spade clock hand curve with a similar expression. My hands are a sloppy few minutes of trial and error.
I am also aware that the program is a bit rough with mistakes and misalignment but had I polished all of that it would no longer be the cute 70-liner -- I would then be better off hand coding each roman numeral and so on. I would be down to code up the ultimate QB vintage clock some time, all the flourishings, calligraphy, fancy spirographs, true 3D shadows on hands, etc and no external images!
Post by: SierraKen on November 19, 2020, 09:16:17 pm
Post by: SierraKen on November 19, 2020, 09:32:04 pm
Post by: bplus on November 19, 2020, 09:43:01 pm
I see what you mean B+, "hdl AS LONG". Yeah hdl confused me so I just named it clock. lol I'll change it back and put the new version up in the zips above.
Don't worry about it Ken, I was proud to see you using a SUB! BTW hdl means rotozoom was looking for any image handle to scale and rotate.
@_vince maybe we could work something up from this?
Code: QB64: [Select]
- '2019-02-28 random magnify and beat, redder heart
- 'center of screen
- CX = xmax / 2
- CY = ymax / 2 - 50
- x = CX + magnify * xCard(a)
- y = CY - magnify * yCard(a)
- lastx = x: lasty = y
- 'Reference and thanks to:
- ' http://mathworld.wolfram.com/HeartCurve.html
- ' find the 6th heart curve equations #7, 8
Post by: SierraKen on November 19, 2020, 09:48:01 pm
Post by: STxAxTIC on November 20, 2020, 03:47:26 am
Thanks @Fellippe for anti-aliased lines.
EDIT: Got rid of fading colors and other busy things, it looked bad after a while:
Code: QB64: [Select]
- SCREEN MainScreen
- TYPE TimeValue
- TYPE Vector
- TYPE ClockHand
- Center AS Vector
- HandPosition AS Vector
- HourHand.Center.x = 0
- HourHand.Center.y = 0
- HourHand.Length = 140
- MinuteHand.Length = HourHand.Length / phi
- SecondHand.Length = HourHand.Length / (phi ^ 2)
- _DEST BackScreen
- CALL UpdateClock
- CALL UpdateClock
- _DEST MainScreen
- CALL UpdateClock
- CALL DrawClockHands
- _LIMIT 60
- SUB UpdateClock
- HourHand.Angle = -((TheTime.Hour + (TheTime.Minute / 60)) / 12) * 2 * pi + pi / 2
- MinuteHand.Angle = -((TheTime.Minute + (TheTime.Second / 60)) / 60) * 2 * pi + pi / 2
- SecondHand.Angle = -(TheTime.Second / 60) * 2 * pi + pi / 2
- MinuteHand.Center.x = HourHand.HandPosition.x
- MinuteHand.Center.y = HourHand.HandPosition.y
- SecondHand.Center.x = MinuteHand.HandPosition.x
- SecondHand.Center.y = MinuteHand.HandPosition.y
- SUB DrawClockHands
- CALL lineSmooth(SecondHand.Center.x, SecondHand.Center.y, SecondHand.HandPosition.x, SecondHand.HandPosition.y, SecondHand.Shade)
- CALL lineSmooth(MinuteHand.Center.x, MinuteHand.Center.y, MinuteHand.HandPosition.x, MinuteHand.HandPosition.y, MinuteHand.Shade)
- CALL lineSmooth(HourHand.Center.x, HourHand.Center.y, HourHand.HandPosition.x, HourHand.HandPosition.y, HourHand.Shade)
- TheTime.Hour = t \ 3600
- t = t - TheTime.Hour * 3600
- TheTime.Minute = t \ 60
- t = t - TheTime.Minute * 60
- TheTime.Second = t
- 'translated from
- 'https://en.wikipedia.org/w/index.php?title=Xiaolin_Wu%27s_line_algorithm&oldid=852445548
- SWAP x0, y0
- SWAP x1, y1
- SWAP x0, x1
- SWAP y0, y1
- dx = x1 - x0
- dy = y1 - y0
- gradient = dy / dx
- gradient = 1
- 'handle first endpoint
- yend = y0 + gradient * (xend - x0)
- xpxl1 = xend 'this will be used in the main loop
- plX = ypxl1
- plY = xpxl1
- GOSUB plot
- plX = ypxl1 + 1
- plY = xpxl1
- GOSUB plot
- plX = xpxl1
- plY = ypxl1
- GOSUB plot
- plX = xpxl1
- plY = ypxl1 + 1
- GOSUB plot
- DIM intery
- intery = yend + gradient 'first y-intersection for the main loop
- 'handle second endpoint
- DIM xpxl2, ypxl2
- yend = y1 + gradient * (xend - x1)
- xpxl2 = xend 'this will be used in the main loop
- plX = ypxl2
- plY = xpxl2
- GOSUB plot
- plX = ypxl2 + 1
- plY = xpxl2
- GOSUB plot
- plX = xpxl2
- plY = ypxl2
- GOSUB plot
- plX = xpxl2
- plY = ypxl2 + 1
- GOSUB plot
- 'main loop
- DIM x
- plY = x
- GOSUB plot
- plY = x
- GOSUB plot
- intery = intery + gradient
- plX = x
- GOSUB plot
- plX = x
- GOSUB plot
- intery = intery + gradient
- plot:
- ' Change to regular PSET for standard coordinate orientation.
Post by: SierraKen on November 20, 2020, 10:47:01 am
Post by: _vince on November 20, 2020, 06:15:39 pm
@_vince maybe we could work something up from this?Code: QB64: [Select]
I'm not so sure it would work, bplus, I'd prefer to remain as just friends
Post by: bplus on November 20, 2020, 07:19:54 pm
Post by: STxAxTIC on November 21, 2020, 12:49:30 pm
Code: QB64: [Select]
- '2019-02-28 random magnify and beat, redder heart
- '2020-11-21 better heartbeat
- 'center of screen
- CX = xmax / 2
- CY = ymax / 2 - 50
- x = CX + magnify * xCard(a)
- y = CY - magnify * yCard(a)
- lastx = x: lasty = y
- 'Reference and thanks to:
- ' http://mathworld.wolfram.com/HeartCurve.html
- ' find the 6th heart curve equations #7, 8
Post by: bplus on November 21, 2020, 07:03:12 pm
Quote
Normal Heart Rhythm is Irregular
Sometimes people say “irregular pulse” as a shorthand for an abnormal heart rhythm. That’s not quite right, because a normal pulse is irregular. In fact, it’s regularly irregular: your heart rate varies periodically due to your breathing rate and autonomic nervous system. The frequency and depth of variation reflects nearly everything that happens in your life, including your level of physical activity, emotional state, and whether you’re sleeping or waking.
Post by: STxAxTIC on November 21, 2020, 08:19:06 pm