Hallo,
ich habe heute auf einer Diskette einen Gravurzyklus Namens Cyclegra gefunden. Das ist ein SPF File. Leider kann ich mir beim Besten willen nicht vorstellen wie man damit was Gravieren kann. Anbei ein Ausschnitt aus dem Programm, vieleicht kann mir ja jemand auf die Sprünge helfen, wie man den Zyklus anwendet?
%_N_CYCLEGRA_SPF
;$PATH=/_N_CUS_DIR
PROC CYCLEGRA(STRING[80] _TEXT,REAL _GT,REAL _SH,REAL _ZA, REAL _A_X ,REAL _A_Y,REAL _EFS , REAL _FFS , REAL _SDIS)
;V01.03 22.03.99 < Horst Hanneforth> Gravurzyklus_fuer_840D
DEF AXIS _XX=X,_YY=Y,_ZZ=Z
DEF INT _L
DEF INT _Z
DEF CHAR _ZW
DEF REAL _R[100]
DEF STRING[80] _TS
DEF BOOL _TA[256]= SET(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
_TA[26] =SET(0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,0,1,1,1,1,1,1,1,1) _TA[51] =SET(1,1,1,1,1,1,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1) _TA[76] =SET(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,1,1,1,1)
_TA[101]= SET(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0) _TA[126]= SET(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) _TA[151]= SET(0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0)
_TA[176]= SET(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0) _TA[201]= SET(0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,1,1,1) _TA[226]= SET(1,1,1,0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1) _TA[251]= SET(1,1,1,0,1)
_R[0]=_SH _R[1]=_GT _L=STRLEN(_TEXT)
IF _L==0 GOTOF _END2
ENDIF
G90 G00 AX[_ZZ]=_SDIS
G90 G00 AX[_XX]=_A_X AX[_YY]=_A_Y AX[_ZZ]=_SDIS
REPEAT
IF _TEXT[_Z]==95
_TEXT[_Z]=32
ENDIF
IF _TA[_TEXT[_Z]]==FALSE GOTOF _END1
_Z=_Z+1
UNTIL _Z==_L
_Z=0
REPEAT
_TS = _TS<<_TEXT[_Z]
MSG("SCHREIBE: "<<_TS)
_ZW=_TEXT[_Z]
GOTOF SCHREIB
_M:
G91 G0 AX[_XX]=(_ZA*0.25 - 0.25)
_Z = _Z+1
UNTIL _Z==_L
MSG(" ")
GOTOF _END2
SCHREIB:
IF _ZW<51 GOTOF _CH0 IF _ZW<76 GOTOF _CH51 IF _ZW<101 GOTOF _CH76 IF _ZW<126 GOTOF _CH101 IF _ZW<151 GOTOF _CH126 IF _ZW<176 GOTOF _CH156 IF _ZW<201 GOTOF _CH196 IF _ZW<226 GOTOF _CH203 IF _ZW<=255 GOTOF _CH226
_CH0:
IF _ZW<>0 GOTOF _CH32
GOTOF _END2
_CH32:
IF _ZW<>32 GOTOF _CH33
_R[68]=_R[0]*0.75
G91 G00 AX[_XX]=_R[68]
GOTOB _M
_CH33:
IF _ZW<>33 GOTOF _CH34
_R[50]=0.3000*_R[0] _R[51]=0.7000*_R[0] _R[60]=0.2500*_R[0]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_YY]=_R[50]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
AX[_YY]=_R[51] F=_FFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_XX]=_R[60] AX[_YY]=-_R[0]
GOTOB _M
_CH34:
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP