18 lines
525 B
Plaintext
18 lines
525 B
Plaintext
Red [
|
|
Needs: 'View
|
|
Purpose: {simple analog clock based on Nenad Rakocevic's eve-clock.red,
|
|
see http://www.red-lang.org/2016/07/eve-style-clock-demo-in-red-livecoded.html}
|
|
]
|
|
|
|
view [ base 100x100 transparent rate 1 now draw [
|
|
circle 50x50 45
|
|
hour: rotate 0 50x50 [pen #023963 line 50x50 50x20]
|
|
min: rotate 0 50x50 [pen #023963 line 50x50 50x10]
|
|
sec: rotate 0 50x50 [pen #CE0B46 line 50x50 50x10]
|
|
] on-time [
|
|
time: now/time
|
|
hour/2: 30 * time/hour
|
|
min/2: 6 * time/minute
|
|
sec/2: 6 * time/second
|
|
]]
|