X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=test%2Fdelaunay.tex;h=45a7ff442324fccbdf4883f660d2ecf0c54fca43;hb=HEAD;hp=5b983917f08ffd6b5ede9ebfdc339150de3fe884;hpb=d865bd5b172801559649eabbef29fd8f3898ce70;p=delaunay.git diff --git a/test/delaunay.tex b/test/delaunay.tex index 5b98391..45a7ff4 100644 --- a/test/delaunay.tex +++ b/test/delaunay.tex @@ -7,15 +7,21 @@ \pagestyle{empty} \begin{document} + +\section{MetaPost} + \buildMeshBW[print=points, meshpoint = I, color=red]{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(3,1);(6,1.5)} %\buildMeshBW[tikz, bbox = show]{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(3,1);(6,1.5)} -\buildMeshBW[mode=ext,bbox = show, color=red,colorBbox = blue]{mesh.txt} +\buildMeshBW[mode=ext,bbox = show, color=red,colorBbox = blue,print=dotpoints]{mesh.txt} + +\drawPointsMesh[mode=ext,bbox = show, color=red,print=points]{mesh.txt} +\drawPointsMesh[mode=ext,bbox = show, color=red]{mesh.txt} -\buildMeshBWinc[mode=ext,bbox = show, color=red,colorBbox = -blue]{mesh.txt}{% + +\buildMeshBWinc[mode=ext,bbox = show, color=red,colorBbox = blue]{mesh.txt}{% beginfig(0); }% {% @@ -31,13 +37,13 @@ colorCircle = green!70, scale=0.6cm] {(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} \meshAddPointBW[ -color = green, -meshpoint = x, -colorBack=red!10, -colorNew = green!20!red, -scale=0.6cm, -step=cavity] -{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} + color = green, + meshpoint = x, + colorBack=red!10, + colorNew = green!20!red, + scale=0.6cm, + step=cavity] + {(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} \meshAddPointBW[ meshpoint = x, colorBack=red!10, @@ -75,9 +81,112 @@ colorBbox = blue!20, beginfig(0); }% {% - draw (-1,-1)*u--(8.5,-1)*u--(8.5,6)*u--(-1,6)*u--cycle; + draw (-1,-1)*u--(8.5,-1)*u--(8.5,6)*u--(-1,6)*u--cycle withcolor \mpcolor{red}; endfig; } +\section{tikz} + +\buildMeshBW[tikz,print=points, meshpoint = I, +color=red]{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(3,1);(6,1.5)} + +\buildMeshBW[tikz,mode=ext, color=red,print=dotpoints]{mesh.txt} + +\drawPointsMesh[tikz,mode=ext,bbox = show, +color=red,print=points]{mesh.txt} +\drawPointsMesh[tikz,mode=ext,bbox = show, color=red]{mesh.txt} + +\buildMeshBWinc[tikz,mode=ext,bbox = show, colorBbox = blue]{mesh.txt}{% +}% +{% + \draw[color = red] (0,0) -- (3,3); +} + +\meshAddPointBW[ +tikz, +color = green, +meshpoint = x, +colorBack=red!10, +colorNew = green!20!red, +scale=0.6cm, +step=cavity] +{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} + +\meshAddPointBWinc[ +tikz, +meshpoint = x, +colorBack=red!10, +colorNew = green!20!red, +scale=0.6cm, +step=badtriangles, +newpoint = y, +bbox = show, +colorBbox = blue!20, +]{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} +{}{\draw[color=green] (0,0) -- (3,3);} + +\meshAddPointBW[ +tikz, +meshpoint = x, +colorBack=red!10, +colorNew = green!20!red, +scale=0.6cm, +step=badtriangles, +newpoint = y, +bbox = show, +colorBbox = black +] +{(0,0);(3.5,3);(7,0);(7.5,5);(1.61,3.14);(6,4)}{(3,1)} + + +% \def\CircumPoint{y} +% \luampcolor +% \directlua{ +% buildVoronoiMP("mesh.txt","ext","points","","1cm","show") +% } +\buildVoronoiBW[mode=ext]{mesh.txt} +\buildVoronoiBW[mode=ext,delaunay=show,colorVoronoi=green!60!blue]{mesh.txt}\par +\buildVoronoiBW[mode=ext,print=points,delaunay=show,bbox=show,meshpoint=x,circumpoint=y]{mesh.txt} + + +\buildVoronoiBW[tikz,mode=ext]{mesh.txt} +\buildVoronoiBW[tikz,mode=ext,delaunay=show,colorVoronoi=green!60!blue]{mesh.txt}\par +\buildVoronoiBW[tikz,mode=ext,print=points,delaunay=show,bbox=show,meshpoint=x,circumpoint=y]{mesh.txt} + +\buildVoronoiBWinc[mode=ext]{mesh.txt}{beginfig(0);}{endfig;} +\buildVoronoiBWinc[tikz,mode=ext,print=points]{mesh.txt}{}{} + + +\buildVoronoiBWinc[tikz,mode=ext,print=points,delaunay=show,meshpoint=x,circumpoint=y]{mesh.txt}{}{\draw[color=blue,thick] (0,0)--(3,3);} + +\def\MeshPoints{P} +\directlua{ + drawGmshMP("maillage.msh","points","8cm") +}\par +\directlua{ + gmshVoronoiMP("maillage.msh","none","8cm","none") +} + +\drawGmsh[tikz,scale=8cm]{maillage.msh} + +\gmshVoronoi[tikz,scale=8cm,print=points,delaunay=show]{maillage.msh} + + +\meshPolygon[step=polygon,scale=3cm]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[step=grid,scale=3cm]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[step=points,scale=3cm,print=points]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[step=mesh,scale=3cm,print=dotpoints,gridpoints=perturb]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} + +\meshPolygon[tikz,step=polygon,scale=3cm]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[tikz,step=grid,scale=3cm]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[tikz,step=points,scale=3cm,print=points]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} +\meshPolygon[tikz,step=mesh,scale=3cm,print=dotpoints]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)} + +\meshPolygonInc[step=points,scale=3cm,print=dotpoints]{(0,0);(1,0);(1,0.5);(0.5,1);(-0.3,0.3)}{% + beginfig(1); +}{% +endfig; +} + \end{document}