aboutsummaryrefslogtreecommitdiff
path: root/sys/gio/gmftitle.x
blob: 0e7d03224020178cb2168fd3e67c31009a4aeb24 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	<gio.h>

# GMFTITLE -- Insert a title (comment) into the output metacode instruction
# stream.  No graphics output is generated.  The purpose of the metafile
# title is to document the contents of metafiles.

procedure gmftitle (gp, mftitle)

pointer	gp			# graphics descriptor
char	mftitle[ARB]		# metafile title

begin
	call gpl_flush()
	call gki_mftitle (GP_FD(gp), mftitle)
end