BokChoyPampersToo.rb

require './Okuda.rb'

class Okuda
 def bokchoypampers(pampers,depth,climb,xsegs,ysegs,topnuys,botnuys)
  retrax 0.1
  @zdepth = depth
  printf "G0 X%5.3f Y%5.3f Z%5.3f F%d\n", 
   @xcentre+@wchub, @ycentre-@hchub, 0.1, @@feedrate
  @okudanuk += climb/2.0 
  #depth -= 0.1
  @tiers = Integer(depth / 0.12) 
  while (@nuz >= depth) do
   @nuz -= depth / @tiers
   #@oscacc = 0
   for i in 0..3 do

    oiler=polaron(Math.sqrt(2),@okudanuk)
    @nux = oiler[0]*(@wchub-@roundel)
    @nuy = oiler[1]*(@hchub-@roundel)
    #@nuz -= 0.05
    @@feedrate = 30
	
	if pampers.include?(i) or pampers.include?((i+3)%4) then
	 @theta += climb/2.0
	 retrax 0.1 
	else arcElectron(climb/2.0,0) end

    
    @okudanuk += climb/2.0 
    euler=polaron(Math.sqrt(2),@okudanuk)
    euler[0] -= oiler[0]
    euler[1] -= oiler[1]
    if i == 0 or i == 2 then numzegs=xsegs end
	if i == 1 or i == 3 then numzegs=ysegs end
	
iterador = numzegs
	if pampers.include?((i+3)%4)
	 @nux -= euler[0]*(@wchub-@roundel)/numzegs
	 @nux -= euler[0]*(@wchub-@roundel)/numzegs
	 iterador += 1
	 #@nuy = euler[1]*(@hchub-@roundel)
	 cutt(@nux + euler[0]*(@wchub-@roundel)/numzegs,
	   @nuy +  euler[1]*(@hchub-@roundel),
	   0.1)
	end
	
	if pampers.include?(i+1)  
	 #iterador += 2
	 unless @nuz < (depth) then iterador += 1 end
	end
    for j in 1..iterador 
     @oscacc += 1
     trank = (@oscacc % 2) * 2 - 1
     @@feedrate = 35  - trank*5
     @nux += euler[0]*(@wchub-@roundel)/numzegs
     @nuy += euler[1]*(@hchub-@roundel)/numzegs
     if i == 0 then 
	  topnuys.each{|rr| 
	   if j == rr[0] then 
	    @nuy -= 0.05 end
	   if j == rr[1] then 
	    @nuy += 0.05 end
       }
	 end
     if i == 2 then 
	  botnuys.each{|rr| 
	   if j == rr[0] then 
	    @nuy += 0.05 end
	   if j == rr[1] then 
	    @nuy -= 0.05 end
       }
	 end
     @nuz += 0.2 * trank 
	 if pampers.include?(i)
	  #retrax 0.1
	  cutt(@nux + euler[0]*(@wchub-@roundel)/numzegs,
	   @nuy +  euler[1]*(@hchub-@roundel)/numzegs,
	   0.1)
	 elsif @nuz < depth and j > 1
	  cutt(@nux - euler[0]*(@wchub-@roundel)/(2*numzegs),
	   @nuy - euler[1]*(@hchub-@roundel)/(2*numzegs),
	   depth)
	  if j < numzegs then
	   cutt(@nux + euler[0]*(@wchub-@roundel)/(2*numzegs),
	   @nuy + euler[1]*(@hchub-@roundel)/(2*numzegs),
	   depth) end
	 else cut end 
    end 
   end
  @@feedrate = 40
  end
 end
end