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     ! 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.