This repository has been archived by the owner on Jul 26, 2021. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path4.1.ps
93 lines (78 loc) · 2.51 KB
/
4.1.ps
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
%!PS-Adobe-3.0
%%Title: CSM makrs
%%Creator: Sergey S. Betke <[email protected]>
%%Copyright: 2018 Sergey S. Betke <[email protected]>
%%+ See LICENSE at https://github.com/Metrolog/marks
%%LanguageLevel: 3
%%DocumentData: Clean7Bit
%%DocumentNeededResources: ProcSet (csm-marks)
%%+: ProcSet (si) 2.2 0
%%+: ProcSet (graphics-alignments) 2.2 0
%%+: ProcSet (distiller) 2.2 0
%%Pages: 1
%%PageOrder: Ascend
%%EndComments
%%BeginProlog
%%IncludeResource: ProcSet si 2.2 0
%%IncludeResource: ProcSet graphics-alignments 2.2 0
%%IncludeResource: ProcSet csm-marks 2.2 0
%%IncludeResource: ProcSet distiller 2.2 0
/mm /si /ProcSet findresource 1 index get def
/range /arrays /ProcSet findresource 1 index get def
/months /csm-marks /ProcSet findresource 1 index get def
/quarters /csm-marks /ProcSet findresource 1 index get def
/year /csm-marks /ProcSet findresource 1 index get def
%%EndProlog
%%BeginSetup
/.setpdfwrite where { pop .setpdfwrite } if
/distiller /ProcSet findresource /setdistillerparamsforcsmmarks get exec
%%EndSetup
%%Page: A 1
%%BeginSetup
%%BeginFeature: *PageSize A5
<<
% /HWResolution [2400 2400]
% /PageSize [ 210 mm 297 2 div mm ]
% /ImagingBBox [ 5 mm 5 mm 210 5 sub mm 297 2 div 5 sub mm ]
/PageSize [ 297 2 div mm 210 mm ]
/ImagingBBox [ 5 mm 8 mm 297 2 div 5 sub mm 210 5 sub mm ]
/MirrorPrint false
/NegativePrint true
>> setpagedevice
%%EndFeature:
%%EndSetup
%!
gsave
%------------------------------------------------------------------------------
% äëÿ ïîäãîòîâêè îòòèñêîâ ïðàâèòü êîä íèæå !!!
%------------------------------------------------------------------------------
[
<<
/year 2017
/period % [ [ 1 2 3 6 range 10 ] months [ 1 4 range ] quarters ]
[ [ 3 ] quarters ]
/id (ÑÏ)
/sign [ 1 256 range ]
>>
/csm-marks /ProcSet findresource /create_stamps get exec
2017
[ [ 1 12 range ] months [ 1 4 range ] quarters year ]
% [ [ 3 ] quarters ]
(ÑÏ)
[ 1 ]
18.0 mm
false
/calibration_stamp_upath
/csm-marks /ProcSet findresource /create_stamps get exec
]
/boxes /ProcSet findresource /GetPageBBox get exec
2 mm
/graphics-alignments /ProcSet findresource /align_upaths_in_BBox get exec
%------------------------------------------------------------------------------
% êîíåö îáëàñòè äëÿ êîäà ãåíåðàöèè îòòèñêîâ
%------------------------------------------------------------------------------
grestore
showpage
%%EndDocument:
%%Trailer
%%EOF