[occt.git] / tests / bugs / modalg_6 / bug26180

puts "========"
puts "OCC26180"
puts "========"
puts ""
##################################################################
## Modeling Algorithms - Provide shape self-intersection detector
##################################################################

list aBoxNames

set BOX_SIZE 5
set BOX_GRID_SIZE 30

for {set i 0} {$i < $BOX_GRID_SIZE} {incr i} {
  for {set j 0} {$j < $BOX_GRID_SIZE} {incr j} {
    box b_[expr $i]_[expr $j] [expr $i * 6] [expr $j * 6] 0 5 5 5
        lappend aBoxNames b_[expr $i]_[expr $j]
        lappend aBoxNames " "
  }
}

psphere s 30
ttranslate s 90.0 90.0 0.0
incmesh s 0.002
trinfo s

set aCompName "C"
compound {*}$aBoxNames s $aCompName

vinit
vsetdispmode 1
vdisplay $aCompName
vsettransparency $aCompName 0.8
vdump $imagedir/${casename}_1.png

selfintersect $aCompName -tol 0.0 -profile

vdisplay [set aCompName]_overlapped
vsetcolor [set aCompName]_overlapped red
vsettransparency [set aCompName]_overlapped 0.5
vfit
vdump $imagedir/${casename}_2.png
Commit	Line	Data
ae9a414a	1	puts "========"
	2	puts "OCC26180"
	3	puts "========"
	4	puts ""
	5	##################################################################
	6	## Modeling Algorithms - Provide shape self-intersection detector
	7	##################################################################
	8
	9	list aBoxNames
	10
	11	set BOX_SIZE 5
	12	set BOX_GRID_SIZE 30
	13
	14	for {set i 0} {$i < $BOX_GRID_SIZE} {incr i} {
	15	for {set j 0} {$j < $BOX_GRID_SIZE} {incr j} {
	16	box b_[expr $i]_[expr $j] [expr $i * 6] [expr $j * 6] 0 5 5 5
	17	lappend aBoxNames b_[expr $i]_[expr $j]
	18	lappend aBoxNames " "
	19	}
	20	}
	21
	22	psphere s 30
	23	ttranslate s 90.0 90.0 0.0
	24	incmesh s 0.002
	25	trinfo s
	26
	27	set aCompName "C"
	28	compound {*}$aBoxNames s $aCompName
	29
	30	vinit
	31	vsetdispmode 1
	32	vdisplay $aCompName
	33	vsettransparency $aCompName 0.8
	34	vdump $imagedir/${casename}_1.png
	35
	36	selfintersect $aCompName -tol 0.0 -profile
	37
	38	vdisplay [set aCompName]_overlapped
	39	vsetcolor [set aCompName]_overlapped red
	40	vsettransparency [set aCompName]_overlapped 0.5
	41	vfit
	42	vdump $imagedir/${casename}_2.png