Acme::AGMorse - Perl extension for compiling and sending Morse code
Note: This has been tested on Ubuntu Karmic only.
#The following will send "Hello World" in Morse Code at 20 wpm and a dah #weight of three dits or 30 (1/10 resolution for dah weight control) # and a tone of 400 Hz.
use Acme::AGMorse qw(SetMorseVals SendMorseChr SendMorseMsg); SetMorseVals(20,30,400); SendMorseMsg("Hello World"); #note, caps are ingnored in Morse Code exit;
This is a library that allows the user to set up a Morse code output engine for a user defined wpm and dah weight, then send morse code messages or characters through the exportable routines. This library uses the Beep(<tone freq>,<duration>) routine for sounds and the Time::HiRes for the no sound timing and calibration.
The original code for sending Morse code was derived from programs developed by the author in 1989-1994 Ham Radio logging and rig control applications written for early Windoze
qw(SetMorseVals SendMorseChr SendMorseMsg);
None by default.
Provide more options for sound Provide option to 'key' using the printer port or serial port Provide option to input 'paddle'
Audio::Beep You must install Audio::Beep and test by typing Beep at the command line If you hear a beep all is good. If not you will need to fix Beep before continuing. Some known problems on Ubuntu: 1) pcspkr may not be available by default. run: sudo modprobe pcspkr ..... check results 2) pcspkr may be available but muted. Check: your sound prefrences, usually a right click over the speaker icon
MorseJeapordy.pl script (which is why I built this library)
paula Keezer nx1p @at@ arrl.net
Copyright (C) 2010 by Paula Keezer
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.