PrusaFirmware/Firmware/mmu2.cpp

#include "mmu2.h"
#include "mmu2_error_converter.h"
#include "mmu2/error_codes.h"
#include "mmu2/errors_list.h"
#include "mmu2_fsensor.h"
#include "mmu2_log.h"
#include "mmu2_power.h"
#include "mmu2_progress_converter.h"
#include "mmu2_reporting.h"

#include "Marlin.h"
#include "language.h"
#include "messages.h"
#include "sound.h"
#include "stepper.h"
#include "strlen_cx.h"
#include "temperature.h"
#include "ultralcd.h"

// Settings for filament load / unload from the LCD menu.
// This is for Prusa MK3-style extruders. Customize for your hardware.
#define MMU2_FILAMENTCHANGE_EJECT_FEED 80.0
#define MMU2_LOAD_TO_NOZZLE_SEQUENCE \
    { 7.2, 562 },                    \
        { 14.4, 871 },               \
        { 36.0, 1393 },              \
        { 14.4, 871 },               \
    { 50.0, 198 }

#define NOZZLE_PARK_XY_FEEDRATE 50
#define NOZZLE_PARK_Z_FEEDRATE 15

// Nominal distance from the extruder gear to the nozzle tip is 87mm
// However, some slipping may occur and we need separate distances for
// LoadToNozzle and ToolChange.
// - +5mm seemed good for LoadToNozzle,
// - but too much (made blobs) for a ToolChange
static constexpr float MMU2_LOAD_TO_NOZZLE_LENGTH = 87.0F + 5.0F;

// As discussed with our PrusaSlicer profile specialist
// - ToolChange shall not try to push filament into the very tip of the nozzle
// to have some space for additional G-code to tune the extruded filament length
// in the profile
static constexpr float MMU2_TOOL_CHANGE_LOAD_LENGTH = 30.0F;

static constexpr float MMU2_LOAD_TO_NOZZLE_FEED_RATE = 20.0F;
static constexpr uint8_t MMU2_NO_TOOL = 99;
static constexpr uint32_t MMU_BAUD = 115200;

struct E_Step {
    float extrude;       ///< extrude distance in mm
    float feedRate; ///< feed rate in mm/s
};

static constexpr E_Step ramming_sequence[] PROGMEM = {
    { 1.0F,  1000.0F / 60.F},
    { 1.0F,  1500.0F / 60.F},
    { 2.0F,  2000.0F / 60.F},
    { 1.5F,  3000.0F / 60.F},
    { 2.5F,  4000.0F / 60.F},
    {-15.0F, 5000.0F / 60.F},
    {-14.0F, 1200.0F / 60.F},
    {-6.0F,   600.0F / 60.F},
    { 10.0F,  700.0F / 60.F},
    {-10.0F,  400.0F / 60.F},
    {-50.0F, 2000.0F / 60.F},
};

static constexpr E_Step load_to_nozzle_sequence[] PROGMEM = { MMU2_LOAD_TO_NOZZLE_SEQUENCE };

namespace MMU2 {

void execute_extruder_sequence(const E_Step *sequence, int steps);

template<typename F>
void waitForHotendTargetTemp(uint16_t delay, F f){
    while (((degTargetHotend(active_extruder) - degHotend(active_extruder)) > 5)) {
        f();
        delay_keep_alive(delay);
    }
}

void WaitForHotendTargetTempBeep(){
    waitForHotendTargetTemp(3000, []{ Sound_MakeSound(e_SOUND_TYPE_StandardPrompt); } );
}

MMU2 mmu2;

MMU2::MMU2()
    : logic(&mmu2Serial)
    , extruder(MMU2_NO_TOOL)
    , resume_position()
    , resume_hotend_temp(0)
    , logicStepLastStatus(StepStatus::Finished)
    , state(xState::Stopped)
    , mmu_print_saved(false)
    , loadFilamentStarted(false)
    , loadingToNozzle(false)
{
}

void MMU2::Start() {
#ifdef MMU_HWRESET
    WRITE(MMU_RST_PIN, 1);
    SET_OUTPUT(MMU_RST_PIN); // setup reset pin
#endif //MMU_HWRESET

    mmu2Serial.begin(MMU_BAUD);

    PowerOn();
    mmu2Serial.flush(); // make sure the UART buffer is clear before starting communication

    extruder = MMU2_NO_TOOL;
    state = xState::Connecting;

    // start the communication
    logic.Start();
}

void MMU2::Stop() {
    StopKeepPowered();
    PowerOff();
}

void MMU2::StopKeepPowered(){
    state = xState::Stopped;
    logic.Stop();
    mmu2Serial.close();
}

void MMU2::Reset(ResetForm level){
    switch (level) {
    case Software: ResetX0(); break;
    case ResetPin: TriggerResetPin(); break;
    case CutThePower: PowerCycle(); break;
    default: break;
    }
}

void MMU2::ResetX0() {
    logic.ResetMMU(); // Send soft reset
}

void MMU2::TriggerResetPin(){
    reset();
}

void MMU2::PowerCycle(){
    // cut the power to the MMU and after a while restore it
    // Sadly, MK3/S/+ cannot do this 
    PowerOff();
    delay_keep_alive(1000);
    PowerOn();
}

void MMU2::PowerOff(){
    power_off();
}

void MMU2::PowerOn(){
    power_on();
}

void MMU2::mmu_loop() {
    // We only leave this method if the current command was successfully completed - that's the Marlin's way of blocking operation
    // Atomic compare_exchange would have been the most appropriate solution here, but this gets called only in Marlin's task,
    // so thread safety should be kept
    static bool avoidRecursion = false;
    if (avoidRecursion)
        return;
    avoidRecursion = true;

    logicStepLastStatus = LogicStep(); // it looks like the mmu_loop doesn't need to be a blocking call
    
    avoidRecursion = false;
}

struct ReportingRAII {
    CommandInProgress cip;
    inline ReportingRAII(CommandInProgress cip):cip(cip){
        BeginReport(cip, (uint16_t)ProgressCode::EngagingIdler);
    }
    inline ~ReportingRAII(){
        EndReport(cip, (uint16_t)ProgressCode::OK);
    }
};

bool MMU2::WaitForMMUReady(){
    switch(State()){
    case xState::Stopped:
        return false;
    case xState::Connecting:
        // shall we wait until the MMU reconnects?
        // fire-up a fsm_dlg and show "MMU not responding"?
    default:
        return true;
    }
}

bool MMU2::tool_change(uint8_t index) {
    if( ! WaitForMMUReady())
        return false;

    if (index != extruder) {
        ReportingRAII rep(CommandInProgress::ToolChange);
        BlockRunoutRAII blockRunout;

        st_synchronize();

        logic.ToolChange(index); // let the MMU pull the filament out and push a new one in
        manage_response(false, false); // true, true);
        
        // reset current position to whatever the planner thinks it is
        plan_set_e_position(current_position[E_AXIS]);

        extruder = index; //filament change is finished
        SetActiveExtruder(0);

        // @@TODO really report onto the serial? May be for the Octoprint? Not important now
        //        SERIAL_ECHO_START();
        //        SERIAL_ECHOLNPAIR(MSG_ACTIVE_EXTRUDER, int(extruder));
    }
    return true;
}

/// Handle special T?/Tx/Tc commands
///
///- T? Gcode to extrude shouldn't have to follow, load to extruder wheels is done automatically
///- Tx Same as T?, except nozzle doesn't have to be preheated. Tc must be placed after extruder nozzle is preheated to finish filament load.
///- Tc Load to nozzle after filament was prepared by Tx and extruder nozzle is already heated.
bool MMU2::tool_change(char code, uint8_t slot) {
    if( ! WaitForMMUReady())
        return false;

    BlockRunoutRAII blockRunout;

    switch (code) {
    case '?': {
        waitForHotendTargetTemp(100, []{});
        load_filament_to_nozzle(slot);
    } break;

    case 'x': {
        st_synchronize();
        logic.ToolChange(slot);
        manage_response(false, false);
        extruder = slot;
        SetActiveExtruder(0);
    } break;

    case 'c': {
        waitForHotendTargetTemp(100, []{});
        execute_extruder_sequence((const E_Step *)load_to_nozzle_sequence, sizeof(load_to_nozzle_sequence) / sizeof (load_to_nozzle_sequence[0]));
    } break;
    }

    return true;
}

uint8_t MMU2::get_current_tool() const {
    return extruder == MMU2_NO_TOOL ? -1 : extruder;
}

bool MMU2::set_filament_type(uint8_t index, uint8_t type) {
    if( ! WaitForMMUReady())
        return false;
    
    // @@TODO - this is not supported in the new MMU yet
    // cmd_arg = filamentType;
    // command(MMU_CMD_F0 + index);

    manage_response(false, false); // true, true);
    
    return true;
}

bool MMU2::unload() {
    if( ! WaitForMMUReady())
        return false;

    WaitForHotendTargetTempBeep();

    {
        ReportingRAII rep(CommandInProgress::UnloadFilament);
        filament_ramming();

        logic.UnloadFilament();
        manage_response(false, false); // false, true);
        Sound_MakeSound(e_SOUND_TYPE_StandardConfirm);

        // no active tool
        extruder = MMU2_NO_TOOL;
    }
    return true;
}

bool MMU2::cut_filament(uint8_t index){
    if( ! WaitForMMUReady())
        return false;

    ReportingRAII rep(CommandInProgress::CutFilament);
    logic.CutFilament(index);
    manage_response(false, false); // false, true);
    
    return true;
}

bool MMU2::load_filament(uint8_t index) {
    if( ! WaitForMMUReady())
        return false;

    ReportingRAII rep(CommandInProgress::LoadFilament);
    logic.LoadFilament(index);
    manage_response(false, false);
    Sound_MakeSound(e_SOUND_TYPE_StandardConfirm);
    
    return true;
}

struct LoadingToNozzleRAII {
    MMU2 &mmu2;
    explicit inline LoadingToNozzleRAII(MMU2 &mmu2):mmu2(mmu2){
        mmu2.loadingToNozzle = true;
    }
    inline ~LoadingToNozzleRAII(){
        mmu2.loadingToNozzle = false;
    }
};

bool MMU2::load_filament_to_nozzle(uint8_t index) {
    if( ! WaitForMMUReady())
        return false;

    LoadingToNozzleRAII ln(*this);
    
    WaitForHotendTargetTempBeep();
    
    {
        // used for MMU-menu operation "Load to Nozzle"
        ReportingRAII rep(CommandInProgress::ToolChange);
        BlockRunoutRAII blockRunout;

        if( extruder != MMU2_NO_TOOL ){ // we already have some filament loaded - free it + shape its tip properly
            filament_ramming();
        }
        
        logic.ToolChange(index);
        manage_response(false, false); // true, true);

        // reset current position to whatever the planner thinks it is
        plan_set_e_position(current_position[E_AXIS]);
        
        extruder = index;
        SetActiveExtruder(0);

        Sound_MakeSound(e_SOUND_TYPE_StandardConfirm);
        return true;
    }
}

bool MMU2::eject_filament(uint8_t index, bool recover) {
    if( ! WaitForMMUReady())
        return false;

    WaitForHotendTargetTempBeep();

    ReportingRAII rep(CommandInProgress::EjectFilament);
    current_position[E_AXIS] -= MMU2_FILAMENTCHANGE_EJECT_FEED;
    plan_buffer_line_curposXYZE(2500.F / 60.F);
    st_synchronize();
    logic.EjectFilament(index);
    manage_response(false, false);

    if (recover) {
        //        LCD_MESSAGEPGM(MSG_MMU2_EJECT_RECOVER);
        Sound_MakeSound(e_SOUND_TYPE_StandardPrompt);
//@@TODO        wait_for_user = true;
        
        //#if ENABLED(HOST_PROMPT_SUPPORT)
        //        host_prompt_do(PROMPT_USER_CONTINUE, PSTR("MMU2 Eject Recover"), PSTR("Continue"));
        //#endif
        //#if ENABLED(EXTENSIBLE_UI)
        //        ExtUI::onUserConfirmRequired_P(PSTR("MMU2 Eject Recover"));
        //#endif
        
//@@TODO        while (wait_for_user) idle(true);
        
        Sound_MakeSound(e_SOUND_TYPE_StandardConfirm);
        // logic.Command(); //@@TODO command(MMU_CMD_R0);
        manage_response(false, false);
    }

    // no active tool
    extruder = MMU2_NO_TOOL;
    Sound_MakeSound(e_SOUND_TYPE_StandardConfirm);
//    disable_E0();

    return true;
}

void MMU2::Button(uint8_t index){
    logic.Button(index);
}

void MMU2::Home(uint8_t mode){
    logic.Home(mode);
}

void MMU2::SaveAndPark(bool move_axes, bool turn_off_nozzle) {
    if (!mmu_print_saved) { // First occurrence. Save current position, park print head, disable nozzle heater.
        LogEchoEvent("Saving and parking");
        st_synchronize();

        mmu_print_saved = true;

        resume_hotend_temp = degTargetHotend(active_extruder);

        if (move_axes){
            // save current pos
            for(uint8_t i = 0; i < 3; ++i){
                resume_position.xyz[i] = current_position[i];
            }

            // lift Z
            current_position[Z_AXIS] += Z_PAUSE_LIFT;
            if (current_position[Z_AXIS] > Z_MAX_POS) 
                current_position[Z_AXIS] = Z_MAX_POS;
            plan_buffer_line_curposXYZE(NOZZLE_PARK_Z_FEEDRATE);
            st_synchronize();

            // move XY aside
            current_position[X_AXIS] = X_PAUSE_POS;
            current_position[Y_AXIS] = Y_PAUSE_POS;
            plan_buffer_line_curposXYZE(NOZZLE_PARK_XY_FEEDRATE);
            st_synchronize();
        }

        if (turn_off_nozzle){
            LogEchoEvent("Heater off");
            setAllTargetHotends(0);
        }
    }
    // keep the motors powered forever (until some other strategy is chosen)
    // @@TODO do we need that in 8bit?
    // gcode.reset_stepper_timeout();
}

void MMU2::ResumeAndUnPark(bool move_axes, bool turn_off_nozzle) {
    if (mmu_print_saved) {
        LogEchoEvent("Resuming print");

        if (turn_off_nozzle && resume_hotend_temp) {
            MMU2_ECHO_MSG("Restoring hotend temperature ");
            SERIAL_ECHOLN(resume_hotend_temp);
            setTargetHotend(resume_hotend_temp, active_extruder);
            waitForHotendTargetTemp(3000, []{
                lcd_display_message_fullscreen_P(_i("MMU OK. Resuming temperature...")); // better report the event and let the GUI do its work somewhere else
            });
            LogEchoEvent("Hotend temperature reached");
        }

        if (move_axes) {
            LogEchoEvent("Resuming XYZ");

            current_position[X_AXIS] = resume_position.xyz[X_AXIS];
            current_position[Y_AXIS] = resume_position.xyz[Y_AXIS];
            plan_buffer_line_curposXYZE(NOZZLE_PARK_XY_FEEDRATE);
            st_synchronize();
            
            current_position[Z_AXIS] = resume_position.xyz[Z_AXIS];
            plan_buffer_line_curposXYZE(NOZZLE_PARK_Z_FEEDRATE);
            st_synchronize();
        } else {
            LogEchoEvent("NOT resuming XYZ");
        }
    }
}

void MMU2::CheckUserInput(){
    auto btn = ButtonPressed((uint16_t)lastErrorCode);
    switch (btn) {
    case Left:
    case Middle:
    case Right:
        Button(btn);
        break;
    case RestartMMU:
        Reset(CutThePower);
        break;
    case StopPrint:
        // @@TODO not sure if we shall handle this high level operation at this spot
        break;
    default:
        break;
    }
}

/// Originally, this was used to wait for response and deal with timeout if necessary.
/// The new protocol implementation enables much nicer and intense reporting, so this method will boil down
/// just to verify the result of an issued command (which was basically the original idea)
///
/// It is closely related to mmu_loop() (which corresponds to our ProtocolLogic::Step()), which does NOT perform any blocking wait for a command to finish.
/// But - in case of an error, the command is not yet finished, but we must react accordingly - move the printhead elsewhere, stop heating, eat a cat or so.
/// That's what's being done here...
void MMU2::manage_response(const bool move_axes, const bool turn_off_nozzle) {
    mmu_print_saved = false;

    KEEPALIVE_STATE(PAUSED_FOR_USER);

    for (;;) {
        // in our new implementation, we know the exact state of the MMU at any moment, we do not have to wait for a timeout
        // So in this case we shall decide if the operation is:
        // - still running -> wait normally in idle()
        // - failed -> then do the safety moves on the printer like before
        // - finished ok -> proceed with reading other commands
        manage_heater();
        manage_inactivity(true); // calls LogicStep() and remembers its return status
        lcd_update(0);

        switch (logicStepLastStatus) {
        case Finished: 
            // command/operation completed, let Marlin continue its work
            // the E may have some more moves to finish - wait for them
            st_synchronize(); 
            return;
        case VersionMismatch: // this basically means the MMU will be disabled until reconnected
            return;
        case CommunicationTimeout:
        case CommandError:
        case ProtocolError:
            SaveAndPark(move_axes, turn_off_nozzle); // and wait for the user to resolve the problem
            CheckUserInput();
            break;
        case CommunicationRecovered: // @@TODO communication recovered and may be an error recovered as well
            // may be the logic layer can detect the change of state a respond with one "Recovered" to be handled here
            ResumeAndUnPark(move_axes, turn_off_nozzle);
            break;
        case Processing: // wait for the MMU to respond
        default:
            break;
        }
    }
}

StepStatus MMU2::LogicStep() {
    StepStatus ss = logic.Step();
    switch (ss) {
    case Finished:
    case Processing:
        OnMMUProgressMsg(logic.Progress());
        break;
    case CommandError:
        ReportError(logic.Error());
        break;
    case CommunicationTimeout:
        state = xState::Connecting;
        ReportError(ErrorCode::MMU_NOT_RESPONDING);
        break;
    case ProtocolError:
        state = xState::Connecting;
        ReportError(ErrorCode::PROTOCOL_ERROR);
        break;
    case VersionMismatch:
        StopKeepPowered();
        ReportError(ErrorCode::VERSION_MISMATCH);
        break;
    default:
        break;
    }
    
    if( logic.Running() ){
        state = xState::Active;
    }
    return ss;
}

void MMU2::filament_ramming() {
    execute_extruder_sequence((const E_Step *)ramming_sequence, sizeof(ramming_sequence) / sizeof(E_Step));
}

void MMU2::execute_extruder_sequence(const E_Step *sequence, uint8_t steps) {
    st_synchronize();
    const E_Step *step = sequence;
    for (uint8_t i = 0; i < steps; i++) {
        current_position[E_AXIS] += pgm_read_float(&(step->extrude));
        plan_buffer_line_curposXYZE(pgm_read_float(&(step->feedRate)));
        st_synchronize();
        step++;
    }
}

void MMU2::SetActiveExtruder(uint8_t ex){ 
    active_extruder = ex; 
}

void MMU2::ReportError(ErrorCode ec) {
    // Due to a potential lossy error reporting layers linked to this hook
    // we'd better report everything to make sure especially the error states
    // do not get lost. 
    // - The good news here is the fact, that the MMU reports the errors repeatedly until resolved.
    // - The bad news is, that MMU not responding may repeatedly occur on printers not having the MMU at all.
    // 
    // Not sure how to properly handle this situation, options:
    // - skip reporting "MMU not responding" (at least for now)
    // - report only changes of states (we can miss an error message)
    // - may be some combination of MMUAvailable + UseMMU flags and decide based on their state
    // Right now the filtering of MMU_NOT_RESPONDING is done in ReportErrorHook() as it is not a problem if mmu2.cpp
    ReportErrorHook((CommandInProgress)logic.CommandInProgress(), (uint16_t)ec);

    if( ec != lastErrorCode ){ // deduplicate: only report changes in error codes into the log
        lastErrorCode = ec;

        // Log error format: MMU2:E=32766 ErrorTitle TextDescription

        // The longest error description in errors_list.h is 144 bytes.
        // and the longest error title is 20 bytes. msg buffer needs
        // to have enough space to fit both.
        //char msg[192];
        //int len = snprintf(msg, sizeof(msg), "MMU2:E=%hu ", (uint16_t)ec);
        // Append a human readable form of the error code(s)
        //TranslateErr((uint16_t)ec, &msg[len], 192 - len);

        const uint16_t ei = MMUErrorCodeIndex((uint16_t)ec);
          // Testing
        uint8_t choice_selected = 0;
        back_to_choices:
        // 504 = ERR_SYSTEM_VERSION_MISMATCH
        lcd_clear();
        lcd_update_enable(false);
        lcd_printf_P(PSTR("%S\nprusa3d.com/ERR04%hu"),
            static_cast<const char * const>(pgm_read_ptr(&errorTitles[ei])),
            reinterpret_cast<uint16_t>(const_cast<void*>(pgm_read_ptr(&errorCodes[ei])))
        );
        choice_selected = lcd_show_multiscreen_message_two_choices_and_wait_P(
            NULL, // NULL, since title screen is not in PROGMEM
            false,
            false,
            btnRetry,
            btnContinue,
            btnMore,
            7,
            13
        );

        if (choice_selected == 2) {
            // 'More' show error description
            lcd_show_fullscreen_message_and_wait_P(
                static_cast<const char * const>(pgm_read_ptr(&errorDescs[ei]))
            );

            // Return back to the choice menu
            goto back_to_choices;
        } else if(choice_selected == 1) {
            // 'Done' return to status screen
            lcd_update_enable(true);
            lcd_return_to_status();
        } else {
            // 'Retry' TODO: not yet implemented
            lcd_update_enable(true);
            lcd_return_to_status();
        }

        // beware - the prefix in the message ("MMU2") will get stripped by the logging subsystem
        // and a correct MMU2 component will be assigned accordingly - see appmain.cpp
        // Therefore I'm not calling MMU2_ERROR_MSG or MMU2_ECHO_MSG here
        //SERIAL_ECHO_START;
        //SERIAL_ECHOLN(msg);
    }

    static_assert(mmu2Magic[0] == 'M' 
        && mmu2Magic[1] == 'M' 
        && mmu2Magic[2] == 'U' 
        && mmu2Magic[3] == '2' 
        && mmu2Magic[4] == ':' 
        && strlen_constexpr(mmu2Magic) == 5, 
        "MMU2 logging prefix mismatch, must be updated at various spots"
    );
}

void MMU2::ReportProgress(ProgressCode pc) {
    ReportProgressHook((CommandInProgress)logic.CommandInProgress(), (uint16_t)pc);

    // Log progress - example: MMU2:P=123 EngageIdler
    char msg[64];
    int len = snprintf(msg, sizeof(msg), "MMU2:P=%hu ", (uint16_t)pc);
    // Append a human readable form of the progress code
    TranslateProgress((uint16_t)pc, &msg[len], 64 - len);

    SERIAL_ECHO_START;
    SERIAL_ECHOLN(msg);
}

void MMU2::OnMMUProgressMsg(ProgressCode pc){
    if( pc != lastProgressCode){
        ReportProgress(pc);
        lastProgressCode = pc;

        // Act accordingly - one-time handling
        switch(pc){
        case ProgressCode::FeedingToBondtech:
            // prepare for the movement of the E-motor
            st_synchronize();
            loadFilamentStarted = true;
            break;
        case ProgressCode::FeedingToNozzle:
            // Nothing yet
            break;
        default:
            // do nothing yet
            break;
        }
    } else {
        // Act accordingly - every status change (even the same state)
        switch(pc){
        case ProgressCode::FeedingToBondtech:
            if ( loadFilamentStarted )
            {
                switch ( WhereIsFilament() )
                {
                case FilamentState::AT_FSENSOR:
                    // fsensor triggered, stop moving the extruder
                    loadFilamentStarted = false;
                    // TODO: continue to ProgressCode::FeedingToNozzle?
                    break;
                case FilamentState::NOT_PRESENT:
                    // fsensor not triggered, continue moving extruder
                    // TODO: Verify what's the best speed here?
                    current_position[E_AXIS] += MMU2_LOAD_TO_NOZZLE_FEED_RATE;
                    plan_buffer_line_curposXYZE(MMU2_LOAD_TO_NOZZLE_FEED_RATE);
                    st_synchronize(); // Wait for the steps to be done, otherwise the moves will just add up
                default:
                    // Abort here?
                    break;
                }
            }
            break;
        case ProgressCode::FeedingToNozzle:
            // Nothing yet
            break;
        default:
            // do nothing yet
            break;
        }
    }
}

void MMU2::LogErrorEvent(const char *msg){
    MMU2_ERROR_MSG(msg);
    SERIAL_ECHOLN();
}

void MMU2::LogEchoEvent(const char *msg){
    MMU2_ECHO_MSG(msg);
    SERIAL_ECHOLN();
}

} // namespace MMU2