I wrote this code to randomly draw organic branched structures. Since the organic structures have different dimensions I'm using the scale function to normalize the width. The result is a rather ugly because the structures are displayed with fonts with different sizes. Is there a way to normalize the structures width only when it exceeds a certain size? Thanks a lot Jorge \usemodule[chemie] \usemodule[fullpage][style={margin,empty},margin=15mm] \starttext \startluacode context.bTABLE() beginchemical="{\\scale[width=.40\\textwidth]{\\startchemical[height=fit,width=fit,frame=off]" endchemical="\\stopchemical}}" firstC="\\chemical[ONE, Z0, SAVE][H_3C]" -- go and branch below skeletonforBELOW={"\\chemical[RESTORE,MOV1,Z0,SB153,SAVE][CH]", "\\chemical[RESTORE,MOV1,Z0,SB5][CH_2]\\chemical[MOV1,Z0,SB153,SAVE][CH]"} -- "\\chemical[RESTORE,MOV1,Z0][CH_2]\\chemical[MOV1,Z0,SB5][CH_2]\\chemical[MOV1,Z0,SB153,SAVE][CH]"} -- go and branch above skeletonforABOVE={"\\chemical[RESTORE,MOV1,Z0,SB517,SAVE][CH]", "\\chemical[RESTORE,MOV1,Z0,SB5][CH_2]\\chemical[MOV1,Z0,SB517,SAVE][CH]"} -- go and not branch skeletonnobranched={"\\chemical[RESTORE,MOV1,Z0,SB5,SAVE][CH_2]", "\\chemical[RESTORE, MOV1,Z0,SB5][CH_2]\\chemical[MOV1,Z0,SB5,SAVE][CH_2]"} -- last C: two ways lastC={"\\chemical[RESTORE,MOV1, Z0, SB5][CH_3]", "\\chemical[RESTORE,MOV1,Z0,SB5][CH_2]\\chemical[MOV1, Z0, SB5][CH_3]"} -- branch below branchedBELOW={"\\chemical[MOV3, Z0, SB7][CH_3]", "\\chemical[MOV3,Z0,SB7][CH_2]\\chemical[MOV3,Z0,SB7][CH_3]", "\\chemical[MOV3,Z0,SB7][CH_2]\\chemical[MOV3,Z0,SB7][CH_2]\\chemical[MOV3,Z0,SB7][CH_3]", "\\chemical[MOV3,Z0][Cl]", "\\chemical[MOV3,Z0][F]","\\chemical[MOV3,Z0][I]"} -- branch above branchedABOVE={"\\chemical[MOV7, Z0, SB3][CH_3]", "\\chemical[MOV7,Z0,SB3][CH_2]\\chemical[MOV7,Z0,SB3][CH_3]", "\\chemical[MOV7, Z0,SB3][CH_2]\\chemical[MOV7,Z0,SB3][CH_2]\\chemical[MOV7,Z0,SB3][CH_3]", "\\chemical[MOV7,Z0][Cl]", "\\chemical[MOV7,Z0][F]","\\chemical[MOV7,Z0][I]"} -- rows for j=1,5 do context.bTR() -- columns for i=1,2 do context.bTD() -- begin chemical context(beginchemical) -- draw the first CH3 context(firstC) -- define the maximum for branches for k=1,3 do -- linear or branched branched=math.random(1,100)>30 if branched then -- below or above branchedBA=math.random(1,100)>30 if branchedBA then branch=branchedBELOW[math.random(1,6)]; skeleton=skeletonforBELOW[math.random(1,2)] else branch=branchedABOVE[math.random(1,6)]; skeleton=skeletonforABOVE[math.random(1,2)] end context(skeleton) context(branch) else -- no branch context(skeletonnobranched[math.random(1,2)]) end end -- draw the last CH3 last=lastC[math.random(1,2)] context(last) -- end chemical context(endchemical) context.eTD() end context.eTR() end context.eTABLE() \stopluacode \stoptext