FreeCalypso > hg > ueda-linux

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ifctf-part-lib/uschem-symbols/gschemtitleblocks.ps	Mon Jul 20 00:24:37 2015 +0000
@@ -0,0 +1,42 @@
+%!PS-Adobe-3.0 Resource-ProcSet
+%%LanguageLevel: 2
+%%BeginResource: procset (gschem-style titleblock drawing procedures) 1.0 0
+15 dict begin
+/outerborder {
+	gsave defaultlinewidth setlinewidth setsolid
+	0 0 drawingsize_x drawingsize_y rectstroke
+	grestore
+} bind def
+/translate_to_title_block {
+	drawingsize_x 7600 sub 0 translate
+} bind def
+/draw_title_block {
+	gsave defaultlinewidth setlinewidth setsolid 0 setlinecap
+	0 0 7600 1400 rectstroke
+	0 600 moveto 7600 600 lineto stroke
+	3600 600 moveto 3600 0 lineto stroke
+	/Helvetica 8 selfnt
+	100 700 moveto (TITLE) show
+	100 400 moveto (FILE:) show
+	100 100 moveto (PAGE) show
+	1800 100 moveto (OF) show
+	3700 400 moveto (REVISION:) show
+	3700 100 moveto (DRAWN BY:) show
+	grestore
+} bind def
+/fill_title_block {
+	gsave
+	/Helvetica 10 selisofnt
+	title1 /ctr /bottom 0 3600 1100 Tshow
+	title2 /ctr /bottom 0 3600 700 Tshow
+	/Helvetica 8 selisofnt
+	600 400 moveto filename show
+	600 100 moveto pageno show
+	2300 100 moveto npages show
+	4700 400 moveto revision show
+	4700 100 moveto author show
+	grestore
+} bind def
+currentdict end
+/$gschemtitleblocks exch def
+%%EndResource