Re: Two-language environment and page breaking

["Peter Münster" <pmlists@free.fr>]

[-- Attachment #1: Type: text/plain, Size: 431 bytes --]

On Tue, May 21 2013, H. Özoguz wrote:

> But if they are NOT broken over pages, they sould be set as if they
> were only one table, so as in the first "\startarde\stoparde" block.
> But the are not. You see the small distance between them.

Hi,

I don't know a real solution, just 2 workarounds:

1.) A \vskip-3pt between the 2 paragraphs.

2.) My cld-hack, as shown in the 2 attached files.

-- 
           Peter

[-- Attachment #2: german-arab.cld --]
[-- Type: application/octet-stream, Size: 2606 bytes --]

local C = context
local format = string.format

local function create_environment()
  local fp = io.open("env.tex", "w")
  fp:write([[
\startenvironment env

\def\GermanText{\dorecurse{10}
  {Dies ist nur ein vollkommen sinnfreier Text und hat rein gar nichts mit dem
   Arabischen auf der rechten Seiten zutun. Wirklich gar nichts. Glauben Sie es
   mir? Also versuchen Sie nicht den Sinn des Arabischen hierdurch zu
   erfassen.\par}}
\def\ArabText{\dorecurse{10}
  {اللهُمَّ ارْزُقْنِي حَجَّ بَيْتِك الحَرامِ فِي عامِي هذا وَفِي كُلِّ عامٍ ما أَبْقَيْتَنِي فِي
   يُسْرٍ مِنْكَ وَعافِيَةٍ وَسَعَةِ رِزْقِ، وَلا تُخْلِنِي

   مِنْ تِلْكَ المَواقِفِ الكَرِيِمَةِ وَالمَشاهِدِ الشَّرِيفَةِ، وَزِيارَةِ قَبْرِ نَبِيِّكَ صَلَواتُكَ
   عَلَيْهِ وَآلِهِ، وَفِي جَمِيعِ حَوائِجِ الدُّنْيا وَالآخرةِ فَكُنْ
   \par}}
\def\Fig{%
  \placefigure[none]{}{\externalfigure[cow.pdf][width=\textwidth]}\par}
\definefont[amiri][file:UthmanTN1Ver10.otf*arabic at 11 pt]
\setupexternalfigures[location=default]
\def\ColumnDistance{1cm}

\startmode[columns]
  \definepapersize[columns][
    width=\dimexpr (\textwidth - \ColumnDistance) / 2 \relax,
    height=\textheight]
  \setuppapersize[columns]
  \setuplayout[page]
  \setuppagenumbering[location=]
  \setupalign[verytolerant, stretch, line]
  \setupwhitespace[small]
\stopmode

\startbuffer[german]
  \GermanText\Fig\GermanText
\stopbuffer

\startbuffer[arab]
  \setupalign[r2l, tolerant, stretch]
  \amiri\setupinterlinespace[line=5.4ex]
  \ArabText\Fig\ArabText
\stopbuffer

\stopenvironment
]])
  fp:close()
end

local function create_pages(s)
  local fp = io.open("pages.tex", "w")
  fp:write(format([[
\enablemode[columns]
\environment env
\starttext
\getbuffer[%s]
\stoptext
]], s))
  fp:close()
  os.execute(format("context --result=pages-%s pages", s))
end

local function create_columns(l, r)
  local function pdf(x) return "pages-" .. x .. ".pdf" end
  create_pages(l)
  create_pages(r)
  local pdfobj = epdf.open(pdf(l))
  local n = pdfobj:getNumPages()
  for i = 1, n do
    C.dontleavehmode()
    C.externalfigure({pdf(l)}, {page = i})
    C"\\hskip\\ColumnDistance"
    C.externalfigure({pdf(r)}, {page = i})
    C.page()
  end
end

create_environment()
C.environment(false, "env ")
C.starttext()
C"Before"
C.page()
create_columns("german", "arab")
C"After"
C.stoptext()

[-- Attachment #3: german-arab.pdf --]
[-- Type: application/pdf, Size: 76240 bytes --]

[-- Attachment #4: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________