[SUBROUTINE]
name = Rolling
type = Rolling
icon = icons/lathe-surface.png
image = images/lathe-surface.png
help = Многопроходная проточка цилиндра.  
order = roll_Z0 roll_X0 roll_safe roll_Z1 roll_X1 roll_rdepth roll_rough_feed roll_allowance roll_pdepth roll_fin_feed

[PARAM_roll_safe]
name = Safe distance
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Безопасное расстояние
value = 2

[PARAM_roll_Z1]
name = Z1
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Конечная координата Z
value = 0

[PARAM_roll_Z0]
name = Z0
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Исходная координата Z 
value = 15

[PARAM_roll_rdepth]
name = rdepth
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Черновая глубина реза 
value = 1


[PARAM_roll_fdepth]
name = fdepth
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Чистовая глубина реза 
value = 0.5

[PARAM_roll_allowance]
name = Finishing allowance
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Припуск на чистовую обработку 
value = 0.2


[PARAM_roll_X0]
name = X start
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Исходный диаметр обработки
value = 11

[PARAM_roll_X1]
name = X finish
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Конечный диаметр обработки
value = 7

[PARAM_roll_fin_feed]
name = Finishing feed
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Подача резанья при чистовой обработке
value = 100

[PARAM_roll_rough_feed]
name = Roughing feed
type = float
icon = icons/line.png
image = images/line.png
tool_tip = Подача резанья при черновой обработке
value = 300



[DEFINITIONS]
content = 

	
[CALL]
content =

        #<fcut> = #param_roll_fdepth                            ; Глубина реза при чистовой обработке
        #<allowance> = #param_roll_allowance                    ; Припуск на чистовую обработку
        #<xfinish> = #param_roll_x1                             ; Чистовая конечная координата по X
        #<xstart> = #param_roll_x0                              ; Начальная координата по X
        #<xrough> = [#<xfinish> + #<allowance>]                 ; Черновая конечная по X
        #<rf> = #param_roll_rough_feed                          ; Подача при черновой обработке
        #<ff> = #param_roll_fin_feed                            ; Подача при чистовой обработке

        #<rcut> = #param_roll_rdepth                            ; Глубина реза при черновой обработке
        #<safe> = #param_roll_safe                              ; Безопасное расстояние
        ; Расчет толщины торца
        #<l> = [ABS[#param_roll_z1 - #param_roll_z0] + #<safe>]  ; Длина цилиндра
        (                  0             15               2                                                         )
       ; Расчет колличества проходов при черновой обработке
 

       #<dzx> = ABS[ #<xfinish> + #<allowance> - #<xstart> ]
       #<nn> =  [[#<dzx> - [#<dzx> mod #<rcut>]] / #<rcut>]         ; Колличество проходов при черновой обработке
       #<pass> = 0      
    
        G90 G0 X[#param_roll_x0 + #<safe>] Z[#param_roll_z0 + #<safe>]
        G91 G1 X-[#<safe>] F[#<rf>]
               Z[-#<l> + #<allowance>]
               X[#<safe>] 
            G0 Z[#<l> - #<allowance>]
               
        o102 do
        G91 G1 X-[#<safe> + #<rcut>] F[#<rf>]
               Z[-#<l> + #<allowance>]
               X[#<safe>] 
            G0 Z[#<l> - #<allowance>]
        #<pass> = [#<pass>+1]
        o102 while [#<pass> LT [#<nn>]]
        ; Последний черновой проход 
        G90 G1 X[#<xfinish> + #<allowance> ] F[#<rf>]
        G91 G1 Z[-#<l> + #<allowance>] F[#<rf>]
               X[#<safe>] 
            G0 Z[#<l> - #<allowance>]
        ; Чистовой проход
        o103 if [#<allowance> GT #<fcut>]
        (print,Error: Finish cut leather then allowance for finishing!)
 
        o103 endif
       (print,Info: Finishing!)
        G90 G1 X[#<xfinish>] F[#<ff>]
        G91 G1 Z-[#<l>] F[#<ff>]
        G90 G1 X[#param_roll_x0 + #<safe>]
        G91 G0 Z[#<l>]
        G90 
         
        
        
 
       
      	

[BEFORE]
content = 
		
[AFTER]
content =