PG 0 ACCEL 8000 CLRPOS GOSUB *SET_POINT axis=X_A|Y_A MOVL axis P(1000) WAIT RR(axis)==0 FEED axis Y(2000) DS_DACL FOR pnt=1001 TO X(2000) MOVT axis P(pnt) X(1000+pnt) NEXT pnt EN_DACL WAIT RR(axis)==0 END *SET_POINT SETP 1000 10000 20000 0 0 : 'Start SETP 1001 30000 20000 20000 20000 : 'Cir target and Center SETP 1002 30000 10000 0 0 SETP 1003 10000 10000 20000 10000 SETP 1004 10000 20000 0 0 SETP 2000 1004 50 0 0 : 'End of Point and FEED value SETP 2001 CW 0 0 0 : 'P(1000) to P(1001) CW SETP 2002 0 0 0 0 : 'P(1001) to P(1002) linear SETP 2003 CW 0 0 0 : 'P(1002) to P(1003) CW SETP 2004 0 0 0 0 : 'P(1003) to P(1004) linear RETURN |