From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/108120 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Fabrice Couvreur Newsgroups: gmane.comp.tex.context Subject: Re: Code lua in a table Date: Tue, 21 Jul 2020 15:08:59 +0200 Message-ID: References: <31495829-66d7-c670-75e2-d1c538f38e9c@xs4all.nl> <1d2543e2-68c6-998c-d00c-32ba3e967f41@xs4all.nl> Reply-To: mailing list for ConTeXt users Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============7098553384147393716==" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="26481"; mail-complaints-to="usenet@ciao.gmane.io" To: mailing list for ConTeXt users Original-X-From: ntg-context-bounces@ntg.nl Tue Jul 21 15:11:48 2020 Return-path: Envelope-to: gctc-ntg-context-518@m.gmane-mx.org Original-Received: from zapf.boekplan.nl ([5.39.185.232] helo=zapf.ntg.nl) by ciao.gmane.io with esmtps (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jxs3g-0006nq-Lh for gctc-ntg-context-518@m.gmane-mx.org; Tue, 21 Jul 2020 15:11:48 +0200 Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 22B22185DF3; Tue, 21 Jul 2020 15:10:50 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at zapf.boekplan.nl Original-Received: from zapf.ntg.nl ([127.0.0.1]) by localhost (zapf.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id rri7L6fj6sKq; Tue, 21 Jul 2020 15:10:48 +0200 (CEST) Original-Received: from zapf.ntg.nl (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 98578185DEE; Tue, 21 Jul 2020 15:10:48 +0200 (CEST) Original-Received: from localhost (localhost [127.0.0.1]) by zapf.ntg.nl (Postfix) with ESMTP id 3AB18185DEC for ; Tue, 21 Jul 2020 15:10:48 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at zapf.boekplan.nl Original-Received: from zapf.ntg.nl ([127.0.0.1]) by localhost (zapf.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 2kkKVNB1j1sT for ; Tue, 21 Jul 2020 15:10:46 +0200 (CEST) Received-SPF: Pass (mailfrom) identity=mailfrom; client-ip=209.85.221.41; helo=mail-wr1-f41.google.com; envelope-from=fabrice1.couvreur@gmail.com; receiver= Original-Received: from mail-wr1-f41.google.com (mail-wr1-f41.google.com [209.85.221.41]) (using TLSv1.3 with cipher TLS_AES_128_GCM_SHA256 (128/128 bits)) (No client certificate requested) by zapf.ntg.nl (Postfix) with ESMTPS id A9339185DEB for ; Tue, 21 Jul 2020 15:10:46 +0200 (CEST) Original-Received: by mail-wr1-f41.google.com with SMTP id f18so21200998wrs.0 for ; Tue, 21 Jul 2020 06:10:46 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to; bh=MbZ4OYCXNYmFVzM2W4taKMYHCoCHL3MY9fq29rxxncA=; b=ohvl1zjUxexqtMHKaaruJzEpohs22vZ2SelesfqHyNEEViy7HV8N37MDeO7NNe003T vVusqS/WCdPEJjQ/989wtutlX1QHUnHrv1I+lAv23S3FKVgoVX60X46h4K+k/2EYmC2x ZVMzv+CD44+OL2GYWPIfZDdkZ00HPokt8mWlbmo6zon017HpSs2fu4LIJa2xU4iu/U7K V6vUJjfMc49BSt+5RNubUrRXekMgHpuIEdLWr2MXpBUtyNn97SFOJwxICYwht1Es2m86 XSB6Jo5g0ZlEgUfWPfkCI63amywzl9Kfgl7iAwQn1nKoyUSmOpVJDghRj7vrw2aRiwZg S7wg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to; bh=MbZ4OYCXNYmFVzM2W4taKMYHCoCHL3MY9fq29rxxncA=; b=Mf2RiOn/wJdkF9VgWZ//e15YjYhACYGU3jgDDyLtCZU8WfwK+UE0stB+nQljB5nSv9 q/724Q+WPKUHa3TfMIkZi2cm1dY8NttF2+j2XXJhkW2uedYbh/GbJW5uZgO8GKC56fNL DOEONwnn4INv+RBGZvNzzhhaT42NWbH3rLVpb3EUnu1W743W1I1TN5hBXsq5Sicz5zD+ tHiusrXYgx+JcCXLTtEvcqvfKNaYMr3TGXv2LcEMqbdXD0RoIzr5LQ4fvXQkDiq5ItOQ 39UMvKr6Ub+sADKSk+6py8nj1u8inuxCuOpKCq8ga9hKwanv80zt9vxzgwuNVatN+NQE 2CaQ== X-Gm-Message-State: AOAM530HGmq83kURVaPVxzjsQaAgltcytmsUXpEHoIBOXzeEFt3SiiQt /aCckmaxA4tXtGLdxEpnnlTpw+bjdQxcVca8b5eQhnw2 X-Google-Smtp-Source: ABdhPJxSB6pjQUjkXy9nlqzdp1S5NE/7o5j8GlLpGAiH0GlUPJt0cS36GAhYAtnOwQD6Xf+DpGOIf6mWF/XMlBRjz0U= X-Received: by 2002:a5d:61c8:: with SMTP id q8mr16461968wrv.160.1595337045930; Tue, 21 Jul 2020 06:10:45 -0700 (PDT) In-Reply-To: <1d2543e2-68c6-998c-d00c-32ba3e967f41@xs4all.nl> X-BeenThere: ntg-context@ntg.nl X-Mailman-Version: 2.1.26 Precedence: list List-Id: mailing list for ConTeXt users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: ntg-context-bounces@ntg.nl Original-Sender: "ntg-context" Xref: news.gmane.io gmane.comp.tex.context:108120 Archived-At: --===============7098553384147393716== Content-Type: multipart/alternative; boundary="000000000000eb756505aaf35958" --000000000000eb756505aaf35958 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Hello, I am making progress and I almost get what I want to achieve but I still have two problems : how to color cells not containing numbers with the same color as the others ? how to color in salmon, for example, cells 1 2 ? 3 Thank you Fabrice \usecolors[X11] \startuseMPgraphic{DiagonalRule} rulethickness :=3D \frameddimension{rulethickness}; drawoptions( withpen pencircle scaled rulethickness withcolor \MPcolor{\framedparameter{framecolor}}); pair leftcorner, rightcorner; leftcorner :=3D (rulethickness, \overlayheight-rulethickness); rightcorner :=3D (\overlaywidth-rulethickness, rulethickness); draw leftcorner -- rightcorner; \stopuseMPgraphic \defineoverlay [DiagonalRule] [\useMPgraphic{DiagonalRule}] \define[2]\DiagonalLabel{% \setuptabulate [after=3D{\blank[\frameddimension{offset}]}] \starttabulate [|p|r|] \NC \NC #2 \NC\NR \NC #1 \NC \NC\NR \stoptabulate } \starttext \startluacode function Binom(n,k) if k > n then return "" elseif (n =3D=3D 0 or k =3D=3D 0) then return 1 else return math.round((n*Binom(n-1,k-1))/k) end end context.startxtable({"align=3D{middle,lohi}, width=3D1cm,offset=3D0.8ex,bodyfont=3D9pt,framecolor=3Dcyan"}) context.startxrow() context.startxcell({"background=3DDiagonalRule,background=3Dcolor,backgroun= dcolor=3Dthistle2"}) context("\\DiagonalLabel{\\m{n}}{\\m{k}}") context.stopxcell() for j =3D 0, 7 do context.startxcell({"background=3Dcolor,backgroundcolor=3Dthistle2"}) context(j) context.stopxcell() end context.startxcell({"background=3Dcolor,backgroundcolor=3Dthistle2"}) context("\\dots") context.stopxcell() context.stopxrow() for i =3D 0, 7 do context.startxrow() context.startxcell({"background=3Dcolor,backgroundcolor=3Dthistle2"}) context(i) context.stopxcell() for j =3D 0, 8 do context.startxcell() context(Binom(i,j)) context.stopxcell() end context.stopxrow() end context.startxrow() context.startxcell({"background=3Dcolor,backgroundcolor=3Dthistle2"}) context("\\dots") context.stopxcell() for i =3D 0, 8 do context.startxcell({"background=3Dcolor,backgroundcolor=3Dthistle2"}) context("") context.stopxcell() end context.stopxrow() context.stopxtable() \stopluacode \stoptext Le lun. 20 juil. 2020 =C3=A0 14:55, Hans Hagen a =C3=A9= crit : > On 7/20/2020 2:40 PM, Jeong Dal wrote: > > > I also wonder where is the boundary of ConTeXt. > The boundaries are set and shift by users (the mailing list) and > curiosity (personal). > > Hans > > ----------------------------------------------------------------- > Hans Hagen | PRAGMA ADE > Ridderstraat 27 | 8061 GH Hasselt | The Netherlands > tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl > ----------------------------------------------------------------- > > _________________________________________________________________________= __________ > 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://context.aanhet.net > archive : https://bitbucket.org/phg/context-mirror/commits/ > wiki : http://contextgarden.net > > _________________________________________________________________________= __________ > --000000000000eb756505aaf35958 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Hello,
I am making progress and I almost get what I want to achieve but I still h= ave two problems :
how to color cells not contai= ning numbers with the same color as the others ?
how to color in salmon, for example, cells 1 2=C2=A0 ?
<= span class=3D"gmail-tlid-translation gmail-translation" lang=3D"en">=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 3
T= hank you
Fabrice

=
\usecolors[X11]

\startuseMPgraphic{Diagona= lRule}
=C2=A0 rulethickness :=3D \frameddimension{rulethickness};
=C2=A0 drawoptions(
=C2=A0 =C2=A0 withpen pencircle scaled rulethicknes= s
=C2=A0 =C2=A0 withcolor \MPcolor{\framedparameter{framecolor}});
=C2=A0 pair leftcorner, rightcorner;
=C2=A0 leftcorner =C2=A0:=3D (rul= ethickness, \overlayheight-rulethickness);
=C2=A0 rightcorner :=3D (\ove= rlaywidth-rulethickness, rulethickness);

=C2=A0 draw leftcorner -- r= ightcorner;
\stopuseMPgraphic

\defineoverlay
=C2=A0 [DiagonalR= ule]
=C2=A0 [\useMPgraphic{DiagonalRule}]

\define[2]\DiagonalLabe= l{%
=C2=A0 \setuptabulate [after=3D{\blank[\frameddimension{offset}]}]=C2=A0 \starttabulate [|p|r|]
=C2=A0 =C2=A0 \NC =C2=A0 =C2=A0\NC #2 \N= C\NR
=C2=A0 =C2=A0 \NC #1 \NC =C2=A0 =C2=A0\NC\NR
=C2=A0 \stoptabulat= e
}


\starttext
\startluacode
=C2=A0 =C2=A0function Bino= m(n,k)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 if k > n then
=C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0return ""
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 elseif (n =3D=3D 0 or k =3D=3D 0) then
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0return 1
=C2=A0 =C2=A0 =C2=A0 =C2=A0 else
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0return math.round((n*Binom(n-1= ,k-1))/k)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 end =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0 =C2=A0 =C2=A0 end
=C2=A0 context.startxtable({"align=3D{mid= dle,lohi}, width=3D1cm,offset=3D0.8ex,bodyfont=3D9pt,framecolor=3Dcyan"= ;})
=C2=A0 context.startxrow()
=C2=A0 context.startxcell({"backg= round=3DDiagonalRule,background=3Dcolor,backgroundcolor=3Dthistle2"})<= br>=C2=A0 context("\\DiagonalLabel{\\m{n}}{\\m{k}}")
=C2=A0 co= ntext.stopxcell()
=C2=A0 for j =3D 0, 7 do
=C2=A0 context.startxcell(= {"background=3Dcolor,backgroundcolor=3Dthistle2"})
=C2=A0 cont= ext(j)
=C2=A0 context.stopxcell()
=C2=A0 end
=C2=A0 context.startx= cell({"background=3Dcolor,backgroundcolor=3Dthistle2"})
=C2=A0= context("\\dots")
=C2=A0 context.stopxcell()
=C2=A0 contex= t.stopxrow()
=C2=A0 for i =3D 0, 7 do
=C2=A0 context.startxrow()
= =C2=A0 context.startxcell({"background=3Dcolor,backgroundcolor=3Dthist= le2"})
=C2=A0 context(i)
=C2=A0 context.stopxcell()
=C2=A0 fo= r j =3D 0, 8 do
=C2=A0 context.startxcell()
=C2=A0 context(Binom(i,j)= )
=C2=A0 context.stopxcell()
=C2=A0 end
=C2=A0 context.stopxrow()<= br>=C2=A0 end
=C2=A0 context.startxrow()
=C2=A0 context.startxcell({&= quot;background=3Dcolor,backgroundcolor=3Dthistle2"})
=C2=A0 contex= t("\\dots")
=C2=A0 context.stopxcell()
=C2=A0 for i =3D 0, = 8 do
=C2=A0 context.startxcell({"background=3Dcolor,backgroundcolor= =3Dthistle2"})
=C2=A0 context("")
=C2=A0 context.stopx= cell()
=C2=A0 end
=C2=A0 context.stopxrow()
=C2=A0 context.stopxta= ble()
\stopluacode
\stoptext

Le=C2=A0lun. 20 juil= . 2020 =C3=A0=C2=A014:55, Hans Hagen <j.hagen@xs4all.nl> a =C3=A9crit=C2=A0:
On 7/20/2020 2:40 PM, Jeong Dal wrote:

> I also wonder where is the boundary of ConTeXt.
The boundaries are set and shift by users (the mailing list) and
curiosity (personal).

Hans

-----------------------------------------------------------------
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0Hans Hagen | PRAGMA ADE
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Ridderstraat 27 | 80= 61 GH Hasselt | The Netherlands
=C2=A0 =C2=A0 =C2=A0 =C2=A0 tel: 038 477 53 69 | www.pragma-ade.nl | www.= pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________= ________
If your question is of interest to others as well, please add an entry to t= he Wiki!

maillist : ntg-cont= ext@ntg.nl / http://www.ntg.nl/mailman/listinfo/nt= g-context
webpage=C2=A0 : http://www.pragma-ade.nl / http://context.aanhet.net=
archive=C2=A0 : https://bitbucket.org/phg/context-m= irror/commits/
wiki=C2=A0 =C2=A0 =C2=A0: http://contextgarden.net
___________________________________________________________________________= ________
--000000000000eb756505aaf35958-- --===============7098553384147393716== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX18KSWYgeW91ciBxdWVzdGlvbiBpcyBvZiBpbnRlcmVz dCB0byBvdGhlcnMgYXMgd2VsbCwgcGxlYXNlIGFkZCBhbiBlbnRyeSB0byB0aGUgV2lraSEKCm1h aWxsaXN0IDogbnRnLWNvbnRleHRAbnRnLm5sIC8gaHR0cDovL3d3dy5udGcubmwvbWFpbG1hbi9s aXN0aW5mby9udGctY29udGV4dAp3ZWJwYWdlICA6IGh0dHA6Ly93d3cucHJhZ21hLWFkZS5ubCAv IGh0dHA6Ly9jb250ZXh0LmFhbmhldC5uZXQKYXJjaGl2ZSAgOiBodHRwczovL2JpdGJ1Y2tldC5v cmcvcGhnL2NvbnRleHQtbWlycm9yL2NvbW1pdHMvCndpa2kgICAgIDogaHR0cDovL2NvbnRleHRn YXJkZW4ubmV0Cl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCg== --===============7098553384147393716==--