mirror of
https://github.com/elua/elua.git
synced 2025-01-25 01:02:54 +08:00
45285ea064
- complete rewrite of the PIO module. New usage: pio.PA = 10 -- set the value of PA to 10 pio.PB_1 = 1 -- set the value of pin 1 of PB to 1 local value = pio.PB -- get the value of PB local value = pio.PB_3 -- get the value of pin 3 of PB pio.PA_DIR = pio.OUTPUT/pio.INPUT - set the direction of PA pio.dir[ pio.PA ] = pio.OUTPUT/pio.INPUT - same as above pio.PA_2_DIR = pio.OUTPUT/pio.INPUT - set the direction of pin 2 of PA pio.dir[ pio.PA_2 ] = pio.OUTPUT/pio.INPUT - same as above pio.PA_PULL = pio.PULLUP/pio.PULLDOWN/pio.NOPULL - set pulls on PA pio.pull[ pio.PA ] = pio.PULLUP/pio.PULLDOWN/pio.NOPULL - same as above pio.P0_3_PULL = pio.PULLUP/pio.PULLDOWN/pio.NOPULL - set pulls on pin 3 of P0 pio.pull[ pio.P0_3 ] = pio.PULLUP/pio.PULLDOWN/pio.NOPULL - same as above - samples modified to use the new PIO syntax - bugfix in AT91SAM7X256 UART int handler - fixed yet another bug in AVR32's libc (actually replaced strcmp (which is broken on AVR32) with a custom version).
133 lines
3.4 KiB
Lua
133 lines
3.4 KiB
Lua
-------------------------------------------------------------------------------
|
|
-- eLua Morse Demo
|
|
--
|
|
-- Dado Sutter sep 2008
|
|
-------------------------------------------------------------------------------
|
|
|
|
local pwmid, tmrid, ledpin
|
|
if pd.board() == "EK-LM3S8962" or pd.board() == "EK-LM3S6965" then
|
|
pwmid, tmrid, ledpin = 1, 1, "PF_0"
|
|
elseif pd.board() == "SAM7-EX256" then
|
|
pwmid, tmrid, ledpin = 0, 1, "PB_20"
|
|
tmr.setclock( 1, 100000 )
|
|
else
|
|
print( pd.board() .. " not supported with this example" )
|
|
return
|
|
end
|
|
|
|
------------ User Adjusted Variables ------------
|
|
|
|
local dotDelay, playFreq, playFreqSave = 90000, 880, 880
|
|
local freqStep, dotDelayStep = 220, 10000
|
|
|
|
-- Morse Alphabet
|
|
local Morse = {
|
|
A='.-',
|
|
B='-...',
|
|
C='-.-.',
|
|
D='-..',
|
|
E='.',
|
|
F='..-.',
|
|
G='--.',
|
|
H='....',
|
|
I='..',
|
|
J='.---',
|
|
K='-.-',
|
|
L='.-..',
|
|
M='--',
|
|
N='-.',
|
|
O='---',
|
|
P='.--.',
|
|
Q='--.-',
|
|
R='.-.',
|
|
S='...',
|
|
T='-',
|
|
U='..-',
|
|
V='...-',
|
|
W='.--',
|
|
X='-..-',
|
|
Y='-.--',
|
|
Z='--..'
|
|
}
|
|
|
|
------------ Auxiliar Functions ------------
|
|
|
|
local function play(m)
|
|
term.putstr(m)
|
|
if m == ' ' then
|
|
tmr.delay(tmrid, 2 * dotDelay)
|
|
else
|
|
pio[ledpin] = 1
|
|
pwm.start(pwmid)
|
|
tmr.delay(tmrid, m == '.' and dotDelay or 3 * dotDelay)
|
|
pwm.stop(pwmid)
|
|
pio[ledpin] = 0
|
|
tmr.delay(tmrid, dotDelay)
|
|
end
|
|
end
|
|
|
|
local function HandleKbd(k)
|
|
if k == term.KC_ESC then
|
|
return true
|
|
elseif k == term.KC_UP then -- Speed up
|
|
dotDelay = dotDelay + dotDelayStep
|
|
elseif k == term.KC_DOWN then -- Speed down
|
|
dotDelay = dotDelay - dotDelayStep
|
|
elseif k > 0 and k < 256 then
|
|
if string.char(k) == '+' then -- Frequency up
|
|
playFreq = playFreq + freqStep
|
|
elseif string.char(k) == '-' then -- Frequency down
|
|
playFreq = playFreq - freqStep
|
|
elseif string.char(k) == 's' then -- Sound on/off
|
|
if playFreq == 0 then
|
|
playFreq = playFreqSave
|
|
else
|
|
playFreqSave = playFreq
|
|
playFreq = 0
|
|
end
|
|
end
|
|
end
|
|
pwm.setup(pwmid, playFreq, 50)
|
|
end
|
|
|
|
------------ Main Program ------------
|
|
pio.dir[ledpin] = pio.OUTPUT
|
|
pwm.setup( pwmid, playFreq, 50 )
|
|
|
|
while true do
|
|
term.clrscr()
|
|
term.gotoxy(0, 0)
|
|
print("Welcome to eLua Morse Playing on " .. pd.cpu())
|
|
io.write("Enter phrase (empty phrase to exit): ")
|
|
local msg, enabled = io.read(), true
|
|
if #msg == 0 then break end
|
|
|
|
term.putstr(' ')
|
|
while term.getch(term.NOWAIT) ~= -1 do end -- flush
|
|
|
|
while enabled do -- Main Loop
|
|
for i = 1, #msg do -- msg loop
|
|
local ch = msg:sub(i, i):upper()
|
|
term.putstr(ch) -- show what will be played
|
|
if ch ~= ' ' and Morse[ch] then
|
|
for j = 1, #Morse[ch] do -- Morse symbol loop
|
|
play(Morse[ch]:sub(j,j)) -- play each morse symbol
|
|
end
|
|
else
|
|
play(' ') play(' ') -- Between words
|
|
end
|
|
play(' ') -- Extra between words & lett
|
|
key = term.getch(term.NOWAIT) -- Handle UI actions
|
|
if key ~= -1 then
|
|
if HandleKbd(key) then
|
|
enabled = false
|
|
break
|
|
end
|
|
end
|
|
end
|
|
if not enabled then break end
|
|
print()
|
|
play(' ') play(' ') play(' ') -- Between sentences
|
|
end
|
|
end
|