Palette couleur

rem ============================================================================
rem                  Palette Couleur
rem ============================================================================
label clic
dim i,j,n,w,h,r(223),v(222),b(222)
w = 20 : h = 20
for j = 1 to 12
    for i = 1 to 18
        n = i+18*(j-1)
        picture n : top n,50+j*(h+1) : left n,50+i*(w+1) : width n,w : height n,h
        on_click n,clic
    next i
next j
for i = 217 to 222
    picture i : top i,top(216)+h+1 : left i,50+(w+1)*(i-210): width i,w : height i,h
    on_click i,clic  
next i
alpha 300 : top 300,50 : left 300,70 : font_bold 300 : font_name 300,"tahoma"
font_size 300,10 : color 300,102,255,255
caption 300,"Cliquez sur une couleur pour l'essayer et obtenir son code"
alpha 310 : top 310,top(217)+w+40 : left 310,70 : font_bold 310
font_name 310,"tahoma" : font_size 310,10
caption 310,"Le code : "
memo 320 : top 320,top(310)-20 : left 320,left(310) + width(310) : height 320,60
width 320,80 : font_bold 320
picture 330 : top 330,top(320) : left 330, left(320) + width(320) + 20
width 330,200 : height 330,60
n = 1 : read r(n)
while r(n) <> 999
      read v(n) : read b(n)      
      color n,r(n),v(n),b(n)
      n = n + 1 : read r(n)      
end_while

end
rem ============================================================================
clic:
  
   item_add 320,"R = " + str$(r(number_click))
   item_add 320,"V = " + str$(v(number_click))
   item_add 320,"B = " + str$(b(number_click))
   color 330,r(number_click),v(number_click),b(number_click)
  
return
rem ============================================================================
data 000,000,000, 000,000,051, 000,000,102, 000,000,153, 000,000,204, 000,000,255
data 051,000,000, 051,000,051, 051,000,102, 051,000,153, 051,000,204, 051,000,255
data 102,000,000, 102,000,051, 102,000,102, 102,000,153, 102,000,204, 102,000,255

data 000,051,000, 000,051,051, 000,051,102, 000,051,153, 000,051,204, 000,051,255
data 051,051,000, 051,051,051, 000,051,102, 000,051,153, 000,051,204, 051,051,255
data 102,051,000, 102,051,051, 102,051,102, 102,051,153, 102,051,204, 102,051,255

data 000,102,000, 000,102,051, 000,102,102, 000,102,153, 000,102,204, 000,102,255
data 051,102,000, 051,102,051, 051,102,102, 051,102,153, 051,102,204, 051,102,255
data 102,102,000, 102,102,051, 102,102,102, 102,102,153, 102,102,204, 102,102,255

data 000,153,000, 000,153,051, 000,153,102, 000,153,153, 000,153,204, 000,153,255
data 051,153,000, 051,153,051, 051,153,102, 051,153,153, 051,153,204, 051,153,255
data 102,153,000, 102,153,051, 102,153,102, 102,153,153, 102,153,204, 102,153,255

data 000,204,000, 000,204,051, 000,204,102, 000,204,153, 000,204,204, 000,204,255
data 051,204,000, 051,204,051, 051,204,102, 051,204,153, 051,204,204, 051,204,255
data 102,204,000, 102,204,051, 102,204,102, 102,204,153, 102,204,204, 102,204,255

data 000,255,000, 000,255,051, 000,255,102, 000,255,153, 000,255,204, 000,255,255
data 051,255,000, 051,255,051, 051,255,102, 051,255,153, 051,255,204, 051,255,255
data 102,255,000, 102,255,051, 102,255,102, 102,255,153, 102,255,204, 102,255,255

data 153,000,000, 153,000,051, 153,000,102, 153,000,153, 153,000,204, 153,000,255
data 204,000,000, 204,000,051, 204,000,102, 204,000,153, 204,000,204, 204,000,255
data 255,000,000, 255,000,051, 255,000,102, 255,000,153, 255,000,204, 255,000,255

data 153,051,000, 153,051,051, 153,051,102, 153,051,153, 153,051,204, 153,051,255
data 204,051,000, 204,051,051, 204,051,102, 204,051,153, 204,051,204, 204,051,255
data 255,051,000, 255,051,051, 255,051,102, 255,051,153, 255,051,204, 255,051,255

data 153,102,000, 153,102,051, 153,102,102, 153,102,153, 153,102,204, 153,102,255
data 204,102,000, 204,102,051, 204,102,102, 204,102,153, 204,102,204, 204,102,255
data 255,102,000, 255,102,051, 255,102,102, 255,102,153, 255,102,204, 255,102,255

data 153,153,000, 153,153,051, 153,153,102, 153,153,153, 153,153,204, 153,153,255
data 204,153,000, 204,153,051, 204,153,102, 204,153,153, 204,153,204, 204,153,255
data 255,153,000, 255,153,051, 255,153,102, 255,153,153, 255,153,204, 255,153,255

data 153,204,000, 153,204,051, 153,204,102, 153,204,153, 153,204,204, 153,204,255
data 204,204,000, 204,204,051, 204,204,102, 204,204,153, 204,204,204, 204,204,255
data 255,204,000, 255,204,051, 255,204,102, 255,204,153, 255,204,204, 255,204,255

data 153,255,000, 153,255,051, 153,255,102, 153,255,153, 153,255,204, 153,255,255
data 204,255,000, 204,255,051, 204,255,102, 204,255,153, 204,255,204, 204,255,255
data 204,255,255, 255,255,051, 255,255,102, 255,255,153, 255,255,204, 255,255,255

data 051,051,051, 102,102,102, 128,128,128, 153,153,153, 192,192,192, 204,204,204

data 999
rem ============================================================================

SUB Palette216(x,y)
' Choix d'une couleur dans une palette de 216 (couleurs html) affichée en x,y absolus
' Résultat dans le clipboard sous forme d'une chaîne r,g,b (ex. "192,24,33")
IF LABEL("Aff_pal216") = 0 THEN LABEL Aff_pal216
IF LABEL("Qui_pal216") = 0 THEN LABEL Qui_pal216
DIM_LOCAL a$, nf, np, nq, nt, nb, wc, hc, r, g, b, i, j
wc = 15: hc = 12
nf=3000: WHILE OBJECT_EXISTS(nf)=1: nf=nf+1: END_WHILE
FORM nf: TOP nf,y: LEFT nf,x: WIDTH nf,12*(wc+1)+16: HEIGHT nf,18*hc+84
BORDER_SMALL nf
CAPTION nf," PALETTE 216 COULEURS HTML": ON_CLOSE nf,Qui_pal216
np=nf+1: WHILE OBJECT_EXISTS(np)=1: np=np+1: END_WHILE
PICTURE np: PARENT np,nf: FULL_SPACE np: 2D_TARGET_IS np
ON_CLICK np,Aff_pal216
nq=np+1: WHILE OBJECT_EXISTS(nq)=1: nq=nq+1: END_WHILE
PICTURE nq: PARENT nq,nf: TOP nq,18*hc+22: LEFT nq,5: WIDTH nq,3*wc
HEIGHT nq,25
nt=nq+1: WHILE OBJECT_EXISTS(nt)=1: nt=nt+1: END_WHILE
ALPHA nt: PARENT nt,nf: TOP nt,TOP(nq): LEFT nt,LEFT(nq)+WIDTH(nq)+5
FONT_NAME nt,"Lucida Console"
nb=nt+1: WHILE OBJECT_EXISTS(nb)=1: nb=nb+1: END_WHILE
BUTTON nb: PARENT nb,nf:TOP nb,TOP(nq): WIDTH nb,50: LEFT nb,WIDTH(nf)-70
CAPTION nb,"OK"
ON_CLICK nb,Qui_pal216
r = 0: g = 0: b = 0
FOR j=0 TO 17
    y = j*(hc+1)
    FOR i = 0 TO 11
        x = i*(wc+1): 2D_PEN_COLOR r,g,b: 2D_FILL_COLOR r,g,b
        2D_RECTANGLE x,y,x+wc,y+hc
        b=b+51
        IF b>255
            b=0: g=g+51
            IF g>255
                g=0: r=r+51
            END_IF
        END_IF
    NEXT i
NEXT j
r=0: g=0: b=0: COLOR nq,r,g,b
CAPTION nt,"#00 00 00"+CHR$(10)+STR$(r)+","+STR$(g)+","+STR$(b)
2D_TARGET_IS nq: 2D_PEN_COLOR 164,164,164
WHILE 1>0: WAIT 100: TO_FOREGROUND nf: END_WHILE
Aff_pal216:
x=MOUSE_X_LEFT_DOWN(np): y=MOUSE_Y_LEFT_DOWN(np)
r=COLOR_PIXEL_RED(np,x,y): g=COLOR_PIXEL_GREEN(np,x,y): b=COLOR_PIXEL_BLUE(np,x,y)
2D_FILL_COLOR r,g,b: 2D_RECTANGLE 0,0,WIDTH(nq),HEIGHT(nq)
a$ = "#"+RIGHT$("0"+HEX$(r),2)+" "+RIGHT$("0"+HEX$(g),2)+" "+RIGHT$("0"+HEX$(b),2)
a$ = a$ + CHR$(10)+STR$(r)+","+STR$(g)+","+STR$(b)
CAPTION nt,a$
RETURN
Qui_pal216:
2D_TARGET_IS 0: DELETE nf
CLIPBOARD_STRING_COPY STR$(r)+","+STR$(g)+","+STR$(b)
END_SUB