1puts "========" 2puts "0031148: Offset adjacent co-planar faces with different offset values" 3puts "========" 4puts "" 5 6pload MODELING 7 8# unset draw variables for all offset values 9foreach val {0 1 2 3} { 10 foreach x [directory r${val}*_unif] { 11 unset $x 12 } 13} 14 15polyline p 0 0 0 10 0 0 10 0 5 5 0 5 0 0 5 0 0 0 16mkplane f p 17prism s f 0 10 0 18 19perform_offset_multi_with_ref r0_01 s 0 {3 4} {1 2} {470 650 8 8} 0 20perform_offset_multi_with_ref r0_02 s 0 {3 4} {2 1} {470 650 8 8} 0 21perform_offset_multi_with_ref r0_03 s 0 {3 4} {2 2} {480 700 7 7} 0 22 23perform_offset_multi_with_ref r1_01 s 1 {3 4} {2 3} {708 1224 8 8} 0 24perform_offset_multi_with_ref r1_02 s 1 {3 4} {3 2} {708 1224 8 8} 0 25 26perform_offset_multi_with_ref r2_01 s 2 {3 4} {4 4} {1008 2156 7 7} 0 27perform_offset_multi_with_ref r2_02 s 2 {} {} {896 1764 7 7} 0 28perform_offset_multi_with_ref r2_03 s 2 {3 4} {0 1} {826 1470 8 8} 0 29perform_offset_multi_with_ref r2_04 s 2 {3 4} {1 1} {840 1568 7 7} 0 30 31perform_offset_multi_with_ref r3_01 s 3 {4} {5} {1312 3072 8 8} 0 32 33 34# display all created shapes 35foreach val {0 1 2 3} { 36 foreach x [directory r${val}*_unif] { 37 if {[isdraw $x]} { 38 checkview -display $x -2d -path ${imagedir}/${test_image}_$x.png 39 } 40 } 41} 42 43copy r3_01 result 44copy r3_01_unif result_unif 45