ARTNO BARREL TEST SHAPE PROGRAM
MACHIN/BMPOST $$ This program machines
traces
PRINT/ON $$ along a barrell shaped
part.
C1=CIRCLE/0,0,4 $$ This is a good program
to check
P1=POINT/C1,ATANGL,45 $$ the graphic display of
tool path
P2=POINT/C1,ATANGL,135 $$ (plotting) features.
Use persp-
L1=LINE/P1,(POINT/CENTER,C1) $$ ective mode and Window
command.
L2=LINE/P2,(POINT/CENTER,C1) $$ You can inspect the
tool path from
PL1=PLANE/0,0,1,0 $$ different eye
positions. Use Pitch,
SPINDL/1800,RPM,RANGE,2 $$ Yaw and Roll angle
changes and REPAINT.
FEDRAT/.01,IPR $$
CUTTER/.5,.25 $$ Remember to read the
documentation.
INTOL/.005
OUTTOL/.005
FROM/0,0,10
LOADTL/1,LENGTH,5
A=45
AGAIN) TRACUT/(MATRIX/YZROT,A)
DNTCUT
GOTO/0,0,10
INDIRP/P1
GO/PAST,C1,PL1,ON,L1
CUT
TLRGT,GOLFT/C1,ON,L2
TRACUT/(MATRIX/YZROT,(A+5))
DNTCUT
GOTO/0,0,10
INDIRP/P2
GO/PAST,C1,PL1,ON,L2
CUT
TLLFT,GORGT/C1,ON,L1
A= A + 10
IF (A - 135) AGAIN, QUIT, QUIT
QUIT) TRACUT/NOMORE
RAPID,GOTO/0,0,5
PPLOT
END
FINI