在 ConTeXt 的列集/页面列中添加列规则

Question 1

在与 Hans 讨论后（并得到了 Wolfgang 的有益建议），以下解决方案问世了。如果列不平衡，此方法效果很好。我没有做主要工作，因此我不想承担责任，并将其标记为 CW。

\setupbodyfont[dejavu,9pt]

\setuphead[subject][
    style=bold,
    before={\blank[line]},
    after={\blank[none]},
]


\setuplayout[
    backspace=13mm,
    width=middle,
    topspace=13mm,
    height=middle,
    header=0mm,
    footer=0mm,
    grid=yes,
]


\startuseMPgraphic{verticalrule}
save a, b, c, p, q, r ;
path b ; b := positioncolumnbox(CurrentColumn) ;
draw image (
    path p ; p := rightboundary b shifted (\frameddimension{distance}/2,0) ;
    numeric c ; c := positioncolumn(positionregion("allendshere")) ;
    if (positionpage("allendshere") = RealPageNumber):
        if (CurrentColumn < c) :
            draw p withcolor black withpen pencircle scaled 1 ;
        elseif (CurrentColumn > c) :
            % nothing
        else :
            if CurrentColumn < NOfColumns :
                pair a ; a := positionxy ("allendshere") ;
                path q ; q := (0,ypart a) -- (PaperWidth,ypart a) ;
                path r ; r := p cutbeforefirst q ;
                draw r withcolor black withpen pencircle scaled 1 ;
            fi ;
        fi ;
    else :
        if CurrentColumn < NOfColumns :
            draw p withcolor black withpen pencircle scaled 1 ;
        fi ;
    fi ;
) shifted -llcorner b ;
setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

\defineoverlay[verticalrule][\useMPgraphic{verticalrule}]

\setupalign[verytolerant,stretch]

\starttext

\startpagecolumns[n=3,background=verticalrule]
    \dorecurse{10}{%
        \subject[title={Foo \recurselevel}]
        \samplefile{lorem}
    }
    \hpos{allendshere}{}
\stoppagecolumns

\stoptext

Answer

在与 Hans 讨论后（并得到了 Wolfgang 的有益建议），以下解决方案问世了。如果列不平衡，此方法效果很好。我没有做主要工作，因此我不想承担责任，并将其标记为 CW。

\setupbodyfont[dejavu,9pt]

\setuphead[subject][
    style=bold,
    before={\blank[line]},
    after={\blank[none]},
]


\setuplayout[
    backspace=13mm,
    width=middle,
    topspace=13mm,
    height=middle,
    header=0mm,
    footer=0mm,
    grid=yes,
]


\startuseMPgraphic{verticalrule}
save a, b, c, p, q, r ;
path b ; b := positioncolumnbox(CurrentColumn) ;
draw image (
    path p ; p := rightboundary b shifted (\frameddimension{distance}/2,0) ;
    numeric c ; c := positioncolumn(positionregion("allendshere")) ;
    if (positionpage("allendshere") = RealPageNumber):
        if (CurrentColumn < c) :
            draw p withcolor black withpen pencircle scaled 1 ;
        elseif (CurrentColumn > c) :
            % nothing
        else :
            if CurrentColumn < NOfColumns :
                pair a ; a := positionxy ("allendshere") ;
                path q ; q := (0,ypart a) -- (PaperWidth,ypart a) ;
                path r ; r := p cutbeforefirst q ;
                draw r withcolor black withpen pencircle scaled 1 ;
            fi ;
        fi ;
    else :
        if CurrentColumn < NOfColumns :
            draw p withcolor black withpen pencircle scaled 1 ;
        fi ;
    fi ;
) shifted -llcorner b ;
setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

\defineoverlay[verticalrule][\useMPgraphic{verticalrule}]

\setupalign[verytolerant,stretch]

\starttext

\startpagecolumns[n=3,background=verticalrule]
    \dorecurse{10}{%
        \subject[title={Foo \recurselevel}]
        \samplefile{lorem}
    }
    \hpos{allendshere}{}
\stoppagecolumns

\stoptext

Question 2

支持pagecolumns分隔列的规则，但是规则本身的代码已被注释，无法使用。

如果代码已启用，您可以启用分隔符，separator=rule但目前这不是一个选项。

\setuplayout [tight]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},separator=rule]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

您可以做的是为每一列创建自己的背景并使用两个寄存器\nofcolumns并\mofcolumns检查当前列是否也是最后一列。

这两个寄存器在 MetaFun 中都有自己的名称，可以在 if 条件中使用。

% \startuseMPgraphic {ColumnSeparator}
%     \ifnum\mofcolumns<\nofcolumns
%         draw rightboundary (OverlayBox rightenlarged \measure{ColumnOffset});
%         setbounds currentpicture to OverlayBox;
%     \fi
% \stopuseMPgraphic

\startuseMPgraphic {ColumnSeparator}
    if CurrentColumn < NOfColumns:
        draw rightboundary (OverlayBox rightenlarged \measure{ColumnOffset});
        setbounds currentpicture to OverlayBox;
    fi
\stopuseMPgraphic

\defineoverlay [ColumnSeparator] [\useMPgraphic{ColumnSeparator}]

\setuplayout [tight]

\definemeasure [ColumnDistance] [1em]
\definemeasure [ColumnOffset]   [\measure{ColumnDistance}/2]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

Answer

支持pagecolumns分隔列的规则，但是规则本身的代码已被注释，无法使用。

如果代码已启用，您可以启用分隔符，separator=rule但目前这不是一个选项。

\setuplayout [tight]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},separator=rule]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

您可以做的是为每一列创建自己的背景并使用两个寄存器\nofcolumns并\mofcolumns检查当前列是否也是最后一列。

这两个寄存器在 MetaFun 中都有自己的名称，可以在 if 条件中使用。

% \startuseMPgraphic {ColumnSeparator}
%     \ifnum\mofcolumns<\nofcolumns
%         draw rightboundary (OverlayBox rightenlarged \measure{ColumnOffset});
%         setbounds currentpicture to OverlayBox;
%     \fi
% \stopuseMPgraphic

\startuseMPgraphic {ColumnSeparator}
    if CurrentColumn < NOfColumns:
        draw rightboundary (OverlayBox rightenlarged \measure{ColumnOffset});
        setbounds currentpicture to OverlayBox;
    fi
\stopuseMPgraphic

\defineoverlay [ColumnSeparator] [\useMPgraphic{ColumnSeparator}]

\setuplayout [tight]

\definemeasure [ColumnDistance] [1em]
\definemeasure [ColumnOffset]   [\measure{ColumnDistance}/2]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

Question 3

延伸沃尔夫冈的回答使用 Lua 回调来测量列高。

（编辑以修复一个小错误）

\doifnot{\contextmark}{LMTX}{
    \errmessage{"LMTX/MkXL is required to compile this file."}
}

\startluacode
    local saved_data = job.passes.define("column_height")
    local previous_data = job.passes.getcollected("column_height")
    local bigpoint = tex.sp("1bp")

    -- Run this code every time we output a column:
    callback.register("pre_output_filter", function(head)
        -- Measure the height of the column (head.next to avoid the topskip)
        local column_height = node.vpack(head.next).height
        local pagenumber = tex.count.realpageno
        -- Get the natural width of the baselineskip
        local baselineskip = tex.skip.baselineskip.width

        -- Save the column height in the .tuc file
        saved_data[pagenumber] = saved_data[pagenumber] or {}
        table.insert(
            saved_data[pagenumber],
            -- Clamp the height to multiples of baselineskip
            math.ceil(column_height / baselineskip) * baselineskip
        )

        return head
    end)

    function column_height(col)
        local pagedata = previous_data[tex.count.realpageno]
        if not pagedata then
            mp.numeric(0)
            texio.write_nl("Please rerun!")
            return
        end
        -- Get the minimum height of the column on either side of the line
        local minimum = math.max(pagedata[col], pagedata[col + 1])
        mp.numeric(-minimum / bigpoint)
    end
\stopluacode

% Draw the separator rules:
\startuseMPgraphic {ColumnSeparator}
    if CurrentColumn < NOfColumns:
        draw urcorner OverlayBox shifted (\measure{ColumnOffset}, 0pt) --
             urcorner OverlayBox shifted
                 (\measure{ColumnOffset}, lua.column_height(CurrentColumn));
        setbounds currentpicture to OverlayBox;
    fi
\stopuseMPgraphic

\defineoverlay [ColumnSeparator] [\useMPgraphic{ColumnSeparator}]

\setuplayout [tight]

\definemeasure [ColumnDistance] [1em]
\definemeasure [ColumnOffset]   [\measure{ColumnDistance}/2]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

上面，分隔符规则是两列中最短列的长度。如果用替换math.min，math.max规则将是两列中最长列的长度。

这也适用于不同高度的柱子：

% Insert everything before `\starttext` from the code above,
% EXCEPT with `math.min` replaced with `math.max`
\setuppapersize[legal, landscape]

\starttext

\startpagecolumns [n=5,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]

\dorecurse{2}{\samplefile{zapf}\par}
\column
\dorecurse{1}{\samplefile{lorem}\par}
\column
\dorecurse{2}{\samplefile{bryson}\par}
\column
\dorecurse{3}{\samplefile{knuth}\par}
\stoppagecolumns

\stoptext

Answer

延伸沃尔夫冈的回答使用 Lua 回调来测量列高。

（编辑以修复一个小错误）

\doifnot{\contextmark}{LMTX}{
    \errmessage{"LMTX/MkXL is required to compile this file."}
}

\startluacode
    local saved_data = job.passes.define("column_height")
    local previous_data = job.passes.getcollected("column_height")
    local bigpoint = tex.sp("1bp")

    -- Run this code every time we output a column:
    callback.register("pre_output_filter", function(head)
        -- Measure the height of the column (head.next to avoid the topskip)
        local column_height = node.vpack(head.next).height
        local pagenumber = tex.count.realpageno
        -- Get the natural width of the baselineskip
        local baselineskip = tex.skip.baselineskip.width

        -- Save the column height in the .tuc file
        saved_data[pagenumber] = saved_data[pagenumber] or {}
        table.insert(
            saved_data[pagenumber],
            -- Clamp the height to multiples of baselineskip
            math.ceil(column_height / baselineskip) * baselineskip
        )

        return head
    end)

    function column_height(col)
        local pagedata = previous_data[tex.count.realpageno]
        if not pagedata then
            mp.numeric(0)
            texio.write_nl("Please rerun!")
            return
        end
        -- Get the minimum height of the column on either side of the line
        local minimum = math.max(pagedata[col], pagedata[col + 1])
        mp.numeric(-minimum / bigpoint)
    end
\stopluacode

% Draw the separator rules:
\startuseMPgraphic {ColumnSeparator}
    if CurrentColumn < NOfColumns:
        draw urcorner OverlayBox shifted (\measure{ColumnOffset}, 0pt) --
             urcorner OverlayBox shifted
                 (\measure{ColumnOffset}, lua.column_height(CurrentColumn));
        setbounds currentpicture to OverlayBox;
    fi
\stopuseMPgraphic

\defineoverlay [ColumnSeparator] [\useMPgraphic{ColumnSeparator}]

\setuplayout [tight]

\definemeasure [ColumnDistance] [1em]
\definemeasure [ColumnOffset]   [\measure{ColumnDistance}/2]

\starttext

\startpagecolumns [n=3,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]
\dorecurse{10}{\samplefile{lorem}}
\stoppagecolumns

\stoptext

上面，分隔符规则是两列中最短列的长度。如果用替换math.min，math.max规则将是两列中最长列的长度。

这也适用于不同高度的柱子：

% Insert everything before `\starttext` from the code above,
% EXCEPT with `math.min` replaced with `math.max`
\setuppapersize[legal, landscape]

\starttext

\startpagecolumns [n=5,align={verytolerant,stretch},background=ColumnSeparator,distance=\measure{ColumnDistance}]

\dorecurse{2}{\samplefile{zapf}\par}
\column
\dorecurse{1}{\samplefile{lorem}\par}
\column
\dorecurse{2}{\samplefile{bryson}\par}
\column
\dorecurse{3}{\samplefile{knuth}\par}
\stoppagecolumns

\stoptext

在 ConTeXt 的列集/页面列中添加列规则

答案1

答案2

答案3

相关内容