Procedura Bar3D este folosită în Pascal pentru a desena paralelipipede rectangulare.
Desenarea paralelipipedelor dreptunghiulare utilizând procedura Bar3d.
În linia 19, setați culoarea pentru liniile din care va fi compusă caseta.
În linia # 20, stabilim tipul și grosimea liniilor din care se va compune paralelipipedul.
În linia nr. 21, setăm tipul și culoarea umpluturii paralelipipedice. Mai mult, procedura SetFillStyle funcționează numai pe peretele frontal al cutiei.
În linia 22, scrieți procedura Bar3D. După scrierea acestei proceduri, parametrii sunt scrise în paranteze.
Dacă ne uităm la Fig. atunci primii doi parametri ai procedurii Bar3d, care determină colțul din stânga sus al peretelui frontal al paralelipipedului (în exemplul nostru 100100), corespund punctului "A". Punctul B corespunde celui de-al treilea și al patrulea parametru al procedurii Bar3d, care determină colțul inferior drept al peretelui frontal al paralelipipedului (în exemplul nostru 300.500). Distanța "A-C" corespunde celui de-al cincilea parametru din procedura Bar3d, care determină adâncimea paralelipipedului (în exemplul 50). Al șaselea parametru poate avea doar 2 valori: fie TopOn (ca în exemplul nostru), fie TopOff. TopOn înseamnă că este desenată fața superioară a paralelipipedului. TopOff înseamnă că marginea superioară a paralelipipedului nu este desenată (această opțiune este utilizată atunci când este necesar să se deseneze paralelipipede așezate unul peste celălalt).
Articole similare
Trimiteți-le prietenilor: