blob: da4bec037a15b0b5ef0ec88e09620d245760bfa5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gtools.h"
# GT_FREE -- Free extended graphics tools structure.
procedure gt_free (gt)
pointer gt # Graphic tools pointer
begin
if (gt == NULL)
return
call mfree (GT_PARAMS(gt), TY_CHAR)
call mfree (GT_TITLE(gt), TY_CHAR)
call mfree (GT_SUBTITLE(gt), TY_CHAR)
call mfree (GT_COMMENTS(gt), TY_CHAR)
call mfree (GT_XLABEL(gt), TY_CHAR)
call mfree (GT_YLABEL(gt), TY_CHAR)
call mfree (GT_XUNITS(gt), TY_CHAR)
call mfree (GT_YUNITS(gt), TY_CHAR)
call mfree (GT_XFORMAT(gt), TY_CHAR)
call mfree (GT_YFORMAT(gt), TY_CHAR)
call mfree (gt, TY_STRUCT)
end
|
