[mantelwinkel]

Hallo,
in welche Sprache ist der Quelltext geschrieben?. ist es eine Sprache?
Ich bin einfach neugierig
Danke



| num schl, richtung, spalte, reihe, c_pos_ts;
| string var_m, var_mr, var_sp, var_sr, var_stops, var_stopr, var_c_ein, var_c_aus, var_sp_anwahl,var_spr, var_npv,var_kuehlein,var_kuehlaus, sp_kenn, bremse_c_ein, bremse_c_aus;
| num anfahrrichtung, var_m_out, var_mr_out;

| // var_m_out, var_mr_out eingefügt wegen drehrichtung gewindebohren

| // Revolverabhängige Funktionen
| if (FunctionPartNo() == 1)
| {
| if (rechtslauf)
| {
| var_spr = "S3="; var_mr = "M303"; var_mr_out = 304; var_stopr = "M305";
| }
| if (linkslauf)
| {
| var_spr = "S3="; var_mr = "M304"; var_mr_out = 303; var_stopr = "M305";
| }
| // neu test 17.10.2001
| c_pos_ts = 0;
| } // end ts1


| if (FunctionPartNo() == 2)
| {
| if (rechtslauf)
| {
| var_spr = "S4="; var_mr = "M403"; var_mr_out = 404; var_stopr = "M405";
| }
| if (linkslauf)
| {
| var_spr = "S4="; var_mr = "M404"; var_mr_out = 403; var_stopr = "M405";
| }
| // neu test 17.10.2001
| c_pos_ts = 180;
| } // end ts2





| if (hsp)
| {
| // 06.03.2003 tnc und tna
| if (m_typ == "E" ) {
| sp_kenn = mul("");
| } else {
| sp_kenn = mul("HSP");
| }

| if (rechtslauf)
| {
| var_m = "M3"; var_m_out = 4;
| }
| if (linkslauf)
| {
| var_m = "M4"; var_m_out = 3;
| }

| var_sp = "S1="; var_stops = "M5"; anfahrrichtung=1;

| // 06.03.2003 tnc und tna
| if (m_typ == "E" ) {
| var_sp_anwahl = "";
| } else {
| var_sp_anwahl = "G63";
| }
| var_npv = "[L38]";
| // ende 06.03.2003

| var_c_ein = "M17"; var_c_aus = "M18"; bremse_c_ein = "M19"; bremse_c_aus = "M70";

| } // end hsp


| if (gsp)
| {
| sp_kenn = mul("GSP");
| var_sp = "S2="; var_stops = "M205"; anfahrrichtung=-1;
| var_sp_anwahl = "G64"; var_npv = "[L39]";
| var_c_ein = "M217"; var_c_aus = "M218"; bremse_c_ein = "M219"; bremse_c_aus = "M270";

| if (rechtslauf)
| {
| var_m = "M203"; var_m_out = 204;
| }
| if (linkslauf)
| {
| var_m = "M204"; var_m_out = 203;
| }

| } // end gsp

| #include <achsenausgabe>;
(N{L(1)} {\s " T:"} {station}{\s (" / ")}{\s function.caption} {\s (" / ")}{\s geo } {\s (" / ")} {\s sp_kenn } )
N{L(1)}
| setze_s (1,"G59","0","0",var_npv);
{\s var_sp_anwahl}
G97 T{tcall}
{\s var_spr} {s} {\s var_mr}
G94
G90
| if (c_ein)
{\s var_c_ein}
G0 Z{an_z1} M8
| if (an_y1.filled)
G0 Y{an_y1}

G59 C{npv_c}
G0 C0
| if (n_anzahl > 0)
N{L(10)}

G0 X{an_x1}
F{F_mmmin}
{\p Appl2Kontur}
G0 Z{an_z1}
| if (n_anzahl > 0)
| {

| if (n_c.filled)
| {
G91
G0 C{n_c}
G90
| }
| if (n_z.filled)
G59 W{n_z}
N{L(11)}
G22 P{L(10)} Q{L(11)} H{n_anzahl}
| if (n_z.filled)
| {
G59 Z{\s var_npv}
| }
| }


G95
M9 {\s var_stopr}


| if (g26)
G26
| if (g27)
G27
| if (g24)
G24
| if (g25)
G25
| if (ohne)
({\s mul("ohne wegfahren")} )


| if (hpunkt) {

| switch(abheben) {
| case 1:
G0 X{abheb_x}
| break;
| case 2:
G0 Z{abheb_z}
| break;
| case 4:
G0 X{abheb_x}
G0 Z {abheb_z}
| break;
| case 8:
G0 Z{abheb_z}
G0 X{abheb_x}
| break;
| case 16:
G0 X{abheb_x} Z{abheb_z}
| break;
| } // end switch
| if (abheb_y.Filled)
G0 Y{abheb_y}
| } // end if

| if (G53) {

| switch(abheben) {
| case 1:
G53 X{abheb_x}
| break;
| case 2:
G53 Z{abheb_z}
| break;
| case 4:
G53 X{abheb_x}
G53 Z{abheb_z}
| break;
| case 8:
G53 Z{abheb_z}
G53 X{abheb_x}
| break;
| case 16:
G53 X{abheb_x} Z{abheb_z}
| break;
| } // end switch
| if (abheb_y.Filled)
G53 Y{abheb_y}
| } // end if

[aufderarbeit]

Hallo

Könnte C oder eine C-basierende Programmiersprache sein.

Gruß Gerd

[MiBü]

Servus,

es spricht vieles dafür, das das ein Traub Makro Programm ist.
Das es für eine Traub Maschine ist der Kommentar tnc und TNA und die G-Funktionen G26 etc.

[mantelwinkel]

Hallo,
stimmt. Es ist das Parametrisierten Quellprogramm von Traub Maschine.
Aber was für ein Script ?

MW