Return to song.m CVS log

Up to [Research Unix] / researchv10no / cmd / monk / db

Annotation of researchv10no/cmd/monk/db/song.m, revision 1.1.1.1

1.1       root        1: |include(global.h)
                      2: 
                      3: |associate(style;;;
                      4: 
                      5:        [singers;;
                      6:                draft on, page.offset 0.125i, indent .75i,
                      7:                inline off, size 14, inline on, space 16])
                      8:        |comment<summary: style singers (full instructions)>
                      9: 
                     10: |environment(title;
                     11:        new.page, blank.lines 1, center on, font bold;
                     12: 
                     13:        minimum.lines 1)
                     14:        |comment<summary: title (title of the song)>
                     15: 
                     16: |environment(verse;
                     17:        minimum.lines .5, here on;)
                     18:        |comment<summary: verse (verse of the song)>
                     19: 
                     20: |environment(refrain;
                     21:        minimum.lines .5, indent +2, here on;
                     22: 
                     23:        minimum.lines .5)
                     24:        |comment<summary: refrain (refrain of the song)>
                     25: 
                     26: |environment(smaller;
                     27:        inline off, size -2, inline on, space -2;
                     28: 
                     29:        SPACE)
                     30:        |comment<summary: smaller (print the song a little smaller than normal)>
                     31: 
                     32: |environment(d;
                     33: |ifvalue draft off {
                     34:        divert.input on remember_string}
                     35: |ifvalue draft on {
                     36:        font italics};
                     37: 
                     38: |ifvalue draft on {
                     39:        font roman})
                     40:        |comment<summary: d (directive to the singers)>
                     41: 
                     42: |environment(m;
                     43: |ifvalue draft off {
                     44:        divert.input on remember_string}
                     45: |ifvalue draft on {
                     46:        indent.line -.75i};
                     47: 
                     48: |ifvalue draft on {
                     49:        horizontal.motion "|.75i"})
                     50:        |comment<summary: m (margin text)>
                     51: 
                     52: |environment(:document;
                     53:        font.family helvetica, inline off, size 22, inline on, space 24, fill off,
                     54:        page.offset 0.5i;)
                     55: 
                     56: |environment(:document_save;
                     57:        ;)
                     58: 
                     59: |environment(:document_restore;
                     60:        ;)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.