FreeCalypso > hg > ueda-linux

view ifctf-part-lib/uschem-symbols/gschemtitleblocks.ps @ 34:bc465afed423

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
unet2pads: exit with an error if the pads_parttype is missing on any component
author Space Falcon <falcon@ivan.Harhan.ORG>
date Sat, 08 Aug 2015 23:23:55 +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