3 puts "AIS_LengthDimension can not build dimension for face-edge or edge-face"
4 puts "Tests case of edge-face and face-edge input geometry for dimension"
8 pload MODELING VISUALIZATION
10 plane aPlane 0 0 50 0 0 1
11 mkface aFace aPlane -100 100 -100 100
13 line aLine 0 -100 0 1 0 0
14 mkedge anEdge aLine -100 100
16 line aLine2 0 0 100 1 1 0.1
17 mkedge anEdge2 aLine2 -150 150
19 circle aCirc1 30 -30 100 0.3 -0.3 1 20.
22 circle aCirc2 -130 -30 100 0.3 -0.3 1 20.
23 mkedge anEdge4 aCirc2 30. 180.
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
35 vdump $imagedir/${casename}.png