package Ġjump aku . cur ves . core . test . transform Ċ Ċ import Ġjump aku . cur ves . core . geom . Point Ċ import Ġjump aku . cur ves . core . geom . Vector Ċ import Ġjump aku . cur ves . core . test . geom . close To Ċ import Ġjump aku . cur ves . core . transform . Cal ibrate Ċ import Ġorg . hamcrest . Matchers .` is ` Ċ import Ġorg . junit . Assert . assertThat Ċ import Ġorg . junit . Test Ċ Ċ class ĠCal ibrate Test Ġ{ ĊĊĠĠĠ Ġval Ġp 0 Ġ= ĠPoint ( 1 . 0 , Ġ- 2 . 0 , Ġ 3 . 0 ) Ġto ĠPoint (- 4 . 0 , Ġ 5 . 0 , Ġ- 6 . 0 ) ĊĠĠĠ Ġval Ġp 1 Ġ= ĠPoint (- 1 . 0 , Ġ 2 . 0 , Ġ- 3 . 0 ) Ġto ĠPoint ( 4 . 0 , Ġ 5 . 0 , Ġ 6 . 0 ) ĊĠĠĠ Ġval Ġp 2 Ġ= ĠPoint (- 1 . 0 , Ġ- 2 . 0 , Ġ- 3 . 0 ) Ġto ĠPoint ( 3 . 0 , Ġ 2 . 0 , Ġ 1 . 0 ) ĊĠĠĠ Ġval Ġp 3 Ġ= ĠPoint ( 1 . 0 , Ġ 2 . 0 , Ġ 3 3 . 0 ) Ġto ĠPoint (- 3 . 0 , Ġ- 2 . 0 , Ġ- 1 . 0 ) ĊĊĠĠĠ Ġval Ġt 4 Ġ= ĠCal ibrate ( p 0 , Ġp 1 , Ġp 2 , Ġp 3 ) ĊĠĠĠ Ġval Ġt 3 Ġ= ĠCal ibrate ( p 0 , Ġp 1 , Ġp 2 ) ĊĠĠĠ Ġval Ġt 2 Ġ= ĠCal ibrate ( p 0 , Ġp 1 ) ĊĠĠĠ Ġval Ġt 1 Ġ= ĠCal ibrate ( p 0 ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Invoke 4 () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Invoke 4 ") ĊĠĠĠĠĠĠĠ ĠassertThat ( t 4 ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 4 ( p 1 . first ), Ġ` is `( close To ( p 1 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 4 ( p 2 . first ), Ġ` is `( close To ( p 2 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 4 ( p 3 . first ), Ġ` is `( close To ( p 3 . second ))) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Invoke 3 () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Invoke 3 ") ĊĠĠĠĠĠĠĠ ĠassertThat ( t 3 ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 3 ( p 1 . first ), Ġ` is `( close To ( p 1 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 3 ( p 2 . first ), Ġ` is `( close To ( p 2 . second ))) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Invoke 2 () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Invoke 2 ") ĊĠĠĠĠĠĠĠ ĠassertThat ( t 2 ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 2 ( p 1 . first ), Ġ` is `( close To ( p 1 . second ))) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Invoke 1 () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Invoke 1 ") ĊĠĠĠĠĠĠĠ ĠassertThat ( t 1 ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest De generation () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" De generation ") ĊĠĠĠĠĠĠĠ Ġval Ġt Ġ= ĠCal ibrate ( p 0 , Ġp 0 , Ġp 1 , Ġp 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 1 . first ), Ġ` is `( close To ( p 1 . second ))) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Similarity With Normal () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Similarity With Normal ") ĊĠĠĠĠĠĠĠ Ġval Ġp 0 Ġ= ĠPoint . xyz ( 0 . 0 , Ġ 0 . 0 , Ġ 0 . 0 ) Ġto ĠPoint . xyz ( 0 . 0 , Ġ 1 . 0 , Ġ 1 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġp 1 Ġ= ĠPoint . xyz ( 1 . 0 , Ġ 0 . 0 , Ġ 0 . 0 ) Ġto ĠPoint . xyz ( 0 . 0 , Ġ- 1 . 0 , Ġ 1 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġp 2 Ġ= ĠPoint . xyz ( 1 . 0 , Ġ 1 . 0 , Ġ 0 . 0 ) Ġto ĠPoint . xyz ( 0 . 0 , Ġ- 1 . 0 , Ġ- 1 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġp 3 Ġ= ĠPoint . xyz ( 0 . 0 , Ġ 1 . 0 , Ġ 0 . 0 ) Ġto ĠPoint . xyz ( 0 . 0 , Ġ 1 . 0 , Ġ- 1 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġp 4 Ġ= ĠPoint . xyz ( 0 . 5 , Ġ 0 . 5 , Ġ 0 . 0 ) Ġto ĠPoint . xyz ( 0 . 0 , Ġ 0 . 0 , Ġ 0 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġn Ġ= ĠVector ( 0 . 0 , Ġ 0 . 0 , Ġ 1 . 0 ) Ġto ĠVector ( 1 . 0 , Ġ 0 . 0 , Ġ 0 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġt Ġ= ĠCal ibrate . similarity With Normal ( p 0 , Ġp 1 , Ġn ) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 0 . first ), Ġ` is `( close To ( p 0 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 1 . first ), Ġ` is `( close To ( p 1 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 2 . first ), Ġ` is `( close To ( p 2 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 3 . first ), Ġ` is `( close To ( p 3 . second ))) ĊĠĠĠĠĠĠĠ ĠassertThat ( t ( p 4 . first ), Ġ` is `( close To ( p 4 . second ))) ĊĠĠĠ Ġ} Ċ }