mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
1704c57631
- bugs modalg_5 bug23954 - Added test case for issue 23954 - bugs modalg_1 bug60776_1 - Corrected square of shape and deleted appropriate TODO - bugs moddata_1 bug13 - Added check for the curve length obtained as a result of intersection - feat featprism S2 - Corrected square of shape and deleted appropriate TODO
20 lines
539 B
Plaintext
20 lines
539 B
Plaintext
puts "============"
|
|
puts "OCC23954"
|
|
puts "============"
|
|
puts ""
|
|
##########################################################
|
|
# BRepPrimAPI_MakeRevol fails to recognize a torus case
|
|
##########################################################
|
|
|
|
circle c_1 0 100 0 1 0 0 0 1 0 100
|
|
circle c_2 0 100 0 1 0 0 0 0 1 100
|
|
circle c_3 0 100 0 1 0 0 0 -1 0 100
|
|
circle c_4 0 100 0 1 0 0 0 0 1 10
|
|
circle c_5 0 100 0 1 0 0 0 0 1 120
|
|
for { set i 1 } { $i <= 5 } { incr i } {
|
|
mkedge e c_$i
|
|
revol r e 0 0 0 0 0 1 90
|
|
mksurface s_$i r
|
|
dump s_$i
|
|
}
|