; TeX output 1997.10.29:0820yRcolor push Blackc color pop?Wcolor push Black color popWDtGGcmr17The7tGGcmss17schedulepacqkage!", cmsy10rXQ cmr12JasonAlexander2K cmsy8y37 1997/10/28.!Jcolor push Black color pop!Jt : cmbx9Abstractэ_color push Black color popxo cmr9Anewen9vironment,}ߤN cmtt9schedule,isde ned.Primarilyin9tendedforcon- kstructingzc9hartsofrecurringweeklyappAointments,ZtheenvironmentmaykalsobAeusedtocreateasc9heduleofeventsandsign-upsheets(forexample,ksc9hedulingmandatoryocevisitswithstudentsfordiscussingpapAertopics,ketc.)xThisTpac9k|ragerequiresthepack|ragescalcandcolor.!čR Nff cmbx121jLIntros3ductionR!8:00amvto5:00pm,andtheonlyprede nedRcommandatoinsertappGointmentsawillbe\class,,dwhichdrawstheappGointmentRusingUUblacktextonamedium-graybackground.aThe,pmainfeatureoftheschedulepackqageisitsaccuracyindiagrammingtheRlengthofappGointments.UnlikesomeprofessionallyavqailableschedulecreationRprograms,vthe~representationofthelengthofappGointmentsintheschedulepack-RageP_isaccuratetotheminute.p Inotherwords,Q]ifyouhavetwoappGointments,Q]oneRrunning'from2:00pmto3:30pmonT*uesdayandanotherrunningfrom2:00pmtoR3:31pm*onW*ednesday,`athere*isavisibledi erencebGetweenthetworepresenta-Rtions.;Unfortunately*,unlessyyouhaveahigh-resolutionprinter(bywhichIymeanRmore|(than600dpi)thesedi erenceswilllikelyonlybGenoticeablebyaon-screenRpreviewingUUprogramlikeghostview.R2jLExamplesRTheUUfollowingscheduleistypGesetusingthecommands:R color push Blackffffr @ -:q% cmsy6L|{Ycmr8ThisX lehasvÎersionnumb'ExX2 b> cmmi10"Rwhatmheighttomakethecellsintheschedule(allcellshavethesameheight).RSinceacellcorrespGondstoanhourintheschedule,)thiscommandallowstheuserRtoUUspGecifyhowmuchverticalspaceasinglehouroughttotakeup. rMcolor push Black\CellWidth color popRIncludingk\CellWidthhwidthci#8ӲbGeforethescheduleenvironmentktellsL5ffA͉TU>'ExX2",+howRwidetomakeeverycellintheschedule.OTheoverallwidthofthescheduleisRdeterminedGbymultiplyingthisvqaluebythenumbGerofdays(setbythe\FiveDayRorUU\SevenDaycommand),plusthewidthofthetimelabGelsontheleft-handside.Mcolor push Black\TimeRange color popRThisocommandmustappGearbeforethescheduleenvironment,v7otherwiseoL5ffA͉TU>'ExX2"Rwillvnotknowhowdeeptomakethegrid.)ItisimpGortanttonotethatthetimeRrangeisspGeci edusinga24-hourformat,withasingleqRhyphenbetweenthetwoRtimes.qDeviatingUUfromthisformatwillgenerateanerror.Mcolor push Black$\SubUnits color popRThe\SubUnitshnumb}'eri,زtellsthepackqagehowtosubGdividethehour.\IfonedoesRnotwantanysubGdivisions,simplyuse\SubUnits{60}.78Thevqalueofhnumb}'eri.8icanRbGeanynumbGerthanevenlydivides60.BNItisassumedthat,finspGecifyingthisvqalue,Ryouknowwhatyouaredoing:>i.e.,vifyoutellL5ffA͉TU>'ExX2",Vtousea\CellHeightofR1in,%butXthenset\SubUnits{3},youwillget20subGdivisions(withtimes)inacellRonly1inhigh.:Inotherwords,thetextontheleft-handsideoftheschedulewillRbGeAtypesetasahorriblemess.kCThesolutionissimple:hifyouwantalargenumbGerRofUUsubGdivisions,simplyset\CellHeighttoagreatervqalue.Mcolor push Blacky\BeginOn color popRIncludingkw\BeginOnhday}i(tellsL5ffA͉TU>'ExXwhatdayoftheweektostartthescheduleon.RThepGossiblevqaluesare`Sunday',`Monday',`T*uesday',`W*ednesday',`Thursday',R`F*riday',or{$`Saturday'.4MyapGologiesfornon-EnglishspeakingusersofL5ffA͉TU>'ExX.4IfRthereUUisademandforit,Iwill xthisinfuturereleases.Mcolor push Black$\TextSize color popRWith݇the\TextSizehfont-size[i0Qcommand,theusertellsL5ffA͉TU>'ExXwhatsizefonttoRuseЕwhentypGesettingthetextinsidetheboxes.ThiscommandoughttobGeoneRofwthestandardL5ffA͉TU>'ExXfont-sizecommands,~e.g.,\tiny,\scriptsize,etc.\UsingRtwolargeofafontwillalmostalwaysresultinbadlinebreaksinsidethebGoxes,Rthough,UUduetothenarrowwidthofacell.Mcolor push Blacky\FiveDay color popRT*ellsUUL5ffA͉TU>'ExXtotypGeseta ve-dayschedule.Mcolor push Black$\SevenDay color popRT*ellsUUL5ffA͉TU>'ExXtotypGesetaseven-dayschedule.Mcolor push Blackf\NewAppointment color popRBy4usingthe\NewAppointmentcommand,:theusercancustomizetheappGearanceRoftheschedulebychangingthecolorofthetextorthebackgroundcolor.qTheRsyntaxUUis\NewAppointmenthapp}'ointment-name[iYHhb}'ackground-colori3htext-c}'olori*.Rcolor push Blackc color pop!yRcolor push Blackc color pop?R4jLTheffMacrosUs1\% cmsy9h&ow cmss9header"i Us2\\ProvidesFile{schedule.dtx}Us3\\NeedsTeXFormat{LaTeX2e}Us4\\ProvidesPackage{schedule}Us5\\RequirePackage{calc}Us6\\RequirePackage{color}Us7\h$5" cmmi9=header"iUs8\hpack9age#g iUs9\\definecolor{dark}{gray}{.75} R10\%R11\%CONSTANTSFORTHEWEEKR12\%R13\\def\@sunday{Su}R14adD\def\@Sunday{Sunday}R15\\def\@monday{M}R16adD\def\@Monday{Monday}R17\\def\@tuesday{T}R18adD\def\@Tuesday{Tuesday}R19\\def\@wednesday{W}R20adD\def\@Wednesday{Wednesday}R21\\def\@thursday{Th}R22adD\def\@Thursday{Thursday}R23\\def\@friday{F}R24adD\def\@Friday{Friday}R25\\def\@saturday{Sa}R26adD\def\@Saturday{Saturday}R27\%R28\%COUNTERS,LENGTHS,ETC.R29\%R30\\newlength{\cell@height}R31adD\setlength{\cell@height}{1in}R32\\newlength{\cell@width}R33adD\setlength{\cell@width}{1in}R34\\newlength{\box@depth}R35\\newcounter{sch@col@width}\setcounter{sch@col@width}{60}R36\\newlength{\box@width}R37adD\setlength{\box@width}{1in*(\value{sch@col@width}/60)}R38\\newlength{\col@width}R39adD\setlength{\col@width}{1in*(\value{sch@col@width}/60)}R40\\newlength{\sch@depth}\setlength{\sch@depth}{9in}R41\\newlength{\fill@length}R42\\newlength{\@temp@length}R43\\newlength{\@@temp@length}R44\\newlength{\line@thickness}%ThethicknessofthelinesinthedrawingR45adD\setlength{\line@thickness}{.4pt}R46\\newlength{\adjusted@cell@width}R47\\newlength{\adjusted@cell@height}Rcolor push Blackc color pop4yRcolor push Blackc color pop?R48 R49\\newcounter{picture@units@wide}R50\\newcounter{xcoords}R51\\newcounter{ycoords}R52\\newcounter{timea}R53\\newcounter{timeb}R54\\newcounter{grid@width}R55\\newcounter{grid@height}R56\\newcounter{number@of@cells}%ThenumberofVERTICALcellsR57\\newcounter{number@of@subcells}R58\\newcounter{number@of@days}%ThenumberofdaysinthegridR59\\newcounter{dp@vlines}%ThenumberofverticallinesactuallyneededisR60W(%\value{number@of@days}+1...R61\\newcounter{dp@hlines}%ThenumberofhorizontallinesactuallyneededisR62W(%\value{number@of@cells}+1...R63\\newcounter{dp@hcell@lines}%ThenumberofhorizontallinesthatareR64W(%either(1)associatedwithanhour,orR65W(%%̰(2)onthetoporbottomofthegrid.R66\\newcounter{pu@cell@width}R67\\newcounter{pu@cell@height}R68adD\setcounter{pu@cell@height}{60}R69\\newcounter{pu@grid@top}R70\\newcounter{pu@grid@width}R71\\newcounter{pu@subticks}R72\\newcounter{start@time}R73\\newcounter{end@time}R74\\newcounter{x@coord}%Temporaryx-coordinateR75\\newcounter{y@coord}%Temporaryy-coordinateR76\\newcounter{@tempc}R77\\newcounter{@tempd}R78\\newcounter{label@sep} s,%distancefromlabeltogrideR79adD\setcounter{label@sep}{5}%initializedto5pictureunitsR80R81\\newcounter{x@Sunday}R82\\newcounter{x@Monday}R83\\newcounter{x@Tuesday}R84\\newcounter{x@Wednesday}R85\\newcounter{x@Thursday}R86\\newcounter{x@Friday}R87\\newcounter{x@Saturday}R88R89\\newsavebox{\temp@box}R90\\newif\ifweekendsR91\\newcount\@iR92\\newcount\@jR93R94\\def\TimeRange#1{\compute@number@of@cells#1\end@compute}R95\\def\compute@number@of@cells#1:#2-#3:#4\end@compute{%R96f\setcounter{number@of@cells}{#3-#1}%R97f\setcounter{start@time}{#1}%Rcolor push Blackc color pop=yRcolor push Blackc color pop?R98f\setcounter{end@time}{#3}} R99N100\\def\TextSize#1{\def\appt@textsize{#1}}N101\\TextSize{\scriptsize}N102N103\\def\IncludeWeekends{\weekendstrue}N104\\def\NoWeekends{\weekendsfalse}N105N106\\def\SevenDay{\weekendstrue}N107\\def\FiveDay{\weekendsfalse}N108N109\\def\CellHeight#1{\setlength{\cell@height}{#1}%N110:\setlength{\unitlength}{\cell@height*\ratio{1pt}{60pt}}}N111\\def\CellWidth#1{\setlength{\cell@width}{#1}%N112\setcounter{pu@cell@width}{1*\ratio{\cell@width}{\unitlength}}}N113\\def\SubUnits#1{\setcounter{pu@subticks}{#1}%N114D\setcounter{number@of@subcells}{60/\value{pu@subticks}}}N115N116\\def\calculate@grid@dimensions{%N117f\ifweekends\setcounter{number@of@days}{7}N118jp\else\setcounter{number@of@days}{5}%N119o\fi%N120f\setcounter{dp@hcell@lines}{\value{number@of@cells}+1}N121f\setcounter{grid@width}{\value{number@of@days}*\value{pu@cell@width}}%N122f\setcounter{grid@height}{\value{number@of@cells}*60}N123f\setcounter{dp@vlines}{\value{number@of@days}+1}N124f\setcounter{dp@hlines}{\value{number@of@cells}*(60/\value{pu@subticks})+1}}N125N126N127\\def\draw@grid{%\calculate@grid@dimensionsN128f\linethickness{.2pt}%N129f\multiput(0,0)(0,\value{pu@subticks}){\value{dp@hlines}}{\line(1,0){\value{grid@width}}}%N130f\thicklinesN131f\multiput(0,0)(0,60){\value{dp@hcell@lines}}{\line(1,0){\value{grid@width}}}N132f\thinlines}N133N134\\def\LineThickness#1{\setlength{\line@thickness}{#1}%N135\linethickness{\line@thickness}%N136\setlength{\adjusted@cell@width}{\cell@width-1\line@thickness}N137\setlength{\adjusted@cell@height}{\cell@height-1\line@thickness}}N138N139N140\\def\@Su@week{{Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}}N141\\def\@M@week{{Monday}{Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}{Sunday}}N142\\def\@T@week{{Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}{Sunday}{Monday}}N143\\def\@W@week{{Wednesday}{Thursday}{Friday}{Saturday}{Sunday}{Monday}{Tuesday}}N144\\def\@Th@week{{Thursday}{Friday}{Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}}N145\\def\@F@week{{Friday}{Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}}N146\\def\@Sa@week{{Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}{Friday}}N147Rcolor push Blackc color popGyRcolor push Blackc color pop?N148\\def\BeginOn#1{\def\start@day{#1}} N149N150\\def\add@labels{%N151adD\ifx\start@day\@Sunday\expandafter\do@days\@Su@week\relaxN152f\else\ifx\start@day\@Monday\expandafter\do@days\@M@week\relaxN153jp\else\ifx\start@day\@Tuesday\expandafter\do@days\@T@week\relaxN154o\else\ifx\start@day\@Wednesday\expandafter\do@days\@W@week\relaxN155tJ\else\ifx\start@day\@Thursday\expandafter\do@days\@Th@week\relaxN156y2\else\ifx\start@day\@Friday\expandafter\do@days\@F@week\relaxN157}\else\expandafter\do@days\@Sa@week\relaxN158o\fi\fi\fi\fi\fi\fi}N159N160N161\\def\@sfor#1:=#2\upto#3\step#4\do#5{%N162f#1=#2\relax%N163f\@whilenum#1<#3\do{#5\advance#1by#4}#5}N164N165\\def\add@times{%N166f\setcounter{@tempc}{\value{start@time}}%N167f\@sfor\@i:=0\upto\value{number@of@cells}\step1\do%N168o{\setcounter{x@coord}{0}%y*Setthex-coordrightN169tJ\setcounter{y@coord}{\value{grid@height}-60*\@i}%YadjustfortherighthourcellN170tJ\ifnum\value{@tempc}>12%N171w^\setcounter{@tempd}{\value{@tempc}-12}%N172w^\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[r]{\the@tempd:00pm\}}%N173tJ\else\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[r]{\the@tempc:00am\}}%N174tJ\fi\relax%N175tJ\@sfor\@j:=\value{pu@subticks}\upto59\step\value{pu@subticks}\do%N176}{\ifnum\@i=\value{number@of@cells}% s,TesttoseeifthisshouldbethelastlabelN177 \relax%N178w^\else%N179 \ifnum\@j=60%N180L\relax%N181 \else%N182L\ifnum\@j<10%N183x\def\the@minutes{0\the\@j}%N184L\else\def\the@minutes{\the\@j}%N185L\fi%N186L\setcounter{y@coord}{\value{y@coord}-\@j}%N187L\ifnum\value{@tempc}>12%N188D\setcounter{@tempd}{\value{@tempc}-12}%N189D\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[r]{\tiny\the@tempd:\the@minutes\pm\}}%...writethetime(usingpm)...N190L\else\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[r]{\tiny\the@tempc:\the@minutes\am\}}%...writethetime(usingam).N191L\fi%N192 \fi%N193w^\fi%N194w^\setcounter{y@coord}{\value{y@coord}+\@j}}N195tJ\addtocounter{@tempc}{1}}}%N196N197\\def\do@days#1#2#3#4#5#6#7{%Rcolor push Blackc color popS\yRcolor push Blackc color pop?N198f\setcounter{x@coord}{1*\ratio{\value{pu@cell@width}pt}{2pt}}% N199f\setcounter{y@coord}{\value{grid@height}+\value{label@sep}}%N200f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#1}}%N201f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N202f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#2}}%N203f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N204f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#3}}%N205f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N206f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#4}}%N207f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N208f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#5}}%N209f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N210f\ifweekendsN211f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#6}}%N212f\setcounter{x@coord}{\value{x@coord}+\value{pu@cell@width}}%N213f\put(\value{x@coord},\value{y@coord}){\makebox(0,0)[b]{\large#7}}\fi}N214N215N216\\def\set@x@coords@for@days{%N217f\ifx\start@day\@Sunday%N218o\@i=0\relax%N219o\@tfor\@temp:={Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}\do%N220y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N221}\advance\@iby1}N222o\def\skipday@i{F}N223o\def\skipday@ii{Sa}\fiN224f\ifx\start@day\@MondayN225o\@i=0\relax%N226o\@tfor\@temp:={Monday}{Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}{Sunday}\do%N227y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N228}\advance\@iby1}N229o\def\skipday@i{Sa}N230o\def\skipday@ii{Su}\fiN231f\ifx\start@day\@TuesdayN232o\@i=0\relax%N233o\@tfor\@temp:={Tuesday}{Wednesday}{Thursday}{Friday}{Saturday}{Sunday}{Monday}\do%N234y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N235}\advance\@iby1}N236o\def\skipday@i{Su}N237o\def\skipday@ii{M}\fiN238f\ifx\start@day\@WednesdayN239o\@i=0\relax%N240o\@tfor\@temp:={Wednesday}{Thursday}{Friday}{Saturday}{Sunday}{Monday}{Tuesday}\do%N241y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N242}\advance\@iby1}N243o\def\skipday@i{M}N244o\def\skipday@ii{T}\fiN245f\ifx\start@day\@ThursdayN246o\@i=0\relax%N247o\@tfor\@temp:={Thursday}{Friday}{Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}\do%Rcolor push Blackc color pop ^yRcolor push Blackc color pop?N248y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}% N249}\advance\@iby1}N250o\def\skipday@i{T}N251o\def\skipday@ii{W}\fiN252f\ifx\start@day\@FridayN253o\@i=0\relax%N254o\@tfor\@temp:={Friday}{Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}\do%N255y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N256}\advance\@iby1}N257o\def\skipday@i{W}N258o\def\skipday@ii{Th}\fiN259f\ifx\start@day\@SaturdayN260o\@i=0\relax%N261o\@tfor\@temp:={Saturday}{Sunday}{Monday}{Tuesday}{Wednesday}{Thursday}{Friday}\do%N262y2{\setcounter{x@\@temp}{\@i*\value{pu@cell@width}}%N263}\advance\@iby1}N264o\def\skipday@i{Th}N265o\def\skipday@ii{F}\fiN266f}N267N268\%------------------------------------------------------------------------N269\%CommandstoinsertinfoaboutanappointmentN270\%------------------------------------------------------------------------N271\\newif\ifset@start@timeN272\\newif\ifset@end@timeN273\\newif\ifsetboxdepthN274\\newif\ifinrangeN275N276\\def\NewAppointment#1#2#3{%#1=name,#2=backgroundcolor,#3=textcolorN277f\expandafter\def\csname#1\endcsname##1##2##3##4{%N278tJ\setboxdepthtrue%assumewewanttocalculatetheboxdepthN279tJ\inrangetrue%assumetheapptisinrangeN280tJ\set@start@timetrue%assumewewanttocalculatethestarttimeN281tJ\set@end@timetrue%assumewewanttocalculatetheendtimeN282tJ\@includetrue%assumewewillincludeitN283tJ\edef\appt@name{#1}%savetheapptnameN284tJ\edef\appt@color{#2}%savethebackgroundcolorN285tJ\edef\appt@textcolor{#3}%savethesavecolorN286tJ\expandafter\def\csname#1@name\endcsname{##1}%savethenameN287tJ\expandafter\def\csname#1@location\endcsname{##2}%savetheloc.N288tJ\expandafter\def\csname#1@days\endcsname{##3}%savethedaysN289tJ\expandafter\def\csname#1@time\endcsname{##4}%savethetimeN290tJ\place@appt@box##3,\stop}}N291N292\\NewAppointment{class}{dark}{black}N293N294\\def\place@appt@box#1{%N295f\ifx#1\stop\let\@next=\@gobble%N296jp\else\let\@next=\set@x@coords\fi\@next#1}N297Rcolor push Blackc color pop k yRcolor push Blackc color pop?N298\\def\set@x@coords#1,{\def\the@day{#1}% N299adD\ifx\the@day\@sunday\setcounter{xcoords}{\value{x@Sunday}}%N300f\else\ifx\the@day\@monday\setcounter{xcoords}{\value{x@Monday}}%N301jp\else\ifx\the@day\@tuesday\setcounter{xcoords}{\value{x@Tuesday}}%N302o\else\ifx\the@day\@wednesday\setcounter{xcoords}{\value{x@Wednesday}}%N303tJ\else\ifx\the@day\@thursday\setcounter{xcoords}{\value{x@Thursday}}%N304y2\else\ifx\the@day\@friday\setcounter{xcoords}{\value{x@Friday}}%N305}\else\setcounter{xcoords}{\value{x@Saturday}}%N306w^\fi\fi\fi\fi\fi\fi%N3070\edef\@@temp{\csname\appt@name@time\endcsname}%N308\expandafter\set@y@coords\@@temp\stop}N309N310\\def\set@y@coords#1:#2-#3:#4\stop{%N311f\def\@starthour{#1}%N312f\def\@startminutes{#2}N313f\def\@endhour{#3}%N314f\def\@endminutes{#4}%N315f\ifnum#1<\value{start@time}\setcounter{ycoords}{\value{grid@height}}%N316jB\edef\@starthour{\value{start@time}}N317jB\def\@startminutes{0}N318jB\set@start@timefalse%N319jB\fi%N320f\ifnum#3<\value{end@time}\relax%N321o\else\edef\@endhour{\value{end@time}}N322\def\@endminutes{0}%N323\setcounter{ycoords@bot}{0}N324\set@end@timefalseN325f\fi%N326f\ifset@start@time%N327jp\setcounter{ycoords}{\value{grid@height}-(60*(#1-\value{start@time})+#2)}\fi%N328f\ifset@end@time%N329o\setcounter{ycoords@bot}{\value{grid@height}-(60*(#3-\value{start@time})+#4)}\fi%N330f\setlength{\box@depth}{\@endhour\cell@height+(\cell@height*\ratio{\@endminutespt}{60pt})%N3310-\@starthour\cell@height-(\cell@height*\ratio{\@startminutespt}{60pt})}%N332f\ifnum#1<\value{end@time}\relax\else\inrangefalse\fi%N333f\draw@appt@box\place@appt@box}N334N335\\newif\if@includeN336N337\\def\draw@appt@box{%N338jp\ifweekends\relax%ifweuse7-days,thiswon'tchangeN339jp\else\ifx\the@day\skipday@i\@includefalse\fi%firstconditionforchangeN3400\ifx\the@day\skipday@ii\@includefalse\fi\fi%secondconditionforchangeN341f\ifinrange\relax\else\@includefalse\fi%N342f\if@include%N343f\put(\value{xcoords},\value{ycoords}){\colorbox{\appt@color}{\parbox[t]{\cell@width}{\%N344w^\vspace{\box@depth}}}}N345f\thinlinesN346f\put(\value{xcoords},\value{ycoords}){\line(1,0){\value{pu@cell@width}}}N347f\put(\value{xcoords},\value{ycoords@bot}){\line(1,0){\value{pu@cell@width}}}Rcolor push Blackc color pop vEyRcolor push Blackc color pop?N348f\put(\value{xcoords},\value{ycoords}){% N349w^\ s,\parbox[t]{\cell@width-8pt}{\mbox{}\\\appt@textsize%N350w^\ifdim\box@depth>\baselineskipN351w^\textcolor{\appt@textcolor}{\csname\appt@name@name\endcsname}\\%N352w^\ifdim\box@depth>2\baselineskipN353w^\textcolor{\appt@textcolor}{\csname\appt@nameN354w^@location\endcsname}\fi\fi}}\fi}N355N356\\def\convert@class@time#1:#2-#3:#4\end@time{%N357f{\count1=#1\relax%N358jp\count3=#3\relax%N359jp\ifnum#1>12\advance\count1by-12\fi\relax%N360jp\ifnum#3>12\advance\count3by-12\fi\relax%N361jp\ifnum#1<12\relax%N362o\ifnum#3<12\relax\mbox{\the\count1:#2am--\the\count3:#4am}\relax%N363tJ\else\mbox{\the\count1:#2am--\the\count3:#4pm}\fi\relax%N364y2\else\mbox{\the\count1:#2pm--\the\count3:#4pm}\fi\relax}}N365N366\\def\compute@box@depth#1:#2-#3:#4\end@bx{%N367f\setlength{\box@depth}{#3\cell@height+(\cell@height*\ratio{#4pt}{60pt})%N3680-#1\cell@height-(\cell@height*\ratio{#2pt}{60pt})}}N369N370\\newcounter{ycoords@bot}N371N372\\newcounter{x@tempa}N373\\newcounter{x@tempb}N374\\newcounter{y@tempa}N375\\newcounter{y@tempb}N376\\newcounter{temp@cnt@a}N377N378\\newlength{\title@height}N379\\newlength{\label@height}N380adD\settoheight{\label@height}{Wednesday}N381N382\\newcounter{pu@label@width}N383\\newlength{\center@hack}N384N385\\newenvironment{schedule}[1][:]%N386\{\bigskipN387adD\calculate@grid@dimensions%N388adD\setcounter{pu@grid@width}{\value{pu@cell@width}*\value{number@of@days}}%N389adD\settowidth{\@temp@length}{\normalsize12:00\pm\}%N390adD\setcounter{pu@label@width}{1*\ratio{\@temp@length}{\unitlength}}%N391adD\setcounter{pu@grid@top}{\value{grid@height}+(1*\ratio{\label@height}{\unitlength})+%N392o(1*\ratio{.25in}{\unitlength})}%N393adD\if#1:\relax\else%N394f\settoheight{\title@height}{\large#1}%N395f\addtocounter{pu@grid@top}{1*\ratio{\title@height}{\unitlength}}%N396adD\fi%N397adD\setlength{\center@hack}{(.5\linewidth-.5\unitlength*\value{pu@grid@width}+%Rcolor push Blackc color pop eyRcolor push Blackc color pop?N398jp.5\unitlength*\value{pu@label@width})}% N399adD\noindent\hspace*{\center@hack}%N400adD\begin{picture}(\value{pu@grid@width},\value{pu@grid@top})%N401adD\draw@gridN402adD\add@labelsN403adD\if#1:\relax\elseN404f\setcounter{ycoords}{\value{grid@height}+(1*\ratio{\label@height}{\unitlength})+%N405tJ(1*\ratio{.25in}{\unitlength})}N406f\setcounter{xcoords}{1*\ratio{\value{pu@grid@width}pt}{2pt}}N407adD\put(\value{xcoords},\value{ycoords}){\makebox(0,0)[b]{\Large#1}}N408adD\fiN409adD\add@timesN410adD\set@x@coords@for@days}N411\{\multiput(0,0)(\value{pu@cell@width},0){\value{dp@vlines}}{\line(0,1){\value{grid@height}}}N412adD\end{picture}\bigskip}N413N414\\setlength{\fboxsep}{0in}N415\%\pagestyle{empty}N416\h=pack9age#g i!čRChangeffHistory+獍Rv1.00aGeneral:TInitialv9ersion.}.΍}.}.}.}.}.}.}. yz1RIndexRNumbGerswritteninitalicrefertothepagewherethecorrespondingentryisde- RscribGed,Dthe onesunderlinedtothecodelineofthede nition,DtheresttothecodeRlinesUUwheretheentryisused.AvbQvmJSymCbKols 219,T226,233,p240,'%247,254,261R\@thursday@0}.΍}.}.}. $21,T303R\@tuesdayl}.΍}.}.}.}. $17,T301R\@wednesday}.΍}.}.}. $19,T302R\@whilenum@0}.΍}.}.}.}.}.}.163R\\3>}.΍}.}.}.}.}.}.}.}.}. 349,T351C^R\ 3>}.΍}.}. j172,T173,189,p190,'%343,349,389C^йAR\add@labels}.΍}.}. 150,T402R\add@times@0}.΍}.}. 165,T409R\adjusted@cell@heightp}.΍}.}.}.}.}.}.}. 47,T137R\adjusted@cell@widthp}.΍}.}.}.}.}.}.}. 46,T136R\appt@color}.΍}.}. 284,T343R\appt@name@0}.΍}.}.}.}.}.}.p}. 5t283,T307,351,353R\appt@textcolorz}.΍}.}.p}.΍}.}.}. 285,T351,353R\appt@textsize h100,T349C^ BR\baselineskip- }. 350,T352R\BeginOn}.΍}.}.}.}.}.}. T1 TfepR,T148R\bigskip}.΍}.}.}.}. 386,T412R\box@depth@0}. 34,T330,p344,'%350,352,367R\box@width@0}.΍}.}.}.}. T36,T37C^CR\calculate@grid@dimensionsp}.΍}.}.}. 116,T127,387R\cell@heightYҍ}.30,T31,p109,110,137,p330,'%331,367,368R\cell@width}.΍}.}.}.}.}.}.p}.΍}.}. Q"32,T33,111,p112,'%136,343,349R\CellHeight}.΍}.}.}.}. T1 TfepR,T109R\CellWidth@0}.΍}.}.}.}. T1 TfepR,T111˪\center@hackYҍ}.΍}.}.}.}.}. 骬}.΍}.}.}. 383,T397,399 $˪\col@width@0}.΍}.}.}.}. T38,T39˪\colorboxl}.΍}.}.}.}.}.}.}.343˪\compute@box@depthT}.366˪\compute@number@of@cells骬}.΍}.}.}.}.}.}.}.}. (94,T95˪\convert@class@time356˪\count (357{360,T362{364mkD˪\definecolorYҍ}.΍}.}.}.}.}.}. 9˪\do@days}.΍}. f151{157,T197˪\draw@appt@box h333,T337˪\draw@grid@0}.΍}.}. 127,T401qE˪\end@bxƈ}.΍}.}.}.}.}.}.}.}.}.366˪\end@computeYҍ}.΍}.}.}. T94,T95˪\end@timel}.΍}.}.}.}.}.}.}.356'NF˪\fboxsep}.΍}.}.}.}.}.}.}.}.414˪\fill@lengthYҍ}.΍}.}.}.}.}. 41˪\FiveDay}.΍}.}.}.}.}.}. T1 TfepR,T107W!H˪\hspaceƈ}.΍}.}.}.}.}.}.}.}.}.399}I˪\if@include}.΍}.}. 335,T342˪\ifdimP}.΍}.}.}.}.}.}. 350,T352˪\ifinrange@0}.΍}.}. 274,T341˪\ifset@end@timec272,T328˪\ifset@start@timeyꍑ}. 骬}.΍}.}.}.}.}.}.}. i271,T326˪\ifsetboxdepthB}.΍}.}.}.273˪\ifweekends}.΍}.}.}.}.}.}.骬}. r90,T117,210,338˪\IncludeWeekends}.΍}.103˪\inrangefalse- }.΍}.}.}.}.332˪\inrangetrueYҍ}.΍}.}.}.}.}.279mM,L˪\label@height- }.΍}.}.}.}.骬}. 5t379,T380,391,404˪\LargeP}.΍}.}.}.}.}.}.}.}.}.}.407˪\letL}.΍}.}.}.}.}.}.}.}. 295,T296˪\line }.΍}.}.}.}.}.}.}. B129,骬131,'%346,347,411EUX\line@thicknessz}.΍}.}. cUX}.΍}. 44,T45,134{137 xxEUX\LineThicknessB}.΍}.}.}.134EUX\linethickness h128,T135EUX\linewidth@0}.΍}.}.}.}.}.}.397iixMEUX\makebox}.΍}. 172,T173,cUX189,190,200,cUX202,204,206,cUX208,'%211,213,407EUX\multiputl}.J129,T131,411iiyNEUX\NeedsTeXFormatz}.΍}.}.}. 3EUX\NewAppointmentz}.΍}.}.cUX}.΍}.}.}.}.}. <~1 <~fe|,T276,292EUX\newcountl}.΍}.}.}.}.}. T91,T92EUX\newcounter35,}49{59,cUX61,v63,66,67,cUX69{78,G281{87,cUX370,3372{376,382EUX\newenvironmentz}.΍}.}.385EUX\newifP}. 90,T271{274,335EUX\newlength30,T32,34,cUX36,38,40{44,cUX46,47,378,379,383EUX\newsavebox}.΍}.}.}.}.}.}. 89EUX\NoWeekends}.΍}.}.}.}.}.}.104iiyPEUX\pagestyle@0}.΍}.}.}.}.}.}.415EUX\parboxƈ}.΍}.}.}.}.}. 343,T349EUX\place@appt@boxz}.΍}.}.cUX}.΍}.}.}. 290,T294,333EUX\ProvidesFile- }.΍}.}.}.}.}. 2EUX\ProvidesPackage}.΍}.}. 4EUX\putL}.΍}.}.}.}.}. 172,T173,cUX189,190,200,cUX202,204,206,cUX208,211,213,cUX343,3346{348,407iiy--REUX\ratioP}.΍}.}.}. 110,T112,cUX198,330,331,cUX367,368,390{cUX392,3395,404{406EUX\RequirePackagez}.΍}. 5,T6Rcolor push Blackc color popyRcolor push Blackc color pop?<S R\sch@depth@0}.΍}.}.}.}.}.}. 40R\scriptsize}.΍}.}.}.}.}.}.101R\set@end@timefalseT}.324R\set@end@timetrueyꍑ}.281R\set@start@timefalsep}.΍}.}.}.}.}.}.}.}.}.}. J318R\set@start@timetrue280R\set@x@coords- }. 296,T298R\set@x@coords@for@daysp}.΍}.}.}.}.}.}.}. i216,T410R\set@y@coords- }. 308,T310R\setboxdepthtrue}.΍}.278R\settoheightYҍ}.΍}. 380,T394R\settowidth}.΍}.}.}.}.}.}.389R\SevenDayl}.΍}.}.}.}.}. T1 TfepR,T106R\skipday@i@0}.΍}.}. B222,p229,236,243,p250,'%257,264,339<˪\skipday@ii}.΍}.}. B223, 骬230,237,244,骬251,'%258,265,340˪\start@day@0}.΍}.}.}.}.}.}.骬}. 1148,T151{156,骬217,224,231,骬238,'%245,252,259˪\step }.΍}.}.}.}.J161,T167,175˪\stop }. un290,T295,308,310˪\SubUnitsl}.΍}.}.}.}.}. T1 TfepR,T113T˪\temp@boxl}.΍}.}.}.}.}.}.}. 89˪\textcolor@0}.΍}.}. 351,T353˪\TextSizel}.΍}. |x1 |xfev,T100,101˪\the@day}.΍}.}.}.}.}.}.}.}.骬}. <298{304,T339,340˪\the@minutesYҍ}.΍}.}.}.}.}.骬}. 5t183,T184,189,190<EUX\the@tempc@0}.΍}.}. 173,T190 EUX\the@tempd@0}.΍}.}. 172,T189EUX\thicklines}.΍}.}.}.}.}.}.130EUX\thinlines@0}.΍}.}. 132,T345EUX\TimeRange@0}.΍}.}.}.}.}.1ㄟfe ,T94EUX\tiny }.΍}.}.}.}.}.}.}. 189,T190EUX\title@height- }.΍}.}.}.}. cUX}.΍}.}.}. 378,T394,395yUEUX\unitlengthd110,T112,cUX390{392,G2395,cUX397,'%398,404,405EUX\upto }.΍}.}.}.}.J161,T167,175wgWEUX\weekendsfalse h104,T107EUX\weekendstrue- }. 103,T106Rcolor push Blackc color pop;y &ow cmss9% cmsy9$5" cmmi9#': cmti10"m#R cmss10! cmmi10K`y cmr10ٓRcmr7Zcmr5-