This is an old revision of the document!
O culoare este de fapt un număr_întreg ce conține în el câteva informații speciale.
O culoare poate fi exprimată în general în 3 moduri:
1) prin numele ei (constantă)
2) cu ajutorul funcției RGB
3) ca simplu număr
O culoare poate fi specificată cel mai simplu prin numele ei. BASIC-256 are definite 18 constante pentru culori: BLACK, WHITE, RED, DARKRED, GREEN, DARKGREEN, BLUE, DARKBLUE, CYAN, DARKCYAN, PURPLE, DARKPURPLE, YELLOW, DARKYELLOW, ORANGE, DARKORANGE, GREY / GRAY, DARKGREY / DARKGRAY și CLEAR.
De exemplu, instrucțiunea de mai jos va selecta culoarea BLACK (negru):
color black
Cu alte cuvinte, oriunde se solicită o culoare se poate utiliza una din denumirile enumerate.
Spuneam mai devreme că o culoare este de fapt un număr_întreg. Așa și este, iar constantele enumerate sunt de fapt tot numere. Pentru a demonstra acest lucru, rulează instrucțiunea de mai jos:
print black
Rezultatul va fi: -16777216. Așadar, folosirea constantelor cu numele culorilor este un mod mult mai elegant decât utilizarea unor numere aparent fără niciun sens. De exemplu, cele două linii de mai jos selectează culoarea roșie pentru creion și culoare verde pentru pensulă. Este evident că prima variantă este cea mai ușor de înțeles și de folosit:
color red, green color -65536, -16711936
Mai jos este lista culorilor predefinite. Pentru fiecare culoare sunt trecute și câteva informații suplimentare despre care vom vorbi mai târziu:
Utilizatorul are posibilitatea să-și creeze milioane de culori diferite prin utilizarea funcției RGB. Acesta întoarce un număr_întreg ce reprezintă culoarea creată.
La începutul acestei pagini spuneam că o culoare este de fapt un număr_întreg ce conține în el câteva informații speciale.
El este compus în realitate din 4 octeți (un octet poate avea o valoare între 0 - 255), fiecare octet conținând informații despre unul dintre cele 4 canale: Red (roșu), Green (verde), Blue (albastru) și Alpha (opacitate, transparență).
Prin combinarea canalelor RGB (roșu, verde, albastru) se pot obține un număr de 16.777.216 de culori diferite! Fiecare culoare poate fi afișată apoi cu diverse grade de opacitate, date de canalul Alpha: 0 - 255, unde 255 înseamnă opacitate maximă, iar 0 înseamnă transparență totală.
Funcția RGB compune o culoare din valorile furnizate pentru Red (roșu), Green (verde), Blue (albastru), fiecare componentă având valori cuprinse între 0 și 255. Exemplul de mai jos creează culoarea oranj și desenează un cerc cu ea.
clg color rgb(255, 102, 0) circle 100, 150, 75
În mod opțional se poate opta pentru un grad diferit de opacitate prin specificarea unei valori pentru canal Alpha: 0 - 255, unde 255 înseamnă opacitate maximă, iar 0 înseamnă transparență totală.
clg color rgb(255, 102, 0) circle 100, 150, 75 color rgb(255, 102, 0, 128) circle 150, 100, 75 color rgb(255, 102, 0, 32) circle 100, 100, 75
Pentru a exemplifica cele menționate este bine de revăzut tabelul ce conține informații despre culorile deja predefinite. Acum se poate observa în dreptul fiecărei constante valorile canalelor ARGB din care este alcătuită (A este mereu 255 pentru că toate sunt culori opace, nu transparente), iar așezarea lor ca octeți este cel mai bine văzută în reprezentarea numărului în format hexazecimal (0xAARRGGBB).
Am văzut că o culoare este un număr_întreg.
Numele culorilor (constante) sunt numere, iar funcția RGB compune și întoarce o culoare tot ca un număr_întreg
Cu alte cuvinte, oricare din formele de mai jos va avea același efect, valoarea culorii fiind aceeași (pentru a demonstra acest lucru, înlocuiește instrucțiunea Color cu Print).
color darkorange #-5227264 color 0xffb03d00 #-5227264 color -5227264 #-5227264 color rgb(176, 61, 0) #-5227264 color rgb(176, 61, 0, 255) #-5227264 color rgb(0xb0, 0x3d, 0x00, 0xff) #-5227264 color rgb(0xb0, 0x3d, 0x00) #-5227264
Rulează codul de mai jos. Trage cu mouse-ul de manetele R, G, B și A sau dă clic pe constantele din dreapta și urmărește codul generat.
# Program util pentru a învăța cum se alcătuiesc culorile # Florin Oprea 27.08.2017 culori_valori[] = {BLACK, WHITE, RED, DARKRED, GREEN, DARKGREEN, BLUE, DARKBLUE, CYAN, DARKCYAN, PURPLE, DARKPURPLE, YELLOW, DARKYELLOW, ORANGE, DARKORANGE, GREY, DARKGREY, CLEAR} culori_nume[] = {"BLACK", "WHITE", "RED", "DARKRED", "GREEN", "DARKGREEN", "BLUE", "DARKBLUE", "CYAN", "DARKCYAN", "PURPLE", "DARKPURPLE", "YELLOW", "DARKYELLOW", "ORANGE", "DARKORANGE", "GREY", "DARKGREY", "CLEAR"} r=0: g=0: b=0: a=255: c=0 culoarea_veche = 0 outputvisible(true) graphvisible(true) graphsize 640, 400 fastgraphics #crează imaginea de fundal clg white color red circle 75,75,50 penwidth 5 color orange, yellow circle 150,150,75 penwidth 10 color blue, clear rect 150,30,150, 100 penwidth 1 img = imagecopy(25,25,200,200) #desenează decoraținile ferestrei clg 0xfff0f0f0 color black font "Courier",12,75 text 25,5,"A": text 65,5,"R": text 105,5,"G": text 145,5,"B" call adancitura(200, 20, 200, 200, 0) call adancitura(450, 10, 50, 380, 0) for f = 0 to 18 color culori_valori[f] rect 450, f*20+10, 50, 20 color black text 510,f*20+12,culori_nume[f] next f loop: #verifică unde a făcut clic cu mouse-ul if clickb = MOUSEBUTTON_LEFT then #clic pe ARGB if clicky>15 and clicky <300 then c = 0 if clickx>15 and clickx<45 then c = 1 if clickx>55 and clickx<85 then c = 2 if clickx>95 and clickx<125 then c = 3 if clickx>135 and clickx<165 then c = 4 end if #clic pe culorile prestabilite (constante) if clickx >=450 and clickx<600 and clicky >=10 and clicky <=390 then culoarea_curenta = culori_valori[(clicky-10)\20] b=int(culoarea_curenta&0xff) g=int((culoarea_curenta&0xff00)/0x100) r=int((culoarea_curenta&0xff0000)/0x10000) if culoarea_curenta&0xff000000 = 0 then a=0 else a=255 end if end if #muse-ul este apăsat, se verifică dacă se mișcă vreun buton ARGB if mouseb = MOUSEBUTTON_LEFT then v=mousey-30 if v<0 then v=0 if v>255 then v=255 v=255-v begin case case c=1 a=v case c=2 r=v case c=3 g=v case c=4 b=v end case else c=0 end if #se creează noua culoare culoarea_curenta = rgb(r,g,b,a) #desenează și scrie text doar dacă s-a modificat ceva if culoarea_curenta <> culoarea_veche then culoarea_veche = culoarea_curenta call control(30,30,a,white) call control(70,30,r,red) call control(110,30,g,green) call control(150,30,b,blue) imagedraw img,200,20 color clear, culoarea_curenta rect 225, 45, 150, 150 txt = "#liniile de mai jos generază aceeași culoare:";chr(10) color 0xfff0f0f0 rect 430, 10, 16, 381 #culoarea creată este de fapt o constantă? for f = 0 to 18 if culoarea_curenta = culori_valori[f] then txt = txt;"color ";culori_nume[f];chr(10) color black, darkgray poly {430, f*20+10, 445, f*20+20, 430, f*20+30} exit for end if next f if a=255 then txt = txt;"color rgb(";r;", ";g;", ";b;")";chr(10) txt = txt;"color rgb(";r;", ";g;", ";b;", ";a;")";chr(10) txt = txt;"color ";culoarea_curenta;chr(10) txt = txt;"color 0x";tohex(culoarea_curenta) cls print txt end if refresh pause 0.01 goto loop subroutine adancitura(x, y, latime, inaltime, culoare) color gray rect x-2, y-2, latime+4, inaltime+4 color white rect x, y, latime+2, inaltime+2 color culoare rect x, y, latime, inaltime end subroutine subroutine control(x, y, valoare, culoare) color 0xfff0f0f0 rect x-10, y-10, 20, y+265 color gray rect x-1, y-1, 3, 258 color white rect x, y, 2, 257 color black rect x, y, 1, 256 #mâner yy=y+(255-valoare) color clear, 0x20000000 circle x+3, yy+3, 5 color culoare circle x, yy, 5 color black,0x30000000 circle x, yy, 5 color culoare circle x-1, yy-1, 4 color black,clear circle x, yy, 5 call adancitura(x-17, y+280, 34, 16, white) call adancitura(x-17, y+300, 34, 16, white) color black text x-15,y+280,valoare text x-15,y+300,tohex(valoare) end subroutine