Transformer une image couleur en gris et en négatif

dim i
picture 1 : full_space 1
file_load 1,"c:\users\acer\desktop\image.jpg"
' pause 1000
for i = 1 to 10
    gamma 1,i
    contrast 1,i
    brightness 1,i : pause 200
next i

rem ============================================================================
rem     Modifier une image couleur en gris et en négatif
rem                        Par Papydall
rem ============================================================================
rem Pour mettre en niveau de gris une image couleur, on change la couleur de
rem chaque pixel de l’image en la moyenne des trois composantes r,g,b
rem ============================================================================
rem Supposons que le pixel X,Y possède les 3 composantes (R1,G1,B1)
rem On calcule la moyenne M = (R1+G1+B1)/3 et on réaffecte à ce pixel les 3
rem nouvelles composantes (M,M,M)
rem Exemple :
rem Un pixel a pour couleur (0,100,80)
rem La moyenne est M = (0+100+80)/3 = 60
rem On réaffecte à ce pixel les 3 composantes (60,60,60)
rem ============================================================================
rem Pour changer une image couleur en négatif, on remplace les 3 composantes
rem (R1,G1,B1) par leur complément à 255
rem Exemple :
rem Un pixel a pour couleur (2,100,200)
rem Les compléments à 255 sont 255-2 = 253 ; 255-100 = 155 ; 255-200 = 55
rem On réafecte à ce pixel les 3 composantes (253,155,55)

rem ============================================================================

 Init()
 wait 100
 Traitement(10)
 show 15 :  show 20 : show 35:show 40
 caption 0, "Terminé"
end
rem ============================================================================
SUB Init()
    dim l,h,t$
    width 0,750 : height 0,650
    l = 267 : h = 200 : ' dimensions de l'image en pixels
    alpha 5 : top 5 , 5 : left 5,100 : font_size 5,14:caption 5,"Image de départ"
    Picture 10 :width 10,l :height 10,h:top 10,30 : left 10,10

    alpha 15 : top 15 , 5 : left 15,400 : font_size 15,14:caption 15,"Image en gris (TSL)" :  hide 15
    Picture 20 :width 20,l :height 20,h:top 20,30 : left 20,370 : hide 20

    alpha 35 : top 35 , 300 : left 35,400 : font_size 35,14:caption 35,"Image en gris (moyenne)" : hide 35
    Picture 40 :width 40,l :height 40,h:top 40,330 : left 40,370 : hide 40


    file_load 10,"Image2.jpg"  : pause 10
    t$ = "Veuillez patienter .... Traitements en cours ..."

    DIM cR%,cG%,cB%, cH,cS,cL
END_SUB
rem ============================================================================


SUB Traitement(p)
    dim_local x,y,r,g,b ,r1,g1,b1 ,moyenne
    for x = 1 to l
        caption 0,t$ + str$(int(x*1000/l)/10)+"%"
        for y = 1 to h
            r = color_pixel_red(p,x,y)
            g = color_pixel_green(p,x,y)
            b = color_pixel_blue(p,x,y)
            moyenne = int((r+g+b) /3)
            Copy_Picture(40,x,y,moyenne,moyenne,moyenne)  :  ' Image en gris
            
            RGB2HSL(r,g,b)
            ' cS=0 : ' On supprime la saturation pour faire du noir et blanc
            HSL2RGB(cH,0,cL)
            
            Copy_Picture(20,x,y,cR%,cG%,cB%)  :  ' Image en gris
            if scancode <> 0 then exit_sub
        next y
    next x
END_SUB

rem ============================================================================
SUB Copy_Picture(p,x,y,r,g,b)
    2d_target_is p : 2d_pen_color r,g,b : 2d_point x,y
END_SUB


rem ============================================================================
SUB HSL2RGB(H,S,L)
  DIM_LOCAL c,x,m
  DIM_LOCAL r,g,b
  c = (1 - ABS(2 * L -1))*S
  x = c * (1 - ABS(MOD((H/60),2)-1))
  m = L - (c / 2)
  
  SELECT (INT(H/60))
   CASE 0
     r = c : g = x : b = 0
   CASE 1
     r = x : g = c : b = 0
   CASE 2
     r = 0 : g = c : b = x
   CASE 3
     r = 0 : g = x : b = c
   CASE 4
     r = x : g = 0 : b = c
   CASE 5
     r = c : g = 0 : b = x
  END_SELECT
  cR%=(r+m)*255
  cG%=(g+m)*255
  cB%=(b+m)*255
END_SUB

rem ============================================================================

SUB RGB2HSL(R,G,B)
  DIM_LOCAL var_R,var_G,var_B
  DIM_LOCAL var_Min,var_Max,del_Max
  DIM_LOCAL del_R,del_G,del_B
  var_R = (R / 255)
  var_G = (G / 255)
  var_B = (B / 255)

  var_Min = min(min( var_R, var_G), var_B )
  var_Max = max(max( var_R, var_G), var_B )
  del_Max = var_Max - var_Min

  ' Calcul de la luminance
  cL = ( var_Max + var_Min ) / 2

  if (del_Max = 0)
    cH = 0 : cS = 0
  else
    ' Calcul saturation
    if (cL < 0.5)
      cS = del_Max / ( var_Max + var_Min )
    else
      cS = del_Max / ( 2 - var_Max - var_Min )
    end_if
    ' Calcul de la teinte
    if ( var_R = var_Max )
      cH = (var_G - var_B) / (var_Max-var_Min)
    else
      if ( var_G = var_Max )
        cH = 2+(var_B-var_R)/(var_Max-var_Min)
      else
        cH = 4+(var_R - var_G)/(var_Max-var_Min)
      end_if
    end_if
    ' conversion en degres
    cH =int(cH*60)
  end_if
END_SUB