mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
1.1 KiB
81 lines
1.1 KiB
% Copyright (c) 1996 Microsoft Corporation
|
|
%
|
|
% Module Name:
|
|
%
|
|
% hatch.ps
|
|
%
|
|
% Abstract:
|
|
%
|
|
% Windows NT PostScript driver procset
|
|
%
|
|
% Revision History:
|
|
%
|
|
% 01/15/96 -davidx-
|
|
% Created it.
|
|
%
|
|
% mm/dd/yy -author-
|
|
% description
|
|
|
|
%%BeginResource: procset WinNT_Hatch_Patterns
|
|
|
|
%
|
|
% Horizontal hatch pattern:
|
|
% increment width left top repeat-count
|
|
%
|
|
|
|
/htxh {
|
|
{ 2 copy M
|
|
2 index 0 rlt
|
|
s
|
|
3 index add
|
|
} repeat
|
|
|
|
pop pop pop pop
|
|
} bd
|
|
|
|
%
|
|
% Vertical hatch pattern:
|
|
% increment height left top repeat-count
|
|
%
|
|
|
|
/htxv {
|
|
{ 2 copy M
|
|
0 3 index rlt
|
|
s
|
|
exch 3 index add exch
|
|
} repeat
|
|
|
|
pop pop pop pop
|
|
} bd
|
|
|
|
%
|
|
% Upward diagonal hatch pattern:
|
|
% increment left top repeat-count
|
|
%
|
|
|
|
/htxbd {
|
|
3 copy pop 3 -1 roll
|
|
{ 4 copy M L s
|
|
4 index add
|
|
4 -1 roll 4 index add 4 1 roll
|
|
} repeat
|
|
|
|
pop pop pop pop pop
|
|
}bd
|
|
|
|
%
|
|
% Downward diagonal hatch pattern:
|
|
% increment left bottom repeat-count
|
|
%
|
|
|
|
/htxfd {
|
|
3 copy pop 3 -1 roll
|
|
{ 4 copy M L s
|
|
4 index sub
|
|
4 -1 roll 4 index add 4 1 roll
|
|
} repeat
|
|
|
|
pop pop pop pop pop
|
|
} bd
|
|
|
|
%%EndResource
|