Пример заполнения области.

/* Program CH17EX04.PRO */

include "GRAPDECL.PRO"

constants

gray50 = [$aa, $55, $aa, $55, $aa, $55, $aa, $55 ]

goal

initgraph(detect, 0, GraphDriver, GraphMode, ""),

/* Retrieve current settings */

getfillsettings(SavePat, SaveColor),

/* Save user fill pattern */

getfillpattern(SavePatternList),

/* Change fill style */

setfillstyle(slash_FILL, blue),

/* Draw slash-filled blue bar */

bar(0, 0, 100, 100),

/* Custom fill pattern */

setfillpattern(gray50, yellow),

/* Draw customized yellow bar */

bar(100, 100, 200, 200),

/* Restore user fill pattern */

setfillpattern(SavePatternList, SaveColor),

setfillstyle(SavePat, SaveColor),

readchar(_),

closegraph.