File: PC

package info (click to toggle)
9base 1%3A6-13
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 5,488 kB
  • sloc: ansic: 61,051; yacc: 1,991; asm: 1,621; cs: 1,150; perl: 965; makefile: 616; sh: 18; sed: 4
file content (25 lines) | stat: -rw-r--r-- 477 bytes parent folder | download | duplicates (8) 
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
 
%
% UMDS pencil - needs to be cleaned up.
%

/build_PC {
    pop
    gsave
	currentpoint translate
	1 scaling div ptsize 10 div mul dup scale
	newpath
	0 setlinecap
	1 setlinejoin
	2 setlinewidth
	0 1 moveto 12 0 rlineto stroke
	0 5 moveto 12 0 rlineto stroke
	0 9 moveto 12 0 rlineto stroke
	1 setlinewidth
	12 .5 moveto 21.27362 5 lineto 12 9.5 lineto stroke
	21.27362 5 moveto
	.4 9.27362 mul neg .4 4 mul rlineto
	0 .8 4 mul neg rlineto
	closepath fill
    grestore
} def