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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Draw-a-clock/Red/draw-a-clock-1.red Normal file
View file

@ -0,0 +1,2 @@
Red [Needs: 'View]
view [t: h4 rate 1 on-time [t/data: now/time]]

17
Task/Draw-a-clock/Red/draw-a-clock-2.red Normal file
View file

@ -0,0 +1,17 @@
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
]]