2 puts "0029807: Impossible to cut cone from prism"
6 foreach a [directory res*] {unset $a}
8 cone s1 11.4307383137554 3.49999999999979 -89.7537975119388 0 0 1 1 0 0 80.000725670142287835190342147806 9.45659107381736
9 cone s2 -3.6479413426839 -11.578679656441 -89.9782110643133 0 0 1 0 1 0 5 0.250951325477062
11 intersect res s1 s2 1.0e-4
14 set ind [string first "3d curve" $che]
16 #Only variable "res" exists
25 while { $AllowRepeat != 0 } {
26 set che [whatis res_$ic]
27 set ind [string first "3d curve" $che]
34 if {[dval U2-U1] < 1.0e-20} {
35 puts "Error: Wrong curve's range!"
38 xdistcs res_$ic s1 U1 U2 100 2.0e-7
39 xdistcs res_$ic s2 U1 U2 100 2.0e-7
54 # Check gaps between edges in ce
55 checksection result -r 0
56 checkmaxtol result -min_tol 2.0e-7
58 checknbshapes result -edge 3 -vertex 3
60 checkview -screenshot -2d -path ${imagedir}/${test_image}.png