Suby ngcgui

Kod: Zaznacz cały

( ------------------------------ )
(     K O L O    S K O S N E     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-12-28 15:29> )

( ------------------------------ )
(          USTAWIENIA            )
( ------------------------------ )

o<kolo_skosne> sub

#<obr> = #1 (=1500 obroty)
#<srednica> = #2 (=59 średnica)
#<kat> = #3 (=30 kąt)
#<dlugosc> = #4 (=50 długość)
#<liczba_zebow> = #5 (=16 liczba zębów)
#<predkosc> = #6 (=40 predkość)
#<woda> = #7 (=0  <> chłodzenie)
#<w_z> = #8 (wyjazd Z)
#<w_x> = #9(wyjazd X)
#<w_y> = #10 (wyjazd Y)

( ---------------------- )

#<promien> = [[#<srednica> /2] * -1]
( ---------------------- )


( licze kat A )
#<kat_A> = 0 
#<kat_A> = [#<srednica> * 3.1415] ( obwod = d * PI )
#<tan> = [TAN[#<kat>]]
#<b> = [#<dlugosc> / #<tan>]
 ( b = dlugosc / TAN kat )
#<kat_A> = [360 * [#<b> / #<kat_A>]] ( A = 360 * [b / obwod] )

#<zab> = 0

m3 s#<obr>
o1 if [#<woda> eq 1]
m8
o1 endif

g0 x[#<promien> - 1] z1

o300 while [#<zab> lt #<liczba_zebow>]
     #<aktualny_kat> = [#<zab> * [360 / #<liczba_zebow>]]
     g0 y#<aktualny_kat> ( ustawiam zab )
     g0 x#<promien>
     g1 z[#<dlugosc> * -1] y[#<aktualny_kat> + #<kat_a>] f#<predkosc> ( ostrze zab )
     g0 x[#<promien> -1]
     g0 z1 y#<aktualny_kat>
     #<zab> = [#<zab> + 1]
o300 endwhile

g0 z#<w_z>
g0 x#<w_x>
g0 y#<w_y>

o<kolo_skosne> endsub

Kod: Zaznacz cały

( ------------------------------ )
(         F R E Z A R K A        )
(                                )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2014-10-14 12:00> )

(info: Koła skośne Y)

o<kola_skosne_y> sub

#<srednica_wierzcholkowa> = #1 (=68 srednica wierzcholkowa)
#<srednica_dna_zeba> = #2 (=59 srednica dna zeba)
#<kat> = #3 (=61.5 kat)
#<dlugosc> = #4 (=50 dlugosc)
#<liczba_zebow> = #5 (=16 liczba_zebow)
#<dobieranie> = #6 (=2 dobieranie)
#<predkosc> = #7 (=80 predkosc)

( ---------------------- )
g61

( licze kat A )
#<kat_A> = 0 
#<obw> = [#<srednica_dna_zeba> * 3.1415] ( obwod = d * PI )
#<tan> = [TAN[#<kat>]]
#<b> = [#<dlugosc> / #<tan>]
 ( b = dlugosc / TAN kat )
#<kat_A> = [[360 * #<b>] / #<obw>] ( A = [360 * b] / obwod] )

(licze krok)
#<z_koncowe> = [0 - [[#<srednica_wierzcholkowa> / 2] - [#<srednica_dna_zeba> / 2]]]

#<zab> = 0
#<aktualny_Z> = 0
#<krok> = 0

m3 s1 
m8
g0 Z5
g0 x0 y[#<dlugosc> / 2 * -1]

o300 while [#<zab> lt #<liczba_zebow>]
  #<aktualny_kat> = [#<zab> * [360 / #<liczba_zebow>]]

  o200 while [#<aktualny_Z> gt #<z_koncowe>]
    #<aktualny_Z> = [#<aktualny_Z> - #<dobieranie>] ( odejmuje skok )
    o250 if [#<aktualny_Z> lt #<z_koncowe>]
      #<aktualny_Z> = #<z_koncowe>
    o250 endif
    
	  g0 A[#<aktualny_kat> - [#<kat_a> / 2]]( ustawiam zab )
    g0 Z#<aktualny_Z>
    ( g1 x-0.5 f#<predkosc>)
	  g1 X[#<dlugosc> * COS[#<kat>]] Y[#<dlugosc> / 2] A[#<aktualny_kat> + [#<kat_a> / 2]] f#<predkosc> ( ostrze zab )
	  g0 Z2
	  g0 X0 Y[[#<dlugosc> / 2] * -1] A[#<aktualny_kat> - [#<kat_a> / 2]]

    #<krok> = [#<krok> + 1] ( jeden do kroku )
  o200 endwhile
	#<zab> = [#<zab> + 1]
  #<aktualny_Z> = 0
o300 endwhile

g0 Z5 
g0 y0
m5

o<kola_skosne_y> endsub