label couleur,couleurs,specials
dim i,j
j=100

width 0,274:height 0,230
caption 0,"Choisir une couleur..."

picture 1
width 1,60
left 1,200
top 1,5
height 1,90
color 1,0,0,0

track_bar 2
left 2,5
top 2,5
width 2,190
min 2,0:max 2,255
hint 2,"ROUGE"
on_change 2,couleur

track_bar 3
left 3,5
top 3,35
width 3,190
min 3,0:max 3,255
hint 3,"VERT"
on_change 3,couleur

track_bar 4
left 4,5
top 4,65
height 4,30
width 4,190
min 4,0:max 4,255
hint 4,"BLEU"
on_change 4,couleur

alpha 8
left 8,5
top 8,102
caption 8,"luminosité :                               rouge :"+chr$(13)+chr$(13)+"contraste :                                vert :"+chr$(13)+chr$(13)+"gamma :                                   bleu :"+chr$(13)+chr$(13)+"                        couleur : "+str$(position(2))+","+str$(position(3))+","+str$(position(4))

for i=5 to 7
  spin i:top i,j:width i,70:left i,60:j=j+26:min i,-128:max i,127:on_change i,specials
next i
j=100

for i=9 to 11
  spin i:top i,j:width i,70:left i,192:j=j+26:on_change i,couleurs:min i,0:max i,255
next i

end

couleur:
color 1,position(2),position(3),position(4)
position 9,position(2):position 10,position(3):position 11,position(4)
caption 8,"luminosité :                               rouge :"+chr$(13)+chr$(13)+"contraste :                                vert :"+chr$(13)+chr$(13)+"gamma :                                   bleu :"+chr$(13)+chr$(13)+"                        couleur : "+str$(position(2))+","+str$(position(3))+","+str$(position(4))
return

couleurs:
position 2,position(9):position 3,position(10):position 4,position(11)
caption 8,"luminosité :                               rouge :"+chr$(13)+chr$(13)+"contraste :                                vert :"+chr$(13)+chr$(13)+"gamma :                                   bleu :"+chr$(13)+chr$(13)+"                        couleur : "+str$(position(2))+","+str$(position(3))+","+str$(position(4))
return

specials:
for i=5 to 7
  if position(i)>128 or position(i)<-127 then return
next i
brightness 1,position(5)
contrast 1,position(6)
gamma 1,position(7)
return