aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

70
Task/Draw-a-clock/Run-BASIC/draw-a-clock.basic
View file

@ -1,10 +1,10 @@
' --------------------------------------------
' clock. I got nothing but time
' ---------------------------------------------
n = 12 ' num of points
r = 95 ' radius
pi = 22/7
alpha = pi * 2 / n
n = 12 ' num of points
r = 95 ' radius
pi = 22/7
alpha = pi * 2 / n
dim points(n)
graphic #g2, 200, 200
' --------------------------------------
@ -22,58 +22,58 @@ graphic #g2, 200, 200
#g2 place(90,185)
#g2 "\6"
for i = 0 to n - 1
theta = alpha * i
px = cos( theta ) * r
py = sin( theta ) * r
px = px + 100
py = py + 100
#g2 place(px,py)
#g2 circle(2)
theta = alpha * i
px = cos( theta ) * r
py = sin( theta ) * r
px = px + 100
py = py + 100
#g2 place(px,py)
#g2 circle(2)
next i
[shoTime]
' -------------------------
' clear previous sec,min,hr
' -------------------------
r = 63
p = se
r = 63
p = se
#g2 color("white")
gosub [h2Dot]
r = 50
p = mi
r = 50
p = mi
#g2 color("white")
gosub [h2Dot]
r = 30 ' radius
p = hr * 5
r = 30 ' radius
p = hr * 5
#g2 color("white")
gosub [h2Dot]
' -------------------------
' Show new time
' -------------------------
a$ = time$()
hr = val(word$(a$,1,":"))
mi = val(word$(a$,2,":"))
se = val(word$(a$,3,":"))
a$ = time$()
hr = val(word$(a$,1,":"))
mi = val(word$(a$,2,":"))
se = val(word$(a$,3,":"))
' put time on the clock - gimme a hand
#g2 size(4)
' second hand
n = 60
r = 63
p = se
n = 60
r = 63
p = se
#g2 color("blue")
gosub [h2Dot]
' minute hand
r = 50
p = mi
r = 50
p = mi
#g2 color("green")
gosub [h2Dot]
' hour hand
r = 30 ' radius
p = hr * 5
r = 30 ' radius
p = hr * 5
#g2 color("red")
gosub [h2Dot]
@ -82,13 +82,13 @@ end
' a one liner
[h2Dot]
alpha = pi * 2 / n
i = p - 15
theta = alpha * i
px = cos( theta ) * r
py = sin( theta ) * r
px = px + 100
py = py + 100
alpha = pi * 2 / n
i = p - 15
theta = alpha * i
px = cos( theta ) * r
py = sin( theta ) * r
px = px + 100
py = py + 100
#g2 place(px,py)
#g2 circle(2)
#g2 line(100,100,px,py)