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