|
|
1.1 root 1: /* t4014.c - display on tetronix 4014 terminals */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/others/quipu/photo/RCS/t4014.c,v 7.0 89/11/23 22:01:47 mrose Rel $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/others/quipu/photo/RCS/t4014.c,v 7.0 89/11/23 22:01:47 mrose Rel $
9: *
10: *
11: * $Log: t4014.c,v $
12: * Revision 7.0 89/11/23 22:01:47 mrose
13: * Release 6.0
14: *
15: */
16:
17: /*
18: * NOTICE
19: *
20: * Acquisition, use, and distribution of this module and related
21: * materials are subject to the restrictions of a license agreement.
22: * Consult the Preface in the User's Manual for the full terms of
23: * this agreement.
24: *
25: */
26:
27:
28:
29: #include "stdio.h"
30: #include "quipu/photo.h"
31: #include "signal.h"
32: extern int NUMLINES,PIC_LINESIZE;
33: extern unsigned position;
34:
35: /* Any errors should be written to *stdout* */
36: /* if the process exits, with out giving an error message, quipu may hang */
37:
38: #define SCALE 5
39: #define Y_OFFSET 2700
40: #define X_OFFSET 3000
41: #define X_SKIP 8
42:
43: int y = Y_OFFSET;
44:
45: photo_quit ()
46: {
47: putch (030); /* Return to non-graphic mode */
48: exit (0);
49: }
50:
51: photo_start (name)
52: char * name;
53: {
54: putch (035); /* Enter graphic mode */
55:
56: openpl ();
57: erase ();
58: linemod ("solid");
59:
60: signal (SIGTERM,photo_quit);
61: /* return 0 if sucessful -1 if not */
62:
63: return (0);
64: }
65:
66:
67: photo_end (name)
68: char * name;
69: {
70: /* Decoding has finished - display the photo */
71: move (0,Y_OFFSET - 100);
72: closepl();
73:
74: (void) printf ("\n");
75: (void) fflush (stdout);
76: (void) close (1); /* this is needed for QUIPU */
77: /* wait until signalled to Terminate */
78: for (;;)
79: ;
80: }
81:
82: photo_black (length)
83: int length;
84: {
85: }
86:
87: photo_white (length)
88: int length;
89: {
90: line ((position*SCALE)+X_OFFSET,y,((length+position-1)*SCALE)+X_OFFSET,y);
91: }
92:
93:
94: photo_line_end (line)
95: bit_string * line;
96: {
97: y -= SCALE;
98: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.