Revision as of 10:29, 20 July 2022 (view source) rosettacode>AntoniGual (→‎{{header\|Wren}}) ← Older edit		Revision as of 13:09, 20 July 2022 (view source) rosettacode>AntoniGual (→‎{{header\|VBScript}}) Newer edit →
Line 5,753: const pi180=0.017453292519943 'center of the clock const r0=1513 const c0=3026 'angles Line 5,774: angn=ang0+nangi for i=1 to 12 torc r0-cint(lnsin(angn)),cint(c0+2~~(c0+~~lncos(angn))),i angn=angn+nangi next Line 5,788: 'draw them draw_line r0,2c0,cint(r0-lssin(angs)),cint(c0+2~~(c0+~~lscos(angs))),"." draw_line r0,2c0,cint(r0-lmsin(angm)),cint(c0+2~~(c0+~~lmcos(angm))),"" draw_line r0,2c0,cint(r0-lhsin(angh)),cint(c0+2~~(c0+~~lhcos(angh))),"W" torc r0,2c0,"O" 'wait one second wscript.sleep(1000) wend </lang> {{out}} <pre> 15:8:37 12 ~~12:28:14~~ 11 121 11 1▼ 10 * W2 ~~10 W 2~~ W W W W** 9 OWWWWWWWWWWWWWW ~~W .........~~3 ~~9 O~~..~~....... 3~~ .. .. . .. 8 .. 4 . ~~8 4~~ * * * ~~7 5~~ 6▼ ▲ 7 ~~11 1~~5 ▲ 6 </pre> =={{header\|Wren}}== {{trans\|Kotlin}}

Draw a clock: Difference between revisions

Draw a clock (view source)