lib
/
VTK-5.0.0
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Cloned library of VTK-5.0.0 with extra build files for internal package management.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
0 Tags
9.4 MiB
 
 
 
 
 
 
Tag: Branch: Tree: 1a1c91536b
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1a1c91536b'
${ noResults }
VTK-5.0.0/Wrapping/Tcl/vtktesting/mccases.tcl

242 lines
5.6 KiB
Raw Blame History

# Used for setting vertex values for clipping, cutting, and contouring tests
proc case1 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 1 - 00000001"
} else {
caseLabel SetText "Case 1c - 11111110"
}
}
proc case2 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 2 - 00000011"
} else {
caseLabel SetText "Case 2c - 11111100"
}
}
proc case3 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $IN
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 3 - 00000101"
} else {
caseLabel SetText "Case 3c - 11111010"
}
}
proc case4 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 4 - 01000001"
} else {
caseLabel SetText "Case 4c - 10111110"
}
}
proc case5 { scalars IN OUT } {
$scalars InsertValue 0 $OUT
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 5 - 00110010"
} else {
caseLabel SetText "Case 5c - 11001101"
}
}
proc case6 { scalars IN OUT } {
$scalars InsertValue 0 $OUT
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 6 - 00011010"
} else {
caseLabel SetText "Case 6c - 11100101"
}
}
proc case7 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 7 - 01000011"
} else {
caseLabel SetText "Case 7c - 10111100"
}
}
proc case8 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 8 - 00110011"
} else {
caseLabel SetText "Case 8c - 11001100"
}
}
proc case9 { scalars IN OUT } {
$scalars InsertValue 0 $OUT
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $IN
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 9 - 01001110"
} else {
caseLabel SetText "Case 9c - 10110001"
}
}
# 27 -> 1b -> 00011011
proc case9 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 9 - 00011011"
} else {
caseLabel SetText "Case 9c - 11101011"
}
}
proc case10 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 10 - 01101001"
} else {
caseLabel SetText "Case 10c - 10010110"
}
}
proc case11 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $OUT
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 11 - 01110001"
} else {
caseLabel SetText "Case 11c - 10001110"
}
}
proc case12 { scalars IN OUT } {
$scalars InsertValue 0 $OUT
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $OUT
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 12 - 00111010"
} else {
caseLabel SetText "Case 12c - 11000101"
}
}
proc case13 { scalars IN OUT } {
$scalars InsertValue 0 $OUT
$scalars InsertValue 1 $IN
$scalars InsertValue 2 $OUT
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $IN
$scalars InsertValue 5 $OUT
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $OUT
if {$IN == 1} {
caseLabel SetText "Case 13 - 01011010"
} else {
caseLabel SetText "Case 13c - 10100101"
}
}
proc case14 { scalars IN OUT } {
$scalars InsertValue 0 $IN
$scalars InsertValue 1 $OUT
$scalars InsertValue 2 $IN
$scalars InsertValue 3 $IN
$scalars InsertValue 4 $OUT
$scalars InsertValue 5 $IN
$scalars InsertValue 6 $IN
$scalars InsertValue 7 $IN
if {$IN == 1} {
caseLabel SetText "Case 14 - 11101101"
} else {
caseLabel SetText "Case 14c - 00010010"
}
}