File: frame.ps

package info (click to toggle)
ruby-rghost 0.9.9-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,188 kB
  • sloc: ruby: 3,374; makefile: 6; sh: 1
file content (16 lines) | stat: -rwxr-xr-x 364 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
/rcorners{ 
gsave
	:x :y :r add moveto 	
  :outside
	/:l1{ :x :y :h add :x :s add :y :h add :r arcto   } def
	/:l2{ :x :w add :y :h add :x :w add :y :h add :s sub :r arcto   } def
	/:l3{ :x :w add :y :x :w add :s sub :y :r arcto  } def
	/:l4{ :x :y :x :y :s add :r arcto } def
	:l1 :l2 :l3 :l4 clear
	closepath
	%gsave
    :inside
	%grestore  
	:stk
grestore
} def