blob: bfb2af2f2be166536cf4fbf82f344a0177b2f8a5 (
plain)
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
|