# Used for setting vertex values for clipping, cutting, and contouring tests


package provide vtktesting 4.0

proc case1 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 1 - 00000001"
    } else {
	caseLabel SetText "Case 1c - 11111110"
    }
}

proc case2 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 2 - 00000011"
    } else {
	caseLabel SetText "Case 2c - 11111100"
    }
}

proc case3 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $IN
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 3 - 00000101"
    } else {
	caseLabel SetText "Case 3c - 11111010"
    }
}

proc case4 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 4 - 01000001"
    } else {
	caseLabel SetText "Case 4c - 10111110"
    }
}

proc case5 { scalars IN OUT } {
$scalars InsertComponent 0 0 $OUT
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 5 - 00110010"
    } else {
	caseLabel SetText "Case 5c - 11001101"
    }
}

proc case6 { scalars IN OUT } {
$scalars InsertComponent 0 0 $OUT
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT
    if {$IN == 1} {
	caseLabel SetText "Case 6 - 00011010"
    } else {
	caseLabel SetText "Case 6c - 11100101"
    }
}

proc case7 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 7 - 01000011"
    } else {
	caseLabel SetText "Case 7c - 10111100"
    }
}

proc case8 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 8 - 00110011"
    } else {
	caseLabel SetText "Case 8c - 11001100"
    }
}

proc case9 { scalars IN OUT } {
$scalars InsertComponent 0 0 $OUT
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $IN
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 9 - 01001110"
    } else {
	caseLabel SetText "Case 9c - 10110001"
    }
}
# 27 -> 1b -> 00011011
proc case9 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 9 - 00011011"
    } else {
	caseLabel SetText "Case 9c - 11101011"
    }
}

proc case10 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 10 - 01101001"
    } else {
	caseLabel SetText "Case 10c - 10010110"
    }
}

proc case11 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $OUT
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 11 - 01110001"
    } else {
	caseLabel SetText "Case 11c - 10001110"
    }
}

proc case12 { scalars IN OUT } {
$scalars InsertComponent 0 0 $OUT
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $OUT
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 12 - 00111010"
    } else {
	caseLabel SetText "Case 12c - 11000101"
    }
}

proc case13 { scalars IN OUT } {
$scalars InsertComponent 0 0 $OUT
$scalars InsertComponent 1 0 $IN
$scalars InsertComponent 2 0 $OUT
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $IN
$scalars InsertComponent 5 0 $OUT
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $OUT	
    if {$IN == 1} {
	caseLabel SetText "Case 13 - 01011010"
    } else {
	caseLabel SetText "Case 13c - 10100101"
    }
}

proc case14 { scalars IN OUT } {
$scalars InsertComponent 0 0 $IN
$scalars InsertComponent 1 0 $OUT
$scalars InsertComponent 2 0 $IN
$scalars InsertComponent 3 0 $IN
$scalars InsertComponent 4 0 $OUT
$scalars InsertComponent 5 0 $IN
$scalars InsertComponent 6 0 $IN
$scalars InsertComponent 7 0 $IN
    if {$IN == 1} {
	caseLabel SetText "Case 14 - 11101101"
    } else {
	caseLabel SetText "Case 14c - 00010010"
    }
}