DUzun's Web
Programare, proiecte personale, divertisment

Program Lab_6_2;

uses crt, Types, OPolig, Poligon, IOGeom, GrGeom, Punct, Graph;

​

(****************************************

 * Apartenenta la domeniu:

 * Poligon stelat

 ****************************************)

​

const

  filein  = 'Stelat.txt';

​

var

  Polig: TPoligon;

  t, C: TPunct;

​

procedure drow_poz(t: TPunct);

begin

    print_poz(t, 0, TextHeight('H')*3, 'T');

    drow_punct(t, WHITE);

    drow_cerc(t, 5);

end;

​

begin

Polig.Init(MAX_ELEM);

with Polig do begin

  clrscr;

​

  { Citirea datelor din fisierul <filein>, daca exista }

  nr := readf_puncte(filein, p^);

​

  if nr = 0 then nr := gen_polig_stel(p^, 10, ZeroP)+1;

  { Citirea coordonatelor punctelor de la tastatura }

  if nr = 0 then begin

    writeln('Introdu nr de puncte: ');

    readln(nr);

    writeln('Introdu coordonatele varfurilor poligonului convex: ');

    read_puncte(p^, nr);

    writeln('Introdu coordonatele unui punct din care se vad toate varfurile poligonului:');

    read_punct(C, 'c');

    p^[nr] := C; {Pentru a fi salvat in fisier}

    {Salvarea punctelor in fisier}

​

  end else begin

    dec(nr); {p[nr] este originea poligonului stelat}

    C := p^[nr];

  end;

    writef_puncte(filein, p^, nr+1);

​

  { Afisarea coordonatelor }

  clrscr;

  write_puncte(p^, nr);

  write_punct(C, 'c');

​

  {Punctul de verificat}

  writeln;

  writeln('Scrie coordonatele punctului de verifica la apartenenta:');

  read_punct(t, 'p');

​

  { Afisarea rezultatului }

  if apart_stel(p^, nr, C, t) then writeln('Apartine!')

                             else writeln('Nu apartine!');

  readkey;

​

​

  InitGr(0);

  graph.setcolor(GREEN);

  drow_poligon(p^, nr);

  drow_set_puncte(p^, nr, RED);

  drow_punct(C, RED);

  print_poz(C, 1, 1, 'C');

​

  drow_poz(t);

  repeat

    if keypressed then begin

      drow_poz(t);

      if move_punct(t, 10, ReadKey) = #27 then Break;

      if apart_stel(p^, nr, C, t) then SetColor(GREEN) else SetColor(RED);

      drow_poz(t);

    end;

  until false;

​

  CloseGr;

  Halt(0);

end;

Polig.Done;

end.

​

​