☰

Как заполнить сложный контур с помощью Metapost/Metafun?

tag-icon • tag-icon metapost metafun
Как заполнить сложный контур с помощью Metapost/Metafun?

Есть ли способ создать точно такой же код PS и SVG с Metapost/ Metafun? К сожалению, unfillу меня это не сработает, так как на результирующей странице есть фон. И этот пример урезан, так как реальный путь гораздо сложнее.

Желаемый вывод постскриптума:

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 100 100
%%BeginProlog
%%EndProlog%%Page: 1 1
newpath 0 100 moveto 100 100 lineto 100 0 lineto 0 0 lineto 0 100 lineto closepath
        10 90 moveto 10 10 lineto 90 10 lineto 90 90 lineto 10 90 lineto closepath
fill         
%%EOF

Желаемый результат SVG:

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<svg xmlns="http://www.w3.org/2000/svg" version="1.1" width="125" height="125">
 <g transform="matrix(1.25,0,0,-1.25,0,125)">
  <g transform="scale(0.1,0.1)">
   <path d="m 0,1000 1000,0 L 1000,0 0,0 0,1000 z m 100,-100 0,-800 800,0 0,800 -800,0" id="3"
         style="fill:#000000;fill-opacity:1;fill-rule:nonzero;stroke:none" />
  </g>
 </g>
</svg>

решение1

В MetaPost есть стандартный трюк, как это сделать. Я решил включить решение, потому что unfill в MetaPost на самом деле ничего не удаляет, а заполняет фоновым цветом.

Ниже показано решение.

beginfig( 0 )

path clockwisepath, anticlockwisepath;
clockwisepath := (0,100) -- (100,100) -- (100,0) -- (0,0) -- (0,100) -- cycle;
anticlockwisepath := (10,90) -- (10,10) -- (90,10) -- (90,90) -- (10,90) -- cycle;

fill clockwisepath -- anticlockwisepath -- cycle;

endfig;

end.

Ниже представлен подготовленный EPS:

%!PS
%%BoundingBox: 0 0 100 100 
%%HiResBoundingBox: 0 0 100 100 
%%Creator: MetaPost 1.902
%%CreationDate: 2014.12.19:1511
%%Pages: 1
%%BeginProlog
%%EndProlog
%%Page: 1 1
 0 0 0 setrgbcolor
newpath 0 100 moveto 100 100 lineto 100 0 lineto 0 0 lineto 0 100 lineto
        0 100 lineto 10 90 lineto 10 10 lineto 90 10 lineto 90 90 lineto
        10 90 lineto 10 90 lineto
 closepath fill
showpage
%%EOF

Обратите внимание, что код не создает точно такой же EPS, но для заполнения это не имеет значения.

решение2

Заполнение и удаление:

%% naid.mp
u:=1bp;
beginfig(1);
fill (0,0)--(100u,0)--(100u,100u)--(0,100u)--cycle;
unfill (10u,10u)--(90u,10u)--(90u,90u)--(10u,90u)--cycle;
endfig;
end.

Вот вывод mpost naid.mp:

%!PS
%%BoundingBox: 0 0 100 100 
%%HiResBoundingBox: 0 0 100 100 
%%Creator: MetaPost 1.803
%%CreationDate: 2013.12.23:1356
%%Pages: 1
%%BeginProlog
%%EndProlog
%%Page: 1 1
 0 0 0 setrgbcolor
newpath 0 0 moveto
100 0 lineto
100 100 lineto
0 100 lineto
 closepath fill
 1 1 1 setrgbcolor
newpath 10 10 moveto
90 10 lineto
90 90 lineto
10 90 lineto
 closepath fill
showpage
%%EOF

и вот вывод

mpost '\outputformat:="svg";outputtemplate:="%j-%c.svg";input naid.mp'

в файлеnaid-1.svg

<?xml version="1.0"?>
<!-- Created by MetaPost 1.803 on 2013.12.23:1445 -->
<svg version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="100.000000" height="100.000000" viewBox="0 0 100.000000 100.000000">
<!-- Original BoundingBox: 0.000000 0.000000 100.000000 100.000000 -->
  <path d="M0.000000 100.000000L100.000000 100.000000L100.000000 -0.000000L0.000000 -0.000000Z" style="fill: rgb(0.000000%,0.000000%,0.000000%);stroke: none;"></path>
  <path d="M10.000000 90.000000L90.000000 90.000000L90.000000 10.000000L10.000000 10.000000Z" style="fill: rgb(100.000000%,100.000000%,100.000000%);stroke: none;"></path>
</svg>

решение3

Я никогда не пользовался Metapost, но поскольку Asymptote основан на нем, ответ Asymptote, возможно, поможет кому-то разобраться с ответом Metapost.

Создайте файл foo.asyсо следующим содержимым:

fill((0,100)--(100,100)--(100,0)--(0,0)--cycle ^^ (10,90)--(10,10)--(90,10)--(90,90)--cycle);

Запуск asy foo.asyиз командной строки дает файл eps foo.epsсо следующим содержимым (за исключением некоторых очевидных различий, например, времени создания):

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 255 345 356 446
%%HiResBoundingBox: 255.5 345.5 355.5 445.5
%%Creator: Asymptote 2.23
%%CreationDate: 2013.12.23 10:10:49
%%Pages: 1
%%Page: 1 1
/Setlinewidth {0 exch dtransform dup abs 1 lt {pop 0}{round} ifelse
idtransform setlinewidth pop} bind def
gsave
 255.5 345.5 translate
newpath 0 100 moveto
 100 100 lineto
 100 0 lineto
 0 0 lineto
 0 100 lineto
closepath
 10 90 moveto
 10 10 lineto
 90 10 lineto
 90 90 lineto
 10 90 lineto
closepath
0 setgray
0.5 Setlinewidth
1 setlinecap
1 setlinejoin
10 setmiterlimit
fill
grestore
showpage
%%EOF

Результат в графическом виде:

введите описание изображения здесь

Связанный контент