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.
74 lines
1.5 KiB
Plaintext
Executable File
74 lines
1.5 KiB
Plaintext
Executable File
#INTERFACE CAF
|
|
# Presentation attributes
|
|
#
|
|
# Testing attribute: TPrsStd_AISPresentation
|
|
#
|
|
# Testing command: AISTransparency
|
|
# Note: Numerical control of setting transparency
|
|
#
|
|
|
|
puts "caf003-F4"
|
|
|
|
# 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
|
|
AISTransparency D ${aLabel2} ${SetTransparency}
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Undo
|
|
Undo D
|
|
|
|
# Update the viewer
|
|
AISRepaint D
|
|
|
|
# Redo
|
|
Redo D
|
|
|
|
# Update the viewer
|
|
AISRepaint D
|
|
|
|
# Check the transparency
|
|
###set aTransparency [lindex [AISTransparency D ${aLabel2}] 0]
|
|
set list [AISTransparency D ${aLabel2}]
|
|
set aTransparency [lindex ${list} [expr [llength ${list}] - 1] ]
|
|
|
|
puts "It is not necessary to have the photo for this case."
|
|
|
|
if { ${aTransparency} != ${SetTransparency} } {
|
|
puts "SetTransparency=${SetTransparency}"
|
|
puts "aTransparency=${aTransparency}"
|
|
puts "The box's transparency is not ${SetTransparency}; AISTransparency command: Error"
|
|
return
|
|
}
|
|
puts "The box's transparency is ${SetTransparency}; AISTransparency command: OK"
|