1puts "============" 2puts "OCC7166" 3puts "============" 4puts "" 5####################################################################### 6# Improvement of API of ThruSection 7####################################################################### 8 9set BugNumber OCC7166 10 11# spine 12polyline s1 0 0 20 0 0 -20 13 14# profile 15polyline s2 0 5 0 5 0 0 -5 -5 0 0 5 0 16 17# 1 vertex 18vertex v1 0 0 -20 19 20mksweep s1 21 22addsweep v1 -T 23addsweep s2 24 25buildsweep result 26 27 28checkprops result -s 1187.23 29 30checknbshapes result -vertex 4 -edge 6 -wire 3 -face 3 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 17 31 32 33 34