| 1 | puts "========" |
| 2 | puts "OCC25104" |
| 3 | puts "========" |
| 4 | puts "" |
| 5 | ########################################################## |
| 6 | # 0025104: Prism from BSpline curve can not be chamfered |
| 7 | ########################################################## |
| 8 | |
| 9 | restore [locate_data_file bug25104_whale2-draw-path.brep] path |
| 10 | |
| 11 | prism Extrude001 path 0. 0. 5. |
| 12 | |
| 13 | set bug_info [string trim [bopcheck Extrude001]] |
| 14 | if {$bug_info != "This shape seems to be OK."} { |
| 15 | puts "ERROR: OCC25104 is reproduced. Prism has been created with errors." |
| 16 | } |