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