File: RC

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 (13 lines) | stat: -rw-r--r-- 215 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
/build_RC {
    pop
    size 4 div /side exch def
    currentpoint
    newpath
    moveto
    0 side 1.5 mul rmoveto
    0 side rlineto
    side 2.5 mul 0 rlineto
    0 side neg rlineto
    closepath
    fill
} def