rs-to-fuel

local monitor = peripheral.wrap("left")

local mon, monX, monY
monX, monY = monitor.getSize()
mon = {}
mon.monitor,mon.X, mon.Y = monitor, monX, monY

function clear(mon)
    term.clear()
    term.setCursorPos(1,1)
    mon.monitor.setBackgroundColor(colors.black)
    mon.monitor.clear()
    mon.monitor.setCursorPos(1,1)
end

function draw_text(mon, x, y, text, text_color, bg_color)
    mon.monitor.setBackgroundColor(bg_color)
    mon.monitor.setTextColor(text_color)
    mon.monitor.setCursorPos(x,y)
    mon.monitor.write(text)
end

function draw_text_right(mon, offset, y, text, text_color, bg_color)
    mon.monitor.setBackgroundColor(bg_color)
    mon.monitor.setTextColor(text_color)
    mon.monitor.setCursorPos(mon.X-string.len(tostring(text))-offset,y)
    mon.monitor.write(text)
end

function draw_text_lr(mon, x, y, offset, text1, text2, text1_color, text2_color, bg_color)
    draw_text(mon, x, y, text1, text1_color, bg_color)
    draw_text_right(mon, offset, y, text2, text2_color, bg_color)
end

function update()
    while true do
        clear(mon)

        local rsignal
        rsignal = redstone.getAnalogInput("right")
        print("RSignal: " .. rsignal)

        draw_text(mon, 4, 2, "1", colors.lightGray, colors.white)
        draw_text(mon, 3, 3, "11", colors.lightGray, colors.white)
        draw_text(mon, 4, 4, "1", colors.lightGray, colors.white)
        draw_text(mon, 4, 5, "1", colors.lightGray, colors.white)
        draw_text(mon, 3, 6, "111", colors.lightGray, colors.white)

        local fuelColor
        fuelColor = colors.gray

        if rsignal == 16 then fuelColor = colors.lime end
        if rsignal <= 15 and rsignal >= 12 then fuelColor = colors.green end
        if rsignal <= 11 and rsignal >= 9 then fuelColor = colors.orange end
        if rsignal == 8 or rsignal == 0 then fuelColor = colors.red end

        if rsignal == 16 then draw_text(mon, 3, 8, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 8, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 15 then draw_text(mon, 3, 9, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 9, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 14 then draw_text(mon, 3, 10, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 10, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 13 then draw_text(mon, 3, 11, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 11, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 12 then draw_text(mon, 3, 12, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 12, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 11 then draw_text(mon, 3, 13, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 13, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 10 then draw_text(mon, 3, 14, "   ", colors.lightGray, fuelColor)
                         else draw_text(mon, 3, 14, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 9 then draw_text(mon, 3, 15, "   ", colors.lightGray, fuelColor)
                        else draw_text(mon, 3, 15, "   ", colors.lightGray, colors.gray) end
        if rsignal >= 8 then draw_text(mon, 3, 16, "   ", colors.lightGray, fuelColor)
                        else draw_text(mon, 3, 16, "OFF", fuelColor, colors.gray) end


        sleep(0.1)
    end
end

parallel.waitForAny(update)