TSA Program

--variable storage / setup
tFile = {}
hFile = {}
gFile = {}
eFile = {}
bFile = {}
pFile = {}
aFile = {}
mFile = {}
cFile = {}
spoolLeft = 5000
sPos = 1
--file
local function loadTheFile() --Hello! load is already a lua function, so I'm calling this loadTheFile instead.
tFile = {"G01 X0.0 Y0.0 Z0.0","G01 X2.0 Y2.0","G01 Z1.0","M30"}
end
--chop
local function bananaSplit()
for k,v in pairs(tFile) do
cFile[k] = v
if v == "M30" then
cFile[k] = "G01 X0.0 Y0.0 Z0.0"
break
end
end
--split into metatables
local tCon = ""
for i = 1,#cFile do
local mCon = {}
mFile[i] = {}
tCon = string.sub(cFile[i],5)
for m in string.gmatch(tCon,"%S+") do
mCon[#mCon+1] = m
end
mFile[i][1] = mCon[1]
if mCon[2] then
mFile[i][2] = mCon[2]
end
if mCon[3] then
mFile[i][3] = mCon[3]
end
end
--arrange by value and inherit
local vCon = ""
local rCon = ""
for i = 1,#mFile do
aFile[i] = {}
for o = 1,#mFile[i] do
vCon = string.sub(mFile[i][o],1,1)
rCon = string.sub(mFile[i][o],2)
if vCon == "X" then
aFile[i][1] = rCon
elseif vCon == "Y" then
aFile[i][2] = rCon
elseif vCon == "Z" then
aFile[i][3] = rCon
end
end
for o = 1,3 do
if aFile[i][o] == nil then
aFile[i][o] = aFile[i-1][o]
end
end
end
end
local function distanceBetween()
--multiply by 100 as done by example --WORKS HERE!
for i = 1,#aFile do
pFile[i] = {}
for o = 1,3 do
pFile[i][o] = tonumber(aFile[i][o])*100
end
end
--calculate between
pFile[0] = {}
pFile[0][1],pFile[0][2],pFile[0][3] = 0,0,0
for i = 1,#pFile do
bFile[#bFile+1] = math.sqrt((math.abs(pFile[i][1]-pFile[i-1][1])^2)+(math.abs((pFile[i][2]-pFile[i-1][2]))^2))
bFile[#bFile] = math.sqrt((bFile[#bFile]^2)+(math.abs(pFile[i][3]-pFile[i-1][3])^2))
if bFile[#bFile] == 0 then
table.remove(bFile,#bFile)
end
end
--calculate time each
for i = 1,#bFile do
eFile[i] = bFile[i]/20
end
--calculate time left at each spot
local gCon = 0
for i = 1,#eFile do
gCon = 0
for o = i,#eFile do
gCon = gCon + eFile[o]
end
gFile[i] = gCon
end
--format time left at each spot, for printing
local hFirst = 0
local hLast = 0
for i = 1,#gFile do
hLast = math.floor(gFile[i]%60)
hFirst = math.floor((gFile[i]-hLast)/60)
hFile[i] = "Time Remaining: "..hFirst..":"..hLast
end
end
--step
local function step(sPos)
if sPos < #pFile then
return sPos+1 --Tells the program where the coordinates are
else
return "break"
end
end
local function printStatus(sPos)
print("Position: "..pFile[sPos][1]..", "..pFile[sPos][2]..", "..pFile[sPos][3])
if hFile[sPos] then
print(hFile[sPos])
end
end
--[[
/*
Code time
*/
]]--
loadTheFile()
bananaSplit()
distanceBetween()
while true do
if bFile[sPos] then
spoolLeft = spoolLeft - bFile[sPos]
end
if spoolLeft <= 0 then
print("Spool is empty; please replace. (press enter)")
read()
spoolLeft = 5000
end
printStatus(sPos)
continue = step(sPos)
if continue ~= "break" then
sPos = continue
else
break
end
end
print("Program Complete")