Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
/background-create {
2 
  <<
3 
    /color 0 0 0 0 color-create
4 
    /image /null background-image-create
5 
    /position <<
6 
        /x <<
7 
            /percentage false
8 
            /value 0
9 
        >>
10 
        /y <<
11 
            /percentage false
12 
            /value 0
13 
        >>
14 
    >>
15 
    /repeat /repeat
16 
  >>
17 
} def
18 
 
19 
/background-get-color {
20 
  /color get
21 
} def
22 
 
23 
/background-get-image {
24 
  /image get
25 
} def
26 
 
27 
/background-get-position {
28 
  /position get
29 
} def
30 
 
31 
/background-get-repeat {
32 
  /repeat get
33 
} def
34 
 
35 
/background-show {                 % => Box Viewport This
36 
  dup background-get-color         % => Box Viewport This BackgroundColor
37 
  color-is-transparent not {       % => Box Viewport This
38 
    dup background-get-color
39 
    color-apply
40 
 
41 
    2 index get-left-padding
42 
    3 index get-bottom-padding
43 
    4 index get-right-padding
44 
    5 index get-left-padding sub
45 
    5 index get-top-padding
46 
    6 index get-bottom-padding sub
47 
    rectfill
48 
  } if                             % => Box Viewport This
49 
 
50 
  dup background-get-position
51 
  1 index background-get-repeat    % => Box Viewport This Position Repeat
52 
  4 index                          % => Box Viewport This Position Repeat Box
53 
  4 index                          % => Box Viewport This Position Repeat Box Viewport
54 
  4 index background-get-image
55 
  background-image-show            % => Box Viewport This
56 
 
57 
  pop pop pop
58 
} def