Palette de couleurs

' Palette de couleurs html, de &000000 à &FFFFFF, pas de &33
' &000000, &000033, &000066, &000099, &0000CC, &0000FF, &003300, &003333, etc.
LABEL Couleur
DIM wco%, hco%, wct%, hct%, ech%, ecv%, ra%, ga%, ba%, i%, j%, x%, y%
wco% = 50: hco% = 20: ech% = 0: ecv% = 0
wct% = 6*(wco%+ech%): hct% = 36*(hco%+ecv%)
FORM 300: TOP 300, 0: LEFT 300, 0: BORDER_SMALL 300
CAPTION 300, " - PALETTE DE 216 COULEURS HTML -"
WIDTH 300, wct%+16: HEIGHT 300, hct%+34
PICTURE 301: PARENT 301, 300: WIDTH 301, wct%: HEIGHT 301,hct%
2D_TARGET_IS 301
ra% = 0: ga% = 0: ba% = 0
FOR j% = 0 TO 35
    y% = j%*(hco%+ecv%)
    FOR i% = 0 TO 5
        x% = i%*(wco%+ech%)
        2D_FILL_COLOR ra%,ga%,ba%
        2D_RECTANGLE x%,y%,x%+wco%-1,y%+hco%-1
        ba% = ba% + HEX("33")
        IF ba% > 255
            ba% = 0: ga% = ga% + HEX("33")
            IF ga% > 255
                ga% = 0: ra% = ra% + HEX("33")
            END_IF
        END_IF
    NEXT i%
NEXT j%
ON_CLICK 301, Couleur
END

Couleur:
x% = MOUSE_X_POSITION(301): y% = MOUSE_Y_POSITION(301)
ra% = COLOR_PIXEL_RED(301,x%,y%)
ga% = COLOR_PIXEL_GREEN(301,x%,y%)
ba% = COLOR_PIXEL_BLUE(301,x%,y%)
COLOR 0, ra%,ga%,ba%
RETURN

' Palette de couleurs html, de &000000 à &FFFFFF, pas de &33
' &000000, &000033, &000066, &000099, &0000CC, &0000FF, &003300, &003333, etc.
LABEL Couleur,tCouleur
DIM wco%, hco%, wct%, hct%, ech%, ecv%, ra%, ga%, ba%, i%, j%, x%, y%
DIM colStr$,bTimer
wco% = 50: hco% = 20: ech% = 0: ecv% = 0
wct% = 6*(wco%+ech%): hct% = 36*(hco%+ecv%)
FORM 300: TOP 300, 0: LEFT 300, 0: BORDER_SMALL 300
CAPTION 300, " - PALETTE DE 216 COULEURS HTML -"
WIDTH 300, wct%+16: HEIGHT 300, hct%+34
PICTURE 301: PARENT 301, 300: WIDTH 301, wct%: HEIGHT 301,hct%
2D_TARGET_IS 301
TIMER 302:TIMER_OFF 302:TIMER_INTERVAL 302,100:ON_TIMER 302,tCouleur

ra% = 0: ga% = 0: ba% = 0
FOR j% = 0 TO 35
    y% = j%*(hco%+ecv%)
    FOR i% = 0 TO 5
        x% = i%*(wco%+ech%)
        2D_FILL_COLOR ra%,ga%,ba%
        2D_RECTANGLE x%,y%,x%+wco%-1,y%+hco%-1
        ba% = ba% + HEX("33")
        IF ba% > 255
            ba% = 0: ga% = ga% + HEX("33")
            IF ga% > 255
                ga% = 0: ra% = ra% + HEX("33")
            END_IF
        END_IF
    NEXT i%
NEXT j%
ON_CLICK 301, Couleur
TIMER_ON 302
END

tCouleur:
  bTimer=1:gosub Couleur:bTimer=0
  colStr$=HEX$(ba%): IF ODD(LEN(colStr$))=1 THEN colStr$="0"+colStr$
  colStr$=colStr$+HEX$(ga%): IF ODD(LEN(colStr$))=1 THEN colStr$="0"+colStr$
  colStr$=colStr$+HEX$(ra%): IF ODD(LEN(colStr$))=1 THEN colStr$="0"+colStr$
  CAPTION 300,"Couleur : #"+colStr$
RETURN

Couleur:
  x% = MOUSE_X_POSITION(301): y% = MOUSE_Y_POSITION(301)
  ra% = COLOR_PIXEL_RED(301,x%,y%)
  ga% = COLOR_PIXEL_GREEN(301,x%,y%)
  ba% = COLOR_PIXEL_BLUE(301,x%,y%)
  if bTimer=0 THEN COLOR 0, ra%,ga%,ba%:CAPTION 0,colStr$
RETURN