Subprograme Orientate Spre Puncte

Subprograme Orientate Spre Puncte

Subprograme Orientate Spre Puncte

4.1. Proceduri şi funcţii

PutPixel

Procedura PutPixel produce un punct de culoarea dată. Procedura este definită astfel:

Procedure putpixel (x, y: integer; cul: word);

X şi y definesc coordonatele punctului.

Cul defineşte culoarea punctului, având valori între 0 şi valoarea returnată de funcţia GetMaxcolor ( numărul maxim de culori utilizate). Pentru definirea culorii pot fi folosite constante de culoare predefinite.

GetPixel

Funcţia GetPixel determină culoarea unuipunct de coordonate date.

Funcţia este defintă astfel:

Function GetPixel (x, z: integer): word;

X şi y sunt coordonatele punctului, iar valoarea returnată de funcţie reprezintă codul culorii având valorile între 0 şi valoaraea returnată de funcţia GetMaxColor.

4.2. Aplicaţie

Programul Pixel determină culoarea unui punct dat de coordonate (x, y) şiafişarea acestuia în cazul în care culoarea punctuluieste 0 atunci se va afişa un punct de culoare GetMaxcolor.

Program pixel;

users Crt,graph;

var gd, gm:integer;

culoarepunct:woard;

begin

Gd:=detect;

initgraph (gd, gm, ‘c:bpbgi’);

if graphresult <> grOk then

halt(1);

culoareapunct:=getpixel (10, 10);

if culoarepuncr:=0 thne

putpixel (10, 10, getmaxcolor);

readln;

cleardevice;

repet

putpixel (random (640), random (480), random (16));

until keypressed;

closegraph;

End.

Articole Asemănătoare:

1. Tratarea Erorilor Grafice
2. Initializarea Modulului Grafic
3. Definiri de culori şi palete
4. Aplicaţie Graph
5. Ce sa Vizitezi in Romania – Puncte Turistice Romania