$$FEATURE
point1
$$===========================
OUTPUT / FA(point1), TA(X_THRESHOLD)
//evaluates feature and deviation XVAR
=VALUE/TA(X_THRESHOLD),INTOL //checks if in or out
of tol
IF/(XVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE. //set flag if out of
tolerance
TEXT / OPER ,'point1 out of tolerance
along X'
ENDIF
OUTPUT / FA(point1), TA(Y_THRESHOLD)
YVAR =VALUE/TA(Y_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(YVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER ,'point1 out of tolerance
along Y'
ENDIF
OUTPUT / FA(point1),
TA(Z_THRESHOLD)
ZVAR =VALUE/TA(Z_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(ZVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER ,'point1 out of tolerance
along Z'
ENDIF
$$FEATURE point2
$$===========================
OUTPUT / FA(point2), TA(X_THRESHOLD)
XVAR =VALUE/TA(X_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(XVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point2 out of
tolerance along X'
ENDIF
OUTPUT / FA(point2),
TA(Y_THRESHOLD)
YVAR =VALUE/TA(Y_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(YVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point2 out of
tolerance along Y'
ENDIF
OUTPUT / FA(point2),
TA(Z_THRESHOLD)
ZVAR =VALUE/TA(Z_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(ZVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point2 out of
tolerance along Z'
ENDIF
$$FEATURE point3
$$===========================
OUTPUT / FA(point3), TA(X_THRESHOLD)
XVAR =VALUE/TA(X_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(XVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point3 out of
tolerance along X'
ENDIF
OUTPUT / FA(point3), TA(Y_THRESHOLD)
YVAR =VALUE/TA(Y_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(YVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point3 out of
tolerance along Y'
ENDIF
OUTPUT / FA(point3), TA(Z_THRESHOLD)
ZVAR =VALUE/TA(Z_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(ZVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'point3 out of
tolerance along Z'
ENDIF
$$FEATURE circle
$$===========================
OUTPUT / FA(circle), TA(X_THRESHOLD)
XVAR =VALUE/TA(X_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(XVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'circle out of
tolerance along X'
ENDIF
OUTPUT / FA(circle),
TA(Y_THRESHOLD)
YVAR =VALUE/TA(Y_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(YVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'circle out of
tolerance along Y'
ENDIF
OUTPUT / FA(circle), TA(Z_THRESHOLD)
ZVAR =VALUE/TA(Z_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(ZVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'circle out of
tolerance along Z'
ENDIF
$$FEATURE slot
$$===========================
OUTPUT / FA(slot), TA(X_THRESHOLD)
XVAR =VALUE/TA(X_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(XVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'slot out of tolerance
along X'
ENDIF
OUTPUT / FA(slot), TA(Y_THRESHOLD)
YVAR =VALUE/TA(Y_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(YVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'slot out of tolerance
along Y'
ENDIF
OUTPUT / FA(slot),
TA(Z_THRESHOLD)
ZVAR =VALUE/TA(Z_THRESHOLD),INTOL $$ checks if in or out of tol
IF/(ZVAR .EQ. 0)
ALIGN_RESULT = ASSIGN/.FALSE.
TEXT / OPER , 'slot out of tolerance
along Z'
ENDIF
IF/( ALIGN_RESULT .EQ. .FALSE.)
TEXT / OPER , 'ITERATION RESULT'
TEXT / OPER , '========================'
TEXT / OPER , '*** Alignment did not converge***'
ELSE
JUMPTO / (ITER_END)
ENDIF
IF/((COUNT .LE. 5) // in this case, max iteration
is 5
JUMPTO / (ITER_ START)
ENDIF
(ITER_END)
TEXT / OPER , '============================='
TEXT / OPER , '= SUCCESSFUL ALIGNMENT ='
TEXT / OPER , '============================='
|