Nautical bell: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|C}}: Remove vanity tags) |
(→{{header|Mathematica}}: Submitted working program to replace old one.) |
||
Line 722: | Line 722: | ||
=={{header|Mathematica}}== |
=={{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}}== |
=={{header|OoRexx}}== |