TeXgraph# {imitTableur.mac version 1.0 du 27/05/2012} Var imitTableurVerNum = 1.0; Cmd CompVer("imitTableur"); Mac tableur= [//tableur(nbLig,nbCol) nbLig:=%1+1, nbCol:=%2+1, liste:=["A","B","C","D","E","F", "G","H","I","J","K","L", "M","N","O","P","Q","R", "S","T","U","V","W","X", "Y","Z"], dimTab(nbLig,nbCol), for k from 2 to nbCol do defLargeCol(k,3) od, draw("line",[coinSO(1,2),coinSE(1,nbCol),coinNE(1,nbCol),coinNO(1,2)], [close:=1,FillStyle:=gradient,GradAngle:=270,FillColorA:=gray, FillColorB:=lightblue]), for k from 1 to nbCol-1 do Label(pos(1,k+1),["",liste[k],""]) od, draw("line",[coinNE(2,1),coinSE(nbLig,1),coinSO(nbLig,1),coinNO(2,1)], [close:=1,FillStyle:=gradient,FillColorA:=gray, FillColorB:=lightblue]), for k from 1 to nbLig-1 do Label(pos(k+1,1),["",k,""]) od, for k from 1 to nbCol do traitV(k) od, for k from 1 to nbLig do traitH(k) od, traitV(0,2,nbLig), traitH(0,2,nbCol), ]; cellText= [ //cellText(Lig,Col,"texte") draw("label",["\texttt{",%3,"}"],[anchor:=pos(%1+1,%2+1)]) ]; selectCell= [ //selectCell(Lig,Col) draw("line",[coinNO(%1+1,%2+1),coinSO(%1+1,%2+1),coinSE(%1+1,%2+1),coinNE(%1+1,%2+1)], [Width:=14,close:=1]), draw("dot",coinSE(%1+1,%2+1),[DotStyle:=square',DotScale:=2]), ] ; multiSelect= [ //multiSelect(Lig1,Col1,Lig2,Col2) draw("line",[coinNO(%1+1,%2+1),coinSO(%3+1,%2+1),coinSE(%3+1,%4+1),coinNE(%1+1,%4+1)], [close:=1,Color:=red, FillStyle:=full, FillColor:=red, FillOpacity:=0.3]), draw("dot",coinSE(%3+1,%4+1),[DotStyle:=square',DotScale:=2]), draw("line",[coinNO(%1+1,%2+1),coinSO(%1+1,%2+1),coinSE(%1+1,%2+1),coinNE(%1+1,%2+1)], [close:=1,Width:=14]), ];