1 puts "================"
3 puts "================"
5 #######################################################################
6 # Intersection of two planar faces produces curve with too many poles
7 #######################################################################
9 puts "Construct horizontal plane, convert it to b-spline, and create a face on it"
11 trim p1t p1 -10 10 -10 10
15 puts "Construct vertical plane and face on it"
17 mkface f2 p2 -10 10 -10 10
19 puts "\nBuild intersection of two faces"
22 puts "Check number of points in resulting curve"
23 if { ! [regexp {([0-9]+) Poles} [dump sec] str nbp] } {
24 puts "Error: Could not check number of poles in resulting curve!"
25 } elseif { $nbp != 2 } {
26 puts "Error: Intersection curve has too many poles ($nbp while 2 is expected)"
29 puts "\nBuild intersection with approximation of resulting curve"
32 puts "Check number of points in resulting curve"
33 if { ! [regexp {([0-9]+) Poles} [dump sec] str nbp] } {
34 puts "Error: Could not check number of poles in resulting curve!"
35 } elseif { $nbp != 2 } {
36 puts "Error: Intersection curve has too many poles ($nbp while 2 is expected)"
39 puts "\nNow trying with inclined plane"
41 mkface f2 p2 -15 15 -15 15
43 puts "\nBuild intersection of two faces"
46 puts "Check number of points in resulting curve"
47 if { ! [regexp {([0-9]+) Poles} [dump sec] str nbp] } {
48 puts "Error: Could not check number of poles in resulting curve!"
49 } elseif { $nbp != 2 } {
50 puts "Error: Intersection curve has too many poles ($nbp while 2 is expected)"
53 puts "\nBuild intersection with approximation of resulting curve"
56 puts "Check number of points in resulting curve"
57 if { ! [regexp {([0-9]+) Poles} [dump sec] str nbp] } {
58 puts "Error: Could not check number of poles in resulting curve!"
59 } elseif { $nbp != 2 } {
60 puts "Error: Intersection curve has too many poles ($nbp while 2 is expected)"