Jump to content

Nautical bell: Difference between revisions

Nautical bell (view source)

Revision as of 18:44, 29 July 2018

10 bytes added ,  5 years ago
→‎{{header|Mathematica}}: Submitted working program to replace old one.
m (→‎{{header|C}}: Remove vanity tags)
(→‎{{header|Mathematica}}: Submitted working program to replace old one.)
Line 722:
=={{header|Mathematica}}==
Works on version 11.2 ARM, a bug prevents this from working on version 11.3 Win64.
{{incorrect|Mathematica|A nautical bell does not just chime once on the hour. It follows a specific pattern. The number of chimes indicate how many half-hour increments have passed on a four hour 'watch'.}}
 
<lang Mathematica>SessionSubmit[ScheduledTask[EmitSound[SoundNote["C", 1, "TubularBells"]], "Hourly"]]</lang>
<lang Mathematica>LocalSubmit[ScheduledTask[
EmitSound[Sound[Table[{
SoundNote["C",750/1000,"TubularBells"],SoundNote[None,500/1000,"TubularBells"]
},Mod[Round[Total[DateList[][[{4,5}]]{2,1/30}]],8,1]]]]
,DateObject[{_,_,_,_,_,30|0}]]]</lang>
 
=={{header|OoRexx}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/226472"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information