Szukam dobrego suba wybranie na pasek klinowy

Kod: Zaznacz cały

( ------------------------------ )
(  P A S E K   K L I N O W Y     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2019-09-26 09:18> )
( ------------------------------ )

(info: Rowek na pasek klinowy A )

o<pasek_klinowy> sub 

#<obr> = #1 (=400 obroty)
#<sr_kola> = #2 (=200 średnica koła)
#<kanal> = #3 (=4 szerokość kanału)
#<pas> = #4 (=17 szerokość pasa)
#<noz> = #5 (=2 szerokość noża)
#<dobieranie> = #6 (=1 dobieranie)
#<posuw_obrot> = #7 (=0.2 posuw/obrót)
#<fazka> = #8 (=1 fazka)
#<ilosc_kanalow> = #9 (=1 ilość kanałów)
#<odstep> = #10 (=20 odstęp)
#<sr_wewn> = #11 (=180 średnica wewnętrzna)
#<posuw_prosty> = #12 (=0.1 posuw/obrót prosty)
#<z_pocz> = #13 (=0 Z początkowe)


m3 s#<obr>

g43
#<polnoz> = [#<noz> / 2]
#<posuw> = [#<posuw_obrot> * #<obr>]
#<posuw_pr> = [#<posuw_prosty> * #<obr>]

#<nr_kan> = 0
o500 while [#<nr_kan> lt #<ilosc_kanalow>]
     #<z_srodek> = [#<z_pocz> + #<nr_kan> * #<odstep>]
     
     ( Toczenie proste w środku kanału - jedno przejście )
     G0 X[#<sr_kola> + 2]
     G0 Z[#<z_srodek> + [#<kanal> / 2] - #<polnoz>]
     G1 X#<sr_kola> F#<posuw_pr>
     G1 X#<sr_wewn>
     G0 X[#<sr_kola> + 2]
     
     ( Roztaczanie boków )
     #<z_konc> = [#<pas> / 2]
     #<z_akt> = [#<kanal> / 2]
     
     o100 while[#<z_akt> lt #<z_konc>]
          #<z_akt> = [#<z_akt> + #<dobieranie>]
          o120 if[#<z_akt> GT #<z_konc>]
               #<z_akt> = #<z_konc>
          o120 endif
          #<x_konc> = [[#<sr_kola>]  - [[#<z_akt>  - [#<kanal> / 2]] / [TAN[9]]]]
     
          G0 X[#<sr_kola>  + 2]     
          G0 Z[#<z_srodek> + #<z_akt> - #<polnoz>]
          G1 X#<sr_kola> F#<posuw>
          G1 X#<x_konc> Z[#<z_srodek> + [#<kanal> / 2] - #<polnoz>]
          G0 X[#<sr_kola> + 2]     
          G0 Z[#<z_srodek> - #<z_akt> + #<polnoz>]
          G1 X#<sr_kola> F#<posuw>
          G1 X[#<x_konc>] Z[#<z_srodek> - [#<kanal> / 2] + #<polnoz>]
     o100 endwhile
     
     ( Fazki )
     o400 if [#<fazka> gt 0]
          G0 X[[#<sr_kola>]  + 2]     
          G0 Z[#<z_srodek> + #<z_akt> - #<polnoz> + #<fazka>]
          G1 X#<sr_kola> F#<posuw>
          G1 X[#<sr_kola> - #<fazka>] Z[#<z_srodek> + #<z_akt> - #<polnoz>]
          
          G0 X[[#<sr_kola>]  + 2]     
          G0 Z[#<z_srodek> - #<z_akt> + #<polnoz> - #<fazka>]
          G1 X#<sr_kola> F#<posuw>
          G1 X[#<sr_kola> - #<fazka>] Z[#<z_srodek> - #<z_akt> + #<polnoz>]
     o400 endif
     
     #<nr_kan> = [#<nr_kan> + 1]
o500 endwhile

G0 X[[#<sr_kola>]  + 10] z0

o<pasek_klinowy> endsub