-
-
-/euclidean_length
-{
- 1 copy mul exch 1 copy mul add sqrt
-} bind def
-
-% FIXME. translate to middle of box.
-% Nice rectangle with rounded corners
-/draw_box % breapth width depth height
-{
-% currentdict /testing known {
- %% real thin lines for testing
- /blot 0.005 def
-% }{
-% /blot blot-diameter def
-% } ifelse
-
- 0 setlinecap
- blot setlinewidth
- 1 setlinejoin
-
- blot 2 div sub /h exch def
- blot 2 div sub /d exch def
- blot 2 div sub /w exch def
- blot 2 div sub /b exch def
-
- b neg d neg moveto
- b w add 0 rlineto
- 0 d h add rlineto
- b w add neg 0 rlineto
- 0 d h add neg rlineto
-
- currentdict /testing known {
- %% outline only, for testing: