test9.di

算断裂的

Fri Aug 27 18:30:29 EDT 1999
-----> # QMG test 9: an object like a hex nut with a triangular crack.


Fri Aug 27 18:30:29 EDT 1999
-----> # Make the brep 'from scratch'.


Fri Aug 27 18:30:29 EDT 1999
-----> 
# get a 6-segment circle approximation.


Fri Aug 27 18:30:29 EDT 1999
-----> 
global PI


Fri Aug 27 18:30:29 EDT 1999
-----> global gm_brep_type_code


Fri Aug 27 18:30:29 EDT 1999
-----> 
gmset {nodes1 scrap} [gm_circ_approx 0 2*$PI 6]


Fri Aug 27 18:30:29 EDT 1999
-----> 
set cplist {}


Fri Aug 27 18:30:29 EDT 1999
-----> 
# make a list of control points for the object.


Fri Aug 27 18:30:29 EDT 1999
-----> # Control pts 0-17 are 18 control points for the inner circle


Fri Aug 27 18:30:29 EDT 1999
-----> # of the bottom surface


Fri Aug 27 18:30:29 EDT 1999
-----> 
set nheight .3

.3
Fri Aug 27 18:30:29 EDT 1999
-----> 
for {set i 0} {$i < 18} {incr i} {
    set ci [lindex $nodes1 $i]
    lappend cplist [lindex $ci 0] 
    lappend cplist [lindex $ci 1] 
    lappend cplist -$nheight
}


Fri Aug 27 18:30:29 EDT 1999
-----> 
# Control pts 18-35 are 18 control points for the inner circle


Fri Aug 27 18:30:29 EDT 1999
-----> # of the top surface


Fri Aug 27 18:30:29 EDT 1999
-----> 
for {set i 0} {$i < 18} {incr i} {
    set ci [lindex $nodes1 $i]
    lappend cplist [lindex $ci 0] 
    lappend cplist [lindex $ci 1] 
    lappend cplist $nheight
}


Fri Aug 27 18:30:29 EDT 1999
-----> 

# Control pts 36-53 are 18 control points for the outer hexagon


Fri Aug 27 18:30:29 EDT 1999
-----> # of the bottom surface


Fri Aug 27 18:30:29 EDT 1999
-----> 
for {set i 0} {$i < 6} {incr i} {
    set sp [list [expr cos(2*$PI*$i/6)] [expr sin(2*$PI*$i/6)]]
    set ep [list [expr cos(2*$PI*($i+1)/6)] [expr sin(2*$PI*($i+1)/6)]]
    for {set j 0} {$j < 3} {incr j} {
	set wt2 [expr 1.7*$j / 3]
	set wt1 [expr 1.7*(3 - $j)/3]
	lappend cplist [expr $wt1*[lindex $sp 0] + $wt2*[lindex $ep 0]]
	lappend cplist [expr $wt1*[lindex $sp 1] + $wt2*[lindex $ep 1]]
	lappend cplist -$nheight
    }
}


Fri Aug 27 18:30:29 EDT 1999
-----> 
# Control pts 54-71 are 18 control points for the outer hexagon


Fri Aug 27 18:30:29 EDT 1999
-----> # of the top surface


Fri Aug 27 18:30:29 EDT 1999
-----> 

for {set i 0} {$i < 6} {incr i} {
    set sp [list [expr cos(2*$PI*$i/6)] [expr sin(2*$PI*$i/6)]]
    set ep [list [expr cos(2*$PI*($i+1)/6)] [expr sin(2*$PI*($i+1)/6)]]
    for {set j 0} {$j < 3} {incr j} {
	set wt2 [expr 1.7*$j / 3]
	set wt1 [expr 1.7*(3 - $j)/3]
	lappend cplist [expr $wt1*[lindex $sp 0] + $wt2*[lindex $ep 0]]
	lappend cplist [expr $wt1*[lindex $sp 1] + $wt2*[lindex $ep 1]]
	lappend cplist $nheight
    }
}


Fri Aug 27 18:30:29 EDT 1999
-----> 

# Control pts 72-74 are the control points bounding the crack.


Fri Aug 27 18:30:29 EDT 1999
-----> 
lappend cplist -1.3 0 0

1.0 0.0 -.3 1.0000000000000002 0.3568220897730896 -.3 0.80901699437494801 0.68761435889789313 -.3 0.50000000000000089 0.86602540378443815 -.3 0.19098300562505391 1.0444364486709834 -.3 -0.19098300562505077 1.0444364486709841 -.3 -0.49999999999999828 0.86602540378443971 -.3 -0.80901699437494579 0.68761435889789557 -.3 -0.99999999999999911 0.35682208977309243 -.3 -1.0 2.7869999390151108e-15 -.3 -1.0000000000000011 -0.35682208977308688 -.3 -0.80901699437495012 -0.68761435889789069 -.3 -0.50000000000000344 -0.8660254037844366 -.3 -0.19098300562505705 -1.0444364486709827 -.3 0.19098300562504739 -1.0444364486709845 -.3 0.49999999999999545 -0.86602540378444126 -.3 0.80901699437494368 -0.68761435889789813 -.3 0.99999999999999778 -0.35682208977309615 -.3 1.0 0.0 .3 1.0000000000000002 0.3568220897730896 .3 0.80901699437494801 0.68761435889789313 .3 0.50000000000000089 0.86602540378443815 .3 0.19098300562505391 1.0444364486709834 .3 -0.19098300562505077 1.0444364486709841 .3 -0.49999999999999828 0.86602540378443971 .3 -0.80901699437494579 0.68761435889789557 .3 -0.99999999999999911 0.35682208977309243 .3 -1.0 2.7869999390151108e-15 .3 -1.0000000000000011 -0.35682208977308688 .3 -0.80901699437495012 -0.68761435889789069 .3 -0.50000000000000344 -0.8660254037844366 .3 -0.19098300562505705 -1.0444364486709827 .3 0.19098300562504739 -1.0444364486709845 .3 0.49999999999999545 -0.86602540378444126 .3 0.80901699437494368 -0.68761435889789813 .3 0.99999999999999778 -0.35682208977309615 .3 1.7 0.0 -.3 1.4166666666666672 0.49074772881118162 -.3 1.1333333333333342 0.98149545762236323 -.3 0.85000000000000153 1.4722431864335448 -.3 0.28333333333333532 1.4722431864335457 -.3 -0.28333333333333083 1.4722431864335466 -.3 -0.84999999999999709 1.4722431864335475 -.3 -1.1333333333333313 0.98149545762236678 -.3 -1.4166666666666656 0.49074772881118617 -.3 -1.7 5.4928515530707947e-15 -.3 -1.4166666666666685 -0.49074772881117706 -.3 -1.1333333333333373 -0.98149545762235968 -.3 -0.85000000000000586 -1.4722431864335421 -.3 -0.28333333333333977 -1.4722431864335448 -.3 0.28333333333332628 -1.4722431864335475 -.3 0.84999999999999221 -1.4722431864335501 -.3 1.1333333333333282 -0.98149545762237045 -.3 1.4166666666666641 -0.49074772881119072 -.3 1.7 0.0 .3 1.4166666666666672 0.49074772881118162 .3 1.1333333333333342 0.98149545762236323 .3 0.85000000000000153 1.4722431864335448 .3 0.28333333333333532 1.4722431864335457 .3 -0.28333333333333083 1.4722431864335466 .3 -0.84999999999999709 1.4722431864335475 .3 -1.1333333333333313 0.98149545762236678 .3 -1.4166666666666656 0.49074772881118617 .3 -1.7 5.4928515530707947e-15 .3 -1.4166666666666685 -0.49074772881117706 .3 -1.1333333333333373 -0.98149545762235968 .3 -0.85000000000000586 -1.4722431864335421 .3 -0.28333333333333977 -1.4722431864335448 .3 0.28333333333332628 -1.4722431864335475 .3 0.84999999999999221 -1.4722431864335501 .3 1.1333333333333282 -0.98149545762237045 .3 1.4166666666666641 -0.49074772881119072 .3 -1.3 0 0
Fri Aug 27 18:30:29 EDT 1999
-----> lappend cplist -1.1 0.05 0

1.0 0.0 -.3 1.0000000000000002 0.3568220897730896 -.3 0.80901699437494801 0.68761435889789313 -.3 0.50000000000000089 0.86602540378443815 -.3 0.19098300562505391 1.0444364486709834 -.3 -0.19098300562505077 1.0444364486709841 -.3 -0.49999999999999828 0.86602540378443971 -.3 -0.80901699437494579 0.68761435889789557 -.3 -0.99999999999999911 0.35682208977309243 -.3 -1.0 2.7869999390151108e-15 -.3 -1.0000000000000011 -0.35682208977308688 -.3 -0.80901699437495012 -0.68761435889789069 -.3 -0.50000000000000344 -0.8660254037844366 -.3 -0.19098300562505705 -1.0444364486709827 -.3 0.19098300562504739 -1.0444364486709845 -.3 0.49999999999999545 -0.86602540378444126 -.3 0.80901699437494368 -0.68761435889789813 -.3 0.99999999999999778 -0.35682208977309615 -.3 1.0 0.0 .3 1.0000000000000002 0.3568220897730896 .3 0.80901699437494801 0.68761435889789313 .3 0.50000000000000089 0.86602540378443815 .3 0.19098300562505391 1.0444364486709834 .3 -0.19098300562505077 1.0444364486709841 .3 -0.49999999999999828 0.86602540378443971 .3 -0.80901699437494579 0.68761435889789557 .3 -0.99999999999999911 0.35682208977309243 .3 -1.0 2.7869999390151108e-15 .3 -1.0000000000000011 -0.35682208977308688 .3 -0.80901699437495012 -0.68761435889789069 .3 -0.50000000000000344 -0.8660254037844366 .3 -0.19098300562505705 -1.0444364486709827 .3 0.19098300562504739 -1.0444364486709845 .3 0.49999999999999545 -0.86602540378444126 .3 0.80901699437494368 -0.68761435889789813 .3 0.99999999999999778 -0.35682208977309615 .3 1.7 0.0 -.3 1.4166666666666672 0.49074772881118162 -.3 1.1333333333333342 0.98149545762236323 -.3 0.85000000000000153 1.4722431864335448 -.3 0.28333333333333532 1.4722431864335457 -.3 -0.28333333333333083 1.4722431864335466 -.3 -0.84999999999999709 1.4722431864335475 -.3 -1.1333333333333313 0.98149545762236678 -.3 -1.4166666666666656 0.49074772881118617 -.3 -1.7 5.4928515530707947e-15 -.3 -1.4166666666666685 -0.49074772881117706 -.3 -1.1333333333333373 -0.98149545762235968 -.3 -0.85000000000000586 -1.4722431864335421 -.3 -0.28333333333333977 -1.4722431864335448 -.3 0.28333333333332628 -1.4722431864335475 -.3 0.84999999999999221 -1.4722431864335501 -.3 1.1333333333333282 -0.98149545762237045 -.3 1.4166666666666641 -0.49074772881119072 -.3 1.7 0.0 .3 1.4166666666666672 0.49074772881118162 .3 1.1333333333333342 0.98149545762236323 .3 0.85000000000000153 1.4722431864335448 .3 0.28333333333333532 1.4722431864335457 .3 -0.28333333333333083 1.4722431864335466 .3 -0.84999999999999709 1.4722431864335475 .3 -1.1333333333333313 0.98149545762236678 .3 -1.4166666666666656 0.49074772881118617 .3 -1.7 5.4928515530707947e-15 .3 -1.4166666666666685 -0.49074772881117706 .3 -1.1333333333333373 -0.98149545762235968 .3 -0.85000000000000586 -1.4722431864335421 .3 -0.28333333333333977 -1.4722431864335448 .3 0.28333333333332628 -1.4722431864335475 .3 0.84999999999999221 -1.4722431864335501 .3 1.1333333333333282 -0.98149545762237045 .3 1.4166666666666641 -0.49074772881119072 .3 -1.3 0 0 -1.1 0.05 0
Fri Aug 27 18:30:29 EDT 1999
-----> lappend cplist -1.23 .17 .05

1.0 0.0 -.3 1.0000000000000002 0.3568220897730896 -.3 0.80901699437494801 0.68761435889789313 -.3 0.50000000000000089 0.86602540378443815 -.3 0.19098300562505391 1.0444364486709834 -.3 -0.19098300562505077 1.0444364486709841 -.3 -0.49999999999999828 0.86602540378443971 -.3 -0.80901699437494579 0.68761435889789557 -.3 -0.99999999999999911 0.35682208977309243 -.3 -1.0 2.7869999390151108e-15 -.3 -1.0000000000000011 -0.35682208977308688 -.3 -0.80901699437495012 -0.68761435889789069 -.3 -0.50000000000000344 -0.8660254037844366 -.3 -0.19098300562505705 -1.0444364486709827 -.3 0.19098300562504739 -1.0444364486709845 -.3 0.49999999999999545 -0.86602540378444126 -.3 0.80901699437494368 -0.68761435889789813 -.3 0.99999999999999778 -0.35682208977309615 -.3 1.0 0.0 .3 1.0000000000000002 0.3568220897730896 .3 0.80901699437494801 0.68761435889789313 .3 0.50000000000000089 0.86602540378443815 .3 0.19098300562505391 1.0444364486709834 .3 -0.19098300562505077 1.0444364486709841 .3 -0.49999999999999828 0.86602540378443971 .3 -0.80901699437494579 0.68761435889789557 .3 -0.99999999999999911 0.35682208977309243 .3 -1.0 2.7869999390151108e-15 .3 -1.0000000000000011 -0.35682208977308688 .3 -0.80901699437495012 -0.68761435889789069 .3 -0.50000000000000344 -0.8660254037844366 .3 -0.19098300562505705 -1.0444364486709827 .3 0.19098300562504739 -1.0444364486709845 .3 0.49999999999999545 -0.86602540378444126 .3 0.80901699437494368 -0.68761435889789813 .3 0.99999999999999778 -0.35682208977309615 .3 1.7 0.0 -.3 1.4166666666666672 0.49074772881118162 -.3 1.1333333333333342 0.98149545762236323 -.3 0.85000000000000153 1.4722431864335448 -.3 0.28333333333333532 1.4722431864335457 -.3 -0.28333333333333083 1.4722431864335466 -.3 -0.84999999999999709 1.4722431864335475 -.3 -1.1333333333333313 0.98149545762236678 -.3 -1.4166666666666656 0.49074772881118617 -.3 -1.7 5.4928515530707947e-15 -.3 -1.4166666666666685 -0.49074772881117706 -.3 -1.1333333333333373 -0.98149545762235968 -.3 -0.85000000000000586 -1.4722431864335421 -.3 -0.28333333333333977 -1.4722431864335448 -.3 0.28333333333332628 -1.4722431864335475 -.3 0.84999999999999221 -1.4722431864335501 -.3 1.1333333333333282 -0.98149545762237045 -.3 1.4166666666666641 -0.49074772881119072 -.3 1.7 0.0 .3 1.4166666666666672 0.49074772881118162 .3 1.1333333333333342 0.98149545762236323 .3 0.85000000000000153 1.4722431864335448 .3 0.28333333333333532 1.4722431864335457 .3 -0.28333333333333083 1.4722431864335466 .3 -0.84999999999999709 1.4722431864335475 .3 -1.1333333333333313 0.98149545762236678 .3 -1.4166666666666656 0.49074772881118617 .3 -1.7 5.4928515530707947e-15 .3 -1.4166666666666685 -0.49074772881117706 .3 -1.1333333333333373 -0.98149545762235968 .3 -0.85000000000000586 -1.4722431864335421 .3 -0.28333333333333977 -1.4722431864335448 .3 0.28333333333332628 -1.4722431864335475 .3 0.84999999999999221 -1.4722431864335501 .3 1.1333333333333282 -0.98149545762237045 .3 1.4166666666666641 -0.49074772881119072 .3 -1.3 0 0 -1.1 0.05 0 -1.23 .17 .05
Fri Aug 27 18:30:29 EDT 1999
-----> 

# Create the list of topological vertices -- 6 on top and 6 on the bottom


Fri Aug 27 18:30:29 EDT 1999
-----> # to bound the two hexagons.


Fri Aug 27 18:30:29 EDT 1999
-----> 
set vertlist {}


Fri Aug 27 18:30:29 EDT 1999
-----> 
for {set j 0} {$j < 6} {incr j} {
    lappend vertlist vbottom$j {} {} {} [list [list vertex [expr 36+3*$j]]]
}


Fri Aug 27 18:30:29 EDT 1999
-----> 
for {set j 0} {$j < 6} {incr j} {
    lappend vertlist vtop$j {} {} {} [list [list vertex [expr 54+3*$j]]]
}