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.
97 lines
1.9 KiB
Plaintext
Executable File
97 lines
1.9 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC1029"
|
|
puts "================"
|
|
puts ""
|
|
#
|
|
# Note: Numerical control of setting transparency
|
|
#
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D BinOcaf
|
|
UndoLimit D 100
|
|
NewCommand D
|
|
|
|
# Create two boxis
|
|
box aBox1 100 200 300
|
|
set aLabel1 0:2
|
|
SetShape D ${aLabel1} aBox1
|
|
|
|
box aBox2 50 50 0 100 200 300
|
|
set aLabel2 0:3
|
|
SetShape D ${aLabel2} aBox2
|
|
|
|
# Initialize 3D viewer
|
|
AISInitViewer D
|
|
|
|
# Add AISPresentation attribute with parameter NS
|
|
AISSet D ${aLabel1} NS
|
|
AISSet D ${aLabel2} NS
|
|
|
|
# Set shading mode
|
|
vsetdispmode 1
|
|
|
|
# Set a color of the second shape
|
|
AISColor D ${aLabel2} GREEN
|
|
|
|
# Display presentation of NamedShape in the viewer
|
|
AISDisplay D ${aLabel1}
|
|
AISDisplay D ${aLabel2}
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Set a transparency of the second shape
|
|
set SetTransparency 0.9
|
|
OCC1029_AISTransparency D ${aLabel2} ${SetTransparency}
|
|
|
|
set list [OCC1029_AISTransparency D ${aLabel2}]
|
|
set Transparency1 [lindex ${list} [expr [llength ${list}] - 1] ]
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Undo
|
|
Undo D
|
|
|
|
# Update the viewer
|
|
AISRepaint D
|
|
|
|
set list [OCC1029_AISTransparency D ${aLabel2}]
|
|
set Transparency2 [lindex ${list} [expr [llength ${list}] - 1] ]
|
|
|
|
# Redo
|
|
Redo D
|
|
|
|
# Update the viewer
|
|
AISRepaint D
|
|
|
|
set list [OCC1029_AISTransparency D ${aLabel2}]
|
|
set Transparency3 [lindex ${list} [expr [llength ${list}] - 1] ]
|
|
|
|
# Check the transparency
|
|
puts "Transparency1 = ${Transparency1}"
|
|
puts "Transparency2 = ${Transparency2}"
|
|
puts "Transparency3 = ${Transparency3}"
|
|
|
|
set status 0
|
|
if { ${Transparency1} != ${SetTransparency} } {
|
|
puts "OCC1029_Transparency command: Error (case 1)"
|
|
set status 1
|
|
}
|
|
|
|
if { ${Transparency2} != 0. } {
|
|
puts "OCC1029_Transparency command: Error (case 2)"
|
|
set status 1
|
|
}
|
|
|
|
if { ${Transparency3} != ${SetTransparency} } {
|
|
puts "OCC1029_Transparency command: Error (case 3)"
|
|
set status 1
|
|
}
|
|
|
|
if { ${status} == 0} {
|
|
puts "OCC1029_Transparency command: OK"
|
|
}
|
|
|