1 files changed, 20 insertions, 0 deletions
diff --git a/sys/gio/sgikern/sgifa.x b/sys/gio/sgikern/sgifa.x
new file mode 100644
index 00000000..37793f22
--- /dev/null
+++ b/sys/gio/sgikern/sgifa.x
@@ -0,0 +1,20 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"sgi.h"
+
+# SGI_FILLAREA -- Fill a closed area.
+
+procedure sgi_fillarea (p, npts)
+
+short	p[ARB]			# points defining line
+int	npts			# number of points, i.e., (x,y) pairs
+include	"sgi.com"
+
+begin
+	# This kernel doesn't have any real fill area capability yet; if
+	# fill area is enabled in the graphcap entry, just draw the outline
+	# of the area.
+
+	if (SGI_FILLAREA(g_kt) == YES)
+	    call sgi_polyline (p, npts)
+end