X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=8-geom2%2Flib.mp;h=cbeedf52814457545e0e20dfd95519a04dbf00da;hb=41f74e848a45496a918d1e14ec80b09c3be39853;hp=2536305d234d0f8bb52f4dc3de0df583815ae273;hpb=342bbfe61b1247316d2b382c836cbb22a0fbcfe1;p=ads2.git diff --git a/8-geom2/lib.mp b/8-geom2/lib.mp index 2536305..cbeedf5 100644 --- a/8-geom2/lib.mp +++ b/8-geom2/lib.mp @@ -45,6 +45,8 @@ def drawfvertices(expr s,n,flags) = endfor enddef; +path centersquare; centersquare := (-0.5,-0.5)--(0.5,-0.5)--(0.5,0.5)--(-0.5,0.5)--cycle; + def vertex(expr p) = p withpen pencircle scaled 4pt enddef; def drawemptyvertex(expr p) = unfill fullcircle scaled 4pt shifted p; draw fullcircle scaled 4pt shifted p; enddef; def drawendpointvertex(expr p) = draw vertex(p) withcolor red; draw fullcircle scaled 6pt shifted p; enddef;