mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
5bffb88282
AIS_ColoredShape::Compute() - improve logic to split input shape into Closed and Open volumes with back-face culling enabled when possible. Change last argument of method StdPrs_ShadedShape::Add() from boolean to enumeration StdPrs_Volume which controls parsing of Closed/Open volumes within input shape. Make method StdPrs_ShadedShape::ExploreSolids() public. Extend Draw Harness command vaspects with option -setvisibility to hide subshape (using AIS_ColoredShape). Add new test cases bugs/bis/bug25687_1 and bugs/bis/bug25687_2. the logic of bindSubShapes method clarified Conflicts: src/AIS/AIS_ColoredShape.cxx AIS_ColoredShape::dispatchColors considers the colors of displayed shapes in connection with specific priority the color of specific shape can be exported from several ways: the color of this shape, the color of a compound containing this shape. The highest priority has the color of shape than the one of the compound. The color with highest priority will be displayed. This patch accounts for the highest priority of the shape color. For example: w - wire has GREEN color; e - edge has RED color; "w" contains "e"; all edges of "w" will be displayed in GREEN color except "e" edge, it will be displayed in RED color Added sample generating model of Intel i7-4790 CPU on which the problem can be reproduced
100 lines
2.9 KiB
Tcl
100 lines
2.9 KiB
Tcl
# Dimensions demo
|
|
#
|
|
# It shows capability of OCC to create different kinds
|
|
# of dimensions (linear and angular) with 2D or 3D text.
|
|
|
|
#Category: Visualization
|
|
#Title: Dimensions in 3d viewer
|
|
|
|
set aTopLoc [locate_data_file occ/Top.brep]
|
|
set aBotLoc [locate_data_file occ/Bottom.brep]
|
|
set aHatch [locate_data_file images/hatch_1.png]
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
puts "Importing shapes..."
|
|
restore $aTopLoc a
|
|
restore $aBotLoc b
|
|
|
|
vinit View1 w=768 h=768
|
|
vclear
|
|
vsetdispmode 0
|
|
vsetcolorbg 255 255 255
|
|
vbottom
|
|
|
|
puts "Getting cut projection..."
|
|
box bb -150 -250 0 150 250 100
|
|
bsection bs b bb
|
|
bsection as a bb
|
|
vdisplay bs as
|
|
vfit
|
|
|
|
set anAEdges [explode as E]
|
|
set aBEbges [explode bs E]
|
|
|
|
set anArrAngle [expr 3.14 * 12.0 / 180.0]
|
|
|
|
# Form dimension names list to set parameters with vdimparam command
|
|
set aList {rd_1 rd_2 ad_1 ad_2 ad_3}
|
|
for {set i 1} {$i <= 10} {incr i} {
|
|
lappend aList ld_$i
|
|
}
|
|
|
|
puts "Creating dimensions..."
|
|
vdimension ld_1 -length -shapes bs_27 -plane xoy -color black -flyout -15
|
|
vdimension ld_2 -length -shapes bs_14 -plane xoy -color black -flyout 15
|
|
vdimension ld_3 -length -shapes bs_28 -plane xoy -color black -label right -flyout -27
|
|
vdimension ld_4 -length -shapes as_7 -plane xoy -color black -flyout -20
|
|
vdimension ld_5 -length -shapes as_28 -plane xoy -color black -flyout -15
|
|
vdimension ld_6 -length -shapes as_18 -plane xoy -color black -flyout 30
|
|
vdimension ld_7 -length -shapes bs_20 -plane xoy -color black -flyout -20
|
|
vdimension ld_8 -length -shapes as_43 -plane xoy -color black -flyout 55 -label right
|
|
vdimension ld_9 -length -shapes as_12 -plane xoy -color black -flyout 35 -label right
|
|
vdimension ld_10 -length -shapes as_40 -plane xoy -color black -flyout 15
|
|
|
|
vdimension rd_1 -radius -shapes bs_45 -color black -label right
|
|
vdimension rd_2 -radius -shapes bs_63 -color black
|
|
|
|
vdimension ad_1 -angle -shapes as_38 as_49 -color black
|
|
vdimension ad_2 -angle -shapes bs_24 bs_25 -color black
|
|
vdimension ad_3 -angle -shapes as_48 as_43 -color black
|
|
|
|
puts "Changing text and arrow paramaters of dimensions..."
|
|
foreach i $aList {
|
|
vdimparam $i -text 3d sh 6 -arrowlength 4 -arrowangle $anArrAngle
|
|
}
|
|
|
|
vfit
|
|
|
|
puts "Displaying exported shapes..."
|
|
vdisplay a b
|
|
vsetdispmode a 1
|
|
vsetdispmode b 1
|
|
vaspects a -setmaterial steel
|
|
vaspects b -setmaterial bronze
|
|
|
|
puts "Clipping shapes for better view..."
|
|
vclipplane create pa
|
|
vclipplane change pa equation 0 0 1 0
|
|
vclipplane change pa capping on
|
|
vclipplane change pa capping color 0.9 0.9 0.9
|
|
vclipplane set pa object a
|
|
|
|
vclipplane create pb
|
|
vclipplane change pb equation 0 0 1 0
|
|
vclipplane change pb capping on
|
|
vclipplane change pb capping color 1.0 0.8 0.0
|
|
vclipplane set pb object b
|
|
|
|
vsettexturemode Driver1/Viewer1/View1 2
|
|
vclipplane change pa capping texname $aHatch
|
|
vclipplane change pa capping texscale 0.05 -0.05
|
|
vclipplane change pb capping texname $aHatch
|
|
vclipplane change pb capping texscale 0.05 0.05
|
|
|
|
vbottom
|
|
vrotate -0.3 -0.3 0
|
|
vfit
|
|
vzoom 1.2
|
|
|
|
puts "Done." |