mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
aaf8d6a98d
The table of named colors has been compressed and moved out from Quantity_Color.cxx into Quantity_ColorTable.pxx. Quantity_NameOfColor - grayscale enumeration values have been re-ordered to fix discontinuity. Duplicating colors has been merged within enumeration: CHARTREUSE=CHARTREUSE1, GOLD=GOLD1, GREEN=GREEN1, ORANGE=ORANGE1, ORANGERED=ORANGERED1, RED=RED1, TOMATO=TOMATO1, YELLOW=YELLOW1. Added aliases to several other common colors: BLUE=BLUE1, CYAN=CYAN1, LIGHTCYAN=LIGHTCYAN1, MAGENTA=MAGENTA1. Quantity_Color class definition has been cleaned to follow OCCT coding style. Quantity_Color now stores NCollection_Vec3<float> as class field instead of separate components. Removed unused class Quantity_ColorDefinitionError. New methods Quantity_Color::Convert_LinearRGB_To_sRGB() and Quantity_Color::Convert_sRGB_To_LinearRGB() converting RGB components from linear to non-linear sRGB colorspace and vice versa. Image_PixMap::PixelColor() and Image_PixMap::SetPixelColor() methods have been extended with an optional argument for performing linearization/delinearization of 8-bit sRGB pixel formats. Draw Harness command AISColor has been corrected to take color name instead of enumeration index.
76 lines
1.8 KiB
Plaintext
76 lines
1.8 KiB
Plaintext
puts "========"
|
|
puts "Capping plane perserving material"
|
|
puts "========"
|
|
|
|
set aHatch [locate_data_file images/hatch_1.png]
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
puts "Create the geometry"
|
|
box b0sole 10 10 0 30 30 70
|
|
box b0hole 20 20 -10 10 10 90
|
|
bcut b0 b0sole b0hole
|
|
box b1 40 20 0 10 30 70
|
|
box b2 20 40 0 20 10 70
|
|
box b3 0 40 0 20 10 70
|
|
box b4 0 10 0 10 30 70
|
|
box b5 0 0 0 30 10 70
|
|
|
|
set aNbParts 6
|
|
set aColors { RED YELLOW GREEN GRAY MAGENTA ORANGE }
|
|
|
|
compound b0 b1 b2 b3 b4 b5 cc
|
|
|
|
puts "Create the viewer"
|
|
vclear
|
|
vclose ALL
|
|
vinit name=View1 w=512 h=512
|
|
|
|
vpoint p0 0 0 0
|
|
vzbufftrihedron
|
|
|
|
puts "Display the geometry as dedicated objects"
|
|
for { set aPartIter 0 } { $aPartIter < $aNbParts } { incr aPartIter } {
|
|
vdisplay -noupdate -dispMode 1 b${aPartIter}
|
|
set aColor [lindex $aColors $aPartIter]
|
|
vsetcolor -noupdate b${aPartIter} $aColor
|
|
}
|
|
|
|
puts "Display the geometry as sole object"
|
|
vdisplay -noupdate -dispMode 1 cc
|
|
for { set aPartIter 0 } { $aPartIter < $aNbParts } { incr aPartIter } {
|
|
set aColor [lindex $aColors $aPartIter]
|
|
vaspects -noupdate cc -subShapes b${aPartIter} -setColor $aColor
|
|
}
|
|
# show also connected interactive object
|
|
vconnectto co -70 0 0 cc
|
|
vsetdispmode co 1
|
|
vsetlocation cc 70 0 0
|
|
vfit
|
|
|
|
|
|
set aPln1Z 40
|
|
set aPln2Y 15
|
|
|
|
vpoint p1 0 0 1
|
|
vpoint p2 1 0 1
|
|
vpoint p3 0 1 1
|
|
vplane pp1 p1 p2 p3
|
|
vsetlocation -noupdate pp1 25 0 [expr $aPln1Z - 1]
|
|
vremove -noupdate p1 p2 p3
|
|
|
|
vpoint p1 0 1 0
|
|
vpoint p2 1 1 0
|
|
vpoint p3 0 1 1
|
|
vplane pp2 p1 p2 p3
|
|
vsetlocation -noupdate pp2 25 $aPln2Y 35
|
|
vremove -noupdate p1 p2 p3
|
|
verase pp1 pp2
|
|
vfit
|
|
vdisplay pp1 pp2
|
|
vzoom 0.8
|
|
|
|
puts "Enable capping planes"
|
|
vclipplane pln1 -set -equation 0 0 -1 $aPln1Z -capping 1 -color 0.5 0.5 0.5 -texname $aHatch -texscale 0.02 -0.02 -useObjMaterial 1
|
|
vclipplane pln2 -set -equation 0 1 0 [expr -$aPln2Y] -capping 1 -color 0.8 0.8 0.9 -texname $aHatch -texscale 0.02 -0.02
|