]> git.donarmstrong.com Git - lilypond.git/blob - scm/element-descriptions.scm
f656d5b1971389392db50511426763e2bc94dbcd
[lilypond.git] / scm / element-descriptions.scm
1 ; distances are given in stafflinethickness (thicknesses) and
2 ; staffspace (distances)
3
4 (define all-element-descriptions
5   `((Arpeggio . (
6                (X-extent-callback . ,Arpeggio::width_callback)
7                (Y-extent-callback . #f)        
8                (molecule-callback . ,Arpeggio::brew_molecule)
9                (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
10                (X-offset-callbacks . (,Side_position::aligned_side))
11                (direction . -1)
12                (staff-position . 0.0)
13                (meta . ,(element-description "Arpeggio" arpeggio-interface side-position-interface font-interface))
14                ))
15
16     (autoBeamSettings . ,auto-beam-settings)
17
18     (BarLine . (
19                 (break-align-symbol . Staff_bar)
20                 (glyph . "|")
21                 (break-glyph-function . ,default-break-barline)
22                 (barsize-procedure . ,Bar::get_staff_bar_size)
23                 (molecule-callback . ,Bar::brew_molecule)          
24                 (visibility-lambda . ,all-visible)
25                 (breakable . #t)
26                 (before-line-breaking-callback . ,Bar::before_line_breaking)
27                 ;;
28                 ;; Ross. page 151 lists other values, we opt for a leaner look
29                 ;; 
30                 (kern . 3.0)
31                 (thin-kern . 3.0)
32                 (hair-thickness . 1.6)
33                 (thick-thickness . 6.0)
34                 (meta . ,(element-description  "BarLine" bar-line-interface font-interface))
35         ))
36
37         (BarNumber . (
38                 (molecule-callback . ,Text_item::brew_molecule)
39                 (breakable . #t)
40                 (visibility-lambda . ,begin-of-line-visible)
41                 (padding . 1.0)
42                 (direction . 1)
43                 (font-family . roman)
44                 (font-relative-size . -1)
45                 (meta . ,(element-description "BarNumber"
46                         text-interface  font-interface break-aligned-interface))
47         ))
48
49         (Beam . ,basic-beam-properties)
50          
51         (BreakAlignment . (
52                 (breakable . #t)
53                 (stacking-dir . 1)
54                 (axes 0)
55                 (X-offset-callbacks . (,Break_align_interface::self_align_callback))
56                 (space-alist . ,default-break-align-space-alist) 
57                 (meta . ,(element-description "BreakAlignment"
58                         axis-group-interface align-interface
59                         )
60                 )
61         ))
62
63         (BreakAlignGroup . (
64                 (axes  . (0))
65                 (X-offset-callbacks . (,Break_align_interface::alignment_callback))
66                 
67                 (meta . ,(element-description "BreakAlignGroup" axis-group-interface))
68         ))
69
70         (BreathingSign . (
71                 (break-align-symbol . Breathing_sign)
72                 (breakable . #t )
73                 (molecule-callback . ,Breathing_sign::brew_molecule)
74                 (Y-offset-callbacks . (,Breathing_sign::offset_callback))
75                 (visibility-lambda . ,begin-of-line-invisible)
76                 (meta . ,(element-description "BreathingSign"  break-aligned-interface))
77         ))
78
79         (Clef . (
80            (molecule-callback . ,Clef::brew_molecule)
81            (before-line-breaking-callback . ,Clef::before_line_breaking)
82            (breakable . #t)
83            (font-family . music)           
84            (break-align-symbol . Clef_item)
85            (visibility-lambda . ,begin-of-line-visible)
86            (Y-offset-callbacks  . (,Staff_symbol_referencer::callback)) 
87            (meta . ,(element-description "Clef" clef-interface font-interface break-aligned-interface ))
88         ))
89
90         (ChordName . (
91                 (molecule-callback . ,Chord_name::brew_molecule)
92                 (after-line-breaking-callback . ,Chord_name::after_line_breaking)
93                 (chord-name-function . ,default-chord-name-function)
94                 (font-family . roman)
95                 (meta . ,(element-description "ChordName"  font-interface text-interface chord-name-interface))
96         ))
97
98        (Custos . (
99                (break-align-symbol . Custos)
100                (breakable . #t )
101                (molecule-callback . ,Custos::brew_molecule)
102                (visibility-lambda . ,end-of-line-visible)
103                (style .  vaticana)
104                (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
105                (meta . ,(element-description "Custos" custos-interface staff-symbol-interface break-aligned-interface) )
106        ))
107         
108         (Crescendo . (
109                 (molecule-callback . ,Hairpin::brew_molecule)
110                 (thickness . 1.0)
111                 (padding . 1.0)
112                 (height . 0.6666)
113                 (dash-thickness . 1.2)
114                 (dash-length . 4.0)
115                 (self-alignment-Y . 0)
116                 (Y-offset-callbacks . (,Side_position::aligned_on_self))
117                 (meta . ,(element-description "Crescendo" hairpin-interface))
118         ))
119
120         (DotColumn . (
121                 (axes 0 )
122                 (meta . ,(element-description "DotColumn" dot-column-interface  axis-group-interface))
123         ))
124
125         (Dots . (
126                 (molecule-callback . ,Dots::brew_molecule)
127                 (dot-count . 1)
128                 (staff-position . 0.0)
129                 (Y-offset-callbacks  . (,Dots::quantised_position_callback ,Staff_symbol_referencer::callback))
130                 (meta . ,(element-description "Dots"  font-interface dot-interface ))
131         ))
132         
133         (DynamicText . (
134                 (Y-offset-callbacks . (,Side_position::aligned_on_self))
135                 (molecule-callback . ,Text_item::brew_molecule)
136                 (script-priority . 100)
137                 (font-series . bold)
138                 (font-family . dynamic)
139                 (font-shape . italic)
140                 (self-alignment-Y . 0)
141                 (meta . ,(element-description "DynamicText" font-interface  text-interface ))
142         ))
143         
144         (DynamicLineSpanner . (
145                 (axes . ( 1))
146                 (padding . 0.6)
147                 (minimum-space . 1.2)
148                 (meta . ,(element-description "DynamicLineSpanner" dynamic-interface axis-group-interface side-position-interface))
149         ))
150         
151         (LeftEdge . (
152                 (break-align-symbol . Left_edge_item)
153                 (X-offset-callbacks . (,Break_align_interface::alignment_callback))
154                 (breakable . #t)
155                 (meta . ,(element-description "LeftEdge" break-aligned-interface))
156         ))
157         
158         (Fingering . (
159                 (molecule-callback . ,Text_item::brew_molecule)
160                 (X-offset-callbacks . (,Side_position::centered_on_parent ,Side_position::aligned_on_self))
161                 (padding . 0.6)
162                 (self-alignment-X . 0)
163                 (font-family . number)
164                 (font-relative-size . -3)
165                 (font-shape . upright)
166                 (meta . ,(element-description "Fingering" finger-interface  font-interface text-script-interface text-interface side-position-interface))
167         ))
168
169         (GraceAlignment . (
170                 (axes . (0))
171                 (horizontal-space . 1.2)
172                 (padding . 1.0)
173                 (before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
174                 (meta . ,(element-description "GraceAlignment" axis-group-interface align-interface grace-alignment-interface))
175         ))
176         
177         (HaraKiriVerticalGroup . (
178                 (Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
179                 (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
180                 (axes 1)
181                 (meta . ,(element-description "HaraKiriVerticalGroup" axis-group-interface hara-kiri-group-interface))
182         ))
183
184         (LyricHyphen . (
185                 (thickness . 1.0)
186                 (height . 0.4)
187                 (minimum-length .  0.5) 
188                 (molecule-callback . ,Hyphen_spanner::brew_molecule)
189                 (Y-extent-callback . ,Grob::point_dimension_callback)
190                 (meta . ,(element-description "LyricHyphen" lyric-hyphen-interface ))
191         ))
192         
193         (InstrumentName . (
194                 (breakable . #t)
195                 (Y-offset-callbacks . (,Side_position::centered_on_parent
196                                        ,Side_position::aligned_on_self))
197                 (self-alignment-Y . 0)
198                 (molecule-callback . ,Text_item::brew_molecule)         
199                 (break-align-symbol . Instrument_name)
200                 (visibility-lambda . ,begin-of-line-visible)
201                 (font-family . roman)
202                 (meta . ,(element-description "InstrumentName"  font-interface  text-interface break-aligned-interface))
203         ))
204         
205         (KeySignature . (
206           (molecule-callback . ,Key_item::brew_molecule)
207           (break-align-symbol . Key_item)
208           (visibility-lambda . ,begin-of-line-visible)
209           (breakable . #t)
210           (meta . ,(element-description "KeySignature" key-signature-interface  font-interface  break-aligned-interface))
211         ))
212         
213         (Accidentals . (
214                 (molecule-callback . ,Local_key_item::brew_molecule)
215                 (X-offset-callbacks . (,Side_position::aligned_side))
216                 (direction . -1)
217                 (left-padding . 0.2)
218                 (right-padding . 0.4)
219                 (meta . ,(element-description "Accidentals"  accidentals-interface font-interface side-position-interface))
220         ))
221         
222         (LineOfScore . (
223                 (axes . (0 1))
224                 (meta . ,(element-description "LineOfScore"  line-of-score-interface axis-group-interface))
225         ))
226         
227         (LyricExtender . (
228                 (molecule-callback . ,Lyric_extender::brew_molecule)
229                 (height . 0.8) ; stafflinethickness;
230                 (right-trim-amount . 0.5)
231                 (Y-extent-callback . ,Grob::point_dimension_callback)
232                 (meta . ,(element-description "LyricExtender"  lyric-extender-interface))
233         ))
234         
235         (LyricText . (
236                 (molecule-callback . ,Text_item::brew_molecule)
237                 (X-offset-callbacks . (,Side_position::aligned_on_self))
238                 (self-alignment-X . 0)
239                 (non-rhythmic . #t)
240                 (word-space . 0.6)
241                 (font-family . roman)
242                 (font-shape . upright)
243                 (meta . ,(element-description "LyricText" lyric-syllable-interface text-interface font-interface ))
244         ))
245         
246         (RehearsalMark . (
247                 (molecule-callback . ,Text_item::brew_molecule)
248                 (direction . 1)
249                 (breakable . #t)
250                 (font-family . number)
251                 (font-shape . upright)
252                 (font-relative-size . 1)
253                 (visibility-lambda . ,end-of-line-invisible)
254                 (padding . 0.8)
255                 (meta . ,(element-description "RehearsalMark"  mark-interface side-position-interface))
256         ))
257         
258         (MultiMeasureRest . (
259                 (spacing-procedure . ,Multi_measure_rest::set_spacing_rods)
260                 (molecule-callback . ,Multi_measure_rest::brew_molecule)
261                 (staff-position . 0)
262                 (expand-limit . 10)
263                 (padding . 2.0) ; staffspace
264                 (minimum-width . 12.5) ; staffspace
265                 (font-family . number)
266                 (font-relative-size . 1)
267                 (meta . ,(element-description "MultiMeasureRest" multi-measure-rest-interface  font-interface ))
268         ))
269         (NoteCollision . (
270                 (axes 0 1)
271                 (note-width . 1.65)
272                 (meta . ,(element-description "NoteCollision"
273                    note-collision-interface axis-group-interface
274                 ))
275         ))
276         
277         (NoteColumn . (
278                 (axes . (0 1))
279                 (meta . ,(element-description "NoteColumn"  axis-group-interface note-column-interface))
280         ))
281
282         (NoteHead . (
283                 (style . default)
284                 (molecule-callback . ,Note_head::brew_molecule)
285                 (Y-offset-callbacks  . (,Staff_symbol_referencer::callback)) 
286                 (meta . ,(element-description  "NoteHead"
287                         rhythmic-head-interface font-interface 
288                         note-head-interface ))
289         ))
290         (Glissando . (
291                          (type . line)
292                          (gap . 0.5)
293                          (breakable . #t)
294                          (X-extent-callback . #f)
295                          (Y-extent-callback . #f)                        
296                          (molecule-callback . ,Line_spanner::brew_molecule)
297                          (meta . ,(element-description "Glissando"
298                                                        line-spanner-interface))
299                          ))
300         (FollowThread . (
301                          (type . line)
302                          (gap . 0.5)
303                          (breakable . #t)
304                          (X-extent-callback . #f)
305                          (Y-extent-callback . #f)                        
306                          (molecule-callback . ,Line_spanner::brew_molecule)
307                          (meta . ,(element-description "FollowThread"
308                                                        line-spanner-interface))
309                          ))
310
311         (NoteName . (
312                 (molecule-callback . ,Text_item::brew_molecule)
313                 (font-family . roman)
314                 (meta . ,(element-description  "NoteName"
315                                                note-name-interface font-interface
316                                                ))
317                 ))
318
319         (OctavateEight . (
320                 (self-alignment-X . 0)
321                 (text . "8")
322                 (visibility-lambda . ,begin-of-line-visible)
323                 (X-offset-callbacks . (,Side_position::centered_on_parent ,Side_position::aligned_on_self))
324                 (Y-offset-callbacks . (,Side_position::aligned_side))
325                 (molecule-callback . ,Text_item::brew_molecule)
326                 (font-shape . italic)
327                 (font-family . roman)
328                 (meta . ,(element-description "OctavateEight" text-interface font-interface ))
329         ))
330         
331         (PaperColumn . (
332                 (axes 0)
333                 (before-grace-spacing-factor . 1.2)
334                 (before-musical-spacing-factor . 0.4)
335                 (meta . ,(element-description "PaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
336         ))
337         (NonMusicalPaperColumn . (
338                 (axes 0)
339                 (before-musical-spacing-factor . 1.0)
340                 (column-space-strength . 2.0)
341                 (meta . ,(element-description "NonMusicalPaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
342         ))
343         
344         (Rest . (
345                 (after-line-breaking-callback . ,Rest::after_line_breaking)
346                 (X-extent-callback . ,Rest::extent_callback)
347                 (Y-extent-callback . ,Rest::extent_callback)            
348                 (molecule-callback . ,Rest::brew_molecule)
349                 (minimum-beam-collision-distance . 1.5)
350                 (meta . ,(element-description  "Rest"
351                         rhythmic-head-interface
352                         rest-interface))
353         ))
354         (RestCollision . (
355                 (minimum-distance . 0.75)
356                 (meta . ,(element-description "RestCollision" rest-collision-interface ))
357         ))
358
359         (Script . (
360                 (molecule-callback . ,Script::brew_molecule)
361                 (X-offset-callbacks . (,Side_position::centered_on_parent))
362                 (meta . ,(element-description "Script" script-interface side-position-interface font-interface))
363         ))
364         
365         (ScriptColumn . (
366                 (before-line-breaking-callback . ,Script_column::before_line_breaking)
367                 (meta . ,(element-description "ScriptColumn" script-column-interface))
368         ))
369         
370         (Slur . ,default-basic-slur-properties)
371         (SpacingSpanner . (
372                 (spacing-procedure . ,Spacing_spanner::set_springs)
373                 (stem-spacing-correction . 0.5)
374                 (arithmetic-basicspace . 2.0)
375                 (arithmetic-multiplier . ,(* 0.9 1.32))
376                 ;; assume that notes at least this long are present.
377                 (maximum-duration-for-spacing . ,(make-moment 1 8))
378                 (meta . ,(element-description "SpacingSpanner"  spacing-spanner-interface))
379         ))
380         (SpanBar . (
381                 (break-align-symbol . Staff_bar)
382                 (barsize-procedure . ,Span_bar::get_bar_size) 
383                 (molecule-callback . ,Bar::brew_molecule)
384                 (visibility-lambda . ,begin-of-line-invisible)
385                 (X-extent-callback . ,Span_bar::width_callback)
386                 (Y-offset-callbacks . (,Span_bar::center_on_spanned_callback))
387                 
388                 (breakable . #t)
389                 (glyph . "|")
390                 (before-line-breaking-callback . ,Span_bar::before_line_breaking)
391                 ;; ugh duplication! 
392                 
393                 ;;
394                 ;; Ross. page 151 lists other values, we opt for a leaner look
395                 ;; 
396                 (kern . 3.0)
397                 (thin-kern . 3.0)
398                 (hair-thickness . 1.6)
399                 (thick-thickness . 6.0)
400                 (meta . ,(element-description "SpanBar" span-bar-interface bar-line-interface ))
401         ))
402
403         (StanzaNumber . (
404                 (breakable . #t)
405                 (molecule-callback . ,Text_item::brew_molecule)         
406                 (break-align-symbol . Clef_item)
407                 (visibility-lambda . ,begin-of-line-visible)
408                 (font-family . roman)
409                 (meta . ,(element-description "StanzaNumber" break-aligned-interface text-interface font-interface))
410         ))
411
412         (StaffSymbol . (
413                 (molecule-callback . ,Staff_symbol::brew_molecule)
414                 (staff-space . 1.0)
415                 (line-count . 5 )
416                 (meta . ,(element-description "StaffSymbol" staff-symbol-interface ))
417         ))
418         (SostenutoPedal . (
419                 (molecule-callback . ,Text_item::brew_molecule)
420                 (X-offset-callbacks . (,Side_position::aligned_on_self))
421                 (Y-offset-callbacks .
422                  (,Side_position::aligned_side
423                   ,Side_position::centered_on_parent))
424                 (no-spacing-rods . #t)
425                 (font-shape . italic)
426                 (self-alignment-X . 0)
427                 (meta . ,(element-description "SostenutoPedal" text-interface  font-interface))
428         ))
429
430         (Stem . (
431                 (before-line-breaking-callback . ,Stem::before_line_breaking)
432                 (molecule-callback . ,Stem::brew_molecule)
433                 (thickness . 0.8)
434                 (beamed-lengths . (0.0 2.5 2.0 1.5))
435                 (beamed-minimum-lengths . (0.0 1.5 1.25 1.0))
436                 
437 ;;  Stems in unnatural (forced) direction should be shortened,
438 ;;  according to [Roush & Gourlay].  Their suggestion to knock off
439 ;;  a whole staffspace seems a bit drastical: we'll do half.
440
441                 (lengths . (3.5 3.5 3.5 4.5 5.0))
442                 (stem-shorten . (0.5))
443                 ; if stem is on middle line, choose this direction.
444                 (default-neutral-direction . 1)
445                 (X-offset-callbacks . (,Stem::off_callback))
446                 (X-extent-callback . ,Stem::dim_callback)       
447                 (meta . ,(element-description  "Stem" stem-interface  font-interface))
448         ))
449
450         (StemTremolo . (
451                 (molecule-callback . ,Stem_tremolo::brew_molecule)
452                 (beam-width . 2.0) ; staff-space
453                 (beam-thickness . 0.42) ; staff-space
454                 (beam-space-function . ,default-beam-space-function)
455                 (meta . ,(element-description "StemTremolo" stem-tremolo-interface ))
456         ))
457
458         (SeparationItem . (
459                 (meta . ,(element-description "SeparationItem" separation-item-interface ))
460         ))
461         (SeparatingGroupSpanner . (
462                 (spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
463                 (meta . ,(element-description "SeparatingGroupSpanner" separation-spanner-interface))
464         ))
465
466         (SustainPedal . (
467                 (no-spacing-rods . #t)
468                 (molecule-callback . ,Sustain_pedal::brew_molecule)
469                 (self-alignment-X . 0)
470                 (X-offset-callbacks . (,Side_position::aligned_on_self))
471                 (Y-offset-callbacks .
472                                     (,Side_position::aligned_side
473                                      ,Side_position::centered_on_parent))
474
475                 (meta . ,(element-description "SustainPedal" sustain-pedal-interface side-position-interface font-interface))
476         ))
477
478         ; should split in 3
479         (SystemStartDelimiter . (
480                 (molecule-callback . ,System_start_delimiter::brew_molecule)
481                 (after-line-breaking-callback . ,System_start_delimiter::after_line_breaking)
482                 (collapse-height . 1.0)
483                 (thickness . 1.6)
484                 (arch-height . 1.5)
485                 (arch-angle . 50.0)
486                 (arch-thick . 0.25)
487                 (glyph . bar-line)
488                 (arch-width . 1.5)
489                 (bracket-thick . 0.25)
490                 (bracket-width . 2.0)
491                 (Y-extent-callback . #f)
492                 (font-family . braces)
493                 ;; if you want to set point-size, you cannot set
494                 ;; relative-size, as no font will be found for other
495                 ;; sheets than 20
496                 ;;(font-point-size . 20)
497                 ;;(font-relative-size . #f)
498                 (meta . ,(element-description "SystemStartDelimiter" system-start-delimiter-interface font-interface))
499                 ))
500
501         (TextScript . (
502                 (molecule-callback . ,Text_item::brew_molecule)
503                 (no-spacing-rods . #t)
504                 (padding . 0.5)
505                 (font-family . roman)
506                 (font-shape . italic)
507                 (meta . ,(element-description "TextScript" text-script-interface text-interface side-position-interface font-interface ))
508         ))
509         (TextSpanner . (
510                 (molecule-callback . ,Text_spanner::brew_molecule)
511                 (font-shape . italic)
512                 (type . "line")
513                 (direction . 1)
514                 (meta . ,(element-description "TextSpanner" text-spanner-interface  font-interface))            
515         ))
516         (Tie . (
517                 (molecule-callback . ,Tie::brew_molecule)
518                 (spacing-procedure . ,Tie::set_spacing_rods)
519                 (staffline-clearance . 0.35)
520                 (details . ((ratio . 0.333) (height-limit . 1.0)))
521                 (thickness . 1.2)
522                 (x-gap . 0.2)
523                 (minimum-length  . 2.5)
524                 (meta . ,(element-description "Tie" tie-interface ))
525         ))
526
527         (TieColumn . (
528                 (after-line-breaking-callback . ,Tie_column::after_line_breaking)
529                 (meta . ,(element-description "TieColumn" tie-column-interface ))
530         ))
531
532         (TimeSignature . (
533                 (molecule-callback . ,Time_signature::brew_molecule)
534                 (break-align-symbol . Time_signature)
535                 (visibility-lambda . ,all-visible)
536                 (breakable . #t)
537                 (font-family . number)
538                 (meta . ,(element-description "TimeSignature" time-signature-interface  font-interface))
539         ))
540
541         (TupletBracket . (
542                 (number-gap . 2.0)   
543                 (delta-y . 0)
544                 (thick . 1.0)
545                 (after-line-breaking-callback . ,Tuplet_spanner::after_line_breaking)
546                 (molecule-callback . ,Tuplet_spanner::brew_molecule)
547                 (font-family . roman)
548                 (font-shape . italic)
549                 (font-relative-size . -1)
550                 (meta .  ,(element-description "TupletBracket" text-interface
551                            tuplet-bracket-interface font-interface))
552         ))
553
554         (UnaChordaPedal . (
555                 (molecule-callback . ,Text_item::brew_molecule)
556                 (font-shape . italic)
557                 (no-spacing-rods . #t)
558                 (self-alignment-X . 0)
559                 (X-offset-callbacks . (,Side_position::aligned_on_self))
560                 (Y-offset-callbacks .
561                  (,Side_position::aligned_side
562                   ,Side_position::centered_on_parent))
563                 (meta . ,(element-description "UnaChordaPedal" text-interface font-interface))
564         ))
565
566         (VoltaBracket . (
567                 (molecule-callback . ,Volta_spanner::brew_molecule)
568         
569                 (direction . 1)
570                 (padding . 1)
571                 (font-style . volta)
572                 (Y-offset-callbacks . (,Side_position::aligned_side))
573                 (thickness . 1.6)  ;  stafflinethickness
574                 (height . 2.0) ; staffspace;
575                 (minimum-space . 5)
576                 (font-family . number)
577                 (font-relative-size . -2)
578                 (meta . ,(element-description "VoltaBracket" volta-bracket-interface side-position-interface font-interface))
579         ))
580
581         (VerticalAlignment . (
582                 (axes 1)
583                 (Y-extent-callback . ,Axis_group_interface::group_extent_callback)
584                 (X-extent-callback . #f)
585                 (stacking-dir . -1)
586                 (meta . ,(element-description "VerticalAlignment" align-interface axis-group-interface))
587         ))
588
589         (VerticalAxisGroup . (
590                 (axes 1)
591                 (meta . ,(element-description "VerticalAxisGroup" axis-group-interface))
592         ))
593 ))
594
595
596
597 ;  (display  (map pair? all-element-descriptions))
598