Re: 2 columns: 1 language per column (solved)

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

On Tue, Jul 31 2012, Hans Hagen wrote:

> \startmixedcolumns
>     \placeparallel[main][one,two][criterium=all]
> \stopmixedcolumns
>
> there will be better support for that kind of things at some point

I don't get the desired result with \placeparallel, but I've found a
solution, that works quite well. I just can't place figures, that span
the 2 columns, but that's no problem for my project.

Here the (not very contextish) solution (cld-file):

--8<---------------cut here---------------start------------->8---
local C = context
local format = string.format

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

\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]
  \it\dorecurse{15}{\dorecurse{20}{german }\par}
\stopbuffer

\startbuffer[french]
  \bf\dorecurse{15}{\dorecurse{20}{french }\par}
\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", "french")
C"After"
C.stoptext()
--8<---------------cut here---------------end--------------->8---

-- 
           Peter
___________________________________________________________________________________
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
___________________________________________________________________________________