Some Lua Code solved
Hello Hans, many thanks for your help. I tried to adapt the code you sent me and in case it can help someone I provide you what I wrote. I don’t pretend to make something perfectly correct but… The idea is to make a checklist with left and bottom tabs. The line position of left and bottom tabs are defined in two variables and each time the lua function is called it computes the topspace position of the even page. \definepapersize [normal] [width=14.85cm, height=21cm] \definepapersize [upsidedown] [normal, 180] \setupbodyfont [10pt,ss] \setupcolor [xwi] \setuppapersize [normal][A4] \setuppapersize [upsidedown][A4] \setuplayout [backspace=16mm, leftmargin=15mm, leftmargindistance=1mm, topspace=10mm, header=0mm, footer=0mm, height=200mm, rightmargin=0mm, width=131mm, location=middle, marking=on] \definelayer [OngletGauche] [x=0mm, y=0mm, width=\paperwidth, height=\paperheight] \definelayer [OngletBas] [x=0mm, y=0mm, width=\paperwidth, height=\paperheight] \definelayer [ACouper] [x=0mm, y=0mm, width=\paperwidth, height=\paperheight] % variables \newdimen\hauteuronglet \hauteuronglet=1cm \setvariables[userdata][bottomligne=4] \setvariables[userdata][leftligne=10] \setupTABLE [r][1] [color=dodgerblue, align={middle,lohi}, height=1cm, style=\bfx, framecolor=black] \startluacode userdata = userdata or { } function userdata.onglets(pos, word, opt_2, arg_2) local ongletgauche = utilities.parsers.settings_to_hash(pos) local labelongletgauche = word local ongletbas = utilities.parsers.settings_to_hash(opt_2) local labels = utilities.parsers.settings_to_array(arg_2) local ho = tex.dimen.hauteuronglet local y_ongletgauche = ongletgauche["numligne"] y_ongletgauche = tex.dimen.paperheight - y_ongletgauche * ho local hauteurzoneacouper = tex.dimen.paperheight - (y_ongletgauche + ho) local NumLigne = ongletbas["numligne"] local NbTotalOnglets = ongletbas["nbcol"] local PremierOnglet = ongletbas["startcol"] local nbTabs = ongletbas["nbtabs"] local y_ongletbas = tex.dimen.paperheight - (ho * NumLigne) local largeurongletbas = (tex.dimen.paperwidth - tex.dimen.leftmarginwidth) / NbTotalOnglets local x_ongletbas = tex.dimen.leftmarginwidth + largeurongletbas * (PremierOnglet - 1) local acouper = NbTotalOnglets - (nbTabs + PremierOnglet) context.setupbackgrounds({"page"},{background = "OngletBas, OngletGauche, ACouper"}) context.setlayer( { "OngletBas" }, { hoffset = number.todimen(x_ongletbas), voffset = number.todimen(y_ongletbas), }, function() context.bTABLE({ width = number.todimen(largeurongletbas) }) context.bTR() for i=1, nbTabs do context.bTD() context(labels[i]) context.eTD() end for i=nbTabs + PremierOnglet, NbTotalOnglets do context.bTD({background = "color",backgroundcolor = "gray"}) context("C U T") context.eTD() end context.eTR() context.eTABLE() end ) context.setlayer( { "OngletGauche" }, { hoffset = number.todimen(0), voffset = number.todimen(y_ongletgauche), }, function() context.startframedtext( {"left"}, { align = "lohi, middle", width = "15mm", height = "1cm", offset = "0pt", frameoffset = "0pt", style = "bold", }) context(labelongletgauche) context.stopframedtext() end ) if (y_ongletgauche + ho) < tex.dimen.paperheight then context.setlayer( { "ACouper" }, { hoffset = number.todimen(0), voffset = number.todimen(y_ongletgauche + ho), }, function() context.startframedtext( {"left"}, { align = "lohi, middle", width = "15mm", height = number.todimen(hauteurzoneacouper), offset = "0pt", frameoffset = "0pt", background = "color", backgroundcolor = "gray", }) context("C U T") context.stopframedtext() end ) end local topspace_odd = string.todimen("10mm") local height_odd = tex.dimen.paperheight - NumLigne * ho - topspace_odd context.definelayout( {"odd"}, { topspace = number.todimen(topspace_odd), height = number.todimen(height_odd), }) local topspace_even = NumLigne * ho local height_even = tex.dimen.paperheight - topspace_even - topspace_odd context.definelayout( {"even"}, { topspace = number.todimen(topspace_even), height = number.todimen(height_even), }) end \stopluacode \def\myTabs[#1][#2][#3][#4]{\ctxlua{userdata.onglets('#1', '#2', '#3', '#4')} } \starttext \setuppapersize[normal] \input{tufte} \myTabs[numligne=\getvariable{userdata}{leftligne}][BOLD FACE][numligne=\getvariable{userdata}{bottomligne}, nbcol=6, startcol=1, nbtabs=1][EVACUATION RAPIDE] \page \setuppapersize[upsidedown] \input{tufte} \page \setuppapersize[normal] \input{tufte} \myTabs[numligne=\getvariable{userdata}{leftligne}][BOLD FACE][numligne=\getvariable{userdata}{bottomligne}, nbcol=6, startcol=2, nbtabs=2][PANNE AU DECOLLAGE, INTERRUP. D/L] \page \setuppapersize[upsidedown] \input{tufte} \page \setuppapersize[normal] \input{tufte} \myTabs[numligne=\getvariable{userdata}{leftligne}][BOLD FACE][numligne=\getvariable{userdata}{bottomligne}, nbcol=6, startcol=4, nbtabs=2][FEU FUMEE CABINE, FEU MOTEUR] \page \setuppapersize[upsidedown] \input{tufte} \page \setuppapersize[normal] \input{tufte} \myTabs[numligne=\getvariable{userdata}{leftligne}][BOLD FACE][numligne=\getvariable{userdata}{bottomligne}, nbcol=6, startcol=6, nbtabs=1][STICK INOP FEU AU SOL] \page \setuppapersize[upsidedown] \input{tufte} \page \setvariables[userdata][bottomligne=3] \setuppapersize[normal] \input{tufte} \myTabs[numligne=\getvariable{userdata}{leftligne}][BOLD FACE][numligne=\getvariable{userdata}{bottomligne}, nbcol=6, startcol=1, nbtabs=2][FEU APU, DOUBLE EXTINCTION] \page \setuppapersize[upsidedown] \input{tufte} \stoptext I’m sure there is a way to automate the setuppapersize for even and odd pages, so I will work on that. I have a question I don’t see the cutting lines on my printing while defining marking on ? Eric Gerard
participants (1)
-
Eric Gerard