From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RURBAN / illguts-0.49 / box.ps 

            

              
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

              
%require "common.ps"
%require "rect.ps"
% Routines to draw the struct boxes
/box {                     % <x> <y> <no> box -
   10 dict begin
      /no exch def
      /y  exch def
      /x  exch def
      /x2 x 50 add def
      /y2 y no 15 mul sub def
      y2 15 add 15 y {
        dup x exch M
        x2 exch L S
      } for
      x y M x2 y L x2 y2 L x y2 L CP S
   end
} def
/newbox {                  % <x> <y> <start> <end> newbox -
   4 dict begin
     /to exch def
     /from exch def
     /y exch def
     /x exch def
     gsave
       yellow
       x y from 1 sub 15 mul sub 
       x 50 add y to 15 mul sub rect
       F
     grestore
   end
} def
/boxs {                     % <x> <y> <no> boxs -
   10 dict begin
      /no exch def
      /y  exch def
      /x  exch def
      /x2 x 40 add def
      /y2 y no 10 mul sub def
      y2 10 add 10 y {
        dup x exch M
        x2 exch L S
      } for
      x y M x2 y L x2 y2 L x y2 L CP S
   end
} def