|
Lines 174-180
Link Here
|
| 174 |
;; Use graphics in callouts? |
174 |
;; Use graphics in callouts? |
| 175 |
#t) |
175 |
#t) |
| 176 |
|
176 |
|
| 177 |
(define %callout-graphics-ext% |
177 |
(define %callout-graphics-extension% |
| 178 |
;; The extension to use for callout images. This is an extension |
178 |
;; The extension to use for callout images. This is an extension |
| 179 |
;; to the stylesheets, they do not support this functionality |
179 |
;; to the stylesheets, they do not support this functionality |
| 180 |
;; natively. |
180 |
;; natively. |
|
Lines 184-215
Link Here
|
| 184 |
;; Path to callout graphics |
184 |
;; Path to callout graphics |
| 185 |
"./imagelib/callouts/") |
185 |
"./imagelib/callouts/") |
| 186 |
|
186 |
|
| 187 |
;; Redefine $callout-bug$ to support the %callout-graphic-ext% |
|
|
| 188 |
;; variable. |
| 189 |
(define ($callout-bug$ conumber) |
| 190 |
(let ((number (if conumber (format-number conumber "1") "0"))) |
| 191 |
(if conumber |
| 192 |
(if %callout-graphics% |
| 193 |
(if (<= conumber %callout-graphics-number-limit%) |
| 194 |
(make empty-element gi: "IMG" |
| 195 |
attributes: (list (list "SRC" |
| 196 |
(root-rel-path |
| 197 |
(string-append |
| 198 |
%callout-graphics-path% |
| 199 |
number |
| 200 |
%callout-graphics-ext%))) |
| 201 |
(list "HSPACE" "0") |
| 202 |
(list "VSPACE" "0") |
| 203 |
(list "BORDER" "0") |
| 204 |
(list "ALT" |
| 205 |
(string-append |
| 206 |
"(" number ")")))) |
| 207 |
(make element gi: "B" |
| 208 |
(literal "(" (format-number conumber "1") ")"))) |
| 209 |
(make element gi: "B" |
| 210 |
(literal "(" (format-number conumber "1") ")"))) |
| 211 |
(make element gi: "B" |
| 212 |
(literal "(??)"))))) |
| 213 |
]]> |
187 |
]]> |
| 214 |
|
188 |
|
| 215 |
<!-- Two-sided Print output ....................................... --> |
189 |
<!-- Two-sided Print output ....................................... --> |