AUTZER
SETMAGA   (MGZ=0)
DELELE ELE:PRB(), N
CALSPH    (NAM=PRB(1), DIA=3, NRF=Y, MGZ=0)
CALSPH    (NAM=PRB(11), DIA=3, NRF=N, MGZ=0)
STARPRC   (NAM=PRB(11), FUL=8, NBR=4, STP=1, CLD=1)
STARPRC   (NAM=PRB(15), FUL=8, NBR=1, STP=1, ANG=30, CLD=1)
STARPRC   (NAM=PRB(16), FUL=8, NBR=2, STP=1, CLD=1)
!--------Orientation-------------
USEPRB    (NAM=PRB(11))
MEPLA     (NAM=MA_PLAMZ, CSY=REFR$CSY, MOD=NOE)
MECIR     (NAM=MA_CIR, CSY=REFR$CSY, PRO=MA_PLAMZ, MOD=NOE)
BLDCSY    (NAM=MA_CSY, SPA=MA_PLAMZ, SDR=Z, XZE=MA_CIR, YZE=MA_CIR, ZZE=MA_MA)
!-------Orientation
USEPRB    (NAM=PRB(11))
GENCYL    (NAM=CYL_40, ZCO=-33, DIA=40, INO=O, MIP=-20, MXP=-160, PDI=3, LEN=10
MECYL     (NAM=CYL_40)
MEPNT     (NAM=MOV_1, MOD=(NOC,NO))
GENCIR    (NAM=PLA_MZ, DIA=28.5*2, NPT=6, INO=N, MIP=-180, MXP=0, PDI=3, ZVL=20
MEPLA     (NAM=PLA_MZ, MOD=NOE)
BLDCSY    (NAM=CSY, SPA=CYL_40, SDR=Z, XZE=CYL_40, YZE=CYL_40, ZZE=PLA_MZ)
TRAOBJ    (NEW=CSY(1), OLD=CSY, SHZ=Z, REF=CSY)
!------measure the master flanks
MEPNTSPA  (NAM=MOV_2, CSY=CSY(1), MOD=(NOC,NOE))
MEBVMAST  
MEBVMAST  
!-----measure the reference tooth-----------
USEPRB    (NAM=PRB(12))
MEPNTSPA  (NAM=PNT_REF, MOD=(NOC,NOE))
USECSY    (NAM=CSY(1))
FINDBVP   
!-----Generate nominal probings for the flanks
! Here:NO.5 only
USECSY    (NAM=CSY(1))
GENBVFLA  
!  Measure all flanks
MEBVFLA
!  Measure pitch and runout
USECSY    (NAM=CSY(1))
DFNCIRPI  
MECIRPI   
! Evaluate pitch and runout
BVPITCH   
! Plot and print results
USEPFR    (NAM=HP_A4H, ROT=90)
MANPLO
DRWBVFLA
LISBVERR  
BVLISTHK  
STOP
SAVPRC    (FIL=BVGEAR)