\appendtoks \rm \to \everymathematics
\setupmathematics
  [lcgreek=normal, ucgreek=normal]
  
\setupbodyfont[dejavu,11pt]


\starttext

\startluacode
context.bTABLE()
beginchemical="\\startchemical[height=fit,width=8000, left=500, 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
