Couleurs HTML

DIM a$,nc%,cnom$(150),ccode$(150),i%,j%,wp%,hp%,x%,y%,r%,g%,b%
DATA "Couleurs": ' 140 couleurs
DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
DATA "FF"
READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
nc% = 0: READ a$
WHILE a$<>"FF"
    nc% = nc%+1: cnom$(nc%) = a$: READ a$: ccode$(nc%) = a$: READ a$
END_WHILE

WIDTH 0,800: HEIGHT 0,950: BORDER_SMALL 0: FONT_NAME 0,"Calibri": CAPTION 0,"140 couleurs HTML"
wp% = 100: hp% = 18: y% = 0: x% = 5
FOR i% = 1 TO nc%
    a$ = ccode$(i%): r%=HEX(LEFT$(a$,2)): g%=HEX(MID$(a$,3,2)): b%=HEX(RIGHT$(a$,2))
    PICTURE i%: WIDTH i%,wp%: HEIGHT i%,hp%: TOP i%,y%: LEFT i%,x%: COLOR i%,r%,g%,b%
    j%=i%+200: ALPHA j%: TOP j%,y%+hp%: LEFT j%,x%: CAPTION j%,"#"+a$
    j%=i%+400: ALPHA j%: TOP j%,y%+hp%+10: LEFT j%,x%: CAPTION j%,cnom$(i%)
    x% = x%+wp%+10: IF x%>(WIDTH(0)-wp%-20) THEN x% = 5: y%=y%+45
NEXT i%
END

CouleursHtml(10)
message clipboard_string_paste$
TERMINATE
' ==============================================================================
SUB CouleursHtml(nc%)
  ' Affichage des 140 couleurs standard HTML. nc% = nombre de colonnes d'affichage
  ' Si clic sur une couleur: code hexa RRGGBB copié dans le clipboard.
  DIM_LOCAL f%,ff%,a$,n$,c$,nco%,nr,i%,j%,wp%,hp%,hi%,x%,y%,r%,g%,b%,te%,dln%,dlc%
  IF LABEL("Fchtml")=0 THEN LABEL Fchtml
  IF LABEL("Fchaff")=0 THEN LABEL Fchaff
  IF LABEL("Fchcol")=0 THEN LABEL Fchcol
  IF LABEL("Fchtri")=0 THEN LABEL Fchtri
  DATA "140 Couleurs": ' les 140 couleurs Html
  DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
  DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
  DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
  DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
  DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
  DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
  DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
  DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
  DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
  DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
  DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
  DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
  DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
  DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
  DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
  DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
  DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
  DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
  DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
  DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
  DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
  DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
  DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
  DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
  DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
  DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
  DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
  DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
  DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
  DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
  DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
  DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
  DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
  DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
  DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
  DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
  DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
  DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
  DATA "FF"
  dln% = 900: DLIST dln%
  dlc% = dln%+1: DLIST dlc%
  RESTORE: READ a$: WHILE a$<>"140 Couleurs": READ a$: END_WHILE
  nco% = 0: READ a$
  WHILE a$<>"FF"
      nco% = nco%+1: READ c$: ITEM_ADD dln%,a$+","+c$: ITEM_ADD dlc%,c$+","+a$: READ a$
  END_WHILE
  SORT dlc%
  wp% = 100: hp% = 18: hi% = 45
  nr = nco%/nc%: IF nr > INT(nr) THEN nr = nr+1: ' nombre de rangées d'affichage
  f% = dlc%+1
  FORM f%: WIDTH f%,(wp%+5)*nc%+20: HEIGHT f%,nr*45+60: BORDER_SMALL f%: CAPTION f%,"140 couleurs HTML"
          FONT_BOLD f%: FONT_SIZE f%,12: COLOR f%,96,96,96: ON_CLOSE f%,Fchtml
          FONT_NAME f%,"Calibri"
  i%=f%+1: PICTURE i%: PARENT i%,f%: FULL_SPACE i%: HEIGHT i%,HEIGHT(f%+1)-28
          2D_TARGET_IS i%: PRINT_TARGET_IS i%: FONT_SIZE i%,8: ON_CLICK i%,Fchcol
  i%=i%+1: BUTTON i%: PARENT i%,f%: TOP i%,HEIGHT(f%)-60: LEFT i%,5: CAPTION i%,"Tri/Teinte"
          ON_CLICK i%,Fchtri: te% = 0
  i%=i%+1: PICTURE i%: PARENT i%,f%: HEIGHT i%,24: TOP i%,TOP(i%-1): LEFT i%,LEFT(i%-1)+80: WIDTH i%,50
  i%=i%+1: ALPHA i%: PARENT i%,f%: TOP i%,TOP(i%-1)+3: LEFT i%,LEFT(i%-1)+WIDTH(i%-1)
          COLOR i%,255,255,0
  i%=i%+1: BUTTON i%: PARENT i%,f%: TOP i%,TOP(f%+2): LEFT i%,WIDTH(f%)-95
          CAPTION i%,"OK": ON_CLICK i%,Fchtml
  te% = 0: GOSUB Fchaff: ' affichage: tri alpha
  CLIPBOARD_STRING_COPY "FFFFFF": ' à tout hasard
  WHILE ff%=0: PAUSE 300: END_WHILE
  2D_TARGET_IS 0: PRINT_TARGET_IS 0: DELETE f%: DELETE dln%: DELETE dlc%: EXIT_SUB
Fchtml:
  ff% = 1
RETURN
Fchaff:
  y% = 0: x% = 5: HIDE f%+1: CLS
  FOR i% = 1 TO nco%
      IF te% = 0
          a$ = ITEM_READ$(dln%,i%): j% = INSTR(a$,",")
          c$ = RIGHT_POS$(a$,j%+1): n$ = LEFT$(a$,j%-1)
      ELSE
          a$ = ITEM_READ$(dlc%,i%): j% = INSTR(a$,",")
          n$ = RIGHT_POS$(a$,j%+1): c$ = LEFT$(a$,j%-1)
      END_IF
      r%=HEX(LEFT$(c$,2)): g%=HEX(MID$(c$,3,2)): b%=HEX(RIGHT$(c$,2))
      2D_PEN_COLOR r%,g%,b%: 2D_FILL_COLOR r%,g%,b%
      2D_RECTANGLE x%,y%,x%+wp%,y%+hp%: 2D_FILL_COLOR 255,255,255
      PRINT_LOCATE x%,y%+hp%: PRINT "#"+c$
      PRINT_LOCATE x%,y%+hp%+11: PRINT n$
      x% = x%+wp%+5: IF x%>(WIDTH(f%)-wp%) THEN x% = 5: y% = y%+hi%
  NEXT i%
  SHOW f%+1
RETURN
Fchcol:
  x% = MOUSE_X_LEFT_DOWN(f%+1): y% = MOUSE_Y_LEFT_DOWN(f%+1)
  r%=COLOR_PIXEL_RED(f%+1,x%,y%): g%=COLOR_PIXEL_GREEN(f%+1,x%,y%): b%=COLOR_PIXEL_BLUE(f%+1,x%,y%)
  c$ = RIGHT$("0"+HEX$(r%),2)+RIGHT$("0"+HEX$(g%),2)+RIGHT$("0"+HEX$(b%),2)
  CLIPBOARD_STRING_COPY c$
  COLOR f%+3,r%,g%,b%
  FOR i% = 1 TO nco%
      a$ = ITEM_READ$(dlc%,i%)
      IF LEFT$(ITEM_READ$(dlc%,i%),6) = c$ THEN EXIT_FOR
  NEXT i%
  CAPTION f%+4," #"+c$+" "+RIGHT_POS$(a$,8)+" "
RETURN
Fchtri:
  IF te% = 0
      te% = 1: GOSUB Fchaff: CAPTION f%+2,"Tri/Alpha"
  ELSE
      te% = 0: GOSUB Fchaff: CAPTION f%+2,"Tri/Teinte"
  END_IF
RETURN
END_SUB

READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE

RESTORE : READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE

CouleursHtml()
END
' =====
SUB CouleursHtml()
  DIM_LOCAL f%,ff%,a$,nc%,cnom$(150),ccode$(150),i%,j%,wp%,hp%,x%,y%,r%,g%,b%
  IF LABEL("Fchtml")=0 THEN LABEL Fchtml
  DATA "Couleurs": ' les 140 couleurs Html
  DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
  DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
  DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
  DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
  DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
  DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
  DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
  DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
  DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
  DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
  DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
  DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
  DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
  DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
  DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
  DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
  DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
  DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
  DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
  DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
  DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
  DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
  DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
  DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
  DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
  DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
  DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
  DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
  DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
  DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
  DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
  DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
  DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
  DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
  DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
  DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
  DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
  DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
  DATA "FF"
  RESTORE: READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
  nc% = 0: READ a$
  WHILE a$<>"FF"
      nc% = nc%+1: cnom$(nc%) = a$: READ a$: ccode$(nc%) = a$: READ a$
  END_WHILE
  f%=900
  FORM f%: WIDTH f%,1150: HEIGHT f%,700: BORDER_SMALL f%: CAPTION f%,"140 couleurs HTML"
  ON_CLOSE f%,Fchtml
  PICTURE f%+1: PARENT f%+1,f%: FULL_SPACE f%+1: 2D_TARGET_IS f%+1
  PRINT_TARGET_IS f%+1: FONT_NAME f%+1,"Calibri" : font_bold f%+1
  wp% = 100: hp% = 18: y% = 10: x% = 25
  FOR i% = 1 TO nc%
      a$ = ccode$(i%): r%=HEX(LEFT$(a$,2)): g%=HEX(MID$(a$,3,2)): b%=HEX(RIGHT$(a$,2))
      2D_PEN_COLOR r%,g%,b%: 2D_FILL_COLOR r%,g%,b%
      2D_RECTANGLE x%,y%,x%+wp%,y%+hp%: 2D_FILL_COLOR 255,255,255
      PRINT_LOCATE x%,y%+hp%: PRINT "#"+a$
      PRINT_LOCATE x%,y%+hp%+10: PRINT cnom$(i%)
      x% = x%+wp%+10: IF x%>(WIDTH(f%)-wp%-20) THEN x% = 25: y% = y%+45
  NEXT i%
  WHILE ff%=0: PAUSE 300: END_WHILE: DELETE f%: EXIT_SUB
Fchtml:
  ff% = 1
RETURN
END_SUB

   -. --- ..- ...  ... --- -- -- . ...  .-  .--. . ..-  .--. .-. .  ... -.. .  .-.. .-  -- . -- .  . .--. --- --.- ..- .