Pomysłowo skonfigurowany Emc.

Kod: Zaznacz cały

; Author: Z. Maciej "Miki" Bajkowski

(info: Stozek) 
o<stozek> sub


#<srednica_walka> =     #1 (=30 Średnica wałka) 
   #<kat> =                     #2 (=45 Kąt) 
   #<dlugosc_stozka> =  #3 (=40 Długość stożka) 
   #<przybranie> =      #4 (=5 Przybranie) 
#<SurfaceSpeed> =       #5 (=1000 posuw) 
    #<Max_RPM> =        #7 (=1500 Max Spindle RPM) 
    #<Coolant> =        #8 (=8 Flood=8, Off=9) 


; Turn the OD
M3 M#<Coolant> ; spindle cw, coolant on/off
#<zebrane_max> = [tan[#<kat>]*[#<dlugosc_stozka>]] 

#<ilosc_przybran> = [[#<zebrane_max>]/[#<przybranie>]] 
#<zejscie_dlugosci> = [[#<dlugosc_stozka>]/[#<ilosc_przybran>]] 
#2 = #<zejscie_dlugosci> 
#1 = 0
s#<SurfaceSpeed> 

o100 while [#<ilosc_przybran> gt 0] 
#1=[[#1]+[#<przybranie>]] 
g0 z1

x[[#<srednica_walka>]-[#1]] 

z0

g1 f1000 z-[#<zejscie_dlugosci>] x[#<srednica_walka>] 

g0 x[[#<srednica_walka>]+1]

Kod: Zaznacz cały

# Internationalisation (i18n) 
# in order to use i18n, all the strings will be called [msgcat::mc "string-foo"] 
# instead of "string-foo".
# Thus msgcat searches for a translation of the string, and in case one isn't 
# found, the original string is used.
# In order to properly use locale's the env variable LANG is queried.
# If LANG is defined, then the folder src/po is searched for files
# called *.msg, (e.g. en_US.msg).
package require msgcat
if ([info exists env(LANG)]) { 
    msgcat::mclocale $env(LANG) 
    msgcat::mcload $emc::LANG_DIR
} 

Kod: Zaznacz cały

#-----------------------------------------------------------------------
# Internationalization

# use the tcl-package named Emc to set up I18n support
if [catch {package require Emc} msg] { 
  # if user is trying to use as standalone in an unconfigured (non-Emc) 
  # environment, just continue without internationalization
  puts stderr "Internationalization not available: <$msg>" 
} 
# use a command or proc named "_" for ::msgcat::mc
# when embedded in axis, a command named "_" is predefined,
# since "_" is not defined for standalone usage, make a proc named "_" 
if {"" == [info command "_"]} { 
  package require msgcat
  proc _ {s} {return [::msgcat::mc $s]} 
} 

Kod: Zaznacz cały

sudo apt-get install gtranslator