home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / ps / pscal.zoo / pscal.shar
Text File  |  1990-05-23  |  17KB  |  721 lines
  1. #!/bin/sh
  2. #
  3. # NAME:
  4. #    pscal
  5. #
  6. # SYNOPSIS:
  7. #    pscal [-Pprinter] [other option flags] month year
  8. #
  9. # DESCRIPTION:
  10. #    `Pscal' is a PostScript program to print calendars.
  11. #
  12. #    The file $HOME/.holiday is read and used to print short messages
  13. #    on specified days.  The .holiday file should consist of lines of
  14. #    the form 
  15. #        month:day:message string
  16. #    Messages should be 20 characters or less, with no more than 6
  17. #    messages per day.  No spaces should appear from the beginning
  18. #    of a line until after the second colon.
  19. #    Month and day should be numbers in the obvious ranges.
  20. #    12/89 - The holiday checking has been loosened up in that the
  21. #    following takes place:
  22. #        1. The Shell Variable EFILE is used preferentially
  23. #        2. Then the file Events in the current directory is used
  24. #        3. Finally the $HOME/.holiday file is used.
  25. #    The whole process can be turned off by setting EFILE=/dev/null.
  26. #
  27. # OPTIONS:
  28. #    Any argument whose first character is '-' is passed on to lpr.
  29. #    The shell variables BANNER, LFOOT, CFOOT, and RFOOT become a
  30. #    top centered banner, and left, centered, or right justified
  31. #    footers respectively.  As in:
  32. #
  33. #        BANNER="Schedule 1"; CFOOT=Preliminary; pscal 4 90
  34. #
  35. # AUTHOR:
  36. #    Patrick Wood
  37. #    Copyright (C) 1987 by Pipeline Associates, Inc.
  38. #    Permission is granted to modify and distribute this free of charge.
  39. # 
  40. # HISTORY:
  41. #    @Original From: patwood@unirot.UUCP (Patrick Wood)
  42. #    @Shell stuff added 3/9/87 by King Ables
  43. #    @Made pretty by tjt 1988
  44. #    @Holiday and printer flag passing hacks added Dec 1988 
  45. #    @  by smann@june.cs.washington.edu 
  46. #    @Used the better looking version with 5 rows of days rather than 6
  47. #    @  hacked together with holiday and banner/footnotes added
  48. #    @  by Joe (No Relation) Wood, 12/89, jlw@lzga.ATT.COM
  49. #    @Fixed "-R" (didn't work at all; now it at least works on 8.5x11)
  50. #    @Also fixed handling of unrecognized arguments
  51. #    @  by Jeff Mogul, 1/90, mogul@decwrl.dec.com
  52. #       @Moon routines added; 1000 changed to 400 in isleap and startday;
  53. #       @  fixed bug involving printing events on isdouble 30,31 days.
  54. #       @  by Mark Hanson, 2/90, cs62a12@wind.ucsd.edu
  55. #
  56. # BUGS:
  57. #    `Pscal' doesn't work for months before 1753 (weird stuff happened
  58. #    in September, 1752).
  59. #
  60. #    A better format for the dates of holidays would be nice.
  61. #    An escape to allow holiday messages to be raw PostScript would
  62. #    also be nice.
  63. #    The holiday messages should be handled more intelligently (ie,
  64. #    the messages should be clipped to the day).
  65. #
  66. USAGE="Usage: pscal [ -Rrtm ] [ -F hfont ] [ -f font ] [ month [ year ] ]"
  67.  
  68. TFONT=Times-Bold
  69. DFONT=Helvetica-Bold
  70. EFONT=NewCenturySchlbk-BoldItalic
  71.  
  72. ROTATE=90
  73. SCALE="1.0 1.0"
  74. TRANSLATE="50 -120"
  75. MOON="false"
  76.  
  77. LPR="lpr"  # here you should put whatever you need to direct the output to
  78.        # a laser printer; or you can replace it with "cat" or use the
  79.        # -t option if you want the the code to go to standard output.
  80.  
  81. while test $# != 0
  82. do
  83.     case $1 in
  84.     -m) MOON="true"; shift;;
  85.     -P) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  86.         eval ENVAR="$1$2"; shift 2;;
  87.     -P*) eval ENVAR=$1; shift 1;;
  88.     -F) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  89.         TFONT="$2"; shift 2;;
  90.     -F*) TFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
  91.     -f) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  92.         DFONT="$2"; shift 2;;
  93.     -f*) DFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
  94.     -t) LPR="cat"; shift 1;;
  95.     -r) ROTATE=90; shift 1;;
  96.     -R) ROTATE=0; SCALE="0.75 0.75"; TRANSLATE="50 900"; shift 1;;
  97.     --|-) break;;
  98.     -*) eval ENVAR=\"$ENVAR $1\"; shift 1;;
  99.     *) break
  100.     esac
  101. done
  102.  
  103. test $# -gt 2 && { echo "$USAGE" 1>&2; exit 1; }
  104.  
  105. case $# in
  106.     0)    set `date`; YEAR=$6
  107.     MONTH=`case $2 in Jan) echo 1;;Feb) echo 2;;Mar) echo 3;;Apr) echo 4;;
  108.         May) echo 5;;Jun) echo 6;;Jul) echo 7;;Aug) echo 8;;
  109.         Sep) echo 9;;Oct) echo 10;;Nov) echo 11;;Dec) echo 12;;esac`;;
  110.     1)    MONTH=$1; set `date`; YEAR=$6;;
  111.     2)    MONTH=$1 YEAR=$2;;
  112. esac
  113.  
  114. if [ -n "$EFILE" -a -r "$EFILE" ]
  115. then
  116.     Files=$EFILE
  117. elif [ -r Events ]
  118. then
  119.     Files=Events
  120. elif [ -r $HOME/.holiday ]
  121. then
  122.     Files=$HOME/.holiday
  123. else
  124.     Files=/dev/null
  125. fi
  126.  
  127. holidays=`cat $Files | grep \^$MONTH: | awk -F: '{printf("%s ( %s",$2,$3);\
  128.         for(i = 4; i <= NF; i++) printf(":%s", $i);printf(")\n"); }'`
  129.  
  130. test $YEAR -lt 100 && YEAR=`expr $YEAR + 1900`
  131.  
  132. $LPR $ENVAR <<END-OF-CALENDAR
  133. %!
  134. % PostScript program to draw calendar
  135. % Copyright (C) 1987 by Pipeline Associates, Inc.
  136. % Permission is granted to modify and distribute this free of charge.
  137. %
  138. % The number after /month should be set to a number from 1 to 12.
  139. % The number after /year should be set to the year you want.
  140. % You can change the title and date fonts, if you want.
  141. % We figure out the rest.
  142. % This program won't produce valid calendars before 1800 due to the switch
  143. % from Julian to Gregorian calendars in September of 1752 wherever English
  144. % was spoken.
  145.  
  146. /month $MONTH def
  147. /year $YEAR def
  148. /titlefont /$TFONT def
  149. /dayfont /$DFONT def
  150. /eventfont /$EFONT def
  151. /holidays [ $holidays ] def
  152. /Bannerstring ($BANNER) def
  153. /Lfootstring ($LFOOT) def
  154. /Rfootstring ($RFOOT) def
  155. /Cfootstring ($CFOOT) def
  156.  
  157. % calendar names - change these if you don't speak english
  158. % "August", "April" and "February" could stand to be kerned even if you do
  159.  
  160. /month_names
  161. [ (January) (February) (March) (April) (May) (June) (July)
  162. (August) (September) (October) (November) (December) ]
  163. def
  164.  
  165. /day_names
  166. [ (Sunday) (Monday) (Tuesday) (Wednesday) (Thursday) (Friday) (Saturday) ]
  167. def
  168.  
  169. % layout parameters - you can change these, but things may not look nice
  170.  
  171. /daywidth 100 def
  172. /dayheight 95 def
  173.  
  174. /titlefontsize 48 def
  175. /weekdayfontsize 12 def
  176. /datefontsize 30 def
  177. /footfontsize 20 def
  178.  
  179. /topgridmarg 35 def
  180. /leftmarg 35 def
  181. /daytopmarg 10 def
  182. /dayleftmarg 5 def
  183.  
  184. % layout constants - don't change these, things probably won't work
  185.  
  186. /rows 5 def
  187. /subrows 6 def
  188.  
  189. % calendar constants - change these if you want a French revolutionary calendar
  190.  
  191. /days_week 7 def
  192.  
  193. /days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def
  194.  
  195. /isleap {                % is this a leap year?
  196.         /theyear exch def
  197.     theyear 4 mod 0 eq        % multiple of 4
  198.     theyear 100 mod 0 ne         % not century
  199.     theyear 400 mod 0 eq or and    % unless it's divisible by 400
  200. } def
  201.  
  202. /ndays {                % number of days in this month
  203.         /themonth exch def
  204.     /theyear exch def
  205.     days_month themonth 1 sub get
  206.     month 2 eq            % February
  207.     theyear isleap and
  208.     {
  209.         1 add
  210.     } if
  211. } def
  212.  
  213. /weekday {                % weekday (range 0-6) for integer date
  214.     days_week mod
  215. } def
  216.  
  217. /startday {                % starting day-of-week for this month
  218.     /off year 2000 sub def        % offset from start of "epoch"
  219.     off
  220.     off 4 idiv add            % number of leap years
  221.     off 100 idiv sub        % number of centuries
  222.     off 400 idiv add        % number of extra weird days
  223.     6 add weekday days_week add     % offset from Jan 1 2000
  224.     /off exch def
  225.     1 1 month 1 sub {
  226.         /idx exch def
  227.         days_month idx 1 sub get
  228.         idx 2 eq
  229.         year isleap and
  230.         {
  231.             1 add
  232.         } if
  233.         /off exch off add def
  234.     } for
  235.     off weekday            % 0--Sunday, 1--monday, etc.
  236. } def
  237.  
  238. /prtevent {        % event-string day prtevent
  239.             %  print out an event
  240.     /start startday def
  241.     /day 2 1 roll def
  242.     day start add 1 sub 7 mod daywidth mul
  243.     day start add 1 sub 7 div truncate dayheight neg mul 
  244.     -5    % offset
  245.     numevents day start add get -10 mul add
  246.     numevents day start add 
  247.     numevents day start add get 1 add put
  248.     add moveto  % move DOWN appropriate amount
  249.     isdouble {                  % go UP some if it's double and 30 or 31 
  250.            { 0 dayheight numevents day 7 sub start add get 10 mul sub rmoveto 
  251.           ( /*) show }
  252.         { ( */) show }  % give a hint as to what day the event is on
  253.       ifelse 
  254.     } if   
  255.     show
  256. } def
  257.  
  258. /drawevents {        % read in a file full of events; print
  259.             %  the events for this month
  260.     /numevents
  261.     [0 0 0 0 0 0 0
  262.      0 0 0 0 0 0 0
  263.      0 0 0 0 0 0 0
  264.      0 0 0 0 0 0 0
  265.      0 0 0 0 0 0 0
  266.      0 0 0 0 0 0 0] def 
  267.      eventfont findfont 9 scalefont setfont
  268.      0 2 holidays length 2 sub {
  269.         dup
  270.         1 add holidays 2 1 roll get       % loads string
  271.         2 1 roll holidays 2 1 roll get    % loads day
  272.         prtevent
  273.     } for
  274. } def
  275.  
  276. % ------------------------------------------------------------------------
  277.  
  278. /prtnum { 3 string cvs show } def
  279.  
  280. /center {                % center string in given width
  281.     /width exch def
  282.     /str exch def width str 
  283.     stringwidth pop sub 2 div 0 rmoveto str show
  284. } def
  285.  
  286. /centernum { exch 3 string cvs exch center } def
  287.  
  288. /drawgrid {                % draw calendar boxes
  289.     titlefont findfont weekdayfontsize scalefont setfont
  290.     currentpoint /y0 exch def /x0 exch def
  291.     0 1 days_week 1 sub {
  292.         submonth 0 eq
  293.         {
  294.             x0 y0 moveto
  295.             dup dup daywidth mul 40 rmoveto
  296.             day_names exch get
  297.             daywidth center
  298.         } if
  299.         x0 y0 moveto
  300.         daywidth mul topgridmarg rmoveto
  301.         1.0 setlinewidth
  302.         submonth 0 eq
  303.         {
  304.             /rowsused rows 1 sub def
  305.         }
  306.         {
  307.             /rowsused rows def
  308.         }
  309.         ifelse
  310.         0 1 rowsused {
  311.             gsave
  312.             daywidth 0 rlineto 
  313.             0 dayheight neg rlineto
  314.             daywidth neg 0 rlineto
  315.             closepath stroke
  316.             grestore
  317.             0 dayheight neg rmoveto
  318.         } for
  319.     } for
  320. } def
  321.  
  322. /drawnums {                % place day numbers on calendar
  323.     dayfont findfont datefontsize
  324.     submonth 0 ne
  325.     {
  326.         2.5 mul
  327.     } if scalefont setfont
  328.     /start startday def
  329.     /days year month ndays def
  330.     start daywidth mul dayleftmarg add daytopmarg rmoveto
  331.     submonth 0 ne
  332.     {
  333.         dayleftmarg neg dayheight -2 div rmoveto
  334.     } if
  335.     1 1 days {
  336.         /day exch def
  337.         gsave
  338.         day start add weekday 0 eq
  339.         {
  340.             submonth 0 eq
  341.             {
  342.                 .7 setgray
  343.             } if
  344.         } if
  345.         day start add weekday 1 eq
  346.         {
  347.             submonth 0 eq
  348.             {
  349.                 .7 setgray
  350.             } if
  351.         } if
  352.         submonth 0 eq
  353.         {
  354.             isdouble
  355.             {
  356.                 day prtdouble
  357.             }
  358.             {
  359.                 day prtnum
  360.             } ifelse
  361.         }
  362.         {
  363.             day daywidth centernum
  364.         } ifelse
  365.         grestore
  366.         day start add weekday 0 eq
  367.         {
  368.             currentpoint exch pop dayheight sub 0 exch moveto
  369.             submonth 0 eq
  370.             {
  371.                 dayleftmarg 0 rmoveto
  372.             } if
  373.         }
  374.         {
  375.             daywidth 0 rmoveto
  376.         } ifelse
  377.     } for
  378. } def
  379.  
  380. /isdouble {                % overlay today with next/last week?
  381.     days start add rows days_week mul gt
  382.     {
  383.         day start add rows days_week mul gt
  384.         {
  385.             true true
  386.         }
  387.         {
  388.             day start add rows 1 sub days_week mul gt
  389.             day days_week add days le and
  390.             {
  391.                 false true
  392.             }
  393.             {
  394.                 false
  395.             } ifelse
  396.         } ifelse
  397.     }
  398.     {
  399.         false
  400.     } ifelse
  401. } def
  402.  
  403. /prtdouble {
  404.     gsave
  405.       dayfont findfont datefontsize 2 mul 3 div scalefont setfont
  406.       exch
  407.       {
  408.         (23/) stringwidth pop dayheight rmoveto
  409.         prtnum
  410.       }
  411.       {
  412.         0 datefontsize 5 div rmoveto
  413.         prtnum
  414.         0 datefontsize -5 div rmoveto
  415.         gsave
  416.           dayfont findfont datefontsize scalefont setfont
  417.           (/) show
  418.         grestore
  419.       } ifelse
  420.     grestore
  421. } def
  422.  
  423. /drawfill {                % place fill squares on calendar
  424.     /start startday def
  425.     /days year month ndays def
  426.     currentpoint /y0 exch def /x0 exch def
  427.     submonth 0 eq
  428.     {
  429.         usefirst
  430.         {
  431.             /fillstart 2 def
  432.         }
  433.         {
  434.             /fillstart 0 def
  435.         }
  436.         ifelse
  437.     }
  438.     {
  439.         /fillstart 0 def
  440.     }
  441.     ifelse
  442.     fillstart daywidth mul topgridmarg rmoveto
  443.     1.0 setlinewidth
  444.     fillstart 1 start 1 sub {
  445.         gsave
  446.         .9 setgray
  447.         daywidth 0 rlineto 
  448.         0 dayheight neg rlineto
  449.         daywidth neg 0 rlineto
  450.         closepath fill
  451.         grestore
  452.         daywidth 0 rmoveto
  453.     } for
  454.     x0 y0 moveto
  455.     submonth 0 ne
  456.     {
  457.         /lastday rows 1 add days_week mul def
  458.         days_week 1 sub daywidth mul -440 rmoveto
  459.     }
  460.     {
  461.         /lastday rows days_week mul 2 sub fillstart add def
  462.         days_week 3 sub fillstart add daywidth mul
  463.         -440 dayheight add rmoveto
  464.     } ifelse
  465.     lastday -1 year month ndays start 1 add add
  466.     {
  467.         /day exch def
  468.         gsave
  469.         .9 setgray
  470.         daywidth 0 rlineto 
  471.         0 dayheight neg rlineto
  472.         daywidth neg 0 rlineto
  473.         closepath fill
  474.         grestore
  475.         day weekday 1 eq
  476.         {
  477.             x0 y0 moveto
  478.             days_week 1 sub daywidth mul -440 dayheight add rmoveto
  479.         }
  480.         {
  481.             daywidth neg 0 rmoveto
  482.         } ifelse
  483.     } for
  484. } def
  485.  
  486. /usefirst {                % are last two boxes used by days?
  487.     start year month ndays add rows days_week mul 3 sub gt
  488.     start 2 ge and
  489.     
  490. } def
  491.  
  492. /calendar
  493. {
  494.     titlefont findfont titlefontsize scalefont setfont
  495.     0 60 moveto
  496.     /month_name month_names month 1 sub get def
  497.     month_name show
  498.     /yearstring year 10 string cvs def
  499.     daywidth days_week mul yearstring stringwidth pop sub 60 moveto
  500.     yearstring show
  501.  
  502.     eventflag {
  503.                              % Show a centered Banner if any at the Top
  504.         daywidth days_week mul 2 div
  505.         Bannerstring stringwidth pop 2 div sub
  506.         60 moveto
  507.         Bannerstring show
  508.                                    % Show footnotes left-center-right
  509.         eventfont findfont footfontsize scalefont setfont
  510.         /bottomrow { dayheight rows mul 5 sub neg } def
  511.         0 bottomrow moveto
  512.         Lfootstring show
  513.         daywidth days_week mul Rfootstring stringwidth pop sub
  514.         bottomrow moveto
  515.         Rfootstring show
  516.         daywidth days_week mul Cfootstring stringwidth pop sub 2 div
  517.         bottomrow moveto
  518.         Cfootstring show
  519.         
  520.     } if
  521.  
  522.     0 -5 moveto
  523.     drawnums
  524.  
  525.     0 -5 moveto
  526.     drawfill
  527.  
  528.     eventflag {
  529.         0 0 moveto
  530.         drawevents
  531.     } if
  532.  
  533.     0 -5 moveto
  534.     drawgrid
  535. } def
  536.  
  537. /doy {                 % year month day doy -> returns the number of the day 
  538.   /theday   exch def   % of the year
  539.   /themonth exch def
  540.   /theyear  exch def
  541.   /dayofyear 0 def
  542.   themonth 1 ne {
  543.     1 1 themonth .5 sub {
  544.       /mo exch cvi def
  545.       /dayofyear theyear mo ndays dayofyear add def
  546.     } for
  547.   } if
  548.   dayofyear theday add 
  549. } def                    % doy
  550.     
  551. /findphase {            % find the difference between any day and the reference
  552.   /thisday   exch def   % day of the full moon
  553.   /thismonth exch def   % will probably be one off if the reference is leap yr.
  554.   /thisyear  exch def
  555.   /daysdiff  thisyear thismonth thisday doy
  556.              fullyear fullmonth fullday doy sub 
  557.          longer mul def      % try to be accurate about it
  558.   /yearsdiff thisyear fullyear sub def
  559.   yearsdiff 0 ne {
  560.     /daysdiff daysdiff yearsdiff daysperyear mul
  561.               yearsdiff 100 idiv yearsdiff 400 idiv sub sub add def
  562.   } if
  563.   daysdiff  % return difference in days
  564. } def       % findphase
  565.  
  566. /shrink { 2 sqrt div } def
  567.  
  568. /transmogrify { 10000 mul cvi         % take a real number and 'mod it down'
  569.                 period 10000 mul cvi  % so it is in the range 0->period
  570.                 mod                   % or -period->0
  571.                 10000 div } def       % the 10000's preserve the accuracy
  572.  
  573. /domoon {           % draw the moon at the current phase
  574.   /phase exch def
  575.  
  576.   0 0 radius                           % might as well push these on now
  577.   0 0 radius 
  578.   phase halfperiod lt
  579.     { 270 90 arc stroke                % line on right, fill on left
  580.       0 radius neg moveto
  581.       270 90 arcn 
  582.     }
  583.     { 90 270 arc stroke                % line on left, fill on right
  584.       0 radius neg moveto
  585.       270 90 arc 
  586.       /phase phase halfperiod sub def  % get rid of top halfperiod
  587.     }
  588.   ifelse
  589.  
  590.   /phase phase quartperiod sub      % scale it down to -r(root2) -> r(root2)
  591.          rect mul
  592.    def
  593.  
  594.   phase                 % x1
  595.   phase abs shrink      % y1 need abs!
  596.   phase                 % x2 
  597.   phase abs shrink neg  % y2 need abs!
  598.   0                     % x3
  599.   radius neg            % y3 
  600.   curveto 
  601.   fill
  602. } def    % domoon
  603.  
  604. /shiftdo {
  605.   startphase day longer mul add
  606.   transmogrify neg period add domoon 
  607. } def
  608.  
  609. /drawmoons {
  610.   {
  611.     /fullyear       1990 def      % these are the dates of a full moon,
  612.     /fullmonth      2 def         % any date should work if it is that
  613.     /fullday        9 def         % of a full moon, but I haven't tried many
  614.     % I wouldn't make this reference date fall in a leap year, wierdness
  615.     % will probably happen in findphase. You will probably gain or lose a day
  616.     % somewhere. MBH
  617.  
  618.     /period         29.5306 def
  619.     /daysperyear    365.2422 def
  620.     /longer         daysperyear 365 div def
  621.     /halfperiod     period 2 div def
  622.     /quartperiod    period 4 div def
  623.     /radius         13 def
  624.     /rect           radius 2 sqrt mul quartperiod div def
  625.     /startphase     year month 0 findphase transmogrify 
  626.                 dup 0 lt { period add } if def
  627.     /start          startday def
  628.     /days           year month ndays def
  629.  
  630.     gsave
  631.     0.1 setlinewidth
  632.     newpath
  633.     daywidth radius sub 3 sub 15 translate
  634.     start daywidth mul 0 translate
  635.     1 1 days {
  636.     /day exch def
  637.         isdouble 
  638.           { % true if 30,31 - false if 23,24 (left on the stack after isdouble)
  639.           { gsave
  640.             radius 2 div dayheight radius 2 div sub translate
  641.             0.5 0.5 scale
  642.             shiftdo
  643.             grestore }
  644.           { gsave
  645.             radius 2 div neg radius 2 div translate
  646.             0.5 0.5 scale
  647.             shiftdo
  648.             grestore } 
  649.             ifelse }
  650.       { shiftdo }
  651.     ifelse
  652.     day start add 1 sub weekday 6 eq
  653.       { daywidth 6 mul neg dayheight neg translate }
  654.       { daywidth 0 translate }
  655.         ifelse
  656.     } for
  657.     grestore
  658.   } if         % don't do anything if the argument is false
  659. } def          % drawmoons
  660.  
  661. %
  662. % Main Program 
  663. %
  664. /eventflag true def
  665. $SCALE    scale
  666. $ROTATE rotate
  667. $TRANSLATE translate
  668. /submonth 0 def
  669. calendar
  670. $MOON drawmoons 
  671. /eventflag false def
  672. month 1 sub 0 eq
  673. {
  674.     /lmonth 12 def
  675.     /lyear year 1 sub def
  676. }
  677. {
  678.     /lmonth month 1 sub def
  679.     /lyear year def
  680. } ifelse
  681. month 1 add 13 eq
  682. {
  683.     /nmonth 1 def
  684.     /nyear year 1 add def
  685. } 
  686. {
  687.     /nmonth month 1 add def
  688.     /nyear year def
  689. } ifelse
  690. usefirst
  691. {
  692.     0 30 translate
  693. }
  694. {
  695.     days_week 2 sub daywidth mul -350 translate
  696. }
  697. ifelse
  698. /submonth 1 def
  699. /year lyear def
  700. /month lmonth def
  701. gsave
  702. .138 .138 scale
  703. 12 -120 translate
  704. calendar
  705. grestore
  706.  
  707. /submonth 1 def
  708. /year nyear def
  709. /month nmonth def
  710. daywidth 0 translate
  711. gsave
  712. .138 .138 scale
  713. 12 -120 translate
  714. calendar
  715. grestore
  716.  
  717. showpage
  718. END-OF-CALENDAR
  719.  
  720.  
  721.