tests/bugs/modalg_7/bug29430

   1 puts "========"
   2 puts "OCC29430"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # [Regression] Curve evaluation at boundary point.
   7 #################################################
   8
   9 pload QAcommands
  10
  11 # After launching the command below we will obtain
  12 # some wire (stored in "result" variable) containing
  13 # a single edge based on arc of circle and its first and last
  14 # 3D-points (p1 and p2 correspondingly) taken from
  15 # composite curve (BRepAdaptor_CompCurve) built on this wire.
  16
  17 OCC29430 result p1 p2
  18
  19 vertex v1 p1
  20 vertex v2 p2
  21
  22 explode result v
  23
  24 # Now, let's check
  25 # 1. whether p1 and p2 match the vertices of the wire;
  26 # 2. whether p1 and p2 are different points.
  27
  28 distmini d11 result_1 v1
  29 distmini d12 result_1 v2
  30 distmini d21 result_2 v1
  31 distmini d22 result_2 v2
  32 distmini dv12 v1 v2
  33
  34
  35 if { ([dval d11_val] > 1.0e-7) && ([dval d21_val] > 1.0e-7) } {
  36   puts "Error: Start point of the wire does not match any its vertex."
  37 }
  38 if { ([dval d12_val] > 1.0e-7) && ([dval d22_val] > 1.0e-7) } {
  39   puts "Error: End point of the wire does not match any its vertex."
  40 }
  41
  42 if { [dval dv12_val] < 1.0e-7 } {
  43   puts "Error: Start and End points of the wire are the same."
  44 }
  45
  46