1puts "============" 2puts "OCC7166" 3puts "============" 4puts "" 5####################################################################### 6# Improvement of API of ThruSection 7####################################################################### 8 9set BugNumber OCC7166 10 11set z1 40 12set z2 20 13set z3 0 14set z4 100 15 16# spine 17polyline s1 0 0 ${z4} 0 0 -${z4} 18 19# beginning vertex 20vertex v4 0 0 ${z4} 21# ending vertex 22vertex v5 0 0 -${z4} 23 24# profile 25# top triangle 26vertex v1 0 0 ${z1} 27vertex v2 5 5 ${z1} 28vertex v3 0 10 ${z1} 29 30edge e1 v1 v2 31edge e2 v2 v3 32edge e3 v3 v1 33 34wire w1 e1 e2 e3 35 36# top quadrangle 37vertex v11 15 15 ${z2} 38vertex v12 -15 15 ${z2} 39vertex v13 -15 -15 ${z2} 40vertex v14 15 -15 ${z2} 41 42edge e11 v11 v12 43edge e12 v12 v13 44edge e13 v13 v14 45edge e14 v14 v11 46 47wire w11 e11 e12 e13 e14 48 49# top octagon 50vertex v21 25 25 ${z3} 51vertex v22 -25 25 ${z3} 52vertex v23 -30 10 ${z3} 53vertex v24 -30 -10 ${z3} 54vertex v25 -25 -25 ${z3} 55vertex v26 25 -25 ${z3} 56vertex v27 30 -10 ${z3} 57vertex v28 30 10 ${z3} 58 59edge e21 v21 v22 60edge e22 v22 v23 61edge e23 v23 v24 62edge e24 v24 v25 63edge e25 v25 v26 64edge e26 v26 v27 65edge e27 v27 v28 66edge e28 v28 v21 67 68wire w21 e21 e22 e23 e24 e25 e26 e27 e28 69 70# bottom quadrangle 71vertex v111 15 15 -${z2} 72vertex v112 -15 15 -${z2} 73vertex v113 -15 -15 -${z2} 74vertex v114 15 -15 -${z2} 75 76edge e111 v111 v112 77edge e112 v112 v113 78edge e113 v113 v114 79edge e114 v114 v111 80 81wire w111 e111 e112 e113 e114 82 83# bottom triangle 84vertex v101 0 0 -${z1} 85vertex v102 5 5 -${z1} 86vertex v103 0 10 -${z1} 87 88edge e101 v101 v102 89edge e102 v102 v103 90edge e103 v103 v101 91 92wire w101 e101 e102 e103 93 94mksweep s1 95 96addsweep v4 -T 97addsweep w1 98addsweep w11 99addsweep w21 100addsweep w111 101addsweep w101 102addsweep v5 -T 103 104catch {buildsweep result} 105 106 107checkprops result -s 185899 108 109checknbshapes result -vertex 2 -edge 33 -wire 11 -face 11 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 58 110 111 112set index [lsearch [whatis result] Closed] 113if {$index == -1} { 114 puts "Faulty ${BugNumber} : result is not Closed shape" 115 116} 117 118 119