aboutsummaryrefslogtreecommitdiff
path: root/pkg/obsolete/t_imtitle.x
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2015-07-08 20:46:52 -0400
commitfa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch)
treebdda434976bc09c864f2e4fa6f16ba1952b1e555 /pkg/obsolete/t_imtitle.x
downloadiraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz
Initial commit
Diffstat (limited to 'pkg/obsolete/t_imtitle.x')
-rw-r--r--pkg/obsolete/t_imtitle.x21
1 files changed, 21 insertions, 0 deletions
diff --git a/pkg/obsolete/t_imtitle.x b/pkg/obsolete/t_imtitle.x
new file mode 100644
index 00000000..d4edeb35
--- /dev/null
+++ b/pkg/obsolete/t_imtitle.x
@@ -0,0 +1,21 @@
+include <imhdr.h>
+
+# T_IMTITLE -- Set the title of an image.
+
+procedure t_imtitle ()
+
+char image[SZ_FNAME] # Image to be editted
+
+pointer im, immap()
+
+begin
+ # Access image.
+ call clgstr ("image", image, SZ_FNAME)
+ im = immap (image, READ_WRITE, 0)
+
+ # Substitute new title.
+ call clgstr ("title", IM_TITLE(im), SZ_IMTITLE)
+
+ # Unmap image.
+ call imunmap (im)
+end