return 0;
}
+Standard_Integer OCC22595 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
+{
+ gp_Mat M0;
+ di << "M0 = "
+ << " {" << M0(1,1) << "} {" << M0(1,2) << "} {" << M0(1,3) <<"}"
+ << " {" << M0(2,1) << "} {" << M0(2,2) << "} {" << M0(2,3) <<"}"
+ << " {" << M0(1,1) << "} {" << M0(1,2) << "} {" << M0(1,3) <<"}";
+ return 0;
+}
+
void QABugs::Commands_19(Draw_Interpretor& theCommands) {
const char *group = "QABugs";
theCommands.Add ("OCC22980", "OCC22980", __FILE__, OCC22980, group);
theCommands.Add ("OCC23595", "OCC23595", __FILE__, OCC23595, group);
theCommands.Add ("OCC22611", "OCC22611 string nb", __FILE__, OCC22611, group);
+ theCommands.Add ("OCC22595", "OCC22595", __FILE__, OCC22595, group);
return;
}
--- /dev/null
+puts "============"
+puts "OCC22595"
+puts "============"
+puts ""
+######################################################
+# gp_Mat's constructors incompletely initilize memory
+######################################################
+
+set BugNumber OCC22595
+pload QAcommands
+
+set Min_ListLength 11
+
+set List [ OCC22595 ]
+
+set status 0
+set ListLength [llength ${List}]
+
+if { ${ListLength} != ${Min_ListLength}} {
+ set status 1
+ puts "Error: ListLength = ${ListLength}"
+}
+
+set index0 0
+set M11 [lindex ${List} [expr ${index0} +2]]
+set M12 [lindex ${List} [expr ${index0} + 3 ]]
+set M13 [lindex ${List} [expr ${index0} + 4 ]]
+set M21 [lindex ${List} [expr ${index0} + 5 ]]
+set M22 [lindex ${List} [expr ${index0} + 6 ]]
+set M23 [lindex ${List} [expr ${index0} + 7 ]]
+set M31 [lindex ${List} [expr ${index0} + 8 ]]
+set M32 [lindex ${List} [expr ${index0} + 9 ]]
+set M33 [lindex ${List} [expr ${index0} + 10 ]]
+
+if { ${M11} != 0 || ${M12} != 0 || ${M13} != 0 } {
+ set status 1
+}
+if { ${M21} != 0 || ${M22} != 0 || ${M23} != 0 } {
+ set status 1
+}
+if { ${M31} != 0 || ${M32} != 0 || ${M33} != 0 } {
+ set status 1
+}
+if { $status != 0 } {
+ puts "Faulty $BugNumber"
+} else {
+ puts "OK $BugNumber"
+}
+
+
+
--- /dev/null
+puts "============"
+puts "OCC22332"
+puts "============"
+puts ""
+
+######################################################
+#
+######################################################
+
+set BUGNUMBER OCC22332
+
+vinit
+vclear
+box b 100 100 100
+vsetdispmode b 1
+vdisplay b
+vtrihedron tri
+vfit
+
+vmoveto 0 0
+
+# TEST LINEWIDTH
+# draw a 10px horizontal line at (10,10) - (400,10)
+vlayerline 10 10 400 10 10
+
+checkcolor 15 5 1 0 0
+checkcolor 15 13 1 0 0
+checkcolor 15 14 0 0 0
+
+# TEST LINETYPE
+# draw a slashed 10px horizontal line at (10,10) - (400,10)
+vlayerline 10 10 400 10 10 1
+
+checkcolor 23 10 1 0 0
+checkcolor 25 10 1 0 0
+checkcolor 26 10 0 0 0
+checkcolor 30 10 0 0 0
+checkcolor 32 10 1 0 0
+
+set only_screen 1
+