#Records for all the parameters of the currently installed radiator
#If INDEX = 0 no radiator is intalled, and other params have no meaning.

record(ai, "$(P)ID"){
}	   
record(ao, "$(P)PARA_YAW"){
   field(EGU,"deg")
}
record(ao, "$(P)PARA_PITCH"){
   field(EGU,"deg")
}
record(ao, "$(P)PERP_YAW"){
   field(EGU,"deg")
}
record(ao, "$(P)PERP_PITCH"){
   field(EGU,"deg")
}
record(ao, "$(P)PHI0"){
   field(EGU,"deg")
}
record(ao, "$(P)THETA"){
}
record(ao, "$(P)PHI"){
   field(EGU,"deg")
}
record(ao, "$(P)PHI022"){
   field(EGU,"deg")
}

record(ao, "$(P)PARA_MODE"){
    field(VAL,"0")
}

record(ao, "$(P)PERP_MODE"){
    field(VAL,"0")
}

record(ao, "$(P)COH_INCREMENT"){
     field(VAL,"0.001")
}
record(ao, "$(P)ORTH_INCREMENT"){
    field(VAL,"0.01")
}

record(ao, "$(P)E_BEAM"){
   field(EGU,"MeV")
}

record(ao, "$(P)REQ_PHI022"){
   field("VAL", "0")
   field(EGU,"deg")
}

record(ao, "$(P)REQ_EDGE"){
   field(EGU,"MeV")
}
record(ao, "$(P)REQ_PARA_PITCH"){
   field(EGU,"deg")
}
record(ao, "$(P)REQ_PARA_YAW"){
   field(EGU,"deg")
}
record(ao, "$(P)REQ_PERP_PITCH"){
   field(EGU,"deg")
}
record(ao, "$(P)REQ_PERP_YAW"){
   field(EGU,"deg")
}
record(ao, "$(P)REQ_PERP_MODE"){
   field("VAL", "1")
}
record(ao, "$(P)REQ_PARA_MODE"){
   field("VAL", "1")
}
record(ao, "$(P)REQ_CMRAD"){
   field(EGU,"mrad")
   field("VAL", "0")
}
record(ao, "$(P)REQ_CDEG"){
   field(EGU,"deg")
   field("VAL", "0")
}
record(ao, "$(P)REQ_IDEG"){
   field(EGU,"deg")
   field("VAL", "0")
}
record(ao, "$(P)REQ_IMRAD"){
   field(EGU,"mrad")
   field("VAL", "0")
}
record(ao, "$(P)OFF_PITCH"){
}
record(ao, "$(P)OFF_YAW"){
}
record(ao, "$(P)REQ_OFF_PITCH"){
}
record(ao, "$(P)REQ_OFF_YAW"){
}



#Check for plane = PARA if PITCH and YAW correct set to 1, else 0.
record(calc,"$(P)DIAM_PARA"){
   field(SCAN,"1 second")
   field(INPA,"$(P)PARA_YAW")
   field(INPB,"$(P)PARA_PITCH")
   field(INPC,"$(G)RAD:DYAW")
   field(INPD,"$(G)RAD:DPITCH")
   field(INPE,"$(G)YAW.RBV")
   field(INPF,"$(G)PITCH.RBV")
   field(CALC,"((A-C)<E)&&(E<(A+C))&&((B-D)<F)&&(F<(B+D))?1:0")
   field(FLNK,$(P)PLANE)
}

#Check for plane = PERP if PITCH and YAW correct set to 2, else 0.
record(calc,"$(P)DIAM_PERP"){
   field(SCAN,"1 second")
   field(INPA,"$(P)PERP_YAW")
   field(INPB,"$(P)PERP_PITCH")
   field(INPC,"$(G)RAD:DYAW")
   field(INPD,"$(G)RAD:DPITCH")
   field(INPE,"$(G)YAW.RBV")
   field(INPF,"$(G)PITCH.RBV")
   field(CALC,"((A-C)<E)&&(E<(A+C))&&((B-D)<F)&&(F<(B+D))?2:0")
   field(FLNK,$(P)PLANE)
}

#plane is the sum of $(P)PARA and $(P)PERP (1,2 = PARA,PERP, 0 = unknown or both)
record(calc, "$(P)PLANE"){
   field(DESC, "Coherent Plane")
   field(PREC, "1")
   field(INPA,"$(P)DIAM_PARA")	
   field(INPB,"$(P)DIAM_PERP")
   field(CALC,"((A*B)==0)?A+B:0")
}

# this is the coherent edge, which gets filled from an exteral calculation
record(ai, "$(P)EDGE"){
        field(EGU, "MeV")
        field(DESC, "CoherentEdge(MeV)")
        field(PREC, "3")
}
# this is the width of the coherent edge determined from gaussian fit. 
record(ai, "$(P)WIDTH"){
        field(EGU, "MeV")
        field(DESC, "CoherentWidth(MeV)")
        field(PREC, "3")
}

# Energy of the channel used to do the normalisation to baseline of 1.
record(ai, "$(P)NORM_ENERGY"){
        field(EGU, "MeV")
        field(PREC, "3")
}
# Counts required in the norm channel to say it was a valid scaler buffer
# Less than this and we assume the beam tripped, and read again.
record(ai, "$(P)NORM_COUNTS"){
        field(PREC, "3")
}

# Flagged if the enhancement made is valid
record(ai, "$(P)VALID_ENH"){
}

record(ao, "$(P)INIT"){
      field(VAL,"0")
}

record(ao, "$(P)HEARTBEAT"){
      field(VAL,"-1")
}
record(longin, "$(P)CLIENT_HB"){
      field(PINI, "YES")
      field(VAL , "0")
      field(PREC, "0")
}

record(ao, "$(P)COH_INCREMENT"){
      field(VAL,"0.0001")
}
record(ao, "$(P)ORTH_INCREMENT"){
      field(VAL,"0.001")
}
record(ao, "$(P)COH_PLANE"){
      field(VAL,"0")
}

record(ao, "$(P)DIAM227_PARA_MODE"){
      field(VAL,"1")
}
record(ao, "$(P)DIAM227_PERP_MODE"){
      field(VAL,"1")
}

record(ao, "$(P)SCAN_STATE"){
      field(VAL,"0")
}

record(stringout, "$(P)SCAN_AXIS"){
      field(VAL,"STONE")
}

record(ao, "$(P)SCAN_POS1"){
      field(VAL,"0")
}

record(ao, "$(P)SCAN_STEP"){
      field(VAL,"0")
}

record(ao, "$(P)SCAN_NSTEP"){
      field(VAL,"180")
}

record(ao, "$(P)SCAN_YAW_OFF"){
      field(VAL,"0")
}

record(ao, "$(P)SCAN_PITCH_OFF"){
      field(VAL,"0")
}

record(ao, "$(P)SCAN_TIME"){
      field(VAL,"2")
}

record(ao, "$(P)HODO_STATE"){
      field(VAL,"0")
}
record(ao, "$(P)MICRO_STATE"){
      field(VAL,"0")
}
record(ao, "$(P)LOWG_STATE"){
      field(VAL,"0")
}

record(waveform, "$(P)EMAP"){
        field(NELM, 500)
        field(NORD, 500)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}
record(waveform, "$(P)RAW_SCALERS"){
        field(NELM, 500)
        field(NORD, 500)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(waveform, "$(P)ENH_SCALERS"){
        field(NELM, 500)
        field(NORD, 500)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

#list of noisy channels to kill in the enhancement
record(waveform, "$(P)DEAD_SCALERS"){
        field(NELM, 100)
        field(NORD, 100)
        field(FTVL, DOUBLE)
        field(PREC, "0")
}


record(waveform, "$(P)ENH_REF"){
        field(NELM, 500)
        field(NORD, 500)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(waveform, "$(P)EDGE_LINE"){
        field(NELM, 2)
        field(NORD, 2)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(waveform, "$(P)REQ_EDGE_LINE"){
        field(NELM, 2)
        field(NORD, 2)
	field(FTVL, DOUBLE)
        field(PREC, "2")
}
record(waveform, "$(P)EDGE_LINE_MAP"){
        field(NELM, 2)
        field(NORD, 2)
	field(FTVL, DOUBLE)
        field(PREC, "2")
}


record(waveform, "$(P)REQ_EDGE_LINE_MAP"){
        field(NELM, 2)
	field(NORD, 2)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}


record(waveform, "$(P)AMO_SCALERS"){
        field(NELM, 500)
        field(NORD, 500)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(ao, "$(P)LOWG_SCALER"){
      field(VAL,"2")
}

record(ao, "$(P)N_SCALERS"){
}



record(stringout, "$(P)HODO_SCALER_NAME"){
}
record(stringout, "$(P)HODO_EMAP_NAME"){
}
record(stringout, "$(P)MICRO_SCALER_NAME"){
}
record(stringout, "$(P)MICRO_EMAP_NAME"){
}
record(stringout, "$(P)LOWG_SCALER_NAME"){
}



#below here some stuff for using in simulation mode.
record(waveform, "HODO:EMAP"){
        field(NELM, 352)
        field(NORD, 352)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}
record(waveform, "MICRO:EMAP"){
        field(NELM, 352)
        field(NORD, 352)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(waveform, "HODO:RAW_SCALER"){
        field(NELM, 352)
        field(NORD, 352)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}
record(waveform, "MICRO:RAW_SCALER"){
        field(NELM, 352)
        field(NORD, 352)
        field(FTVL, DOUBLE)
        field(PREC, "2")
}

record(ai, "$(P)DELTA_ROLL"){
}

record(calc, "$(P)PLANE_NOT_SET") {
  field(INPA, "$(P)ID CPP MS")
  field(INPB, "$(P)PLANE CPP MS")
  field(INPC, "HD:GONI:RADIATOR_INDEX CPP MS")
  field(INPD, "HD:BTA:beam_present CPP MS")
  field(SCAN, "Passive")
  field(CALC, "A>0.5&B=0&C>5&D>0.5?1:0")
  field(PREC, "1")
  field(HIGH, "0.5")
  field(HSV, "MINOR")
}

record(calc, "$(P)PHIPOL"){
  field(PINI, "YES")
  field(EGU , "deg")
  field(INPA, "$(P)ID CPP MS")
  field(INPB, "$(P)PLANE CPP MS")
  field(INPC, "$(P)PHI022 CPP MS")
  field(INPD, "HD:GONI:RADIATOR_INDEX CPP MS")
  field(INPE, "HD:GONI:RADIATOR_ID CPP MS")
  field(SCAN, "Passive")
  field(CALC, "D>5&A>1?B=1?180-C:B=2?90-C:-500:-500")
}