1 puts "================"
3 puts "================"
5 # Note: Numerical control of setting color
14 # Set NamedShape attribute
17 SetShape D ${aLabel} aBox1
19 # Initialize 3D viewer
22 # Add AISPresentation attribute with parameter NS
25 # Display presentation of NamedShape in the viewer
26 AISDisplay D ${aLabel}
28 # Close/Open transaction
31 set list [OCC1030_AISColor D ${aLabel}]
32 set AISColor1 [lindex ${list} [expr [llength ${list}] - 1] ]
34 # Set a color of the shape as NOC_GREEN
36 AISColor D ${aLabel} ${GreenColor}
38 set list [OCC1030_AISColor D ${aLabel}]
39 set AISColor2 [lindex ${list} [expr [llength ${list}] - 1] ]
41 # Close/Open transaction
50 set list [OCC1030_AISColor D ${aLabel}]
51 set AISColor3 [lindex ${list} [expr [llength ${list}] - 1] ]
59 set list [OCC1030_AISColor D ${aLabel}]
60 set AISColor4 [lindex ${list} [expr [llength ${list}] - 1] ]
63 puts "AISColor1 = ${AISColor1}"
64 puts "AISColor2 = ${AISColor2}"
65 puts "AISColor3 = ${AISColor3}"
66 puts "AISColor4 = ${AISColor4}"
68 set DefaultAISColor 516
70 if { ${AISColor1} != ${DefaultAISColor} } {
71 puts "OCC1030_AISColor command: Error (case 1)"
75 if { ${AISColor2} != ${GreenColor} } {
76 puts "OCC1030_AISColor command: Error (case 2)"
80 if { ${AISColor3} != ${DefaultAISColor} } {
81 puts "OCC1030_AISColor command: Error (case 3)"
85 if { ${AISColor4} != ${GreenColor} } {
86 puts "OCC1030_AISColor command: Error (case 4)"
90 if { ${status} == 0} {
91 puts "OCC1030_AISColor command: OK"