Czy ktoś na podstawie części kodu jest w stanie określić jaki to język?
;-------------------
@change_tool
local string S_Comment
if not first_tool then
I_LastSpinDirection = I_Maks
I_LastSpinRate = I_Maks
endif
{nb}
{nb,"T"tool_number,"M6 "}
; Tool comment
{"("}
if tool_message eq "" then
S_Comment = tool_user_type
else
S_Comment = tool_message
endif
S_PolishCharsCheck = S_Comment
call @U_PolishCharsCheck
S_Comment = upper(S_PolishCharsCheck)
{S_Comment}
;// {", D=",tool_diameter:'5.3/1',", R="corner_radius:'5.3/1'}
{") "}
{nb,"G43 H"tool_number}; // Dodane G43
{nb}
if L_AbsoluteMode then
gcode = 90
else
gcode = 91
endif
{gcode}
gcode = I_HomeNr
{gcode}
if L_HomeChanged then
L_HomeChanged = FALSE
endif
gcode = 40
{gcode}
gcode = 0
{gcode,xnext:xpos_f,ynext:ypos_f}
L_ToolChanged = TRUE
N_ToolChangeX = xnext
N_ToolChangeY = ynext
N_ToolChangeZ = znext
endp
;-------------------