Dica Gerando cores RGB

Olá pessoal, estava precisando usar os códigos RGB para um trabalho e resolvi montar um script para gerar, o problema é que o arquivo gerado é grande e precisa ser aberto com um editor como o TextPad:

/**************************************************************
programa...:
Autor......: Denis Berteli
Data.......: 14/8/2015
objetivo...: Gerar as cores RGB
**************************************************************/
/* exemplo
00 00 00
00 00 01
00 00 02
...
FF FF FE
FF FF FF
*/

DEFINE VARIABLE c-lista AS CHARACTER NO-UNDO INITIAL "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F".

DEFINE VARIABLE p1 AS CHARACTER NO-UNDO EXTENT 16.
DEFINE VARIABLE p2 AS CHARACTER NO-UNDO EXTENT 16.
DEFINE VARIABLE i1 AS INT64 NO-UNDO.
DEFINE VARIABLE i2 AS INT64 NO-UNDO.
DEFINE VARIABLE c-aux AS CHARACTER NO-UNDO.
DEFINE VARIABLE i-cont AS INT64 NO-UNDO.

DEFINE TEMP-TABLE tt-r NO-UNDO
FIELD cor AS CHAR.

DEFINE TEMP-TABLE tt-g NO-UNDO
FIELD cor AS CHAR.

DEFINE TEMP-TABLE tt-b NO-UNDO
FIELD cor AS CHAR.

OUTPUT TO "c:\temp\cores.html" NO-CONVERT.

DO i1 = 1 TO 16:

ASSIGN p1[i1] = ENTRY(i1,c-lista)
p2[i1] = ENTRY(i1,c-lista).
END.

DO i1 = 1 TO 16:

ASSIGN c-aux = p1[i1].

DO i2 = 1 TO 16:
ASSIGN c-aux = p1[i1] + p2[i2].

CREATE tt-r.
ASSIGN tt-r.cor = c-aux.

CREATE tt-g.
ASSIGN tt-g.cor = c-aux.

CREATE tt-b.
ASSIGN tt-b.cor = c-aux.
END.
END.

ASSIGN i-cont = 0.

PUT UNFORMATTED
"<table border='1'>" SKIP
"<tr>" SKIP.

FOR EACH tt-r,
EACH tt-g,
EACH tt-b:

ASSIGN i-cont = i-cont + 1.

PUT UNFORMATTED
"<td bgcolor='#" tt-r.cor + tt-g.cor + tt-b.cor "'>" tt-r.cor + tt-g.cor + tt-b.cor "</td>" SKIP.

IF i-cont MOD 16 = 0 THEN
PUT UNFORMATTED
"</tr><tr>" SKIP.

END.

PUT UNFORMATTED
SKIP "</tr></table>" SKIP.

OUTPUT CLOSE.

Pode converter a tabela de cores Progress em RGB


FUNCTION fRGB RETURN CHARACTER (INPUT pColor AS INTEGER):

IF pColor = ? THEN RETURN "":U.

IF pColor > COLOR-TABLE:NUM-ENTRIES THEN RETURN "":U.

RETURN SUBSTITUTE("rgb(&1,&2,&3)",
COLOR-TABLE:GET-RED-VALUE(pColor),
COLOR-TABLE:GET-GREEN-VALUE(pColor),
COLOR-TABLE:GET-BLUE-VALUE(pColor)).

END FUNCTION.

MESSAGE fRGB(pHandle:BGCOLOR)
VIEW-AS ALERT-BOX INFO BUTTONS OK.