Nautical bell: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
SqrtNegInf (talk | contribs) m (→{{header|Tcl}}: Fix link: Perl 6 --> Raku) |
||
Line 1,912: | Line 1,912: | ||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
This code was originally based on the [[# |
This code was originally based on the [[#Raku|Raku]] version, but with numerous adaptations, alterations and (some) corrections. |
||
<lang tcl># More sophisticated versions are possible, such as playing a bell sample |
<lang tcl># More sophisticated versions are possible, such as playing a bell sample |
||
# using the Snack library. |
# using the Snack library. |