Turbo Pascal -ohjelmointikielen avulla voit piirtää graafisesti erilaisia muotoja ruudulle. Mikä tahansa graafinen esine voidaan rakentaa pisteiden, viivojen, kaarien avulla. Pascal käyttää rasterigrafiikkatilaa, jonka näytön resoluutio on 640 x 480. Piirustus koostuu näytettävän kohteen alku- ja loppupisteen koordinaattien asettamisesta graafisille toimenpiteille. Esineen väri, viivojen paksuus ja tyyli asetetaan myös graafisten toimenpiteiden parametreiksi. Jos haluat piirtää ohjelmiston avulla, sinun on liitettävä Pascal-grafiikkamoduuli.
Tarpeellinen
Turbo Pascal -ohjelmointiympäristö
Ohjeet
Vaihe 1
Pura määritetty piirustusobjekti sen osiksi. Valitse yksittäiset viivat, kaaret, ympyrät, suorakulmiot ja pisteet. Nämä ovat muotoja, jotka voidaan piirtää Turbo Pascal -menetelmillä.
Vaihe 2
Liitä grafiikkamoduuli ohjelmakoodin alussa. Voit tehdä tämän kirjoittamalla seuraavan rivin: käyttää kuvaajaa. Luo seuraavaksi kokonaislukumuuttujat alustamaan grafiikkatila: var gdet, gm: kokonaisluku.
Vaihe 3
Käynnistä muuttujat ohjelman rungossa aloitussanan jälkeen. Määritä yhdelle niistä nolla-arvo ja toiselle havaitsemisen arvo. Määritä seuraavaksi graafisen piirtotilan alku, kirjoita muodon rivi: initgraph (gdet, gm, ''). Tyhjennä näyttölaite: tyhjennä laite.
Vaihe 4
Aseta piirustuksen taustaväri ja piirrettävien kohteiden viivan väri. Käytä tätä varten menettelyjä SetBkColor (valkoinen) ja SetColor (8). Asetettava väri on ilmoitettu suluissa. Yhteensä Pascal käyttää 16 väriä, ja kukin niistä on määritelty joko numerolla tai sanalla erityisestä väritaulukosta.
Vaihe 5
Kuvittele kuvaruudukko, jossa x-akseli vasemmalta oikealle ja y-akseli ylhäältä alas. Tämän koordinaattijärjestelmän aloituskohdassa, eli näytön vasemmassa yläkulmassa, on koordinaatti (0, 0). Laske ensimmäisen graafisen objektin halutun sijainnin koordinaatit. Määritä kaikki koordinaatit piirustusten piirtämiseen tässä järjestelmässä.
Vaihe 6
Piirrä viiva menettelylinjalla (x, y, x1, y1), jossa koordinaatit x, y ovat suoran aloituspiste ja x1, y1 on sen loppu. Muuta viivan paksuutta tai tyyppiä tarvittaessa. Voit tehdä tämän käyttämällä SetLineStyle (0, 0, NormWidth) -menettelyä. Menettelyn ensimmäinen parametri voi muuttaa viivaa tekemällä sen katkoviivaksi tai katkoviivaksi - muuta tämä luku arvoksi 1 tai 2. Kolmas parametri asettaa viivojen paksuuden. Oletusarvoisesti parametrin NormWidth parametri on aina asetettu - ohut viiva, paksulle viivalle ThickWidth. Muutettu viivatyyppi piirretään tämän menettelyn kutsumisen jälkeen.
Vaihe 7
Aseta piste näytölle PutPixel (x, y, color) -menetelmällä, tässä x ja y ovat myös pisteen koordinaatit ja väri on sen väri. Ennen suljetun muodon piirtämistä voit asettaa sen täytön. Voit tehdä tämän kutsumalla SetFillStyle (EmptyFill, 0) -menetelmän, jossa ensimmäinen parametri määrittää muodon kiinteän täytön ja toinen täyttövärin.
Vaihe 8
Suorakulmainen muoto piirretään suorakulmion (x, y, x2, y2) avulla - koordinaatit asettavat muodon vasemman ja oikean alakulman. Piirrä ympyrä kirjoittamalla viiva Circle (x, y, R), jossa x, y, R ovat ympyrän keskipisteen ja säteen koordinaatit, myös pikseleinä. Ellipsiä on vaikeampaa piirtää, tähän käytetään monia muita parametreja: Ellipsi (x, y, BegA, EndA, RX, RY). Tässä x, y on sama ellipsin keskipiste, ja BegA ja EndA osoittavat kulman, jolla elliptinen kaari aloitetaan ja lopetetaan. Muuttujat RX, RY asettavat ellipsin säteen pitkin x- ja y-akselia.
Vaihe 9
Jos sinulla on annettu muoto, joka on helpoin piirtää erillisinä segmentteinä, käytä tähän MoveTo- ja LineTo-menettelyjä. Siirrä ensin kohdistin haluamaasi pisteeseen: MoveTo (x, y). Vedä sitten viiva siitä seuraavaan pisteeseen LineTo (x1, y1) ja piirrä taas suora viiva LineTo (x2, y2) ja niin edelleen, kunnes saat alkuperäisen muodon.
Vaihe 10
Sulje ohjelmakoodin piirtämisen lopussa grafiikkatila rivillä: closegraph. Lopeta ohjelman runko tavalliseen tapaan sanalla loppu. Nyt koodi voidaan kääntää ja suorittaa suoritettavaksi.
