Міліметрівка на PostScript

Posted on

Приспічило зробити собі шмат міліметрівки — вирішив таки почитати про PostScript.

Ось тут — pdf (ps2pdf mm-grid.ps), 54K.

Очевидно, це не найкращий алгоритм :О)

Вдосконалю .)

Увага: ось тут покращений варіант.

%!PS-Adobe-2.0
%%DocumentPaperSizes: a4
%%EndComments
 
/mm { 2.8346457 mul } def
 
/mmthickness     0.2 def
/cmthickness     1.0 def
/fivemmthickness 0.6 def
 
/horgrid {
        % two thick horizontal lines:
        0 0 moveto
        10 mm 0 rlineto
        -10 mm 10 mm rmoveto
        10 mm 0 rlineto
        cmthickness setlinewidth
        stroke
        % one semi-thick (5mm) horizontal line:
        0 5 mm moveto
        10 mm 0 rlineto
        fivemmthickness setlinewidth
        stroke
        % nine thin horizontal lines:
        0 1 mm moveto
        9 {
                10 mm 0 rlineto
                -10 mm 1 mm rmoveto
        } repeat
        mmthickness setlinewidth
        stroke
} def
 
% 1x1 cm grid:
/cube {
        horgrid
        10 mm 0 translate
        90 rotate
        horgrid
        -90 rotate
} def
 
% go to initial position:
25 mm 25 mm translate
 
% 16x25 cm grid:
25 {
        16 {
                0 0 translate
                cube
        } repeat
        -160 mm 10 mm translate
} repeat
 
showpage
 
% i liked that!

Залишити відповідь

Ваша e-mail адреса не оприлюднюватиметься. Обов’язкові поля позначені *

Цей сайт використовує Akismet для зменшення спаму. Дізнайтеся, як обробляються ваші дані коментарів.