tests/bugs/modalg_5/bug25410

   1 puts "============"
   2 puts "OCC25410"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Tool for extended check of validity of the curve on the surface
   7 ######################################################
   8
   9 pload XSDRAW
  10
  11 testreadiges [locate_data_file bug25410_Tank8.igs] b1
  12
  13 checkcurveonsurf b1
  14 xdistef e_0 f_0
  15 bopargcheck b1 /ic #f
  16 bopargcheck b1 /ics #f
  17
  18
  19 testreadiges [locate_data_file bug25410_Tank7.igs] b2
  20 checkcurveonsurf b2
  21 xdistef e_0 f_0
  22 bopargcheck b2 /ic #f
  23 bopargcheck b2 /ics #f