view ifctf-part-lib/uschem-symbols/gschemtitleblocks.ps @ 27:d14bf25b5e26

unet-destar: forgot to call find_net_comment_column()
author Space Falcon <falcon@ivan.Harhan.ORG>
date Thu, 06 Aug 2015 20:40:19 +0000
parents cd92449fdb51
children
line wrap: on
line source

%!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