/[navidoc]/navidoc/navidoc/mp/html.py
ViewVC logotype

Diff of /navidoc/navidoc/mp/html.py

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by humppake, Thu May 22 14:17:25 2003 UTC revision 1.2 by humppake, Mon May 26 09:00:49 2003 UTC
# Line 60  class mppage(navidoc.mp.MetapostElement) Line 60  class mppage(navidoc.mp.MetapostElement)
60          s = """          s = """
61              picture %%.pict;              picture %%.pict;
62              %%.pict = classTitle("""+'"'+self.title+'"'+""");              %%.pict = classTitle("""+'"'+self.title+'"'+""");
63                picture %%.page;
64                %%.page = nullpicture;
65                addto %%.page doublepath ((0,5)--(0,38)--(7,45)--(35,45)--(35,5)--cycle) withpen currentpen;
66                addto %%.page doublepath ((0,38)--(7,38)--(7,45)) withpen currentpen;
67                addto %%.page doublepath ((12,32)--(30,32)) withpen currentpen;
68                addto %%.page doublepath ((12,27)--(30,27)) withpen currentpen;
69                addto %%.page doublepath ((6,22)--(30,22)) withpen currentpen;
70                addto %%.page doublepath ((6,17)--(30,17)) withpen currentpen;
71                addto %%.page doublepath ((6,12)--(30,12)) withpen currentpen;
72                addto %%.page doublepath ((6,7)--(30,7)) withpen currentpen;
73                addto %%.pict also %%.page shifted (center(%%.pict) + (-17, 5));
74                setbounds %%.pict to bbox %%.pict;
75              picmeasurements(%%);              picmeasurements(%%);
76              """              """
77          return self.repl(s)          return self.repl(s)
78      def draw_code(self):      def draw_code(self):#
79          s = """          s = """
80              drawmeasuredpic(%%);              drawmeasuredpic(%%);
             draw (((0,5)--(0,40)--(5,45)--(35,45)--(35,5)--cycle) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((0,40)--(5,40)--(5,45)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((3,35)--(31,35)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((3,30)--(31,30)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((3,25)--(31,25)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((3,20)--(31,20)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
             draw (((3,15)--(31,15)) shifted (%%.nw + (%%.ne - %%.nw)/2 -(17,0)));  
81              draw bboxmeasuredpic(%%);              draw bboxmeasuredpic(%%);
82              """              """
83          return self.repl(s)          return self.repl(s)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26