1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* FIG MACROS
9 .* ENTRY VECTOR
10 .indctl on
11 .srv TOC_PART "fig"
12 .srv TOC_CBAR "%ChangeBar%"
13 .ur .go %InputFileName%
14 .* TURN FIGING ON
15 .la fig_on
16 .ts "%FIGING%" ^= ""
17 .go ret
18 .*
19 .srv FIGING "FIG_ON"
20 .ifi toc_setup
21 .go ret
22 .* COUNT, EMIT TOC LINE & CAPTION
23 .la fig
24 .la dot_fig
25 .ur .ifi break_title "%Parameter%"
26 .*
27 .if "%InputFileName%" = "dot_fig"
28 .then .ifi dot_fig_get_no 1
29 .else .ifi fig_get_no 1
30 .endif
31 .*
32 .ur .ur .tlc %%2 * %LABELSPACE%%%
33 .*
34 .srv TITLE1 "Figure %figure%. %TITLE1%"
35 .srv I 1
36 .la FIG_LOOP
37 .ur .ur .tlc ||%%TITLE%I%%%||
38 .srv I %I% + 1
39 .ts %I% <= %TITLEN%
40 .go FIG_LOOP
41 .ur .ts %%1+%LABELSPACE%+%MPM_SPACE%%% <= %LinesLeft% | %LinesLeft% < 0
42 .ur .ur .tlc %%1 + %LABELSPACE% + %MPM_SPACE%%%
43 .brb
44 .*
45 .la fig_output_index
46 .ts "%FIGING%" = ""
47 .go FIG_STEP_INDEX
48 .*
49 .ur .wrt %FileName%.fig.compin .1Figure %figure%.
50 .ur .wrt %FileName%.fig.compin .bbc 2
51 .ur .wrt %FileName%.fig.compin .inl 1
52 .ur .ifi toc_entry "%TITLE%"
53 .*
54 .la FIG_STEP_INDEX
55 .srv NEXT_FIG_NO %NEXT_FIG_NO% + %FIG_INCR%
56 .srv NEXT_FIG_DOT_NO %NEXT_FIG_DOT_NO% + %FIG_DOT_INCR%
57 .go ret
58 .* FIG_INDEX
59 .la fig_index
60 .la dot_fig_index
61 .srv TITLE "%Parameter%"
62 .ts "%InputFileName%" = "fig_index"
63 .ifi fig_get_no 1
64 .ts "%InputFileName%" = "dot_fig_index"
65 .ifi dot_fig_get_no 1
66 .go fig_output_index
67 .* RETURN Nth NEXT FIG NO.
68 .la fig_get_no
69 .la dot_fig_get_no
70 .srv FIGURE_SECTION;.srv NEXT_FIG_NO;.srv NEXT_FIG_DOT_NO
71 .srv FIG_INCR 0;.srv FIG_DOT_INCR 0
72 .ts "%FIGURE_SECTION%" = "%section%"
73 .go INCR_FIG_CT
74 .srv FIGURE_SECTION "%section%"
75 .srv NEXT_FIG_NO 0;.srv NEXT_FIG_DOT_NO 0
76 .*
77 .la INCR_FIG_CT
78 .ts "%InputFileName%" ^= "fig_get_no"
79 .go CHECK_DOT_FIGS
80 .srv FIG_INCR %Parameter%
81 .srv FIGURE_COUNT %NEXT_FIG_NO% + %FIG_INCR%
82 .srv NEXT_FIG_DOT_NO 0
83 .go INCR_FIG_JOIN
84 .*
85 .la CHECK_DOT_FIGS
86 .ts %NEXT_FIG_NO% > 0
87 .go DOT_FIGS_OK
88 .err No prior figure.
89 .go ret
90 .*
91 .la DOT_FIGS_OK
92 .srv FIG_DOT_INCR %Parameter%
93 .ur .srv FIGURE_COUNT %NEXT_FIG_NO%.%%%NEXT_FIG_DOT_NO% + %FIG_DOT_INCR%%%
94 .*
95 .la INCR_FIG_JOIN
96 .srv figure "%section%-%FIGURE_COUNT%"
97 .ts "%section%" = ""
98 .srv figure "%FIGURE_COUNT%"
99 .go ret
100 .* FIG HEADER
101 .la fig_header
102 .brb
103 .spt 3
104 .fif
105 .if "%DeviceClass%" = "bitmap"
106 .then .fnt CSBI 14
107 .tlh 3 0 |||Illustrations|
108 .fnt
109 .else .tlh 2 ||ILLUSTRATIONS||
110 .endif
111 .cbf ;.* in case preceding entry has a cbar
112 .fnt CSR 9
113 .fla |%add_date%|%PageNo%|%ORDER_NUMBER%%add_letter%|
114 .fnt
115 .*
116 .la ret
117 .indctl
118 .rt