[occt.git] / tests / bugs / vis / bug26056

puts "============"
puts "CR26056"
puts "AIS_LengthDimension can not build dimension for face-edge or edge-face"
puts "============"
puts ""
puts "Tests case of edge-face and face-edge input geometry for dimension"

pload MODELING VISUALIZATION

plane aPlane 0 0 50 0 0 1
mkface aFace aPlane -100 100 -100 100

line aLine 0 -100 0 1 0 0
mkedge anEdge aLine -100 100

line aLine2 0 0 100 1 1 0.1
mkedge anEdge2 aLine2 -150 150

circle aCirc1 30 -30 100 0.3 -0.3 1 20.
mkedge anEdge3 aCirc1

circle aCirc2 -130 -30 100 0.3 -0.3 1 20.
mkedge anEdge4 aCirc2 30. 180.

vinit View1
vclear
vaxo
vdisplay anEdge anEdge2 anEdge3 anEdge4 aFace
vdimension aDim1 -length -shapes anEdge aFace -text 15 3d sh
vdimension aDim2 -length -shapes aFace anEdge2 -text 15 3d sh
vdimension aDim3 -length -shapes aFace anEdge3 -text 15 3d sh
vdimension aDim4 -length -shapes aFace anEdge4 -text 15 3d sh
vfit

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
1c078d3b	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"
3c162495	7
1c078d3b	8	pload MODELING VISUALIZATION
1c078d3b	9
	10	plane aPlane 0 0 50 0 0 1
	11	mkface aFace aPlane -100 100 -100 100
	12
3c162495	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
1c078d3b	17	mkedge anEdge2 aLine2 -150 150
1c078d3b	18
3c162495	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
1c078d3b	25	vinit View1
	26	vclear
	27	vaxo
3c162495	28	vdisplay anEdge anEdge2 anEdge3 anEdge4 aFace
1c078d3b	29	vdimension aDim1 -length -shapes anEdge aFace -text 15 3d sh
1c078d3b	30	vdimension aDim2 -length -shapes aFace anEdge2 -text 15 3d sh
3c162495	31	vdimension aDim3 -length -shapes aFace anEdge3 -text 15 3d sh
3c162495	32	vdimension aDim4 -length -shapes aFace anEdge4 -text 15 3d sh
1c078d3b	33	vfit
1c078d3b	34
5747059b	35	checkview -screenshot -3d -path ${imagedir}/${test_image}.png