TartományFestés
Tartalom
Sort
alkalmazó festés „pontonként”
Vermet
alkalmazó festés „pontonként”
Rekurzív
festés „szakaszonként”
A program nyitóképernyője
A
feladat
Adott
színű (AktSzín), tetszőleges görbével határolt,
zárt tartomány kiszínezése, ismert belső pontból kiindulva.
A
koordinátarendszer megint a szokásos:
|
|
Megjegyzem: e feladatkörben nincs sok szerepe a
világ-koordinátarendszernek, hiszen tisztán a képernyőn található zárt
tartománnyal kell valamit tenni, ezért nem is foglalkozunk az egyébként
szokásos koordináta-transzformációval (sem a tükrözéssel, sem az eltolással
vagy a léptékezéssel). Éppen e „nemtörődömség” miatt a programunkban a fönt és lent
megfordul a szemléletünkhöz képest.
A tényleges rajzolást a PontKi eljárás végzi, amely felhasználja a képernyőre pontot rajzoló Pont utasítást (Turbo grafikában: PutPixel[1]):
Eljárás
PontKi(Konstans x,y:Egész):
Ha yÎ[0,MaxY]
és xÎ[0,MaxX] akkor
Pont(x,y)[2]
Eljárás vége.
Fontos szerepet kap egy olyan függvény is, amely egy pontról
eldönti, hogy belső pont-e vagy határpont-e: Üres (ez felhasználja a képernyő adott
pontjának színét kiolvasó PontSzín függvényt, Turbo grafikában: GetPixel):
Függvény
Üres(Konstans x,y:Egész): Logikai
Üres:=PontSzín(x,y)¹AktSzín
Függvény vége.
Talán hasznos, ha a feladat megoldása előtt rápillant egy
lehetséges megoldást jelentő program
futására.
Rekurzív
festés „pontonként”
Eljárás RekPont(Konstans x,y:Egész):
PontRajzolás(x,y)
Ha Üres(x-1,y) akkor
RekPont(x-1,y)
Ha Üres(x,y-1) akkor
RekPont(x,y-1)
Ha Üres(x+1,y) akkor
RekPont(x+1,y)
Ha Üres(x,y+1) akkor
RekPont(x,y+1)
Eljárás vége.
Érdemes
meggondolni, mekkora
hívási verem szükséges (maximálisan) a rekurzió során.
Sort
alkalmazó festés „pontonként”
Az alkalmazható sorfogalmak, -műveletek:
Típus
TSorElem=Rekord(x,y:Egész)
Eljárás SorUres{legyen}(Változó s:TSor)
Függvény UresSor{?}(Konstans
s:TSor):Logikai
Eljárás Sorba(Konstans
elem:TSorElem, Változó s:TSor)
Eljárás Sorbol(Változó
s:Sor, elem:TSorElem)
Függvény SorHossz(Konstans s:Sor):Egész
Eljárás SorPont(Konstans x,y:Egész):
Változó
s:TSor
se:TSorElem
SorÜres(s)
PontRajzolás(x,y); Sorba(TSorElem(x,y),s)
Ciklus amíg nem ÜresSor{?}(s)
Sorból(s,se); x:=se.x; y:=se.y
Ha Üres(x-1,y) akkor
PontRajzolás(x-1,y); Sorba(TSorElem(x-1,y),s)
Ha Üres(x,y-1) akkor
PontRajzolás(x,y-1); Sorba(TSorElem(x,y-1),s)
Ha Üres(x+1,y) akkor
PontRajzolás(x+1,y); Sorba(TSorElem(x+1,y),s)
Ha Üres(x,y+1) akkor
PontRajzolás(x,y+1); Sorba(TSorElem(x,y+1),s)
Ciklus vége
Eljárás vége.
Vermet alkalmazó festés „pontonként”
Az alkalmazható veremfogalmak, -műveletek:
Típus
TVeremElem=Rekord(x,y:Egész)
Eljárás VeremUres{legyen}(Változó v:TVerem)
Függvény UresVerem{?}(Konstans v:TVerem):Logikai
Eljárás Verembe(Konstans
elem:TVeremElem, Változó v:TVerem)
Eljárás Verembol(Változó
v:Verem, elem:TVeremElem)
Függvény VeremMelyseg(Konstans v:Verem):Egész
Eljárás VeremPont(Konstans x,y:Egész):
Változó
v:TVerem
ve:TVeremElem
VeremÜres(v)
PontRajzolás(x,y); Verembe(TVeremElem(x,y),v)
Ciklus amíg nem ÜresVerem{?}(v)
Veremből(v,ve); x:=ve.x; y:=ve.y
Ha Üres(x-1,y) akkor
PontRajzolás(x-1,y); Verembe(TVeremElem(x-1,y),v)
Ha Üres(x,y-1) akkor
PontRajzolás(x,y-1);
Verembe(TVeremElem(x,y-1),v)
Ha Üres(x+1,y) akkor
PontRajzolás(x+1,y); Verembe(TVeremElem(x+1,y),v)
Ha Üres(x,y+1) akkor
PontRajzolás(x,y+1); Verembe(TVeremElem(x,y+1),v)
Ciklus vége
Eljárás vége.
Itt is érdekes látni a ténylegesen megkívánt veremmélységet.
Rekurzív festés „szakaszonként”
Eljárás RekSzakasz(Konstans x,y:Egész):
Változó
i,y1,y2:Egész
Vonalvég(-1,x,y,y1);
Vonalvég(+1,x,y,y2)
SzakaszKi(x,y1,x,y2)
Ciklus i=y1-től
y2-ig
Ha Üres(x-1,i) akkor
RekSzakasz(x-1,i)
Ha Üres(x+1,i) akkor
RekSzakasz(x+1,i)
Ciklus vége
Eljárás vége.
Eljárás Vonalvég(Konstans merre,x,y:Egész,
Változó z:Egész):
z:=y
Ciklus amíg Üres(x,z+merre)
z:+merre
Ciklus vége
Eljárás vége.
„Technikai” tanácsok
A
szükséges kellékek (keretprogram, verem és sor, esetleg graph unit, ill. egavga.bgi
driver) letöltéséhez látogasson el a http://people.inf.elte.hu/szlavi/Grafika/Festesek
könyvtárba.