tests/bugs/vis/bug26056

   1 puts "============"
   2 puts "CR26056"
   3 puts "AIS_LengthDimension can not build dimension for face-edge or edge-face"
   4 puts "============"
   5 puts ""
   6 puts "Tests case of edge-face and face-edge input geometry for dimension"
   7
   8 pload MODELING VISUALIZATION
   9
  10 plane aPlane 0 0 50 0 0 1
  11 mkface aFace aPlane -100 100 -100 100
  12
  13 line aLine 0 -100 0 1 0 0
  14 mkedge anEdge aLine -100 100
  15
  16 line aLine2 0 0 100 1 1 0.1
  17 mkedge anEdge2 aLine2 -150 150
  18
  19 circle aCirc1 30 -30 100 0.3 -0.3 1 20.
  20 mkedge anEdge3 aCirc1
  21
  22 circle aCirc2 -130 -30 100 0.3 -0.3 1 20.
  23 mkedge anEdge4 aCirc2 30. 180.
  24
  25 vinit View1
  26 vclear
  27 vaxo
  28 vdisplay anEdge anEdge2 anEdge3 anEdge4 aFace
  29 vdimension aDim1 -length -shapes anEdge aFace -text 15 3d sh
  30 vdimension aDim2 -length -shapes aFace anEdge2 -text 15 3d sh
  31 vdimension aDim3 -length -shapes aFace anEdge3 -text 15 3d sh
  32 vdimension aDim4 -length -shapes aFace anEdge4 -text 15 3d sh
  33 vfit
  34
  35 checkview -screenshot -3d -path ${imagedir}/${test_image}.png