![10.0]
  ! ---- CREATE TOOLINGBALL 1,2,3 CSY, FIND TRANSFORMATION FOR MAN$CSY
COLPTS          (NAM=TB_PLA(1), CSY=MAN$CSY, ELE=(TB_CALC(1), TB_CALC(2), TB_CALC(3)), TYP=PLA)
COLPTS          (NAM=TB_AXI(1), CSY=MAN$CSY, ELE=(TB_CALC(2), TB_CALC(1)), TYP=AXI)
BLDCSY          (NAM=TB$CSY(1), TYP=CAR, SPA=TB_PLA(1), SDR=+Y, PLA=TB_AXI(1), PDR=+X, XZE=TB_CALC(1), YZE=TB_CALC(1), ZZE=TB_CALC(1))
FINDTRA         (NAM=CSY$TRA_INITIAL, CS1=TB$CSY(1), CS2=MAN$CSY)
NOINCH 
LISTRA          (NAM=CSY$TRA_INITIAL)



!TRACSY          (NEW=TEST, TRA=CSY$TRA, OLD=TB$CSY, CAD=N)
!FINDTRA         (NAM=TEST_TRA, CS1=TEST, CS2=CNC$CSY)
!LISTRA          (NAM=TEST_TRA)
STOP
FMTOBJ          (FIL=T:\Undulator Quad Transformation\000727.TRA, NAM=(CSY$TRA, CSY$TRA_INITIAL), TYP=TRA)