Hello All,
I have a Postscript calendar program which I use to print out a calendar
I can put up on a wall for planning purposes. From what I have seen, a
clipping box should not "appear", but it does with the following code.
For the interested, I can email the main calendar code as well, but not
included here for brevity. There are two routines, callmonth and
calendar defined prior in the one file. If you have other suggestions, I
will read with interest, it is all a learning exercise, but with a
practical useful result.
--begin code--
% Set margins and working area
/leftmargin 20 def
/botmargin 20 def
/pagewidth 555 def
/pageheight 802 def
newpath % box for clipping path
leftmargin botmargin moveto
0 pageheight rlineto
pagewidth 0 rlineto
0 pageheight neg rlineto
closepath clip
1 1 12 {
/callmonth exch def
0 1 1 {
gsave pagewidth mul neg 0 translate
1.95 2 scale
callmonth 2014 calendar
gsave showpage grestore
grestore
} for
} for
--end code--
Regards,
Mark Trickett
_______________________________________________
luv-main mailing list
[email protected]
http://lists.luv.asn.au/listinfo/luv-main
