diff options
Diffstat (limited to 'ipl/gpacks/weaving/fill.icn')
| -rw-r--r-- | ipl/gpacks/weaving/fill.icn | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ipl/gpacks/weaving/fill.icn b/ipl/gpacks/weaving/fill.icn new file mode 100644 index 0000000..24cd44f --- /dev/null +++ b/ipl/gpacks/weaving/fill.icn @@ -0,0 +1,15 @@ + +procedure fillcell(win, n, m, color) + local save_fg + + save_fg := Fg(win) + Fg(win, color) + + FillRectangle(win, (n - 1) * cellsize, (m - 1) * cellsize, cellsize, + cellsize) + + Fg(win, save_fg) + + return + +end |