Page 31 - 4352

' із включенням правої корекції радіуса інструмента, вивести
' функцію G42 з коректором за адресою D:
elseif contour_to_r# then
write id1# using "G42D%.2d", cutter_r_crtr#
' Інакше якщо аналізована команда є "відходом" від контуру
' (на ньому відбувається вимикання корекції радіуса
' інструмента) то вивести функції G40
elseif contour_from# then
write id1# using "G40"
endif
if (primitive#=ARC_CLW#) OR (primitive#=ARC_CCLW#) then
' Для кругової інтерполяції вивести X, Y, I, J :
write id1# using "X%+.f", x * RDISCR
write id1# using "Y%+.f", y * RDISCR
write id1# using "I%+.f", i * RDISCR
write id1# using "J%+.f", j * RDISCR
elseif (primitive# = LINE#) OR (primitive# = LOCATE#) then
' Інакше, для позиціювання або лінійної інтерполяції вивести
' X, Y, Z, причому запис за адресою X, якщо збільшення цієї
' координати, dx, не дорівнює 0 :
if dx<>0.0 then
write id1# using "X%+.f", x * RDISCR
endif
' Запис за адресою Y, якщо збільшення цієї координати, dy,
' не дорівнює 0:
if dy<>0.0 then
write id1# using "Y%+.f", y * RDISCR
endif
' Запис за адресою Z, якщо збільшення цієї координати, dz,
' не дорівнює 0:
if dz<>0.0 then
write id1# using "Z%+.f", z * RDISCR
endif
endif

if (primitive# ПРО LOCATE#) AND (f<>f_) then
' Вивід подачі, якщо переміщення не є рухом з G00 і на
' даному переміщенні задане нове значення подачі.
' Зверніть увагу на розміщення дужок в умові.
write id1# using "F%.15g", f
endif
write id1# using "%s", NL$ ' Завершення кадру - символ LF
endif

LOOP
' кінець опису й кінець файлу SMPL3.PSS
'***********************************************************

30