2 puts "=========================================================================="
3 puts "OCC31016: Projection of an ellipse or a circle is a B-spline in some cases"
4 puts "=========================================================================="
9 ellipse c 0 0 0 0 0 1 2 1 0 20 10
11 projonplane r c p [lindex $projDir 0] [lindex $projDir 1] [lindex $projDir 2] 1
13 if {![regexp {BSplineCurve} [dump r]]} {
14 puts "ERROR: Projected curve is not a B-spline curve"
17 if {[CheckProjectionToPlane 100 c 0 [expr 2*[dval pi]] r 0 [expr 2*[dval pi]] p $projDir 1.e-6]} {
19 puts "OK: All sample points are projected correctly"
23 puts "ERROR: Projection is incorrect for some points"