38 lines
827 B
Plaintext
38 lines
827 B
Plaintext
; BEFORE FIRST TIME USE:
|
|
; $MC_MM_NUM_R_PARAM = 300 ; Maximale Anzahl an R-Parameter
|
|
; $MC_START_AC_FIFO = 100 ; (FIFO-Speicher beginnt ab R100)
|
|
; $MC_NUM_AC_FIFO = 1 ; (FIFO-Speicher einrichten)
|
|
; $MC_LEN_AC_FIFO = 26 ; 20 VAR
|
|
; $MC_MODE_AC_FIFO = 1 ;( Summenbildung)
|
|
; --> PO
|
|
|
|
; Konfiguration:
|
|
DEFINE INKR_NUM AS 20
|
|
DEFINE X_MOVE AS 2;1.2
|
|
DEFINE FEED_MESS AS 150;75 ;INKR_MESS=0.05/0.04*60
|
|
DEFINE FEED_BACK AS 500
|
|
|
|
|
|
$MC_MM_NUM_AC_MARKER=2
|
|
$AC_MARKER[0]=0
|
|
$AC_FIFO1[4]=0
|
|
R0=0
|
|
R9=0
|
|
|
|
; SETUP SYNCACT
|
|
ID=1 whenever $AC_MARKER[0]<INKR_NUM do $AC_MARKER[0]=$AC_MARKER[0]+1 $AC_FIFO1[0]=$A_DBR[20] R0=$AC_MARKER[0]
|
|
|
|
; --- MOVE AND MEASURE
|
|
TRAORI
|
|
G1 G91 X=X_MOVE F=FEED_MESS
|
|
|
|
; CALC
|
|
STOPRE
|
|
R9 = $AC_FIFO1[3]/$AC_FIFO1[4]
|
|
|
|
; --- GO BACK
|
|
G1 G91 X=-X_MOVE F=FEED_BACK
|
|
|
|
|
|
M17
|