Conversion RGB/HSV

' *******************************************************************
' Procedures de conversion RGB/HSV
' *******************************************************************
' Adapte de http://www.cs.rit.edu/~ncs/color/t_convert.html
' R, G, B = [0..255]
' H = [0..360], S = [0..1], V = [0..1]
' si S = 0, H = 0 par defaut
' *******************************************************************

' Variables globales des procedures
dim RGB_R%, RGB_G%, RGB_B%, RGB_Hex$, HSV_H, HSV_S, HSV_V

' Variables globales du programme principal
dim R%, G%, B%, H, S, V

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenêtre principale

left    0, 220
top     0, 200
width   0, 390
height  0, 250
caption 0, "Conversion HSV / RGB"

' Spins 1-6 (Saisie des données)

spin  1        : ' Teinte (Hue)
left  1, 20
top   1, 30
width 1, 75
min   1, 0
max   1, 360

spin  2        : ' Saturation
left  2, 20
top   2, 80
width 2, 75
min   2, 0
max   2, 100

spin  3        : ' Luminosite (Value)
left  3, 20
top   3, 130
width 3, 75
min   3, 0
max   3, 100

spin  4        : ' Rouge
left  4, 290
top   4, 30
width 4, 75
min   4, 0
max   4, 255

spin  5        : ' Vert
left  5, 290
top   5, 80
width 5, 75
min   5, 0
max   5, 255

spin  6        : ' Bleu
left  6, 290
top   6, 130
width 6, 75
min   6, 0
max   6, 255

' Boutons 7-8 (Conversions)

button  7
left    7, 20
top     7, 180
caption 7, "HSV --> RGB"

button  8
left    8, 290
top     8, 180
caption 8, "RGB --> HSV"

' Label 9 (Affichage de la couleur)

alpha  9
left   9, 120
top    9, 10
width  9, 140
height 9, 150
color  9, 0, 0, 0

' Labels 10-16 (Etiquettes)

alpha   10
left    10, 120
top     10, 185
width   10, 140
height  10, 25
caption 10, "Hexadécimal"

alpha   11
left    11, 20
top     11, 10
width   11, 75
caption 11, "Teinte (H)"

alpha   12
left    12, 20
top     12, 60
width   12, 75
caption 12, "Saturation (S)"

alpha   13
left    13, 20
top     13, 110
width   13, 75
caption 13, "Luminosité (V)"

alpha   14
left    14, 290
top     14, 10
width   14, 75
caption 14, "Rouge (R)"

alpha   15
left    15, 290
top     15, 60
width   15, 75
caption 15, "Vert (G)"

alpha   16
left    16, 290
top     16, 110
width   16, 75
caption 16, "Bleu (B)"

' Edit 17 (Code hexadecimal)

edit  17
left  17, 190
top   17, 180
width 17, 70

' ----------------------------------------------
' Affectation des sous-programmes aux événements
' ----------------------------------------------

label HSV_RGB, RGB_HSV

on_click 7, HSV_RGB
on_click 8, RGB_HSV

' -------------------------------------------
' Fin du programme principal
' -------------------------------------------

end

' -------------------------------------------
' Sous-programmes
' -------------------------------------------

HSV_RGB:
 H = position(1)
 S = position(2) / 100
 V = position(3) / 100

 HSVtoRGB(H, S, V)
 RGBtoHex(RGB_R%, RGB_G%, RGB_B%)

 color 9, RGB_R%, RGB_G%, RGB_B%
 text 17, "#" + RGB_Hex$

 position 4, RGB_R%
 position 5, RGB_G%
 position 6, RGB_B%
return

RGB_HSV:
 R% = position(4)
 G% = position(5)
 B% = position(6)

 RGBtoHSV(R%, G%, B%)
 RGBtoHex(R%, G%, B%)

 color 9, R%, G%, B%
 text 17, "#" + RGB_Hex$

 position 1, int(HSV_H)
 position 2, int(100 * HSV_S)
 position 3, int(100 * HSV_V)
return

' -------------------------------------------
' Procedures
' -------------------------------------------

sub RGBtoHSV(R%, G%, B%)
' Conversion RGB --> HSV
' Resultat dans HSV_H, HSV_S, HSV_V

 dim_local RR, GG, BB, Mini, Maxi, Delta

 RR = R% / 255
 GG = G% / 255
 BB = B% / 255

 Mini = RR
 if GG < Mini then Mini = GG
 if BB < Mini then Mini = BB

 Maxi = RR
 if GG > Maxi then Maxi = GG
 if BB > Maxi then Maxi = BB

 HSV_V = Maxi

 if (Maxi = 0) or (Maxi = Mini)
   HSV_S = 0
   HSV_H = 0
   exit_sub
 end_if

 Delta = Maxi - Mini

 HSV_S = Delta / Maxi
 
 if RR = Maxi then HSV_H = (GG - BB) / Delta      : ' entre jaune & magenta
 if GG = Maxi then HSV_H = 2 + (BB - RR) / Delta  : ' entre cyan & jaune
 if BB = Maxi then HSV_H = 4 + (RR - GG) / Delta  : ' entre magenta & cyan

 HSV_H = HSV_H * 60
 if HSV_H < 0 then HSV_H = HSV_H + 360            : ' degres

end_sub

sub HSVtoRGB(H, S, V)
' Conversion HSV --> RGB
' Resultat dans RGB_R%, RGB_G%, RGB_B%

 if S = 0
   RGB_R% = int(V * 255)
   RGB_G% = RGB_R%
   RGB_B% = RGB_R%
   exit_sub
 end_if

 dim_local I%, Z, F, P, Q, T, RR, GG, BB

 Z  = H / 60
 I% = int(Z)
 F  = frac(Z)
 P  = V * (1 - S)
 Q  = V * (1 - S * F)
 T  = V * (1 - S * (1 - F))

 select I%
   case 0
     RR = V : GG = T : BB = P
   case 1
     RR = Q : GG = V : BB = P
   case 2
     RR = P : GG = V : BB = T
   case 3
     RR = P : GG = Q : BB = V
   case 4
     RR = T : GG = P : BB = V
   case 5
     RR = V : GG = P : BB = Q
 end_select

 RGB_R% = int(RR * 255)
 RGB_G% = int(GG * 255)
 RGB_B% = int(BB * 255)

end_sub

sub RGBtoHex(R%, G%, B%)
' Convertit le code RGB en une chaine de 6 caracteres ("0A0BCC" ...)
' Resultat dans RGB_Hex$

 dim_local RH$, GH$, BH$
 
 RH$ = Hex$(R%) : if R% < 16 then RH$ = "0" + RH$
 GH$ = Hex$(G%) : if G% < 16 then GH$ = "0" + GH$
 BH$ = Hex$(B%) : if B% < 16 then BH$ = "0" + BH$
 
 RGB_Hex$ = RH$ + GH$ + BH$

end_sub

' *******************************************************************
' Variables globales des procedures de conversion RGB/HSV
' *******************************************************************

dim RGB_R%, RGB_G%, RGB_B%   : ' 0..255
dim HSV_H                    : ' 0..360
dim HSV_S, HSV_V             : ' 0..1

dim RGB_Hex$                 : ' Code RGB en hexadecimal (ex. 0A1B2C)

' *******************************************************************

' *******************************************************************
' Procedures de conversion RGB/HSV
' *******************************************************************
' Adapte de http://www.cs.rit.edu/~ncs/color/t_convert.html
' R, G, B = [0..255]
' H = [0..360], S = [0..1], V = [0..1]
' si S = 0, H = 0 par defaut
' *******************************************************************

sub RGBtoHSV(R%, G%, B%)
' Conversion RGB --> HSV
' Resultat dans HSV_H, HSV_S, HSV_V

 dim_local RR, GG, BB, Mini, Maxi, Delta

 RR = R% / 255
 GG = G% / 255
 BB = B% / 255

 Mini = RR
 if GG < Mini then Mini = GG
 if BB < Mini then Mini = BB

 Maxi = RR
 if GG > Maxi then Maxi = GG
 if BB > Maxi then Maxi = BB

 HSV_V = Maxi

 if (Maxi = 0) or (Maxi = Mini)
   HSV_S = 0
   HSV_H = 0
   exit_sub
 end_if

 Delta = Maxi - Mini

 HSV_S = Delta / Maxi
 
 if RR = Maxi then HSV_H = (GG - BB) / Delta      : ' entre jaune & magenta
 if GG = Maxi then HSV_H = 2 + (BB - RR) / Delta  : ' entre cyan & jaune
 if BB = Maxi then HSV_H = 4 + (RR - GG) / Delta  : ' entre magenta & cyan

 HSV_H = HSV_H * 60
 if HSV_H < 0 then HSV_H = HSV_H + 360            : ' degres

end_sub

sub HSVtoRGB(H, S, V)
' Conversion HSV --> RGB
' Resultat dans RGB_R%, RGB_G%, RGB_B%

 if S = 0
   RGB_R% = int(V * 255)
   RGB_G% = RGB_R%
   RGB_B% = RGB_R%
   exit_sub
 end_if

 dim_local I%, Z, F, P, Q, T, RR, GG, BB

 Z  = H / 60
 I% = int(Z)
 F  = frac(Z)
 P  = V * (1 - S)
 Q  = V * (1 - S * F)
 T  = V * (1 - S * (1 - F))

 select I%
   case 0
     RR = V : GG = T : BB = P
   case 1
     RR = Q : GG = V : BB = P
   case 2
     RR = P : GG = V : BB = T
   case 3
     RR = P : GG = Q : BB = V
   case 4
     RR = T : GG = P : BB = V
   case 5
     RR = V : GG = P : BB = Q
 end_select

 RGB_R% = int(RR * 255)
 RGB_G% = int(GG * 255)
 RGB_B% = int(BB * 255)

end_sub

sub RGBtoHex(R%, G%, B%)
' Convertit le code RGB en une chaine de 6 caracteres ("0A0BCC" ...)
' Resultat dans RGB_Hex$

 dim_local RH$, GH$, BH$
 
 RH$ = Hex$(R%) : if R% < 16 then RH$ = "0" + RH$
 GH$ = Hex$(G%) : if G% < 16 then GH$ = "0" + GH$
 BH$ = Hex$(B%) : if B% < 16 then BH$ = "0" + BH$
 
 RGB_Hex$ = RH$ + GH$ + BH$

end_sub

' *******************************************************************
' Conversion RGB/HSV
' *******************************************************************

' Variables globales des procedures
#include "rgb_vars.inc"

' Variables globales du programme principal
dim R%, G%, B%, H, S, V

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenêtre principale

left    0, 220
top     0, 200
width   0, 390
height  0, 250
caption 0, "Conversion HSV / RGB"

' Spins 1-6 (Saisie des données)

spin  1        : ' Teinte (Hue)
left  1, 20
top   1, 30
width 1, 75
min   1, 0
max   1, 360

spin  2        : ' Saturation
left  2, 20
top   2, 80
width 2, 75
min   2, 0
max   2, 100

spin  3        : ' Luminosite (Value)
left  3, 20
top   3, 130
width 3, 75
min   3, 0
max   3, 100

spin  4        : ' Rouge
left  4, 290
top   4, 30
width 4, 75
min   4, 0
max   4, 255

spin  5        : ' Vert
left  5, 290
top   5, 80
width 5, 75
min   5, 0
max   5, 255

spin  6        : ' Bleu
left  6, 290
top   6, 130
width 6, 75
min   6, 0
max   6, 255

' Boutons 7-8 (Conversions)

button  7
left    7, 20
top     7, 180
caption 7, "HSV --> RGB"

button  8
left    8, 290
top     8, 180
caption 8, "RGB --> HSV"

' Label 9 (Affichage de la couleur)

alpha  9
left   9, 120
top    9, 10
width  9, 140
height 9, 150
color  9, 0, 0, 0

' Labels 10-16 (Etiquettes)

alpha   10
left    10, 120
top     10, 185
width   10, 140
height  10, 25
caption 10, "Hexadécimal"

alpha   11
left    11, 20
top     11, 10
width   11, 75
caption 11, "Teinte (H)"

alpha   12
left    12, 20
top     12, 60
width   12, 75
caption 12, "Saturation (S)"

alpha   13
left    13, 20
top     13, 110
width   13, 75
caption 13, "Luminosité (V)"

alpha   14
left    14, 290
top     14, 10
width   14, 75
caption 14, "Rouge (R)"

alpha   15
left    15, 290
top     15, 60
width   15, 75
caption 15, "Vert (G)"

alpha   16
left    16, 290
top     16, 110
width   16, 75
caption 16, "Bleu (B)"

' Edit 17 (Code hexadecimal)

edit  17
left  17, 190
top   17, 180
width 17, 70

' ----------------------------------------------
' Affectation des sous-programmes aux événements
' ----------------------------------------------

label Show_HSV, Show_RGB, HSV_RGB, RGB_HSV

on_change 1, Show_HSV
on_change 2, Show_HSV
on_change 3, Show_HSV

on_change 4, Show_RGB
on_change 5, Show_RGB
on_change 6, Show_RGB

on_click 7, HSV_RGB
on_click 8, RGB_HSV

' -------------------------------------------
' Fin du programme principal
' -------------------------------------------

end

' -------------------------------------------
' Sous-programmes
' -------------------------------------------

Show_HSV:
 H = position(1)
 S = position(2) / 100
 V = position(3) / 100

 HSVtoRGB(H, S, V)
 RGBtoHex(RGB_R%, RGB_G%, RGB_B%)

 color 9, RGB_R%, RGB_G%, RGB_B%
 text 17, "#" + RGB_Hex$
return

Show_RGB:
 R% = position(4)
 G% = position(5)
 B% = position(6)

 RGBtoHex(R%, G%, B%)

 color 9, R%, G%, B%
 text 17, "#" + RGB_Hex$
return

HSV_RGB:
 HSVtoRGB(H, S, V)
 position 4, RGB_R%
 position 5, RGB_G%
 position 6, RGB_B%
return

RGB_HSV:
 RGBtoHSV(R%, G%, B%)
 position 1, int(HSV_H)
 position 2, int(100 * HSV_S)
 position 3, int(100 * HSV_V)
return

' -------------------------------------------
' Procedures
' -------------------------------------------

#include "rgb_subs.inc"

' *******************************************************************
' Gradient de couleurs
' *******************************************************************

' Variables globales des procedures
#include "rgb_vars.inc"

' Variables globales du programme
dim x%, xmax%, ymax%, H, Hmin, Hmax, Scale, S, V

xmax% = 400
ymax% = 40

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenêtre principale

left    0, 200
top     0, 200
width   0, xmax% + 30
height  0, ymax% + 60
caption 0, "Gradient de couleurs"

picture 1
left    1, 10
top     1, 10
width   1, xmax%
height  1, ymax%

' -------------------------------------------
' Programme principal
' -------------------------------------------

' Ici on fait varier la teinte (H) de Hmin à Hmax
' La saturation (S) et la luminosité (V) ont leur valeur maximale (1)

Hmin = 0
Hmax = 360

S = 1
V = 1

Scale = (Hmax - Hmin) / xmax%

2d_target_is 1

for x% = 1 to xmax%
 H = Hmin + x% * Scale
 HSVtoRGB(H, S, V)
 2d_pen_color RGB_R%, RGB_G%, RGB_B%
 2d_line x%, 1, x%, ymax%
next x%

end

' -------------------------------------------
' Procedures
' -------------------------------------------

#include "rgb_subs.inc"

sub HSV_Gradient(Object%, Orient%, iP%, Pmin, Pmax, PC1, PC2)
' Dessine un gradient de couleurs en faisant varier un des
' parametres H, S ou V tout en maintenant les 2 autres constants

' Object%    = numero de l'objet sur lequel on dessine
' Orient%    = orientation du gradient : 1 = vertical, 2 = horizontal
' iP%        = indice du parametre variable : 1 = H, 2 = S, 3 = V
' Pmin, Pmax = bornes du parametre variable
' PC1, PC2   = valeurs des parametres constants (dans l'ordre H, S, V)

  dim_local h%, w%, i%, imax%, Scale, P

  h% = height(Object%)
  w% = width(Object%)

  select Orient%
    case 1 : imax% = w%
    case 2 : imax% = h%
  end_select

  Scale = (Pmax - Pmin) / imax%

  2d_target_is Object%

  for i% = 0 to imax%
    P = Pmin + i% * Scale

    if iP% = 1
        HSVtoRGB(P, PC1, PC2)
    else
      if iP% = 2
        HSVtoRGB(PC1, P, PC2)
      else
        HSVtoRGB(PC1, PC2, P)
      end_if
    end_if

    2d_pen_color RGB_R%, RGB_G%, RGB_B%

    select Orient%
      case 1 : 2d_line i%, 0, i%, h%
      case 2 : 2d_line 0, i%, w%, i%
    end_select
  next i%
end_sub

' *******************************************************************
' Gradient de couleurs
' *******************************************************************

' Variables globales des procedures
#include "rgb_vars.inc"

' Variables globales du programme (dimensions de l'image)
dim xmax%, ymax%

xmax% = 300
ymax% = 300

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenêtre principale

left    0, 200
top     0, 200
width   0, xmax% + 30
height  0, ymax% + 60
caption 0, "Gradient de couleurs"

picture 1
left    1, 10
top     1, 10
width   1, xmax%
height  1, ymax%

' -------------------------------------------
' Programme principal
' -------------------------------------------

' Ici on fait varier la teinte (H) de 0 à 360°
' La saturation (S) et la luminosité (V) ont leur valeur maximale (= 1)

HSV_Gradient(1, 1, 1, 0, 360, 1, 1)

file_save 1, "gradient.bmp"

end

' -------------------------------------------
' Procedures
' -------------------------------------------

#include "rgb_subs.inc"

' *******************************************************************
' Gradient de couleurs
' *******************************************************************

' Variables globales des procedures RGB/HSV
#include "rgb_vars.inc"

' Variable globale de KGF_OBJ
dim no%

' Variables globales du programme
dim xmax%, ymax%, NumPic%

xmax% = 300
ymax% = 300

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenetre principale

top    0, 100
left    0, 100
width  0, xmax% + 30
height  0, ymax% + 60
caption 0, "Gradient de couleurs"

' Picture

xPicture(10, 10, xmax%, ymax%, 0)

NumPic% = no%

' -------------------------------------------
' Programme principal
' -------------------------------------------

' Ici on fait varier la teinte (H) de 0 à 360°
' La saturation (S) et la luminosité (V) ont leur valeur maximale (= 1)

HSV_Gradient(NumPic%, 1, 1, 0, 360, 1, 1)

file_save NumPic%, "gradient.bmp"

end

' -------------------------------------------
' Procedures
' -------------------------------------------

#include "rgb_subs.inc"
#include "KGF_OBJ.bas"

' *******************************************************************
' Conversion RGB/HSV
' *******************************************************************

' Variables globales des procedures
#include "rgb_vars.inc"

' Variables globales du programme principal
dim R%, G%, B%, H, S, V

' -------------------------------------------
' Description des objets
' -------------------------------------------

' Fenêtre principale (0)

top     0, 200
left    0, 220
width   0, 390
height  0, 250
caption 0, "Conversion HSV / RGB"

' Spins 1-6 (Saisie des données)

xSpin( 30,  20, 75, 0, 0, 360)  : ' (1) Teinte (Hue)
xSpin( 80,  20, 75, 0, 0, 100)  : ' (2) Saturation
xSpin(130,  20, 75, 0, 0, 100)  : ' (3) Luminosite (Value)
xSpin( 30, 290, 75, 0, 0, 255)  : ' (4) Rouge
xSpin( 80, 290, 75, 0, 0, 255)  : ' (5) Vert
xSpin(130, 290, 75, 0, 0, 255)  : ' (6) Bleu

' Boutons 7-8 (Conversions)

xButton(180,  20, 75, 0, "HSV --> RGB")
xButton(180, 290, 75, 0, "RGB --> HSV")

' Picture 9 (Affichage de la couleur)

xPicture(10, 120, 140, 150, 0)

' Labels 10-16 (Etiquettes)

xAlpha(185, 120, 0, 8, "Hexadécimal")
xAlpha( 10,  20, 0, 8, "Teinte (H)")
xAlpha( 60,  20, 0, 8, "Saturation (S)")
xAlpha(110,  20, 0, 8, "Luminosité (V)")
xAlpha( 10, 290, 0, 8, "Rouge (R)")
xAlpha( 60, 290, 0, 8, "Vert (G)")
xAlpha(110, 290, 0, 8, "Bleu (B)")

' Edit 17 (Code hexadecimal)

xEdit(180, 190, 70, 0, 1)

' ----------------------------------------------
' Affectation des sous-programmes aux événements
' ----------------------------------------------

label Show_HSV, Show_RGB, HSV_RGB, RGB_HSV

on_change 1, Show_HSV
on_change 2, Show_HSV
on_change 3, Show_HSV

on_change 4, Show_RGB
on_change 5, Show_RGB
on_change 6, Show_RGB

on_click 7, HSV_RGB
on_click 8, RGB_HSV

' -------------------------------------------
' Programme principal
' -------------------------------------------

' Demarrer avec un rouge vif

position 1, 0    : ' H
position 2, 100  : ' S (%)
position 3, 100  : ' V (%)
position 4, 255  : ' R
position 5, 0    : ' G
position 6, 0    : ' B

gosub Show_RGB

end

' -------------------------------------------
' Sous-programmes
' -------------------------------------------

Show_HSV:
  H = position(1)
  S = position(2) / 100
  V = position(3) / 100

  HSVtoRGB(H, S, V)
  RGBtoHex(RGB_R%, RGB_G%, RGB_B%)

  color 9, RGB_R%, RGB_G%, RGB_B%
  text 17, "#" + RGB_Hex$
return

Show_RGB:
  R% = position(4)
  G% = position(5)
  B% = position(6)

  RGBtoHex(R%, G%, B%)

  color 9, R%, G%, B%
  text 17, "#" + RGB_Hex$
return

HSV_RGB:
  HSVtoRGB(H, S, V)
  position 4, RGB_R%
  position 5, RGB_G%
  position 6, RGB_B%
return

RGB_HSV:
  RGBtoHSV(R%, G%, B%)
  position 1, int(HSV_H)
  position 2, int(100 * HSV_S)
  position 3, int(100 * HSV_V)
return

' -------------------------------------------
' Procedures
' -------------------------------------------

#include "rgb_subs.inc"
#include "KGF_OBJ.bas"