+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
-
-puts "==========="
-puts " BUC60898"
-puts "==========="
-puts ""
-
-pload XDE
-
-if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
-## rename to BUC60898.igs
- puts "Faulty BUC60898: here is reading problem"
-} else {
- puts "BUC60898 OK"
- tpcompound a
-
- if [catch {sewing result 1e-7 a } catch_result] {
- puts "Faulty BUC60898: function SEWING gives except"
- } else {
- puts " BUC60898 OK: function SEWING works without except"
- }
- set square 0
- set 2dviewer 0
-}
-
-