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)