t_id
1184
t_adddate
2003/11/05
t_result
0
t_knownrunerror
0
t_opts
-Or
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/21 02:09:00 30 | 2024/05/21 04:16:00 27 | |
i386 | 7 | 14.0 | 2024/05/21 02:09:00 30 | 2024/05/21 04:13:00 54 | |
m68k | 1 | 2.0 | 2024/05/21 04:00:00 53 | 2024/05/21 04:00:00 53 | |
powerpc | 1 | 2.0 | 2024/05/21 04:15:00 238 | 2024/05/21 04:15:00 238 | |
x86_64 | 34 | 68.0 | 2024/05/21 02:15:00 26 | 2024/05/21 04:16:00 27 | |
mipsel | 1 | 2.0 | 2024/05/21 04:11:00 185 | 2024/05/21 04:11:00 185 | |
aarch64 | 6 | 12.0 | 2024/05/21 02:25:00 38 | 2024/05/21 03:50:00 37 | |
linux | 38 | 76.0 | 2024/05/21 02:09:00 30 | 2024/05/21 04:16:00 27 | |
win32 | 1 | 2.0 | 2024/05/21 03:02:00 25 | 2024/05/21 03:02:00 25 | |
go32v2 | 1 | 2.0 | 2024/05/21 04:13:00 54 | 2024/05/21 04:13:00 54 | |
solaris | 10 | 20.0 | 2024/05/21 03:08:00 30 | 2024/05/21 03:35:00 27 | |
3.3.1 | 36 | 72.0 | 2024/05/21 02:09:00 30 | 2024/05/21 04:15:00 238 | |
3.2.3 | 14 | 28.0 | 2024/05/21 02:31:00 25 | 2024/05/21 04:16:00 27 |
{ %opt=-Or } { Source provided for Free Pascal Bug Report 2514 } { Submitted by "Andreas Horst" on 2003-05-28 } { e-mail: AndyHorst@web.de } {$mode objfpc} type TRGB=record TRGB2HSL: record r,g,b : extended; l,h,s : extended; end; end; THSL=record end; function TRGB2HSL(rgb:TRGB):THSL; var maxcolor,mincolor:Extended; begin with rgb,TRGB2HSL do begin if r<0 then r:=0; if r>1 then r:=1; if g<0 then g:=0; if g>1 then g:=1; if b<0 then b:=0; if b>1 then b:=1; if rmaxcolor then maxcolor:=b; if maxcolor=mincolor then begin l:=maxcolor; s:=0; h:=0; Exit; end; l:=(maxcolor+mincolor)/2; if l<0.5 then s:=(maxcolor-mincolor)/(maxcolor+mincolor) else s:=(maxcolor-mincolor)/(2-maxcolor-mincolor); if r=maxcolor then h:=(g-b)/(maxcolor-mincolor); if g=maxcolor then h:=2+(b-r)/(maxcolor-mincolor); if b=maxcolor then h:=4+(r-g)/(maxcolor-mincolor); end end; var rgb : TRGB; i : longint; begin fillchar(rgb,sizeof(rgb),0); for i:=0 to 100 do TRGB2HSL(rgb); end.