tests/bugs/modalg_6/bug27929

   1 puts "============"
   2 puts "OCC27929"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Methods D0 and D1 for trimmed offset surface return different values if the surface has osculating surface
   7 ######################################################
   8
   9 set Toler 1.0e-14
  10
  11 restore [locate_data_file bug27929_f1.brep] f1
  12 mksurface os1 f1
  13 svalue os1 0.5 0.5 x1 y1 z1
  14 svalue os1 0.5 0.5 x2 y2 z2 d1ux d1uy d1uz d1vx d1vy d1vz
  15 vertex v1 x1 y1 z1
  16 vertex v2 x2 y2 z2
  17 distmini di12 v1 v2
  18
  19 if { [dval di12_val] > $Toler } {
  20   puts "Error: Methods D0 and D1 return different result."
  21 } else {
  22   puts "OK: Methods D0 and D1 return equal result."
  23 }
  24
  25 smallview
  26 don f1 v1 v2
  27 fit
  28
  29 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  30
  31 # Check result of D2 method
  32 svalue os1 0.5 0.5 x3 y3 z3 d2ux d2uy d2uz d2vx d2vy d2vz DD2UX DD2UY DD2UZ DD2VX DD2VY DD2VZ DD2UVX DD2UVY DD2UVZ
  33 vertex v3 x3 y3 z3
  34 distmini di13 v1 v3
  35
  36 if { [dval di13_val] > $Toler } {
  37   puts "Error: Methods D0 and D2 return different result."
  38 } else {
  39   puts "OK: Methods D0 and D2 return equal result."
  40 }
  41
  42 if { [expr abs([dval d1ux-d2ux])] > $Toler } {
  43   puts "Error: Methods D1 and D2 return different result."
  44 } else {
  45   puts "OK: Methods D1 and D2 return equal result."
  46 }
  47
  48 if { [expr abs([dval d1uy-d2uy])] > $Toler } {
  49   puts "Error: Methods D1 and D2 return different result."
  50 } else {
  51   puts "OK: Methods D1 and D2 return equal result."
  52 }
  53
  54 if { [expr abs([dval d1uz-d2uz])] > $Toler } {
  55   puts "Error: Methods D1 and D2 return different result."
  56 } else {
  57   puts "OK: Methods D1 and D2 return equal result."
  58 }
  59
  60 if { [expr abs([dval d1vx-d2vx])] > $Toler } {
  61   puts "Error: Methods D1 and D2 return different result."
  62 } else {
  63   puts "OK: Methods D1 and D2 return equal result."
  64 }
  65
  66 if { [expr abs([dval d1vy-d2vy])] > $Toler } {
  67   puts "Error: Methods D1 and D2 return different result."
  68 } else {
  69   puts "OK: Methods D1 and D2 return equal result."
  70 }
  71
  72 if { [expr abs([dval d1vz-d2vz])] > $Toler } {
  73   puts "Error: Methods D1 and D2 return different result."
  74 } else {
  75   puts "OK: Methods D1 and D2 return equal result."
  76 }
  77
  78
  79