# Database for Collimator positions in X and Y

record(seq,"$(pref)hd:collimator:block:proc"){
  field(DESC,"Move to blocking in X & Y" )
  field(DOL1,"$(pref)hd:collimator:x:block")
  field(DOL2,"$(pref)hd:collimator:y:block")
  field(SELM,"All")
  field(LNK1,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(LNK2,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(seq,"$(pref)hd:collimator:a:proc"){
  field(DESC,"Move to A in X & Y" )
  field(DOL1,"$(pref)hd:collimator:x:a")
  field(DOL2,"$(pref)hd:collimator:y:a")
  field(SELM,"All")
  field(LNK1,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(LNK2,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(seq,"$(pref)hd:collimator:b:proc"){
  field(DESC,"Move to B in X & Y" )
  field(DOL1,"$(pref)hd:collimator:x:b")
  field(DOL2,"$(pref)hd:collimator:y:b")
  field(SELM,"All")
  field(LNK1,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(LNK2,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}

record(calc, "$(pref)hd:collimator_at_block") {
  field(DESC, "Check if X&Y blocking")
  field(INPA, "$(pref)hd:collimator:x_at_block")
  field(INPB, "$(pref)hd:collimator:y_at_block")
  field(INPE, "0.01")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-1)<E)&&(ABS(B-1)<E)?1:0")
}
record(calc, "$(pref)hd:collimator_at_a") {
  field(DESC, "Check if X&Y blockingat A")
  field(INPA, "$(pref)hd:collimator:x_at_a")
  field(INPB, "$(pref)hd:collimator:y_at_a")
  field(INPE, "0.01")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-1)<E)&&(ABS(B-1)<E)?1:0")
}
record(calc, "$(pref)hd:collimator_at_b") {
  field(DESC, "Check if X&Y at B")
  field(INPA, "$(pref)hd:collimator:x_at_b")
  field(INPB, "$(pref)hd:collimator:y_at_b")
  field(INPE, "0.01")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-1)<E)&&(ABS(B-1)<E)?1:0")
}