Current Help System: Tutor Translator (View Core Help)

### SYSTEM_INFO Function

SYSTEM_INFO(PROBE,HEAD,TIP,RAD,OFFSET,APOS,BPOS,QUAL) translates to è

IF/PROBEDATA("ID",TIPARRAY[HEAD,TIP]) <> 0
ASSIGN/ E.RAD = PROBEDATA("DIAM",TIPARRAY[HEAD,TIP])/2
ASSIGN/ E.OFFSET = PROBEDATA("OFFSET",TIPARRAY[HEAD,TIP])
ASSIGN/ E.APOS = PROBEDATA("A",TIPARRAY[HEAD,TIP])
ASSIGN/ E.BPOS = PROBEDATA("B",TIPARRAY[HEAD,TIP])
ASSIGN/ E.QUAL = 1
END_IF/

ELSE/
ASSIGN/ E.QUAL = -3
END_ELSE/

SYSTEM_INFO (REFSYS,SYS,MROT,MINV,TRANS,I) translates to è

ASSIGN/ E.I = 0
IF/E.ALIGNMENTS[SYS]<>"NONE"
ASSIGN/ SYS_INFO_SAVE_REF = GETSETTING("Current Alignment")
RECALL/ALIGNMENT,INTERNAL,STARTUP

ASSIGN/SYS_INFO_REF = E.ALIGNMENTS[SYS]
ASSIGN/ E.MROT[0,0] = SYS_INFO_REF.XAXIS.I
ASSIGN/ E.MROT[1,0] = SYS_INFO_REF.XAXIS.J
ASSIGN/ E.MROT[2,0] = SYS_INFO_REF.XAXIS.K
ASSIGN/ E.MROT[0,1] = SYS_INFO_REF.YAXIS.I
ASSIGN/ E.MROT[1,1] = SYS_INFO_REF.YAXIS.J
ASSIGN/ E.MROT[2,1] = SYS_INFO_REF.YAXIS.K
ASSIGN/ E.MROT[0,2] = SYS_INFO_REF.ZAXIS.I
ASSIGN/ E.MROT[1,2] = SYS_INFO_REF.ZAXIS.J
ASSIGN/ E.MROT[2,2] = SYS_INFO_REF.ZAXIS.K
ASSIGN/ E.TRANS = SYS_INFO_REF.ORIGIN

RECALL/ALIGNMENT,INTERNAL, SYS_INFO_SAVE_REF
ASSIGN/ E.MINV[0,0] = E.MROT[0,0]
ASSIGN/ E.MINV[0,1] = E.MROT[1,0]
ASSIGN/ E.MINV[0,2] = E.MROT[2,0]
ASSIGN/ E.MINV[1,0] = E.MROT[0,1]
ASSIGN/ E.MINV[1,1] = E.MROT[1,1]
ASSIGN/ E.MINV[1,2] = E.MROT[2,1]
ASSIGN/ E.MINV[2,0] = E.MROT[0,2]
ASSIGN/ E.MINV[2,1] = E.MROT[1,2]
ASSIGN/ E.MINV[2,2] = E.MROT[2,2]
ASSIGN/ E.I = 1
END_IF/