Desen în delphi
O linie poate fi trasă din poziția curentă (ultima) (punct) la punctul cu coordonatele date x, yc folosind comanda:
(Prima foarte) punct inițial este originea (punctul 0, 0 formă).
Mutați din poziția curentă la un punct cu coordonatele date x, y, fără a lăsa urme, puteți utiliza operatorul:
panza. MoveTo (x, y);
Se toarnă (vopsea), zona închisă cu comanda:
panza. FloodFill (x, y, culoare, fsborder);
unde x, coordonatele Y- de la orice punct din interiorul acestei zone închise, - de umplere de culoare, modul de umplere fsborder- pentru a sublinia (de frontieră) a acestei regiuni.
Proiect 1. Desenați un om de zăpadă.
Procedura de desen poate fi după cum urmează:
Procedura TForm1.Button1Click (Expeditor: TObject);
Desenați două linii de perete tub înclinat (viteza înclinată înfundarea țevii). Începe din partea de jos și așteptați particule de funingine, atunci când colmatat țeavă.
13. Proiectul Electroliza.
Desenați o formă în centrul bilei (catod).
Începeți cu patru storoniony (particule) și așteptați până când aderă la mingea.
Pentru particulele de zbor din diferite părți trebuie să stabilească patru perechi de matrici de coordonate:
x [k], y [k] k- lea punct de coordonate de zbor la stânga.
x1 [k], y1 [k] k- lea punct de coordonate, care zboară deasupra.
x2 [k], y2 [k] K--lea punct de coordonate de zbor din dreapta.
x3 [k], y3 [k] k- lea punct de coordonate care zboară de mai jos.
14. Coasta de proiect.
Programul simulează valurile mării. care erodează coasta, schimbarea topografiei coastă, în funcție de duritatea rocii.
Lucrările la proiectul va fi împărțit în trei etape:
I. Egal val (un pixel albastru) și suprafața solului (sub forma de verde, cu specii de zone dreptunghiulare galben deschise).
II. Să facem valuri muta (dokatyvayutsya la țărm).
III. Să facem valuri erodează coasta, distrugerea (suflare în mare), un pixel la o stâncă de coastă.
Ca rezultat, putem obține imagini de forma următoare:
Și, după un timp:
