FreeCalypso > hg > ueda-linux

comparison ifctf-part-lib/uschem-symbols/gschemtitleblocks.ps @ 0:cd92449fdb51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import of ueda and ifctf-part-lib from ifctfvax CVS
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 20 Jul 2015 00:24:37 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:cd92449fdb51
1 %!PS-Adobe-3.0 Resource-ProcSet
2 %%LanguageLevel: 2
3 %%BeginResource: procset (gschem-style titleblock drawing procedures) 1.0 0
4 15 dict begin
5 /outerborder {
6 gsave defaultlinewidth setlinewidth setsolid
7 0 0 drawingsize_x drawingsize_y rectstroke
8 grestore
9 } bind def
10 /translate_to_title_block {
11 drawingsize_x 7600 sub 0 translate
12 } bind def
13 /draw_title_block {
14 gsave defaultlinewidth setlinewidth setsolid 0 setlinecap
15 0 0 7600 1400 rectstroke
16 0 600 moveto 7600 600 lineto stroke
17 3600 600 moveto 3600 0 lineto stroke
18 /Helvetica 8 selfnt
19 100 700 moveto (TITLE) show
20 100 400 moveto (FILE:) show
21 100 100 moveto (PAGE) show
22 1800 100 moveto (OF) show
23 3700 400 moveto (REVISION:) show
24 3700 100 moveto (DRAWN BY:) show
25 grestore
26 } bind def
27 /fill_title_block {
28 gsave
29 /Helvetica 10 selisofnt
30 title1 /ctr /bottom 0 3600 1100 Tshow
31 title2 /ctr /bottom 0 3600 700 Tshow
32 /Helvetica 8 selisofnt
33 600 400 moveto filename show
34 600 100 moveto pageno show
35 2300 100 moveto npages show
36 4700 400 moveto revision show
37 4700 100 moveto author show
38 grestore
39 } bind def
40 currentdict end
41 /$gschemtitleblocks exch def
42 %%EndResource