75 lines
2.1 KiB
Plaintext
Executable File
75 lines
2.1 KiB
Plaintext
Executable File
# Test the sorting changes to the intersect command. In particular, these tests
|
|
# should make sure that sort / / line_graph is run properly on the result of the
|
|
# surface intersection.
|
|
|
|
# Note: The test segfaults toward the end, apparently due to a pre-existing bug
|
|
# in LaGriT. This should eventually be fixed.
|
|
|
|
# Input files:
|
|
# test02.inp - a sinusoidal surface
|
|
|
|
# Output files:
|
|
# Test 01 - intersection of two planes
|
|
# Test 02 - intersect plane and a sinusoidal surface
|
|
# Test 03 - intersect elements
|
|
|
|
# Create input meshes
|
|
cmo / create / mo_s1 / / / triplane
|
|
createpts / xyz / 11 11 1 / 0. 0. 0. / 1. 1. 1. / 1 1 1
|
|
cmo/setatt/mo_s1/imt 1
|
|
connect
|
|
cmo/setatt/mo_s1/itetclr 1
|
|
resetpts/itp
|
|
|
|
# Make a copy of the mesh and rotate it about a line.
|
|
cmo / copy / mo_s2 / mo_s1
|
|
cmo select mo_s2
|
|
rotateln / 1 0 0 / nocopy / .5 -1.0 0.0 / .6 2.0 0.0 / 45.0
|
|
|
|
cmo / printatt / mo_s1 / -xyz- / minmax
|
|
cmo / printatt / mo_s2 / -xyz- / minmax
|
|
|
|
# Test 01
|
|
# Intersect the two meshes. Afterward mo_line should have its edges sorted and
|
|
# should have attributes cid, ctype, and loop_id set properly.
|
|
# output single line
|
|
intersect / mo_line / mo_s1 / mo_s2
|
|
cmo / status
|
|
* dump / avs / output_test01.inp / mo_line / 1 1 0 0
|
|
|
|
# Create input mesh for Test 02
|
|
cmo / create / mo_plane / / / triplane
|
|
createpts / xyz / 11 11 1 / 0. 0. 0. / 10. 20. 0. / 1 1 1
|
|
cmo/setatt/mo_plane imt 1
|
|
connect
|
|
cmo/setatt/mo1/itetclr 1
|
|
resetpts/itp
|
|
* dump input_sheet2.inp mo_plane
|
|
|
|
# read input mesh for Test 02
|
|
read / input_test02.inp / mo_surf
|
|
|
|
cmo / printatt / mo_plane / -xyz- / minmax
|
|
cmo / printatt / mo_surf / -xyz- / minmax
|
|
|
|
# Test 02
|
|
# Intersect with sinusoidal surface
|
|
# Check attributes (see image)
|
|
# output multiple lines
|
|
intersect / mo_lines / mo_plane / mo_surf
|
|
cmo/printatt/mo_lines/ cid minmax
|
|
cmo/printatt/mo_lines/ ctype minmax
|
|
cmo/printatt/mo_lines/ loopid minmax
|
|
* dump / output_test02.inp / mo_lines
|
|
|
|
# Test 03
|
|
# find intersected elements
|
|
intersect_elements/ mo_s1 / mo_s2 / xsect
|
|
cmo / select / mo_s1
|
|
eltset / e_obj / xsect / gt / 0
|
|
cmo/setatt/mo_s1/itetclr/ eltset,get,e_obj 2
|
|
* dump/ output_test03.inp / mo_s1
|
|
|
|
|
|
finish
|