Я понимаю, что тема устарела уже на год, но тем не менее, пользуясь случаем, хочу.
В подкаталоге Program Files\Corel\CorelDRAW Graphics Suite X?\Languages\??\Custom Data есть волшебный файлик userproc.ps. Он содержит код постскриптовских спотфункций и заливок. Спотфункции - это отдельная полезная тема, но мы рассмотрим заливки, а именно - кирпичи. Как нам подсказывает кэп, кирпичный код начинается так:
Код:
%@Fill
/Bricks %Bricks,4, Frequency:=8, Line width:=5, Foreground gray:=100, Background gray:=0
{
/BackgroundGray exch -1 100 InRange def
/ForegroundGray exch 0 100 InRange def
/Linewidth exch 0 100 InRange def
/Frequency exch 2 100 InRange def
...
Казалось бы, на первый взгляд, самое простое решение - вставить
45 rotate, скажем, где-нибудь перед
Bblly pntsize Bbury, однако, это кажущая простота, несмотря на то, что данный подход, таки, работает. При таком раскладе, вся система координат поворачивается на 45 градусов и координаты крайних точек объекта непредсказуемо разлетаются в зависимости от положения объекта на листе, а ловить их, внезапно, довольно непростая задача. Гораздо проще поменять код описания символа кирпича
Код:
0 0 moveto
1 0 lineto
1 .5 lineto
0 .5 lineto
closepath
.5 .5 moveto
.5 1 lineto
на
Код:
0 0 moveto
1 1 lineto
0.5 0 moveto
1 0.5 lineto
0.75 0.25 moveto
0.5 0.5 lineto
0.25 0.25 moveto
0 0.5 lineto
0.5 1 lineto
0.75 0.75 lineto
0.25 0.75 moveto
0 1 lineto
и - бинго!