{ Type agrege de stockage des informations     }
{ relatives a une couleur RVB                  }

structure couleur
  entier r <- 0
  entier v <- 0
  entier b <- 0
fin structure

{ Programme principal                          }

action principale()
  couleur c
  reel assombrissement
  couleur ca
  reel eclaircissement
  couleur ce
  reel fa
  reel fe
  afficherln("SVP, r, v & b?")
  c.r <- saisir()
  c.v <- saisir()
  c.b <- saisir()
  afficherln("SVP, assombrissement?")
  assombrissement <- saisir()
  afficherln("SVP, eclaircissement?")
  eclaircissement <- saisir()
  fa <- 1.0-assombrissement/100.0
  ca.r <- round(fa*c.r)
  ca.v <- round(fa*c.v)
  ca.b <- round(fa*c.b)
  fe <- 1.0-eclaircissement/100.0
  ce.r <- 255-round(fe*(255-c.r))
  ce.v <- 255-round(fe*(255-c.v))
  ce.b <- 255-round(fe*(255-c.b))
  afficherln("[",c.r,":",c.v,":",c.b,"]")
  afficherln("[",ca.r,":",ca.v,":",ca.b,"]")
  afficherln("[",ce.r,":",ce.v,":",ce.b,"]")
fin action