%% This is part of the OpTeX project, see http://petr.olsak.net/optex

\_codedecl \margins {Macros for margins setting <2023-05-01>} % preloaded in format

    \_doc ----------------------------
    \`\margins``/<pg> <fmt> (<left>,<right>,<top>,<bot>)<unit>`
    takes its parameters, does calculation and sets `\hoffset`, `\voffset`,
    `\hsize` and `\vsize` registers. Note that \OpTeX/ sets the page origin at
    the top left corner of the paper, no at the obscure position 1\,in, 1\,in.
    It is much more comfortable for macro writers.
    \_cod ----------------------------

\_newdimen\_pgwidth  \_newdimen\_pgheight  \_pgwidth=0pt
\_newdimen\_shiftoffset

\_def\_margins/#1 #2 (#3,#4,#5,#6)#7 {\_def\_tmp{#7}%
   \_ifx\_tmp\_empty
      \_opwarning{\_string\_margins: missing unit, mm inserted}\_def\_tmp{mm}\_fi
   \_setpagedimens #2 % setting \_pgwidth, \_pgheight
   \_ifdim\_pgwidth=0pt \_else
      \_hoffset=0pt \_voffset=0pt
      \_if$#3$\_if$#4$\_hoffset =\_dimexpr (\_pgwidth -\_hsize)/2 \_relax
              \_else  \_hoffset =\_dimexpr \_pgwidth -\_hsize - #4\_tmp \_relax % only right margin
              \_fi
      \_else  \_if$#4$\_hoffset = #3\_tmp \_relax  % only left margin
              \_else  \_hsize =\_dimexpr \_pgwidth - #3\_tmp - #4\_tmp \_relax % left+right margin
                      \_hoffset = #3\_tmp \_relax
                      \_xhsize =\_hsize \_setxhsize % \_xhsize used by \output routine
      \_fi\_fi
      \_if$#5$\_if$#6$\_voffset =\_dimexpr (\_pgheight -\_vsize)/2 \_relax
              \_else  \_voffset =\_dimexpr \_pgheight -\_vsize - #6\_tmp \_relax % only bottom margin
              \_fi
      \_else  \_if$#6$\_voffset = #5\_tmp \_relax  % only top margin
              \_else  \_vsize=\_dimexpr \_pgheight - #5\_tmp - #6\_tmp \_relax % top+bottom margin
                      \_voffset = #5\_tmp \_relax
      \_fi\_fi
      \_if 1#1\_shiftoffset=0pt \_def\_prepoffsets{}\_else \_if 2#1% double-page layout
         \_shiftoffset = \_dimexpr \_pgwidth -\_hsize -2\_hoffset \_relax
         \_def\_prepoffsets{\_ifodd\_pageno \_else \_advance\_hoffset \_shiftoffset \_fi
                            \_setpagerightoffset}%
      \_else \_opwarning{use \_string\_margins/1 or \_string\_margins/2}%
   \_fi\_fi\_fi
   \_setpagerightoffset
}
\_def\_setpagedimens{\_isnextchar({\_setpagedimensB}{\_setpagedimensA}}
\_def\_setpagedimensA#1 {\_ifcsname _pgs:#1\_endcsname
   \_ea\_ea\_ea\_setpagedimensB \_csname _pgs:#1\_ea\_endcsname\_space
   \_else \_opwarning{page specification "#1" is undefined}\_fi}
\_def\_setpagedimensB (#1,#2)#3 {\_setpagedimensC\_pgwidth=#1:#3
                                 \_setpagedimensC\_pgheight=#2:#3
        \_pdfpagewidth=\_pgwidth \_pdfpageheight=\_pgheight
}
\_def\_setpagedimensC #1=#2:#3 {#1=#2\_ifx^#3^\_tmp\_else#3\_fi\_relax\_truedimen#1}

\_public \margins ;

    \_doc ----------------------------
    The common page dimensions are defined here.
    \_cod ----------------------------

\_sdef{_pgs:a3}{(297,420)mm}  \_sdef{_pgs:a4}{(210,297)mm}  \_sdef{_pgs:a5}{(148,210)mm}
\_sdef{_pgs:a3l}{(420,297)mm} \_sdef{_pgs:a4l}{(297,210)mm} \_sdef{_pgs:a5l}{(210,148)mm}
\_sdef{_pgs:b5}{(176,250)mm}  \_sdef{_pgs:letter}{(8.5,11)in}

    \_doc ----------------------------
    \`\magscale` `[<factor>]` does `\mag=<factor>` and recalculates page
    dimensions to their true values.\nl
    \`\_truedimen``<dimen-register>` returns true value of <dimen-register>
    regardless of `\mag`.
    \_cod ----------------------------

\_def\_trueunit{}
\_def\_magscale[#1]{\_mag=#1\_def\_trueunit{true}%
   \_ifdim\_pgwidth=0pt \_else \_truedimen\_pgwidth \_truedimen\_pgheight \_fi
   \_truedimen\_pdfpagewidth \_truedimen\_pdfpageheight
}
\_def\_truedimen#1{\_ifx\_trueunit\_empty \_else#1=\_ea\_ignorept\_the#1truept \_fi}

\_public \magscale ;

   \_doc -----------------------------
   When left-to-right direction of typesetting is selected (default) then
   \"main vertical line" of the page has `\hoffset` distance from the left
   paper border and all lines at the page start here and run to the right side
   (exceptions can be done by `\moveleft` or `\moveright`, of course). When we
   have set right-to-left direction (using `\textdir TRT`, for example), then
   the \"main vertical line" cannot be at the same position because lines run to the left,
   i.e.\ they would be off paper. This is reason why the setting `\pagedir TRT` shifts the
   \"main vertical line" to an alternative position: it has `\pagerightoffset+1in` distance from the
   {\em right} paper border and thus right-to-left lines are visible on the
   paper. We have to set `\pagerightoffset` properly for such cases. This is
   done in the macro \`\_setpagerightoffset`.
   It must be called whenever `\hoffset` is changed.
   \_cod -----------------------------

\_def\_setpagerightoffset{%
   \_pagerightoffset=\_dimexpr\_pdfpagewidth-\_xhsize-\_hoffset-1in\_relax
}
\_setpagerightoffset % setting default value from default values

   \_doc -----------------------------
   Page numbers and numbers of (sub)sections have to be printed in
   left-to-right mode even though the document mode is right-to-left.
   We print these numbers via \`\_numprint``{<number>}` in \OpTeX/ macros.
   The `\_numprint` is `\_useit` by default (i.e.\ do nothing special)
   because we have left-to-right mode as default. But a user can define
   \begtt
   \_def\_numprint#1{{\_textdir TLT #1}}
   \endtt
   if the document is set to right-to-left mode.
   \_cod -----------------------------

\_let\_numprint=\_useit

\_endcode % -----------------------------------------

2023-05-01 \_numprint for page numbers, section numbers introduced
2023-04-29 \_setpagerightoffset for TRT typesetting introduced again
2021-03-15 \_setxhsize added
2020-03-14 released