pload QAcommands

puts "========"
puts "OCC22736"
puts "========"
puts ""
###########################################################
# Incorrect Transformation
###########################################################

set BugNumber OCC22736

set X_mirrorFirstPoint 2.0
set Y_mirrorFirstPoint 1.0
set X_mirrorSecondPoint 3.0
set Y_mirrorSecondPoint 1.0
set X_p1 1.0
set Y_p1 0.0
set X_p2 1.0
set Y_p2 2.0
set result_info [OCC22736 ${X_mirrorFirstPoint} ${Y_mirrorFirstPoint} ${X_mirrorSecondPoint} ${Y_mirrorSecondPoint} ${X_p1} {$Y_p1} ${X_p2} ${Y_p2}]
regexp {Status = ([-0-9.+eE]+)} $result_info full status

# Resume
puts ""
if { ${status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

