i made a clock and you can set the time yourself in the code or with the little knob on the side, if you pull it out a bit like a normal watch you can adjust the time and if you dont you can turn the mainspring (but it doesnt affect the power beause i dont want to have to wind my virtual watch lol)

its real messy. i can label it if someone wants but to adjust to your timezone youre gonna wanna change the line in _update that says hour = date sub - 6. the - 6 is subtracting 6 hours from the default gmt to get mountain time where i live but you can change it to whatever you like

automaticwatch

Cart File | Forum Post |

	More cartridges by lumpycamel

More Cartridges [View All]

 

automaticwatch

by lumpycamel

Cart #automaticwatch-0 | 2024-03-29 | Embed ▽ | No License

2

you can copy this into a file you make called clock.lua wherever your toolbar widget things are stored and then add a line in appdata/system/startup.lua to create it on startup like this

create_process("/tooltray/clock.lua", {window_attribs = {workspace = "tooltray", x=2, y=2, width=128, height=128}})

if you dont have startup.lua just create one in appdata/system and add the above line to it. the path for my clock.lua is just /tooltray/clock.lua because i made a tooltray folder for my widget things in my root folder.

-- clock

function _init()

mx, my, mb, ms = mouse()
lastX = mx
lastY = my
winding = false
windNum = 0
setMin = 0
setHour = 0
springA = 0
movedX = 0
moved = false
clock = 0
wind = 0
windX = 84
windY = 39

end
function _update()

cls(1)

lastX = mx
lastY = my

mx, my, mb, ms = mouse()
winder()

clock += 1

hour = (date():sub(12,13) - 6)%12
minute = (date():sub(15,16) + setMin)
second = (date():sub(18,19))

end

function _draw()

--spr(2-windNum%2,windX,windY)
drawWinder(windX,windY)

background()

flywheel()
mainspring()

local sx = (sin(second/60+0.25)) * 10
local sy = (-cos(second/60+0.25)) * 10

line(42,59,42+sy,59+sx,24)

local hx = (sin(hour/12+0.25+(minute/60)/12)) * 16
local hy = (-cos(hour/12+0.25+(minute/60)/12)) * 16

--line(42,42,42+hy,42+hx,7)
local ha = hour/12 +(minute/60)/12
drawHand((ha-1)*-1,16,42,42)

local mx = (sin(minute/60+0.25)) * 24
local my = (-cos(minute/60+0.25)) * 24

--line(42,42,42+my,42+mx,7)
local ma = minute/60
drawHand((ma-1)*-1,28,42,42)

-- print(second,128,16,7)
-- print(minute,128,32,7)
-- print(hour,128,48,7)

end

function drawHand(a,l,x,y)

local x1 = (sin(a - 1/12)) * 2
local y1 = (-cos(a - 1/12)) * 2

local x2 = (sin(a + 1/12)) * 2
local y2 = (-cos(a + 1/12)) * 2

local x3 = (sin(a)) * l
local y3 = (-cos(a)) * l

local x4 = (sin(a)) * 2
local y4 = (-cos(a)) * 2

line(x+x1,y+y1,x+x3,y+y3,6)
line(x+x2,y+y2,x+x3,y+y3,6)
line(x+x4,y+y4,x+x3,y+y3,7)
circfill(x,y,2,6)
circfill(x,y,1,1)

end

function drawWinder(x,y)

local n = windNum%2

rectfill(x,y,x+2,y+6,13)
line(x-1,y+1,x-1,y+5)

if n == 0 then
    for i= 0,2 do
        local xx = x+1
        local yy = y+1
        line(xx,yy+i*2,xx+1,yy+i*2,29)
    end
elseif n == 1 then
    for i= 0,3 do
        local xx = x+1
        local yy = y
        line(xx,yy+i*2,xx+1,yy+i*2,29)
    end
end

end

function winder()

if mx >= windX and mx <= windX + 16 and my >= windY and my <= windY + 16 then
    if mb == 1 then
        winding = true
    end
end

if winding == true then
    if mb != 1 then
        winding = false
    end
end

if winding then
        if not moved then
            local n = lastY - my
            if n > 0 then
                springA += lastY - my
            end
        else
        setMin -= lastY - my
        end
        windNum += lastY - my
        movedX -= lastX - mx
end

if mb == 0 then movedX = 0 end

if movedX >= 8 and not moved then
    windX += 1
    movedX = 0
    moved = true
end

if moved and movedX <= -8 then
    windX -= 1
    movedX = 0
    moved = false
end

end

function mainspring()

circfill(42,28,16,18)

for i = 1,3 do
    local a = i/3 - springA/60
    local x = sin(a) * 6
    local y = -cos(a) * 6
    circ(42+x,28+y,6,22)
end 

for i = 1,3 do
    local a = i/3 + 5/12 - springA/60
    local x = sin(a) * 10
    local y = -cos(a) * 10
    circfill(42+x,28+y,5,18)
end 

circ(42,28,12,22)
circ(42,28,13,22)
circ(42,28,15,29)

end

function flywheel()

circ(24,47,9,9)
for i = 1,3 do
    local a = i/3+0.25+(cos(clock/24)/3)%2
    local x = sin(a)
    local y = -cos(a)
    line(24,47,24+x*9,47+y*9,9)
end 

end

function acos(x)
return atan2(x,-sqrt(1-x*x))
end

function asin(y)
return atan2(sqrt(1-y*y),-y)
end

function background()

--circ(240,135,36,7)
--circ(240,135,37,7)

circfill(42,42,40,1)
circfill(42,42,30,13)

circ(42,42,41,29)
circ(42,42,29,29)

circ(42,59,10,1)
circ(42,59,11,1)

for i = 1,12 do
    local a = i/12+0.25
    local x = sin(a)
    local y = -cos(a)
    line(42+x*32,42+y*32,42+x*36,42+y*36,6)
end

for i = 1,12 do
    local a = i/12+0.25
    local x = sin(a)
    local y = -cos(a)
    pset(42+x*9,59+y*9,7)

end

for i = 1,60 do
    local a = i/60+0.25
    local x = sin(a)
    local y = -cos(a)
    pset(42+x*38,42+y*38,7)
end

for i = 1,12 do
    local a = i/12+0.25
    local x = sin(a)
    local y = -cos(a)
    pset(42+x*38,42+y*38,8)
end

end

Nice watch, you can use triple back ticks do make a code block

like this