t_id
1027
t_adddate
2003/10/14
Flag
t_graph
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Skipping test because it uses graph | 50 | 100.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %GRAPH } { %TARGET=go32v2,win32,linux } { Old file: tbs0051.pp } { Graph, shows a problem with putpixel OK 0.99.9 (PM) } {$ifdef go32v2} {define has_colors_equal} {$endif go32v2} uses crt,graph; {$ifndef has_colors_equal} function ColorsEqual(c1, c2 : longint) : boolean; begin ColorsEqual:=((GetMaxColor=$FF) and ((c1 and $FF)=(c2 and $FF))) or ((GetMaxColor=$7FFF) and ((c1 and $F8F8F8)=(c2 and $F8F8F8))) or ((GetMaxColor=$FFFF) and ((c1 and $F8FCF8)=(c2 and $F8FCF8))) or ((GetMaxColor>$10000) and ((c1 and $FFFFFF)=(c2 and $FFFFFF))); end; {$endif not has_colors_equal} var gd,gm,gError,yi,i : integer; col: longint; error : word; BEGIN if paramcount=0 then gm:=$111 {640x480/64K HiColor} else begin val(paramstr(1),gm,error); if error<>0 then gm:=$111; end; gd:=detect; InitGraph(gd,gm,''); gError := graphResult; IF gError <> grOk THEN begin writeln ('graphDriver=',gd,' graphMode=',gm, #13#10'Graphics error: ',gError); halt(1); end; for i := 0 to 255 do begin { new grpah unit used word type for colors } col := {i shl 16 + }(i) shl 8 + (i div 2); for yi := 0 to 20 do PutPixel (i,yi,col); SetColor (col); Line (i,22,i,42); end; for i:=0 to 255 do if not ColorsEqual(getpixel(i,15),getpixel(i,30)) then Halt(1); {readkey;}delay(1000); closegraph; END.